config.asp

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

<!--#include file="conn.asp"-->
<!--#include file="online.asp"-->
<%
on error resume next
'定义全局变量
set rsconfig=server.createobject("adodb.recordset")
sqlconfig="select * from config" 
rsconfig.open sqlconfig,conn,1,1
if rsconfig.bof and rsconfig.bof then WriteErrMsg("对不起，首次使用请运行安装程序安装！")
version=rsconfig("version")
site=rsconfig("site")
siteurl=rsconfig("siteurl")
sitetitle=rsconfig("sitetitle")
logourl=rsconfig("logourl")
bannerurl=rsconfig("bannerurl")
siteemail=rsconfig("siteemail")
ftphost=rsconfig("ftphost")
filters=rsconfig("filters")
badip=rsconfig("badip")
regtime=rsconfig("regtime")
pay_gate=rsconfig("pay_gate")
userkill=rsconfig("userkill")
dvbbs=rsconfig("dvbbs")
mailtype=rsconfig("mailtype")
smtpname=rsconfig("smtpname")
smtppass=rsconfig("smtppass")
smtpserver=rsconfig("smtpserver")
point=rsconfig("point")
CacheName=rsconfig("CacheName")
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=empty then
remoteaddr=Request.ServerVariables("REMOTE_ADDR")
else
remoteaddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
if rsconfig("state")=False then
WriteErrMsg("系统维护中，请隔段时间再来访问！")
response.End
end if
if badip<>"" then
badip=split(badip,"|")
for i = 0 to ubound(badip)
	if LCase(remoteaddr)=badip(i) then
		WriteErrMsg("您被禁止访问本站！")
		erro=true
		exit for
	end if
