Dim i,TestAry(3)
TestAry(0)="张三"
TestAry(1)="李四"
TestAry(2)="王五"
TestAry(3)="赵六"
rs.Open "[这里省略SQL语句]",conn,1,3
rs.AddNew
For i=0 To 3
rs("Name")=rs("Name")&TestAry(i)&"|"
Next
rs.Update
rs.Close
Set rs=Nothing
Dim i,TestAry(3)
TestAry(0)="张三"
TestAry(1)="李四"
TestAry(2)="王五"
TestAry(3)="赵六"
rs.Open "[这里省略SQL语句]",conn,1,3
rs.AddNew
For i=0 To 3
rs("Name")=rs("Name")&TestAry(i)&"|"
N ...
<% set rs=conn.execute("select [Name] from 表名 where id="&request("id")) conn.execute "update 表名 set [Name]='"&rs("Name")&"|"&request("Name")&"' where id="&request("id") rs.Close %>