dim i, title title = objrs("Title") for i = 0 to len(Title") step 2 response.write mid(title, i, 2) & "," next
復制代碼 代碼如下:
<% dim objRs,strSql Set objRs=Server.CreateObject("ADODB.RecordSet") strSql="select Title,Content from Table" objRs.Open strSql,strConn,1,3 if objRs.Eof then response.write "<center>沒有此數據</center>" else %>
<% dim i, title title = objrs("Title") for i = 1 to len(Title")-2 response.write mid(title, i, 2) & "," '這里只是個示范輸出,你要自己把他賦值到META變量啊 汗 next %>