next
end if
sub showuserlogin()
if Request.Cookies("9cool_username")<>"" then
set rslogin=server.createobject("adodb.recordset")
sqllogin="select * from [user] where username='"&Request.Cookies("9cool_username")&"' and state=1"
rslogin.open sqllogin,conn,1,1
if rslogin.eof and rslogin.bof then
Response.Cookies("9cool_username")=""  
WriteErrMsg("您的帐号已经被锁定或删除，请<a href=login.asp>重新登录</a>！")
Response.end
end if
groups=rslogin("groups")
set rshost=server.createobject("adodb.recordset")
sqlhost="select * from [host] where id="&cint(groups)
rshost.open sqlhost,conn,1,1
spacetype=rshost("type")
if rshost("type")="free" then usertype="免费会员"
if rshost("type")="vip" then usertype="<font color=red>VIP会员</font>"
strLogin=strLogin & "<table width=100% border=0 align=center cellpadding=1 cellspacing=0>"
strLogin=strLogin & "<tr><td width=""50%"" colspan=2 bgcolor=#EFEFEF><img src=""images/member_enter.gif"" width=""120"" height=""26""></td>"
strLogin=strLogin & "</tr><tr><td colspan=2 align=center>欢迎<font color=#FF0000><strong>"&Request.Cookies("9cool_username")&"</strong></font>的光临！</td>"
strLogin=strLogin & "</tr><tr><td align=center>帐户类型：</td><td width=83>"&usertype&"</td>"
strLogin=strLogin & "</tr><tr><td align=center>登录次数：</td><td width=83>"&rslogin("logins")&"</td>"
strLogin=strLogin & "</tr><tr><td align=center>帐户积分：</td><td>"&rslogin("point")&"</td></tr>"
strLogin=strLogin & "<tr><td colspan=2 align=center><a href=member.asp><b>会员中心</b></a> | <a href=login.asp?action=loginout onclick=""return confirm('确定要退出吗？');""><b>退出管理</b></a></td></tr>"
strLogin=strLogin & "</table>"
response.write strLogin
else
%>
<script language="javascript">
<!--
function IsDigit(){
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function check_input()  
{  
	if (frm.username.value=="")
	{   alert("请输入用户名！");
		frm.username.focus();
		return false;
	}
	if (frm.password.value=="")
	{   alert("请输入密码！");
		frm.password.focus();
		return false;
	}
	if (frm.verifycode.value=="")
	{   alert("请输入验证码！");
		frm.verifycode.focus();
		return false;
	}
}
//-->
</script>
<%
strLogin=strLogin & "<table width=""100%""  border=""0"" cellspacing=""0"" cellpadding=""0"" height=""128"">"
strLogin=strLogin & "<form name=""frm"" method=post action=chk_login.asp target=_top onSubmit='return check_input();'>"
strLogin=strLogin & "<tr><td width=""16%"" height=""26"" bgcolor=#EFEFEF><img src=""images/member_enter.gif"" width=""120"" height=""26""></td>"
strLogin=strLogin & "      </tr><tr><td width=""16%"" height=""26"">&nbsp;&nbsp;用户名："
strLogin=strLogin & "<input name=""username"" type=""text"" id=""username"" size=""16"" maxlength=""20""> "                  
strLogin=strLogin & "</td></tr><tr><td width=""16%"" height=""26"">&nbsp;&nbsp;密&nbsp; 码："                    
strLogin=strLogin & "<input name=""password"" type=""password"" id=""password"" size=""16"" maxlength=""50""></td>"                  
strLogin=strLogin & "</tr><tr><td>&nbsp;&nbsp;验证码：<input name=verifycode type=text size=4 ONKEYPRESS='event.returnValue=IsDigit();' maxlength=4 autoComplete=off><a href='javascript:refreshimg()'><img id='checkcode' src=""inc/VerifyCode.asp"" border=0 alt='验证码,看不清楚?请点击刷新验证码'></a></td></tr><tr><td width=""16%"" height=""30"">&nbsp;&nbsp;Cookie：" 
strLogin=strLogin & "<select name=""CookieDate"" size=""1"" id=""CookieDate"">" 
strLogin=strLogin & "<option value=""0"">不保存</option><option value=""1"">保存一天</option>" 
strLogin=strLogin & "<option value=""2"">保存一月</option><option value=""3"">保存一年</option>" 
strLogin=strLogin & "</select></td></tr><tr><td width=""16%"" height=""30"" align=center>&nbsp;&nbsp;<input type=""image"" border=""0"" name=""imageField"" src=""images/login.gif"" style='cursor:hand'> " 
strLogin=strLogin & "<a href=""reg.asp""><img src=""images/reg.gif"" alt=""用户注册"" border=""0""></a><br><a href=javascript:void(0) onClick=javascript:open_win('getpass.asp','',500,200,'no')>忘记密码？</a> <a href=javascript:void(0) onClick=javascript:open_win('kill.asp','',500,220,'no')>帐号自杀</a></td>" 
strLogin=strLogin & "</tr></form></table>" 
response.write strLogin
end if
end sub
sub mb(txt,url,go)
  response.write "<script language=Javascript>alert('"&txt&"');"
  if go<>1 then
    response.write "history.go(-1);"
  else
    response.write "document.location.href='"&url&"';"
  end if
  response.write "</script>"
  response.end
end sub
sub coolshow()
Randomize 
Set rscool=conn.Execute("select top 10 * from [user] where state=1 and isgood=True order by rnd(-(userid+" & rnd() & "))") 
if rscool.eof and rscool.bof then
response.write "暂时还没有酷站推荐!"
else
do while not rscool.eof
response.write "·<a href=""view.asp?username="&rscool("username")&""" target=""_blank"">"&rscool("sitename")&"</a><br>"&left(rscool("intro"),25)+"..."&"<br>"
rscool.movenext
loop
rscool.close
end if
end sub
%>
<%
sub search()
%>
<script language="javascript">
function check_search()  
{  
	if (site.keyword.value=="")
	{   alert("请输入关键字！");
		site.keyword.focus();
		return false;
	}
    return true;
}
function IsDigit(){
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<%
dim str
str=str & "<table width=90% border=0 align=center cellpadding=3 cellspacing=0>"& vbcrlf
str=str & "<form name=""site"" action=""search.asp"" method=""post"" onSubmit=""return check_search()""><tr>"& vbcrlf
str=str & "<td >关键字：<input name=keyword type=text id=keyword size=20> <input type=""checkbox"" name=""isWeb"" value=""0"" checked=""true"" /><font color=""blue"">同时搜百度更多结果</font> <input name=search type=submit class=button value=""搜  索""></td>"& vbcrlf
str=str & "</tr></form>"& vbcrlf
str=str & "</table>"& vbcrlf
response.write str
end sub
if Application(CacheName&"Countuser")=empty then Application(CacheName&"Countuser")=conn.execute("Select count(userid) from [user]")(0)
if Application(CacheName&"Counttoday")=empty then Application(CacheName&"Counttoday")=conn.execute("select count(userid) from [user] where regdate=Date()")(0)
if not conn.Execute("select * from [user]").eof then
if Application(CacheName&"newuser")=empty then Application(CacheName&"newuser")=conn.Execute("select top 1 username from [user] order by userid desc")(0)
if Application(CacheName&"newsite")=empty then Application(CacheName&"newsite")=conn.Execute("select top 1 sitename from [user] order by userid desc")(0)
end if
sub rndshow()
Randomize 
Set rsrnd=conn.Execute("select top 4 username,siteimg,sitename from [user] where state=1 order by rnd(-(userid+" & rnd() & "))")
Response.Write   "<table  border=""0"" cellspacing=""0"" width=""100%""><tr>"   
Dim i   
i=1   
Do While Not rsrnd.EOF   
  Response.Write "<td width=""25%"" align=center>" 
	  if rsrnd("siteimg")<>empty then
	  	response.write "<a href=view.asp?username="&rsrnd("username")&" target=_blank><img src="""&rsrnd("siteimg")&""" border=0 alt="&rsrnd("sitename")&" width=120 height=90><br>"&rsrnd("sitename")&"</a>"
	  else
	  	response.write "<a href=view.asp?username="&rsrnd("username")&" target=_blank><img src=""images/nopic.gif"" border=0 alt="&rsrnd("sitename")&"><br>"&rsrnd("sitename")&"</a>"
	  end if
  Response.Write "</td>"   
  i=i+1   
  rsrnd.MoveNext           
Loop       
      Response.Write "</tr></table>" 
end sub
%>