userdelete.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 28 行

<!--#include file="conn.inc"-->
<%


'删除人员
vid=request("id")


vid=split(vid,",")
i=ubound(vid)

for j=0 to i
v_id = trim(vid(j))
sql="select * from user_info where UserID = "&v_id&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2

if  not rs.eof  then
 rs.delete
   rs.update
end if
rs.close
set rs= nothing
next
conn.close
set conn = nothing
response.redirect "manageruser.asp"
%>