⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 setup.asp

📁 闻名一时的bbsxp超快论坛系统现在放出最新版2008版本给希望装论坛的朋友借鉴安装调试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!-- #include file="Conn.asp" -->
<%
ii=0

if BBSxpDataBaseVersion<>ForumsDataBaseVersion then error("程序与数据库版本不符合，请更新数据库版本到 "&ForumsDataBaseVersion&" ！")

if SiteConfig("EnableBannedUsersToLogin")=0 and CookieUserAccountStatus=2 then error("您的帐号已被禁用！")

if SiteConfig("BannedIP")<>"" then
	filtrate=split(SiteConfig("BannedIP"),"|")
	for i = 0 to ubound(filtrate)
		if instr("|"&REMOTE_ADDR&"","|"&filtrate(i)&"") > 0 then error(""&REMOTE_ADDR&"被禁止进入论坛！")
	next
end if

if SiteConfig("SiteDisabled")=1 then
	if instr(Script_Name,"admin_") = 0 and instr(Script_Name,"login.asp")=0 and instr(Script_Name,"install.asp")=0 then error(""&SiteConfig("SiteDisabledReason")&"")
end if

if Request_Method = "POST" then
	if instr(""&Http_Referer&"","http://"&Server_Name&"") = 0 and instr(Script_Name,"login.asp")=0 then error("<li>引用页错误！"&Http_Referer&"<li>系统无法识别您的引用页！<li>建议您关闭防火墙后再提交此信息！")
end if

Sub HtmlHead
	MetaDescription=SiteConfig("MetaDescription")
	MetaKeywords=SiteConfig("MetaKeywords")
	if ""&HtmlHeadTitle&""<>"" then
		MetaDescription=HtmlHeadTitle
		MetaKeywords=HtmlHeadTitle&","&MetaKeywords
	end if
	if ""&HtmlHeadDescription&"">"" then MetaDescription=ThreadDescription
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
	<%if SiteConfig("NoCacheHeaders")=1 then%>
	<!-- no cache headers -->
	<meta http-equiv="Pragma" content="no-cache" />
	<meta http-equiv="Expires" content="-1" />
	<meta http-equiv="Cache-Control" content="no-cache" />
	<!-- end no cache headers -->
	<%end if%>
	<meta http-equiv="Content-Type" content="text/html; charset=<%=BBSxpCharset%>" />

	<meta name="keywords" content="<%=MetaKeywords%>" />
	<meta name="description" content="<%=MetaDescription%>" />
	<meta name="GENERATOR" content="<%=ForumsProgram%> (Build: <%=ForumsBuild%>)" />
	<link rel="shortcut icon" type="image/x-icon" href="images/yuzi.ico" />
<%
	if SiteConfig("EnableForumsRSS")=1 then
		if instr(Script_Name,"showforum.asp") > 0 then response.write "	<link rel=alternate type=application/rss+xml href=rss.asp?"&Query_String&" />"&CHR(10)
	end if
	
	if HtmlHeadTitle<>"" then HtmlHeadTitle=HtmlHeadTitle&" - "
	response.write "	<title>"&HtmlHeadTitle&SiteConfig("SiteName")&" - Powered By BBSXP</title>"

	
%>
</head>

<script language="JavaScript" type="text/javascript">var CookiePath="<%=SiteConfig("CookiePath")%>",CookieDomain="<%=SiteConfig("CookieDomain")%>";</script>
<script language="JavaScript" type="text/javascript" src="Utility/global.js"></script>
<script language="JavaScript" type="text/javascript" src="Utility/BBSXP_Modal.js"></script>
<script language="JavaScript" type="text/javascript">InitThemes('<%=SiteConfig("DefaultSiteStyle")%>');</script>


<%
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub HtmlTop
HtmlHead
IsResponseTop=1
%>
<body>
<%=GenericHeader%>

<div class="CommonHeader">
<div class="CommonTop">

<div class="CommonTopLogo" onClick="window.location.href='default.asp'" title="<%=SiteConfig("SiteName")%>"></div>
<div class="CommonTopBanner"><%=GenericTop%></div>
<div class="CommonTopFrameText"><script language="JavaScript" type="text/javascript">if (top !== self) {document.write('<a target="_top" href="'+location.href+'">平板模式</a>');}else {document.write('<a target="_top" href="Frame.asp">分栏模式</a>');}</script></div>
<div class="CommonTopMenuText">


