相关代码 |
|
dim i
dim j
id=request("id")
'response.write id
id=split(id,",")
i=ubound(id)
'response.write i
for j=0 to i
sql="select * from User_info where Userid="& cint(id(j))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
rs.delete
rs.update
rs.close
end if
next
response.redirect "User_admin.asp"
%>
相关资源 |
|