djuser.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
id=request("id")
if id="" then
%>     
<script language=vbs>     
<!--     
MsgBox "您没有选择要冻结的用户!"
window.open("yeskt.asp","_self");
-->     
</script>     
<%
end if
on error resume next
sql="select * from user where cstr(num)='" & id &"'"
rs=conntemp.execute(sql)

'更改主页文件名
Set ts= fs.Getfile(fullpath&HPDIRName&"\"&rs("username")&"\index.htm")
ts.Move(fullpath&HPDIRName&"\"&rs("username")&"\index.stoped")

'用默认冻结代替
set afile=fs.getfile("E:\website\web\index_dj.int")
afile.copy fullpath&hpdirname&"\"&rs("username")&"\index.htm"

'更改用户数据库中的用户状态
sql="update user set kt='冻' where cstr(num)=" & id
conntemp.execute(sql)

else     
%>     
<script language="vbs">
<!--     
MsgBox "请不要使用非法方法进入!",,"亮点软件"     
window.open("index.asp","_self");
-->     
</script>     
<%
end if
response.clear
response.write "<script>alert('该用户帐号已被冻结！');location.href='yeskt.asp'</script>"
%>