<%
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/index.jsp><img src=<%=DEF_BBS_HomeUrl%>images/<%=GBL_DefineImage%>userchnlnav.GIF 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.jsp><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.jsp>修改用户资料</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/LookUserInfo.jsp>查看我的资料和帖子</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_SiteHomeUrl%>Center_msg.jsp target=_blank>我的收件箱</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_SiteHomeUrl%>club/Center_msgout.jsp target=_blank>我的发件箱</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserCollect.jsp>我的帖子收藏夹</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_SiteHomeUrl%>club/Center_index.jsp target=_blank>好友列表</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/Login.jsp?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.jsp>退出登录状态</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.Plus);" 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>Plus!</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=Plus>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserBank.jsp><span style="behavior:url(/leadbbs/inc/font.htc)">将钱存入社区银行</span></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.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.jsp>论坛管理团队</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserTop.jsp>会员排行榜</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserFind.jsp>查找论坛用户</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserOnline.jsp>查看在线会员</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/UserTop.jsp?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.jsp>论坛使用手册</a><br><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=2 height=4><br>
			&nbsp; <a href=<%=DEF_BBS_HomeUrl%>User/Help/Ubb.jsp>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.jsp>论坛颜色对照表</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.jsp 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.jsp") > 0 Then u = ""
			End If
			Response.Write htmlencode(u)
		End If
	End If%> name=u>
	密&nbsp; 码: <input name=pass type=password maxlength=20 size=22 value="<%'=htmlencode(GBL_CHK_pass)%>" class=fminpt><br>
	有效期: <Select name=CkiExp>
                          <option value="-1" selected>不 保 存</option>
                          <option value="1">保存一天</option>
                          <option value="2">保存一月</option>
                          <option value="3">保存一年</option>
			</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.jsp>密码忘记了?</a>]
</form>
<%
End Function

Function DisplayUserNavigate(str)

	If DEF_SiteHomeUrl = "" Then DEF_SiteHomeUrl = DEF_BBS_HomeUrl & "index.jsp"
	Response.Write "<a href=""" & DEF_SiteHomeUrl & """>" & "首页</a> &gt;&gt; "
	Response.Write "<a href=""" & DEF_BBS_HomeUrl & "index.jsp"">" & DEF_BBS_Name & "</a> &gt;&gt; <a href=""" & DEF_BBS_HomeUrl & "User/index.jsp"">论坛控制面板</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%>
