求批量更新数据库的语句。

[jim_cn]

<%
Dim rs,sql,id,i
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from [bizuser]"
rs.Open sql,Conn,1,3
Function Csn()
Dim sn1,sn2,sn3,sn4,sn5,sn
i=rs("id")
sn=Ucase(rs("sn"))
sn1=Right(sn,5)
sn2=Left(sn,5)
sn3=Mid(sn,6,5)
sn4=Mid(sn,12,5)
sn5=Mid(sn,20,5)
sn=sn1&"-"&sn2&"-"&sn3&"-"&sn4&"-"&sn5
csn=sn
End Function
conn.execute("update bizuser Set csn='"&csn()&"'")
Response.Write "执行完毕"
%>

这样执行的结果是所有的csn字段都是一个值，如果做能够不同的id对应不同的值，而且遍历所有的
id？

[bladeinside]

conn.execute("update bizuser Set csn='"&csn()&"'")

-->

while not rs.eof
conn.execute("update bizuser Set csn='"&csn()&"'")
rs.movenext
wend

[uuyi]

楼上的不行，虽然我不知道到底怎么做可是实现 ，但是你这样实现的结果应该和原来的是一样的。

[NetFishDuDu]

你的update语句可不可以直接放在那个function里，你试试这个语句行不行：
"update bizuser Set csn='"&Right(Ucase(rs("sn")),5)&"-"&Left(Ucase(rs("sn")),5)&"-"&Mid(Ucase(rs("sn")),6,5)&"-"&Mid(Ucase(rs("sn")),12,5)&"-"&Mid(Ucase(rs("sn")),20,5)&"'"

[jim_cn]

楼上的不行。。

[jim_cn]

还有没有人来帮忙撒，着急～～就是如何实现循环的问题

[madpolice]

<%
Dim rs,sql,id,i
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from [bizuser]"
rs.Open sql,Conn,1,3

do while not rs.eof
rs("csn")=Csn()
rs.update
rs.movenext
loop



Function Csn()
Dim sn1,sn2,sn3,sn4,sn5,sn
i=rs("id")
sn=Ucase(rs("sn"))
sn1=Right(sn,5)
sn2=Left(sn,5)
sn3=Mid(sn,6,5)
sn4=Mid(sn,12,5)
sn5=Mid(sn,20,5)
sn=sn1&"-"&sn2&"-"&sn3&"-"&sn4&"-"&sn5
csn=sn
End Function

Response.Write "执行完毕"
%>

[jim_cn]

谢楼上～