'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''加ID编号
set conn4=CreateObject("ADODB.Connection")
conn4.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Edit\"&ExcelFile)&""
exec="select id from [学生信息$]"
set rsa=server.createobject("adodb.recordset")
rsa.open exec,conn4,1,1
do while not rsa.eof
l=l+1
sql="update [学生信息] set id ='"&l&"' where id ='"&rsa(0)&"'"
'response.write sql&"<br>"
conn4.execute(sql)
rsa.movenext
loop
rsa.close
rs.close
conn4.close
conn.close
set rsa = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
代码如上，目的是对Excel里面的Id 列（为从数据库里面导出来的不连续的不规则的数字）改成从1往后递加的编号。
但是每次都是序号错位，大部分是正确的递增的。
问问高人指点一二
另response.write sql&"<br>" 是正确的 递增语句
