confirmno.asp

超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来

<%sub confirmno()

if session("user")="" then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else

 if Request("user_list")<>"" then
      userlist=split(Request("user_list"),",")
    sql_user="update user set confirm=0 WHERE userid IN ("&Request("user_list")&")"
 conn.execute sql_user
 end if
 
delok_html="<table width=100% height=151 border=1 cellspacing=0 cellpadding=3 bordercolorlight=#333333 bordercolordark=#FFFFFF>        <tr>           <td width='100%' height='6' class=link  align=center><meta HTTP-EQUIV='REFRESH' CONTENT='3;URL=?user="&request("user")&"&page="&request("page")&"&action=administrator'>  请等待，系统正在处理您的设置不通过信息..... <br>  设置成功,3秒后我们将带你返回.<br>  如果系统没有反应请按下面的链接返回！<p><br>  [<a href=?user="&request("user")&"&page="&request("page")&"&action=administrator>返回用户管理</a>] </td></tr></table>"
table(delok_html)
end if
end sub
%>