signed

QiShunwang

“诚信为本、客户至上”

asp批量修改记录的代码

2021/5/14 23:57:40   来源:
<%
'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

%>