user_del.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<!--#include file="Check_Login.asp"-->
<!--#include file="Conn.asp"-->
<%
  VCome=Right(Request.ServerVariables("HTTP_REFERER"),15)
  page=request.QueryString("page")
  if page="" then page=1
  selectid=request("selectid")
  if selectid<>"" then
    conn.execute "delete from UserInfo where id in ("&selectid&")"
    if VCome="UserAllSeek.asp" then
       start_date=trim(request.Form("start_date"))
       end_date=trim(request.Form("end_date"))
       namework=trim(request.Form("namework"))
       response.redirect "UserAllSeek.asp?page="&page&"&start_date="&start_date&"&end_date="&end_date&"&namework="&namework&"&pp=OKK"
       response.End
    end if
    response.redirect request.servervariables("http_referer")
    response.End
  else
    if VCome="UserAllSeek.asp" then
       start_date=trim(request.Form("start_date"))
       end_date=trim(request.Form("end_date"))
       namework=trim(request.Form("namework"))
       response.redirect "UserAllSeek.asp?page="&page&"&start_date="&start_date&"&end_date="&end_date&"&namework="&namework&"&pp=OKK"
       response.End
    end if
    response.redirect request.servervariables("http_referer")
  end if
%>