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 %>
