站长资源网络编程

<%
'asp 数组 批量修改记录
id=Request("id")
id=Split(id,",")

hits=Request("hits")
hits=Split(hits,",")

regtime=Request("regtime")
regtime=Split(regtime,",")

For i=LBound(id) To UBound(id) 
        Set rs = Server.CreateObject("ADODB.Recordset")
        sql= "Select * from article where id ="&id(i)
        If Not rs.EOF Then 
        rs("hits")=hits(i)
        rs("regtime")=regtime(i)
        rs.Update
        End If
Next

%>