jduser.asp

来自「多用户个人主页系统(ASP)」· ASP 代码 · 共 50 行

<%
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("djusers.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.Delete(True)


'将被冻结的首页文件还原
Set ts= fs.Getfile(fullpath&HPDIRName&"\"&rs("username")&"\index.stoped")
ts.Move(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.redirect("djusers.asp")
%>