deluser1.asp

多用户个人主页系统(ASP)

<%
response.buffer=true
response.expires=0%>
<!--#include file="./includes/dataconn.inc"-->
<!--#include file="./includes/setup.asp"-->
<%

if adminlogin=session("username") and adminpassword=session("password") then
del=replace(trim(request.form("del")),", ","") 
if del="" then
%>     
<script language=vbs>     
<!--     
MsgBox "您没有选择要登记的用户记录!"
window.location.href="nokt.asp"     
-->     
</script>     
<%
end if
on error resume next
for each x in request("del")
sql="SELECT * from user where num=" & x 
set rstemp = conntemp.execute(sql)

fs.DeleteFolder fullpath&hpdirname&"\"&rstemp("username")
sql="Delete from user where num=" & x
conntemp.execute(sql)
next
else     
%>     
<script language="vbs">     
<!--     
MsgBox "请不要使用非法方法进入!",,"宏网"     
window.location.href="index.asp"    
-->     
</script>     
<%
end if
response.clear
response.redirect("deluser.asp")
%>