<%
const LMT_MaxMessageNumber = 900

Function DisplayUserCenter

	%>
	<script language=javascript>
	function sss(obj)
	{
		if(obj.style.display == "none")
		{
			obj.style.display = "block";
		}
		else
		{
			obj.style.display = "none";
		}
	}
	</script>
	<a href=<%=DEF_BBS_HomeUrl%>User/Default.asp><img src=<%=DEF_BBS_HomeUrl%>images/<%=GBL_DefineImage%>userchnlnav.GIF width=150 height=41 border=0></a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
	
	<table width=100% height=20 border="0" cellspacing="0" cellpadding="0" onclick="javascript:sss(document.all.UserCenter);" style="cursor:hand"><tr><td bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <b>我的控制面板</b></td></tr></table><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			<span name=UserCenter ID=UserCenter>
			<%If GetBinarybit(GBL_CHK_UserLimit,1) = 1 or GBL_CHK_UserLimit = "" Then%>&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserTurnOn.asp><font color=880000 class=RedFont>激活我的账号</font></a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br><%End If%>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserModify.asp>修改社员资料</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/LookUserInfo.asp>查看我的资料和帖子</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/MyInfoBox.asp>我的收件箱</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/MySendBox.asp>我的发件箱</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserCollect.asp>我的帖子收藏夹</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserFriend.asp>社区好友列表</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/Login.asp?R=Yes>重登录社区</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/Logout.asp>退出登录状态</a><br></span>

			<img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			<table width=100% height=20 border="0" cellspacing="0" cellpadding="0" onclick="javascript:sss(document.all.ForumCenter);" style="cursor:hand"><tr><td bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <b>社区信息</b></td></tr></table><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			<span name=ForumCenter ID=ForumCenter>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/help/about.asp>社区管理团队</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserTop.asp>社员排行榜</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserFind.asp>查找社区社员</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserOnline.asp>查看在线社员</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserTop.asp?4>新入社员</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br></span>

			<img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			<table width=100% height=20 border="0" cellspacing="0" cellpadding="0" onclick="javascript:sss(document.all.HelpCenter);" style="cursor:hand"><tr><td bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
			<img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <b>社区帮助</b></td></tr></table><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			<span name=HelpCenter ID=HelpCenter>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/Help/Help.asp>社区使用手册</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/Help/Ubb.asp>UBB代码释疑</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/help/Color.asp>社区颜色对照表</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/help/Cal.asp>社区日历</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br></span>

	<br>

<%

End Function

Function DisplayLoginForm
%>
	<script language="javascript">
	function submitonce(theform)
	{
		if (document.all||document.getElementById)
		{
			for (i=0;i<theform.length;i++)
			{
				var tempobj=theform.elements[i];
				if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
				tempobj.disabled=true;
			}
		}
	}
	</script>
<p>
<form action=<%=DEF_BBS_HomeUrl%>User/login.asp method="post" onSubmit="submitonce(this);">
	社员名: <input name=user type=text maxlength=20 size=22 value="<%
	If GBL_CHK_user = "" or isNull(GBL_CHK_user) Then
		Response.Write htmlencode(Request("user"))
	Else
		Response.Write htmlencode(GBL_CHK_user)
	End If%>" class=fminpt><br>
	<input type=hidden value=<%
	If Request("submitflag") <> "ddddls-+++" Then
		If Request("u") <> "" Then
			Response.Write htmlencode(Request("u"))
		Else
			Dim HomeUrl
			HomeUrl = "http://"&Request.ServerVariables("server_name")
			Dim u
			u = Request.QueryString("u")
			If Left(u,1) <> "/" and Left(u,1) <> "\" and Left(u,Len(HomeUrl)) <> HomeUrl Then u = ""
			If u = "" Then
				u = Lcase(Request.ServerVariables("HTTP_REFERER"))
				If Request.ServerVariables("SERVER_PORT") <> "80" Then HomeUrl = HomeUrl & ":" & Request.ServerVariables("SERVER_PORT")
				If Left(u,Len(HomeUrl)) <> Lcase(HomeUrl) Then u = ""
				If inStr(u,"/user/login.asp") > 0 Then u = ""
			End If
			Response.Write htmlencode(u)
		End If
	End If%> name=u>
	密&nbsp;&nbsp;&nbsp;码: <input name=pass type=password maxlength=20 size=22 value="<%'=htmlencode(GBL_CHK_pass)%>" class=fminpt><br>
	验证码: <input name=ForumNumber maxlength=4 size=4 value="<%=htmlencode(Request("RndNumber"))%>" class=fminpt>
	&nbsp;请输入&nbsp;<img src=<%=DEF_BBS_HomeUrl%>User/number.asp?n=<%=timer%> align=middle>
	<br>
	有效期: <Select name=CkiExp>
				<option value="-1">无效
				<option value="365">一年
				<option value=1>一天
				<option value=2>两天
				<option value=7>一周
				<option value=31>一月
			</select> Cookie保留时间<p>
	<input name=submitflag type=hidden value="ddddls-+++">
	<input type=submit value="登录" class=fmbtn> <input type=reset value="取消" class=fmbtn>
	&nbsp; [<a href=UserGetPass.asp>密码忘记了?</a>]
</form>
<%
End Function

Function DisplayUserNavigate(str)

	If DEF_SiteHomeUrl = "" Then DEF_SiteHomeUrl = DEF_BBS_HomeUrl & "index.asp"
	Response.Write "<a href=""" & DEF_SiteHomeUrl & """>" & "首页</a> &gt;&gt; "
	Response.Write "<a href=""" & DEF_BBS_HomeUrl & "index.asp"">" & DEF_BBS_Name & "</a> &gt;&gt; <a href=""" & DEF_BBS_HomeUrl & "User/Default.asp"">社区控制面板</a> &gt;&gt; " & Str

End Function

Sub UserTopicTopInfo

	If GBL_TableHeadString <> "" Then
		Response.Write "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>"
		Response.Write GBL_TableHeadString
		Response.Write "</td></tr></table>"
	End If
%>
	<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=DEF_BBS_DarkColor%>" class=TBone>
	<tr> 
		<td width="<%=DEF_BBS_LeftTDWidth%>" bgcolor="<%=DEF_BBS_LightColor%>" class=TBBG1 valign="top"> 
			<table width="100%" border="0" cellspacing="0" cellpadding="0">
			<tr>
				<td><%If GBL_CHK_Flag=1 Then DisplayUserCenter%></td>
			</tr>
			</table>
		</td>
		<td valign="top" bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> <br>
			<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
			<tr> 
				<td height="20"> 

<%End Sub

Sub UserTopicBottomInfo

%>
				</td>
			</tr>
			</table><br></td>
	</tr>
	</table><%
	If GBL_TableBottomString <> "" Then
		%><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table><%
	End If

End Sub%>
		