adminbanjidel1.asp

该系统测试用户信息主要由数据库直接输入

<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>


<%
dim i
dim j
id1=request("id")
'response.write id
id=split(id1,",")
i=ubound(id)
'response.write i
for j=0 to i

 
  sql="select * from tbbanji where banjiid="& cint(id(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  if not rs.eof then
  rs.delete
  rs.update
  end if
  
  
next
response.redirect "adminbanji.asp"
%>