📄 setup.asp
字号:
<!-- #include file="Conn.asp" -->
<%
Set SiteSettings=Conn.Execute("[BBSXP_SiteSettings]")
if Request.Cookies("UserName") <> empty then
''''''''''''''''''第一次来'''''''''''''''''''''''''''''
if Request.Cookies("Onlinetime")=empty then
Conn.execute("update [BBSXP_Users] set UserDegree=UserDegree+1,UserLandTime='"&now()&"',UserLastIP='"&Request.ServerVariables("REMOTE_ADDR")&"' where UserName='"&Request.Cookies("UserName")&"'")
Response.Cookies("Onlinetime")=now()
end if
''''''''''''''''''''''''''''
sql="select * from [BBSXP_Users] where UserName='"&HTMLEncode(Request.Cookies("UserName"))&"'"
Set Rs=Conn.Execute(SQL)
if Rs.eof then Response.Cookies("UserName")=""
if Request.Cookies("Userpass") <> Rs("Userpass") then Response.Cookies("UserName")=""
membercode=Rs("membercode")
Userface=""&Rs("Userface")&""
NewMessage=Rs("NewMessage")
set rs=nothing
end if
if SiteSettings("BannedIP")<>"" then
filtrate=split(SiteSettings("BannedIP"),"|")
for i = 0 to ubound(filtrate)
if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtrate(i)&"") > 0 then response.redirect "inc/BannedIP.htm"
next
end if
if Request.Cookies("skins")=empty then Response.Cookies("skins")=SiteSettings("DefaultSiteStyle")
dim ForumTreeList,toptrue
ii=0
startime=timer()
Set rs = Server.CreateObject("ADODB.Recordset")
Server.ScriptTimeout=SiteSettings("Timeout")'设置脚本超时时间 单位:秒
response.write "<html><head><meta http-equiv=content-Type content=text/html;charset=gb2312><meta name=keywords content='"&SiteSettings("MetaKeywords")&"'><meta name=description content='"&SiteSettings("MetaDescription")&"'></head><Link href=images/skins/"&Request.Cookies("skins")&"/bbs.css rel=stylesheet><script src=inc/BBSXP.js></script><script src=inc/Level.js></script><script src=images/skins/"&Request.Cookies("skins")&"/bbs.js></script>"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function HTMLEncode(fString)
fString=replace(fString,";",";")
fString=replace(fString,"<","<")
fString=replace(fString,">",">")
fString=replace(fString,"\","\")
fString=replace(fString,"--","--")
fString=replace(fString,CHR(9),"	")
fString=replace(fString,CHR(10),"<br>")
fString=replace(fString,CHR(13),"")
fString=replace(fString,CHR(22),"")
fString=replace(fString,CHR(32)," ")
fString=replace(fString,CHR(34),""")'双引号
fString=replace(fString,CHR(39),"'")'单引号
HTMLEncode=fString
end function
''''''''''替换模块START''''''''''''
Function ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局可用性。
ReplaceText = regEx.Replace(""&fString&"",""&replStr&"") ' 作替换。
Set reg=nothing
End Function
''''''''''替换模块END''''''''''''
function contentEncode(fString)
fString=replace(fString,vbCrlf, "")
fString=replace(fString,"\","\")
fString=replace(fString,"'","'")
fString=replace(fString,"<A href=","<A target=_blank href=") '点链接打开新窗口
if SiteSettings("BannedHtmlLabel")<>"" then fString=ReplaceText(fString,"<(\/|)("&SiteSettings("BannedHtmlLabel")&")", "<$1$2")
if SiteSettings("BannedHtmlEvent")<>"" then fString=ReplaceText(fString,"<(.[^>]*)("&SiteSettings("BannedHtmlEvent")&")", "<$1$2")
if SiteSettings("BannedText")<>"" then
filtrate=split(SiteSettings("BannedText"),"|")
for i = 0 to ubound(filtrate)
fString=ReplaceText(fString,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if
contentEncode=fString
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub top
%>
<body topmargin=0>
<table cellspacing=1 cellpadding=1 width=100% align=center border=0 class=a2><tr class=a1><td><table cellspacing=0 cellpadding=4 width=100% border=0><tr class=a1><td id=TableTitleLink>>>欢迎您， <%
if Request.Cookies("UserName")=empty then
%> <a href="Login.asp">请先登录</a> | <a href="CreateUser.asp">
注册</a> | <a href="RecoverPasswd.asp">
忘记密码</a> | <a href="Online.asp">
在线情况</a> | <a href="Search.asp?ForumID=<%=Request("ForumID")%>">
搜索</a> | <a href="Help.asp">
帮助</a> </td></tr></table></td></tr></table><br>
<%else%>
<%=Request.Cookies("UserName")%>
| <a onmouseover="showmenu(event,'<div class=menuitems><a href=Cookies.asp?menu=Online>上线</a></div><div class=menuitems><a href=Cookies.asp?menu=eremite>隐身</a></div><div class=menuitems><a href=Login.asp?menu=out>退出</a></div>')" style=cursor:default>
<%
if Request.Cookies("eremite")="1" then
response.write "隐身"
else
response.write "上线"
end if
%></A>
| <a onmouseover="showmenu(event,'<div class=menuitems><a href=Login.asp>更换用户</a></div><div class=menuitems><a href=ShowBBS.asp?menu=5>我的帖子</a></div><div class=menuitems><a href=UpFace.asp>上传头像</a></div><div class=menuitems><a href=UpPhoto.asp>上传照片</a></div><div class=menuitems><a href=Calendar.asp>社区日志</a></div><div class=menuitems><a href=Blog.asp>我的日志</a></div><div class=menuitems><a href=Profile.asp>我的资料</a></div>')" style=cursor:default>个人服务</a>
| <a onmouseover="showmenu(event,'<div class=menuitems><a href=UserCp.asp>控制面板首页</a></div><div class=menuitems><a href=EditProfile.asp>基本资料修改</a></div><div class=menuitems><a href=EditProfile.asp?menu=pass>用户密码修改</a></div><div class=menuitems><a href=Message.asp>用户短信服务</a></div><div class=menuitems><a href=Friend.asp>编辑好友列表</a></div>')" style=cursor:default>控制面板</a>
| <a onmouseover="showmenu(event,'<div class=menuitems><a href=Online.asp>在线情况</a></div><div class=menuitems><a href=Online.asp?menu=cutline>在线图例</a></div><div class=menuitems><a href=Online.asp?menu=UserSex>性别图例</a></div><div class=menuitems><a href=Online.asp?menu=TodayPage>今日图例</a></div><div class=menuitems><a href=Online.asp?menu=board>主题图例</a></div><div class=menuitems><a href=Online.asp?menu=ForumPosts>帖子图例</a></div><div class=menuitems><a href=UserTop.asp>会员列表</a></div><div class=menuitems><a href=Adminlist.asp>管理团队</a></div>')" style=cursor:default>论坛状态</a>
| <a href=Search.asp>搜索</a>
| <a onmouseover="showmenu(event,'<div class=menuitems><a href=Favorites.asp?menu=Topic>帖子收藏夹</a></div><div class=menuitems><a href=Favorites.asp?menu=forum>论坛收藏夹</a></div><div class=menuitems><a href=Favorites.asp>网站收藏夹</a></div>')" style=cursor:default>收藏</a>
<%
menu(0)
response.write " | <a href=Help.asp>帮助</a>"
select case membercode
case "5"
response.write " | <a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=Admin.asp target=_top>登录管理</a></div><div class=menuitems><a href=Recycle.asp>回 收 站</a></div>')"&Chr(34)&" style=cursor:default>管理</a>"
case "4"
response.write " | <a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=Recycle.asp>回 收 站</a></div>')"&Chr(34)&" style=cursor:default>社区管理</a>"
end select
%></td><td align="right">已经停留 <b><%=DateDiff("n",Request.Cookies("Onlinetime"),Now())%></b> 分钟 </td></tr></table></td></tr></table>
<%
'''''如果有短讯息''''''''''''''''''''''
if NewMessage>0 then
%><table width="100%" align="center"><tr><td width="100%" align="right"><a href=# onclick="javascript:open('Friend.asp?menu=look&<%=now()%>','','width=320,height=170')"><img src=images/NewMail.gif border=0><font color="990000">您有<%=NewMessage%>条新讯息，请注意查收</font></a> </td></tr></table>
<script src=inc/Messenger.js></script>
<script>javascript:getMsg(" BBSXP Messenger"," <a style=cursor:hand href=# onclick=\"javascript:open('Friend.asp?menu=look&<%=now()%>','','width=320,height=170')\">您有<%=NewMessage%>条新讯息，请注意查收！</a>");</script>
<%
else
response.write "<br>"
end if
'''''''''''''
end if
response.write "<table width=100% align=center border=0><tr><td><span id=Logo><img border=0 src=images/Logo.gif></span></td><td align=right>"&SiteSettings("TopBanner")&"</td></tr></table><br>"
toptrue=1
end sub
''''''''''''''''''''''''''''''
sub htmlend
%><title><%=SiteSettings("SiteName")%> - Powered By BBSXP</title><p>
<table cellspacing=0 cellpadding=0 width=100% align=center><tr><td align=middle>
<%=SiteSettings("BottomAD")%><br>Powered by <font color=ffffff> <a target=_blank href=http://www.bbsxp.com/download.htm><font color=000000>BBSXP <%=ForumsVersion%></font></a></font>/<a href=Licence.asp><font color=000000>Licence</font></a> ©
1998-2006<br>
Script Execution Time:<%=fix((timer()-startime)*1000)%>ms
</td></tr></table>
</body></html>
<%
responseend
end sub
''''''''''''''''''''''''''''''''
sub succeed(Message)
%>
<table border=0 width=100% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25> <img src=images/Forum_nav.gif> <%ClubTree%> → 社区信息</td>
</tr>
</table><br>
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0" class="a2"><tr><td height="106">
<table cellspacing="1" cellpadding="6" width="100%" border="0"><tr><td width="100%" height="20" align="middle" class="a1">
<b>社区提示信息</b></td></tr><tr bgcolor="ffffff"><td valign="top" align="Left" height="122"><b> </b><table cellspacing="0" cellpadding="5" width="100%" border="0"><tr><td width="83%" valign="top"><b><span id="yu">3</span><a href="javascript:countDown"></a>秒钟后系统将自动返回...</b><ul><%=Message%></ul></td><td width="17%"><img height="97" src="images/succ.gif" width="95"></td></tr></table></td></tr></table></td></tr></table>
</font><script>function countDown(secs){yu.innerText=secs;if(--secs>0)setTimeout("countDown("+secs+")",1000);}countDown(3);</script>
<%
htmlend
end sub
sub error(Message)
if toptrue<>1 then top
%>
<table border=0 width=100% align=center cellspacing=1 cellpadding=4 class=a2><tr class=a3><td height=25> <img src=images/Forum_nav.gif> <%ClubTree%> → 社区信息</td></tr></table><br>
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0" class="a2"><tr><td height="106"><table cellspacing="1" cellpadding="6" width="100%" border="0"><tr><td width="100%" height="20" colspan="2" align="middle" class="a1"><b>社区提示信息</b></td></tr><tr bgcolor="ffffff"><td valign="top" align="Left" colspan="2" height="122"><b> </b><table cellspacing="0" cellpadding="5" width="100%" border="0"><tr><td width="83%" valign="top"><b>操作不成功的可能原因：</b><ul><%=Message%></ul></td><td width="17%"><img height="97" src="images/err.gif" width="95"></td></tr></table></td></tr><tr align="middle" bgcolor="ffffff"><td valign="center" colspan="2" height="2"><input onclick="history.back(-1)" type="submit" value=" << 返 回 上 一 页 "> </td></tr></table></td></tr></table>
<%
htmlend
end sub
sub error2(Message)
%><script>alert('<%=Message%>');history.back();</script><script>window.close();</script><%
responseend
end sub
''''''''''''''''''''''''''''''''
sub Log(Message)
Conn.Execute("insert into [BBSXP_Log] (UserName,IPAddress,UserAgent,HttpVerb,PathAndQuery) values ('"&Request.Cookies("UserName")&"','"&Request.ServerVariables("REMOTE_ADDR")&"','"&HTMLEncode(Request.Servervariables("HTTP_User_AGENT"))&"','"&Request.ServerVariables("request_method")&"','"&Message&"')")
end sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -