<!--#include file="visual.asp"-->
<%
dim Assortname,Assortbk
select case ""&Assort_id&""
		case 1
			Assortname="文昌阁下"
			Assortbk="<table width=150 height='100%' border=0 align=center cellpadding=0 cellspacing=0>"& _
              "<tr>"& _
                "<td height=8 colspan=2 align=left valign=top></td>"& _
              "</tr>"& _
              "<tr>"& _
                "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=100><b>孝感城事</b></b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=101><b>同城相约</b></b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=102><b>朋友圈</b></a><br>"& _
                "● <a href=Board/Board.asp?BoardID=103><b>论客杂谈</b></a><br>"& _
				"● <a href=Board/Board.asp?BoardID=105><b>灌水专区</b></a></td>"& _
                "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=106><b>图文天下</b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=104><b>槐荫树旁</b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=107><b>文昌阁下</b></a><br>"& _
                "● <a href=Board/Board.asp?BoardID=108><b>董永故里</b></a><br>"& _
				"● <a href=Board/Board.asp?BoardID=109><b>预留版块</b></a></td>"& _
              "</tr>"& _
          "</table>"
		case 2
			Assortname="网络生活"
			Assortbk="<table width=150 height='100%' border=0 align=center cellpadding=0 cellspacing=0>"& _
              "<tr>"& _
                "<td height=8 colspan=2 align=left valign=top></td>"& _
              "</tr>"& _
              "<tr>"& _
                "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=201><b>时尚馆</b></a><br>"& _
				  "● <a href=Board/Board.asp?BoardID=202><b>美食馆</b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=203><b>文艺馆</a><br>"& _
                "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=204><b>医疗馆</b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=205><b>展览馆</a><br>"& _
				  "● <a href=Board/Board.asp?BoardID=206><b>PC电脑馆</b></a><br>"& _
              "</tr>"& _
          "</table>"
		case 3
			Assortname="影音娱乐"
			Assortbk="<table width=150 height='100%' border=0 align=center cellpadding=0 cellspacing=0>"& _
              "<tr>"& _
                "<td height=8 colspan=2 align=left valign=top></td>"& _
              "</tr>"& _
              "<tr>"& _
                "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=301><b>音乐潮流</b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=302><b>动漫世界</b></b></a><br>"& _
                  "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=303><b>家庭影院</b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=304><b>游戏人间</a><br>"& _
				  "● <a href=Board/Board.asp?BoardID=305><b>笑话连篇</b></a><br>"& _

              "</tr>"& _
          "</table>"
		case 4
			Assortname="菁菁校园"
			Assortbk="<table width=150 height='100%' border=0 align=center cellpadding=0 cellspacing=0>"& _
              "<tr>"& _
                "<td height=8 colspan=2 align=left valign=top></td>"& _
              "</tr>"& _
              "<tr>"& _
                "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=401><B>中学时代</b></b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=402><b>我的大学</a><br>"& _
                  "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=403><b>青涩校园</b></a><br>"& _
              "</tr>"& _
          "</table>"
		case 5
			Assortname="信息资讯"
			Assortbk="<table width=150 height='100%' border=0 align=center cellpadding=0 cellspacing=0>"& _
              "<tr>"& _
                "<td height=8 colspan=2 align=left valign=top></td>"& _
              "</tr>"& _
              "<tr>"& _
                "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=501><b>信息发布</b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=504><b>城市资讯</a><br>"& _
				  "● <a href=Board/Board.asp?BoardID=502><b>市场供求</a><br>"& _
                  "<td align=left valign=top>● <a href=Board/Board.asp?BoardID=503><b>人才交流</b></a><br>"& _
                  "● <a href=Board/Board.asp?BoardID=505><b>广告专区</b></a><br>"& _
              "</tr>"& _
          "</table>"
end select
		
If GBL_CHK_User <> "" Then
GBL_Name = ""&GBL_CHK_user&""
'GBL_ID = Left(""&ID&"",14)
'GBL_ID = cCur(GBL_ID)
OpenDatabase


	Dim Form_UserName,Form_Pass,Form_Mail,Form_Address,GBL_Name,LimitUserStringDataNum,id
	Dim Form_Sex,Form_Birthday,Form_ApplyTime,Form_ICQ,Form_OICQ
	Dim Form_Prevtime,Form_Userphoto,Form_UserLevel,Form_Homepage,Form_Underwrite
	Dim Form_Officer,Form_Points,Form_OnlineTime
	Dim Form_FaceUrl,Form_FaceWidth,Form_FaceHeight,Form_NongLiBirth,Form_UserLimit
	Dim Form_AnnounceNum,Form_AnnounceTopic,Form_AnnounceGood,Form_NotSecret,Form_AnnounceNum2
	Dim Form_LastDoingTime,Form_CachetValue,Form_CharmPoint,LastWriteTime,LookUserInfo
	Dim Rs
	'If GBL_Name <> "" Then
		Set Rs = Con.ExeCute("Select top 1 ID,UserName,Mail,Address,Sex,ICQ,OICQ,Userphoto,Homepage,PrintUnderwrite,birthday,NotSecret,ApplyTime,UserLevel,Officer,Points,Onlinetime,Prevtime,NongLiBirth,UserLimit,AnnounceNum,AnnounceTopic,AnnounceGood,LastDoingTime,CachetValue,CharmPoint,LastWriteTime,FaceUrl,FaceWidth,FaceHeight,AnnounceNum2 from LeadBBS_User where UserName='" & Replace(GBL_Name,"'","''") & "'")
		GBL_DBNum = GBL_DBNum + 1
	'Else
		'Set Rs = Con.ExeCute("Select top 1 ID,UserName,Mail,Address,Sex,ICQ,OICQ,Userphoto,Homepage,PrintUnderwrite,birthday,NotSecret,ApplyTime,UserLevel,Officer,Points,Onlinetime,Prevtime,NongLiBirth,UserLimit,AnnounceNum,AnnounceTopic,AnnounceGood,LastDoingTime,CachetValue,CharmPoint,LastWriteTime,FaceUrl,FaceWidth,FaceHeight,AnnounceNum2 from LeadBBS_User where id=" & GBL_ID)
		'GBL_DBNum = GBL_DBNum + 1
	'End If
	If Rs.Eof Then
		GBL_CHK_TempStr = GBL_CHK_TempStr & "社员不存在，要查看的社员可能已经删除，或者是游客的名字。<br>" & VbCrLf
		LookUserInfo = 0
		GBL_CHK_Flag = 0
		Rs.Close
		Set Rs = Nothing
	End If
	
closeDataBase
	GBL_ID = cCur(Rs(0))
	Form_UserName = Rs(1)
	Form_Mail = Rs(2)
	Form_Address = Rs(3)
	Form_Sex = Rs(4)
	Form_ICQ = Rs(5)
	Form_OICQ = Rs(6)
	Form_Userphoto = Rs(7)
	Form_Homepage = Rs(8)
	Form_Underwrite = Rs(9)
	Form_birthday = Rs(10)
	Form_NotSecret = Rs(11)
	If Form_NotSecret = 1 or Form_NotSecret = True Then
		Form_NotSecret = 1
	Else
		Form_NotSecret = 0
	End If

	REM 特殊数据
	Form_ApplyTime = Rs(12)
	Form_UserLevel = Rs(13)
	Form_Officer = Rs(14)
	Form_Points = Rs(15)
	Form_OnlineTime = Rs(16)
	Form_Prevtime = Rs(17)
	Form_NongLiBirth = Rs(18)
	Form_UserLimit = Rs(19)
	Form_AnnounceNum = cCur(Rs(20))
	Form_AnnounceTopic = cCur(Rs(21))
	Form_AnnounceGood = cCur(Rs(22))
	Form_LastDoingTime = Rs(23)
	Form_CachetValue = Rs(24)
	Form_CharmPoint = cCur(Rs(25))
	LastWriteTime = cCur(Rs(26))
	Dim Temp

	If DEF_AllDefineFace = 1 Then
		Form_FaceUrl = Rs(27)
		Form_FaceWidth = Rs(28)
		Form_FaceHeight = Rs(29)
	End If
	Form_AnnounceNum2 = Rs(30)
	Rs.Close
	Set Rs = Nothing
