inc-header.asp

简介：一个程序小巧而功能强大

<table border="0" cellspacing="1" cellpadding="0" align="center" class="plain">
	<tr valign="top">
	<td>
	<a href="<%=Site_Forum_URL%>"><img src="Images/Common/Header.gif" alt="<%=Site_Name%>" title="<%=Site_Name%>" border="0"></a>
	</td>
	</tr>
</table>

<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center" class="main">
  	<tr valign="middle" class="title"> 
    <td>
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
		<tr>
		<td>　</td>
		<td width="77" align="right"><a href="account.asp<%if session("userid") <> "" then response.write("?I=" & session("userid"))%>"><img src="Images/Icons/button_account.gif" border="0" alt=">> Account"></a></td>
		<td width="77" align="right"><a href="register.asp"><img src="Images/Icons/button_register.gif" border="0" alt=">> Register"></a></td>
		<td width="77" align="right"><a href="search.asp?Action=Search"><img src="Images/Icons/button_search.gif" border="0" alt=">> Search"></a></td>
		<td width="77" align="right"><a href="help.asp"><img src="Images/Icons/button_help.gif" border="0" alt=">> Help"></a></td>
		<td width="77" align="right"><a href="<%=Site_Home_URL%>"><img src="Images/Icons/button_home.gif" border="0" alt=">> Home"></a></td>
		</tr>
	</table>
	</td>
  	</tr>
</table>
<table border="0" cellspacing="0" cellpadding="2" align="center" class="main">
	<tr class="stats">
	<td width="50%" valign="middle" align="left">
	<table border="0" cellspacing="0" cellpadding="2" class="stats">
		<tr valign="top">
		<td>
		<%
		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, CMDText
		
		OnlineMax = rsStats("Stats_Online_Max")
		%>
		注册会员: <%=rsStats("Stats_Users")%><br>
		话题数: <%=rsStats("Stats_Topics")%> | 总 帖 数: <%=rsStats("Stats_Posts")%><br>
		欢迎我们的新会员: <b><%=rsStats("Stats_user_name")%></b>
		<%
		rsStats.close
		set rsStats = nothing
		%>
		</td>
		</tr>
	</table>
	</td>
	<td width="50%" valign="top" align="right">
	<%
	'If the user is not logged in display the login screen.
	if session("UserID") = "" then
	%>
		<table border="0" cellspacing="0" cellpadding="2" class="stats" style="width: 280px;" height="84">
			<tr valign="top">
			<td colspan="3" height="16"></td>
			</tr>
			<form action="login.asp?action=login" method="post">
			<tr valign="top">
			<td height="20">
            <p align="center">用户名<input name="Username" type="text" align="absmiddle" style="width: 115px; border: 1px solid black" maxlength="15" size="20"></td>
			<td height="20">
            <p align="center">密码<input name="Password" type="password" align="absmiddle" style="width: 115px; border: 1px solid black" maxlength="15" size="20"></td>
			<td width="30" height="20">
            <p align="center">&nbsp;<input type="image" src="Images/Icons/button_go.gif" border="0" align="bottom" height="20px" width="30px" name="I1"></td>
			</tr>
			<input name="url" type="hidden" value="<%=request.servervariables("URL")%>?<%=request.servervariables("QUERY_STRING")%>">
			<tr valign="middle">
			<td height="36"></td>
			<td colspan="2" align="left" height="36"><a href="reminder.asp">Password Reminder</a><br>Remember Me <input name="remember" type="checkbox" value="1"></td>
			</tr>
			</form>
		</table>
	<%
	'Otherwise show their status
	else
	%>
		<table width="250" border="0" cellspacing="0" cellpadding="0" class="stats" style="width: 280px;">
			<tr valign="top"> 
			<td align="right">
			欢迎您：<br>
			<b><%=session("UserName")%></b><br>
			<a href="search.asp?Action=NewPosts">查看新贴</a><br>
			<a href="login.asp?action=logout">退出</a>
			</td>
			</tr>
		</table>
	<%
	end if
	%>
	</td>
  	</tr>
</table>
<%=serialisation(now())%>