active.asp

九酷网络个人主页系统破解版

<!--#include file="config.asp"-->
<%
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
user=request("user")
email=request("email")
sign=request("sign")
if user="" or email="" or sign="" then WriteErrMsg("对不起，参数出错，帐号激活失败！")
sql="select * from [user] where username='"&user&"' and email='"&email&"' and accode='"&sign&"' and state=0"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
WriteErrMsg("系统出错，您的帐号已经激活或用户名不存在！")
else
rs("state")=1
rs("ktdate")=Date()
rs.update
set rshost=conn.Execute("select * from [host] where id="&cint(rs("groups"))&"")
userdir=rshost("userdir")
Fso.CopyFolder server.MapPath(".")+"\template\copypage1",userdir&user
If not connftp.Execute("select user from [User accounts] where user='"&user&"'").eof Then
connftp.execute("Update [User accounts] set Disable=False where user='"&user&"'")
end if
call mb("尊敬的用户："&user&"\n\n您的帐号已经成功激活，点击确定开始登录会员中心","login.asp",1)
rs.close
set rs=nothing
rshost.close
set rshost=nothing
end if
%>