end if
%>
<style type="text/css">
<!--
.style1 {	color: #FFFFFF;
	font-weight: bold;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.stylebbs2 {color: #FF0000}
-->
</style>
<table width="100%" height="205" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="145" rowspan="3" align="left" valign="top"><table width="145" border="0" cellspacing="0" cellpadding="0">
        <tr align="left" valign="top">
          <td width="10"><img src="images/bbs/top/user_xx_top.gif" width="10" height="9"></td>
          <td width="126" background="images/bbs/top/user_xx_topbg.gif"></td>
          <td width="9" align="right"><img src="images/bbs/top/user_xx_top2.gif" width="9" height="9"></td>
        </tr>
        <tr align="left" valign="top">
          <td width="10" height="74" background="images/bbs/top/user_xx_leftbg.gif"></td>
          <td width="126" align="center" valign="middle">
            <table width="100%" height="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
              <tr>
                <td width="124" height="154" align="center" valign="middle">
				  <%'虚拟形象开始
				dim n
call ShowUserVisual(""&GBL_CHK_User&"",120,"TBBG9",false)
'虚拟形象结束%></td>
              </tr>
          </table></td>
          <td width="9" background="images/bbs/top/user_xx_rightbg.gif"></td>
        </tr>
        <tr align="left" valign="top" >
          <td width="10" height="4" background="images/bbs/top/user_xx_bottom_leftbg.gif"></td>
          <td height="4" background="images/bbs/top/user_xx_bottombg2.gif"></td>
          <td width="9" height="4" bgcolor="F5C36C"></td>
        </tr>
        <tr align="center" valign="middle">
          <td width="10" height="23" align="left" valign="top" background="images/bbs/top/user_xx_bottom_leftbg.gif"></td>
          <td width="126" height="23" background="images/bbs/top/user_xjbg.gif">
		  <%
		  If GBL_CHK_User <> "" Then
		  Response.Write("<img src=images/" & GBL_DefineImage & "lvstar/level" & Form_UserLevel & ".gif align=absmiddle width=110 height=11 title='"&DEF_UserLevelString(Form_UserLevel)&"'>")
		  else
		  Response.Write("<img src='" & DEF_BBS_HomeUrl & "images/lvstar/level0.gif' border=0 title='您尚未登陆'>")
		  end if
		  %></td>
          <td width="9" height="23" bgcolor="F5C36C"></td>
        </tr>
        <tr align="left" valign="top">
          <td width="9" height="9"><img src="images/bbs/top/user_xx_bottom.gif" width="10" height="9"></td>
          <td background="images/bbs/top/user_xx_bottombg.gif"></td>
          <td width="9" background="images/bbs/top/user_xx_bottombg.gif"></td>
        </tr>
    </table></td>
    <td width="1" rowspan="3" align="left" valign="top"><img src="images/bbs/top/user_zl_09.gif" width="1" height="1"></td>
    <td width="9" height="9" align="left" valign="top"><img src="images/bbs/top/user_zl_03.gif" width="9" height="9"></td>
    <td width="237" height="8" align="left" valign="top" background="images/bbs/top/user_zl_07.gif"></td>
    <td width="9" align="right" valign="top"><img src="images/bbs/top/user_zl_04.gif" width="9" height="9"></td>
    <td width="3" rowspan="3" align="left" valign="top"><img src="images/bbs/top/user_zl_10.gif" width="3" height="1"></td>
    <td width="171" rowspan="3" align="left" valign="top"><table width="171"  border="0" cellpadding="0" cellspacing="0">
        <tr align="left" valign="top">
          <td width="7"><img src="images/bbs/top/user_zl_11.gif" width="7" height="28"></td>
          <td width="157" height="28" valign="middle" background="images/bbs/top/user_zl_12.gif"><span class="style1">-&gt;&nbsp;<%=Assortname%>社区版块</span></td>
          <td width="7" align="right"><img src="images/bbs/top/user_zl_13.gif" width="7" height="28"></td>
        </tr>
        <tr align="center" valign="top">
          <td height="165" colspan="3" background="images/bbs/top/user_zl_14.gif"><%Response.Write(""&Assortbk&"")%></td>
        </tr>
        <tr align="left" valign="top">
          <td width="7" height="8"><img src="images/bbs/top/user_zl_16.gif" width="7" height="8"></td>
          <td height="8" background="images/bbs/top/user_zl_17.gif"></td>
          <td width="7" height="8"><img src="images/bbs/top/user_zl_15.gif" width="7" height="8"></td>
        </tr>
    </table></td>
    <td width="3" rowspan="3" align="left" valign="top"><img src="images/bbs/top/user_zl_10.gif" width="3" height="1"></td>
  </tr>
  <tr>
    <td width="9" height="160" align="left" valign="top" background="images/bbs/top/user_zl_05.gif"></td>
    <td width="100%" align="center" valign="top"><%If GBL_CHK_User = "" Then%>
	<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><table width="100%" height="170"  border="0" cellpadding="0" cellspacing="0">
      <tbody>
        <tr>
          <td height="30" align="center" valign="middle" background="images/main_menu/Members_bg.gif"><strong> 欢迎您来到孝感城市网——文昌阁社区</strong>
            <hr width="100%" size="0"></td>
        </tr>
        <tr>
          <td height="20" align="center" valign="middle" background="images/main_menu/Members_bg.gif"><strong>社&nbsp;区&nbsp;登&nbsp;陆</strong></td>
        </tr>
        <tr>
          <td align="center" valign="middle" background="images/main_menu/Members_bg.gif"><table width="205" height="100"  border="0" cellpadding="0" cellspacing="0">
      <tbody>
      <form action=<%=DEF_BBS_HomeUrl%>User/login.asp method="post" onSubmit="submitonce(this);">
        <tr>
          <td align="center" valign="bottom" background="images/main_menu/Members_bg.gif">
            <table width="100%" height="39" align=center cellpadding=0 cellspacing=0>
              <tbody>
                <tr>
                  <td width="64%" height=18 align="right">名 称：
				  <input name=user type=text maxlength=20 size=11 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%>" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #A4ADB4 1px solid; BORDER-LEFT: #A4ADB4 1px solid; BORDER-RIGHT: #A4ADB4 1px solid; BORDER-TOP: #A4ADB4 1px solid; FONT-SIZE: 9pt">
                   </td>
                  <td width="36%" rowspan="2" align="center" valign="middle"><input name="image2" type='image' onFocus="this.blur()" src='images/main/top/user_login_but.gif'></td>
                </tr>
                <tr>
                  <td height=19 align="right">密 码：
                      <input name=pass type=password maxlength=20 value="<%'=htmlencode(GBL_CHK_pass)%>" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #A4ADB4 1px solid; BORDER-LEFT: #A4ADB4 1px solid; BORDER-RIGHT: #A4ADB4 1px solid; BORDER-TOP: #A4ADB4 1px solid; FONT-SIZE: 9pt" size="11"></td>
                </tr>
              </tbody>
          </table></td>
        </tr>
        <tr>
          <td height="28" align="center" valign="middle" background="images/main_menu/Members_bottom.gif">验证码: <input name=ForumNumber maxlength=4 size=4 value="<%=htmlencode(Request("RndNumber"))%>" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #A4ADB4 1px solid; BORDER-LEFT: #A4ADB4 1px solid; BORDER-RIGHT: #A4ADB4 1px solid; BORDER-TOP: #A4ADB4 1px solid; FONT-SIZE: 9pt">
	&nbsp;请输入&nbsp;<img src=User/number.asp?n=<%=timer%> align=middle>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
        </tr>
        <tr>
          <td height="17" align="center" valign="bottom" background="images/main_menu/Members_bottom.gif">方式：<Select name=CkiExp>
				<option value="-1">无效
				<option value="365">一年
				<option value=1>一天
				<option value=2>两天
				<option value=7>一周
				<option value=31>一月
			</select>&nbsp;&nbsp;<a href="user/UserJoin.asp" target="_top">免费注册</a>&nbsp;&nbsp;<a href="user/UserGetPass.asp" target="_top">忘记密码</a>
			<input name=submitflag type=hidden value="ddddls-+++">
			</td>
        </tr>
      </form>
    </table></td>
        </tr>
    </table>
	<%else%>
        <table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
          <tr valign="middle">
            <td width="40%" height="20" align="left" valign="top"><strong>-&gt; 我的状态</strong></td>
            <td width="1" rowspan="2" align="left" valign="top" background="images/bbs/top/user_zl_18.gif"><img src="images/bbs/top/user_zl_18.gif" width="1" height="3"></td>
            <td width="60%" height="10" align="left" valign="top">&nbsp;&nbsp;<strong>-&gt;&nbsp;社区状况</strong></td>
          </tr>
          <tr>
            <td width="40%" align="left" valign="top">名&nbsp;&nbsp;&nbsp;称：<%=Form_Username%><br>
			等&nbsp;&nbsp;&nbsp;级：<%=DEF_UserLevelString(Form_UserLevel)%><br>
            文&nbsp;&nbsp;&nbsp;章：<%=Form_AnnounceNum2%><br>
			国&nbsp;&nbsp;&nbsp;币：<%=Form_Points%><br>
            经验值：<%=clng(cCur(Form_OnlineTime)/60)%><br>
			威望值：<%
				If Form_CachetValue > 127 Then
					Form_CachetValue = 127-Form_CachetValue
					Response.write Form_CachetValue & ""
				Else
					Response.write "＋" & Form_CachetValue & ""
				End If%><br>
            魅力值：<%=Form_CharmPoint%><br>
            荣&nbsp;&nbsp;&nbsp;誉：<%=DisplayOfficerString(Form_Officer)%></td>
            <td width="60%" align="center" valign="top"><table width="75%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="57%" height="18"> <a href="User/UserModify.asp">修 改 资 料 </a> </td>
                <td width="43%" height="18"> <a href="User/LookUserInfo.asp">资料与帖子</a></td>
              </tr>
              <tr>
                <td width="57%" height="18"><a href="User/MyInfoBox.asp" target="_blank">我的收件箱</a></td>
                <td width="43%" height="18"><a href="User/MySendBox.asp">我的发件箱</a></td>
              </tr>
              <tr>
                <td width="57%" height="18"> <a href="User/UserCollect.asp">我的收藏夹</a></td>
                <td width="43%" height="18"> <a href="User/UserFriend.asp">社 区 好 友</a></td>
              </tr>
              <tr>
                <td width="57%" height="18"> <a href="User/Login.asp?R=Yes">重登录社区</a></td>
                <td width="43%" height="18"><a href="user/logout.asp">退 出 社 区</a></td>
              </tr>
              <tr>
                <td width="57%" height="18">&nbsp;</td>
                <td width="43%" height="18">&nbsp;</td>
              </tr>
            </table>              </td>
          </tr>
    </table>
    <%end if%></td>
    <td align="left" valign="top" background="images/bbs/top/user_zl_06.gif"></td>
  </tr>
  <tr>
    <td width="9" height="12" align="left" valign="top"><img src="images/bbs/top/user_zl_01.gif" width="9" height="9"></td>
    <td height="9" align="left" valign="top" background="images/bbs/top/user_zl_08.gif"></td>
    <td height="9" align="right" valign="top"><img src="images/bbs/top/user_zl_02.gif" width="9" height="9"></td>
  </tr>
</table>