<%
if CookieUserName=empty then
%><a href="javascript:BBSXP_Modal.Open('Login.asp',380,170);">登录</a> | <a href="CreateUser.asp">注册</a> | <a href="ViewOnline.asp">在线情况</a> | <a href="Search.asp?ForumID=<%=RequestInt("ForumID")%>">搜索</a> | <a href="Help.asp">帮助</a><%
else
%>&raquo;　<a href="Profile.asp?UID=<%=CookieUserID%>"><%=CookieUserName%></a> | <a onmouseover="showmenu(event,'<div class=menuitems><a href=javascript:UrlPost(&quot;Cookies.asp?menu=Online&quot;)>上线</a></div><div class=menuitems><a href=javascript:UrlPost(&quot;Cookies.asp?menu=Invisible&quot;)>隐身</a></div>')" style="cursor:default">
<%
	if RequestCookies("Invisible")="1" then
		response.write "隐身"
	else
		response.write "上线"
	end if
	
	response.write("</a> | ")

	if SiteConfig("AccountActivation")=2 then response.write("<a href=InviteUser.asp>邀请用户</a> | ")
%>
			<a onMouseOver="showmenu(event,'<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=MyUpFiles.asp>上传管理</a></div><div class=menuitems><a href=MyFavorites.asp>收 藏 夹</a></div><div class=menuitems><a href=MyMessage.asp>短信服务</a></div>')" style="cursor:default">控制面板</a> |
			<a onMouseOver="showmenu(event,'<div class=menuitems><a href=ShowBBS.asp>最新主题</a></div><div class=menuitems><a href=ShowBBS.asp?menu=HotViews>人气主题</a></div><div class=menuitems><a href=ShowBBS.asp?menu=HotReplies>热门主题</a></div><div class=menuitems><a href=ShowBBS.asp?menu=NoReplies>未回复帖</a></div><div class=menuitems><a href=ShowBBS.asp?menu=GoodTopic>精华主题</a></div><div class=menuitems><a href=ShowBBS.asp?menu=VoteTopic>投票主题</a></div><div class=menuitems><a href=ShowBBS.asp?menu=MyTopic&amp;UserName=<%=CookieUserName%>>我的主题</a></div><div class=menuitems><a href=ShowBBS.asp?menu=MyPost&amp;UserName=<%=CookieUserName%>>我的回帖</a></div><div class=menuitems><a href=ShowBBS.asp?menu=MySubscriptions&amp;UserName=<%=CookieUserName%>>我的订阅</a></div>')" style="cursor:default">主题索引</a> |
			<a onMouseOver="showmenu(event,'<div class=menuitems><a href=ViewOnline.asp>在线情况</a></div><div class=menuitems><a href=ViewOnline.asp?menu=cutline>在线图例</a></div><div class=menuitems><a href=ViewOnline.asp?menu=UserSex>性别图例</a></div><div class=menuitems><a href=ViewOnline.asp?menu=TodayPage>今日图例</a></div><div class=menuitems><a href=ViewOnline.asp?menu=board>主题图例</a></div><div class=menuitems><a href=ViewOnline.asp?menu=TotalPosts>帖子图例</a></div><%if SiteConfig("PublicMemberList")=1 then%><div class=menuitems><a href=Members.asp>成员列表</a></div><%end if%>')" style="cursor:default">统计</a> | 
			<a href="Search.asp?ForumID=<%=RequestInt("ForumID")%>">搜索</a><span id="MenuListID"></span>
			<script language="javascript" type="text/javascript">ShowMenuList("Xml/Menu.xml");</script>
<%
	response.write " | <a href=Help.asp>帮助</a> | <a onclick='return log_out()'>退出</a>"
	
	if BestRole=1 then
	%> | <a onMouseOver="showmenu(event,'<div class=menuitems><a href=Moderation.asp>主题管理</a></div><div class=menuitems><a href=Moderation.asp?menu=Visible>审 核 区</a></div><div class=menuitems><a href=Moderation.asp?menu=Recycle>回 收 站</a></div>')" style="cursor:default">审核</a><%
	end if
	if CookieUserRoleID = 1 then response.write " | <a href=Admin_Default.asp target=_top>管理</a>"
end if
%>
</div>

</div>

<div class="CommonBody">
<%

End Sub
''''''''''''''''''''''''''''''
Sub HtmlBottom
	ProcessTime=FormatNumber((timer()-startime))
	if ProcessTime<1 then ProcessTime="0"&ProcessTime
%>
	<table cellspacing=0 cellpadding=0 width=100% border="0">
		<tr>
	        <td align="center"><br /><%=GenericBottom%></td>
        </tr>
		<tr>
        	<td align="right"><script type="text/javascript">loadThemes("<%=SiteConfig("DefaultSiteStyle")%>");</script></td>
        </tr>
	</table>
