view.asp

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

<!--#include file="config.asp"-->
<!--#include file="domain.asp"-->
<%
username=request("username")
sql="select * from [user] where username='"&username&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then WriteErrMsg("对不起，此用户不存在或已经被删除！")
groups=rs("groups")
select case rs("state")
case 0
WriteErrMsg("对不起，此用户帐号还没有激活！")
case 2
WriteErrMsg("对不起，此用户帐号已经已经被锁定！")
case else
end select
set rshost=server.createobject("ADODB.Recordset")
sqlhost="select * from [host] where id="&cint(groups)
rshost.open sqlhost,conn,1,1
select case rshost("domain")
case 0
userurl=rshost("userurl")&"/"&username
case 2
dim vdns
set vdns=new vdns_cls
if vdns.check(rshost("domainname"),username)="false" then
userurl="http://"&username&"."&rshost("domainname")
else
userurl=rshost("userurl")&"/"&username
end if
case else
userurl=rshost("userurl")&"/"&username
end select
Response.redirect userurl
rs.close
set rs=nothing
rshost.close
set rshost=nothing
%>