📄 default.asp

📁 简介：一个程序小巧而功能强大
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="../Includes/site-dataconn.asp" -->
<!--#include file="../Includes/func-common.asp" -->
<!--#include file="../Includes/site-config.asp" -->
<%
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<html>

<head>
<title>// <%=Site_Name%> //</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL=stylesheet TYPE="text/css" HREF="../Includes/Site-Style.css">
</head>

<body>
	
<%
'Admin Check
if session("admin") <> true then
	response.redirect(Site_Forum_URL & "/default.asp")
end if
%>
<table width="100%" height="10" border="0" cellspacing="0" cellpadding="1">
  	<tr valign="top">
    <td width="150">
	<!--#include file="inc-navigation.asp" -->
	</td>
    <td align="center">
	<table border="0" cellspacing="1" cellpadding="2" align="center" class="main">
		<tr valign="middle" class="title">
		<td align="center"><%=Site_Name%> // 论坛后台管理</td>
		</tr>
		<tr valign="top" class="body">
		<td align="left">
		欢迎您使用B.A.D论坛系统 ...&nbsp;
		</td>
		</tr>
	</table>
	<table border="0" cellpadding="2" cellspacing="1" align="center" class="main">
		<tr valign="middle" class="title">
		<td align="center"><%=Site_Name%> // 论坛信息</td>
		</tr>
		<tr valign="top" class="body">
		<td align="left">
		<%
		set rsConfig = server.createobject("adodb.recordset")
		sqlConfig = "SELECT Site_Enabled, Site_Name, Site_Description, Site_Home_URL, Site_Account_Create FROM Forum_Config;"
		rsConfig.Open sqlConfig, adoConn, adCMDText
		if rsConfig.eof or rsConfig.bof then
			rsConfig.close
			set rsConfig = nothing
		else
			ConfigData = rsConfig.getrows()
			rsConfig.close
			set rsConfig = nothing
			Site_Enabled = ConfigData(0,0)
			Site_Name = ConfigData(1,0)
			Site_Description = ConfigData(2,0)
			Site_Home_URL = ConfigData(3,0)
			Site_Account_Create = ConfigData(4,0)
			if Site_Enabled = 1 then
				Enabled = "Enabled"
			else
				Enabled = "Disabled"
			end if
			if Site_Account_Create = 1 then
				Create = "Enabled"
			else
				Create = "Disabled"
			end if
		end if
		%>
		Site Status: <%if Site_Enabled = 1 then%><font color="#009900"><%else%><font color="#CC0000"><%end if%><b><%=Enabled%></b></font><br>
		Account Creation: <%if Site_Account_Create = 1 then%><font color="#009900"><%else%><font color="#CC0000"><%end if%><b><%=Create%></b></font><br>
		论坛名称: <b><%=Site_Name%></b><br>
		论坛描述: <b><%=Site_Description%></b><br>
		</td>
		</tr>
	</table>
	<table border="0" cellpadding="2" cellspacing="1" align="center" class="main">
		<tr valign="middle" class="title">
		<td align="center"><%=Site_Name%> // 论坛状态</td>
		</tr>
		<tr valign="top" class="body">
		<td align="left">
		<%
		'Grab forum Stats
		set rsStats = server.createobject("adodb.recordset")
		sqlStats = "SELECT Stats_Users, Stats_Posts, Stats_Topics, Stats_User_ID, Stats_user_name, Stats_Online_Max FROM Forum_Stats;"
		rsStats.open sqlStats, adoConn
		if not rsStats.eof or rsStats.bof then
			%>
			我们的新会员: <b><%=rsStats("Stats_User_Name")%></b>
			<br>
			会员人数: <b><%=rsStats("Stats_Users")%></b>
			<br>
			最高峰同时在线人数: <b><%=rsStats("Stats_Online_Max")%></b>
			<br>
			话题数: <b><%=rsStats("Stats_Topics")%></b>
			<br>
			总帖数: <b><%=rsStats("Stats_Posts")%></b>
			<br>
		<%
		else
			response.write("No Current Statistics Avilable.")
		end if
		rsStats.close
		set rsStats = nothing
		%>
		</td>
		</tr>
	</table>
	</td>
  	</tr>
</table>

</body>
</html>
⌨️ 快捷键说明

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