</div>
	<div class="CommonFooter">
        <li style="text-align:left;width:30%;"><a href="http://www.bbsxp.com/" target="_blank"><img src="images/PoweredByBBSxp.gif" border="0" /></a></li>
        <li style="text-align:center;width:40%">
			<a href="SendMessage.asp">联系我们</a> - <a href="<%=SiteConfig("CompanyURL")%>" target="_blank"><%=SiteConfig("CompanyName")%></a> - <a href="Archiver.asp?<%=Query_String%>">论坛存档</a> - <a href="#top">返回顶部</a><br />
			Powered by <a target="_blank" href="http://www.bbsxp.com"><%=ForumsProgram%></a> &copy; 1998-<%=year(now)%> <a href="http://www.yuzi.net/" target="_blank">Yuzi.Net</a>
        </li>
        <li style="text-align:right;width:29%;">
            Processed in <%=ProcessTime%> second(s)<br />Server Time <%=now()%>
        </li>
	</div>
</div>
<%
response.write "<!-- SQL查询("&SqlQueryNum&") -->"

if CookieUserName<>"" then
	if CookieNewMessage > 0 then
		AddApplication "Message_"&CookieUserName,"【讯息通知】<a target='_blank' href='MyMessage.asp'>您有 "&CookieNewMessage&" 条新讯息，请注意查收</a>"
		Execute("update ["&TablePrefix&"Users] Set NewMessage=0 where UserID="&CookieUserID&"")
	end if

if RequestApplication("Message_"&CookieUserName)<>"" then
%>
<div id="ApplicationMsg" style=" Z-INDEX:1;WIDTH:250px;VISIBILITY:hidden;position:absolute;" onClick="if(typeof(IsReadMsg) == 'undefined')Ajax_CallBack(false,'MsgTitle','Loading.asp?menu=CloseMsg');IsReadMsg=true;">
<table cellspacing=1 cellpadding=5 width=100% class=CommonListArea>
<tr class=CommonListTitle><td><div style=float:left id='MsgTitle'>临时讯息</div><div style=float:right><a href="javascript:MsgClose()">Ｘ</a></div></td></tr>
<tr class="CommonListCell"><td><%=RequestApplication("Message_"&CookieUserName)%></td></tr>
</table>
</div>
<script language="JavaScript" type="text/javascript">
var MsgDivID="ApplicationMsg"
MsgGet();
</script>

<%
end if


end if

%>
</body>
</html>

<%
	Response.End
End Sub

''''''''''''''''''''''''''''''''
Sub AdminTop
	HtmlHead
	response.write "<body><div class=CommonListCell  style='PADDING-TOP:15px; PADDING-RIGHT:5px; PADDING-LEFT:5px; PADDING-BOTTOM:15px;text-align:center;'>"
End Sub



Sub AdminFooter
	ProcessTime=FormatNumber((timer()-startime))
	if ProcessTime<1 then ProcessTime="0"&ProcessTime
	response.write "<br /><br /><input onclick='history.go(-1)' type='button' value=' &lt;&lt; 返 回 '>　　<input onclick='history.go(1)' type='button' value='  前 进 &gt;&gt;'><br />"
	response.write "<hr width=80% SIZE=0 class=CommonListArea />Powered by <a target=_blank href=http://www.bbsxp.com>"&ForumsProgram&"</a> &nbsp;&copy; 1998-"&year(now)&"<br />Server Time "&now()&"<br />Processed in "&ProcessTime&" second(s)</div></body></html>"
End Sub
''''''''''''''''''''''''''''''''
Function succeed(Message,Url)

if IsResponseTop<>1 then HtmlTop
if Left(Message,4)<>"<li>" then Message="<li>"&Message
%>

<div class="CommonBreadCrumbArea"><%=ClubTree%> → 论坛信息</div>
<table cellspacing="1" cellpadding="5" width=100% class=CommonListArea>
	<tr class=CommonListTitle>
		<td width="100%" align="center">论坛提示信息</td>
	</tr>
	<tr class="CommonListCell">
		<td valign="top" align="Left" height="122">
		<table cellspacing="0" cellpadding="5" width="100%" border="0">
			<tr>
				<td width="83%" valign="top">
					<b><span id="yu">0</span>秒钟后系统将自动返回...</b>
					<ul>
					<%=Message%>
					<li><a href=Default.asp>返回论坛首页</a></li>
					<script language="javascript" type="text/javascript">
					document.write("<li><a href="+document.referrer+">"+document.referrer+"</a></li>");
					</script>
					</ul>
				</td>
				<td width="17%"><img height="97" src="images/succ.gif" width="95" /></td>
			</tr>
		</table>
		</td>
	</tr>
</table>

<script language="JavaScript" type="text/javascript">
Url="<%=Url%>";
if (!Url){Url=document.referrer}
function countDown(secs){
	$("yu").innerHTML=secs;
	if(--secs>0) {
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -