usercp.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<!-- #include file="setup.asp" -->
<%
validate "Login.asp",0
Call top
Call table()%>
	<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
	<title>控制面板</title>
	<br>
	<TABLE  align=center borderColor=a4b6d7 cellSpacing=0 cellPadding=5 width=100% border=1 style="border-collapse: collapse" background=images/title_sub.gif >
	<TBODY><TR>
	<TD align="center"><b><font color="#FFFFFF"><a href=usercp.asp><font color=#ffffff title="">控制面板首页</font></a></font></a></TH></font></b>
	<Td align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?Menu=UpPhoto"><font color="#FFFFFF">用户照片上传</font></a></TH> </font>
	</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?Menu=Basic"><font color="#FFFFFF">基本资料修改</TH> </font></a> </font>
	</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?menu=Community"><font color="#FFFFFF">社区资料修改</TH></font></a></font>
	</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?menu=UserPsd"><font color="#FFFFFF">用户密码修改</TH> </font></a></font></b>
	<TD align="center"><b><font color="#FFFFFF"><a href="message.asp"><font color="#FFFFFF">用户短信服务</TH> </font></a> </font>
	</b><TD align="center"><b><font color="#FFFFFF"><a href="Quote.asp?menu=fortune"><font color="#FFFFFF">查看财富排行</font></a></TH> </font>
	</b></TR></TBODY></TABLE>
<HR width="100%" SIZE=1>
<%
sql="select UserLastT,UserAddtime,UserWeb,UserHead,UserICQ,UserQQ,UserEmail_2,UserEmail_1,UserMoney,UserName_2,UserName_1,UserGrade,UserSex from UserInfo where Userid="&Request.Cookies("user")
Set Rs = Conn.Execute(Sql)
%>  
	<TABLE cellSpacing=6 cellPadding=0 width="100%" align=center>
	<TBODY>
	<TR align=middle>
	<TD vAlign=top width="28%">
	<TABLE style="WIDTH: 202" height="100%" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
	<TBODY><TR><TD height=25 background="images/title_sub.gif" align="center" colspan="2" width="188">
	<font color="#FFFFFF"><b>用户头像</TH></b></font></TR>
	<TR align=middle>
	<TD colspan="2" width="188"><img border="0" width="32" height="32" src="images/face/<%=Rs("UserHead")%>.gif"></TD></TR>
	<TR><TD height=25 background="images/title_sub.gif" align="center" colspan="2" width="188">
	<font color="#FFFFFF"><b>基本资料</TH></b></font></TR> 
<%	if Rs("UserSex")=False Then
	Sex="女"
	Else
	Sex="男"
	End if
	Select case rs("UserGrade")
		case 0,1
		Uleve="普通用户"
		case 2
		Uleve="VIP会员"
		case 3
		Uleve="社区管理员"
		case 4
		Uleve="商城管理员"
		case 5
		Uleve="总管理员"
		case 6
		Uleve="商城站长"
	End Select
	
response.write "<TR><TD>"&_
				   "用户姓名： "&rs("UserName_1")&_
				   "<br>社区昵称： "&rs("UserName_2")&_
				   "<br>用户类型： "&Uleve&_
				   "<br>用户性别： "&Sex&_
				   "<br>社区预付款： "&rs("UserMoney")&_
				   "<br>安全Email： <a href=mailto:"&rs("UserEmail_1")&">"&rs("UserEmail_1")&"</a>"&_
				   "<br>联系Email： <a href=mailto:"&rs("UserEmail_2")&">"&rs("UserEmail_2")&"</a>"&_
				   "<br>联系QQ： "&rs("UserQQ")&_
				   "<br>联系ICQ： "&rs("UserICQ")&_
				   "<br>个人主页： <a target=_blank href="&rs("UserWeb")&">"&rs("UserWeb")&"</a>"&_
				   "<br>注册时间： "&rs("UserAddtime")&_
				   "<br>上次登陆： "&rs("UserLastT")&_
				   "</TD></TR>"
 rs.close
 Set Rs = Nothing
  %>
	</TBODY></TABLE></TD>
	<TD vAlign=top>
	<TABLE style="WIDTH: 100%" height=29 cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
	<TBODY><TR>
	<TD align=left height=25 background="images/title_sub.gif">
	<font color="#FFFFFF"><b>-=&gt; 论坛短讯息</b></font></TD></TR>
	<TR><TD align="center"><a href="message.asp"><FONT color=#ff0000>收件箱</FONT></a><font color="#FF0000">&nbsp; </font>共有 <B>[<%=conn.execute("Select count(*)from message where inceptId="&Request.Cookies("user"))(0)%>]</B> 条讯息，<a href="message.asp?send=1"><FONT color=#ff0000>已发送讯息</FONT></a><B> [<%=conn.execute("Select count(*)from message where PostID="&Request.Cookies("user"))(0)%>]</B> 条。<BR></TD></TR></TBODY></TABLE><BR>
	<TABLE style="WIDTH: 100%" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
	<TBODY><TR><TD align=left colSpan=5 height=25 background="images/title_sub.gif" >
	<font color="#FFFFFF"><b>-=&gt; 最新收到的短讯</TH></b></font></TR><TR>
	<TD vAlign=center align=middle width=30>　</TD>
	<TD  vAlign=center align=middle width=100><B>发件人</B></TD>
	<TD  vAlign=center align=middle width=300><B>内容</B></TD>
	<TD  align=middle width=160><B>日期</B></TD>
	<TD  vAlign=center align=middle width=50><B>大小</B></TD></TR>
<%
sql="select top 5 PostID,content,time from message where inceptId="&Request.Cookies("user")&" order by time Desc"
Set Rs = Conn.Execute(sql)
Do While Not RS.EOF 
content=left(rs("content"),16)&"..."
ii=ii+1
%>
	<TR>
	<TD vAlign=center align=middle>
	<IMG src="images/f_norm.gif"></TD>
	<TD vAlign=center align=middle><%=Conn.Execute("Select UserName_2 from UserInfo where UserID="&rs("PostID"))(0)%>　</TD>
	<TD><A href=# onclick="javascript:open('friend.asp?menu=look&page=<%=ii-1%>','','width=320,height=170')"><%=content%></A>　</TD>
	<TD align="center"><%=rs("time")%></FONT>　</TD>
	<TD align="center"><%=Len(rs("content"))%>　</TD></TR>    
<% RS.MoveNext
loop
RS.Close
Set Rs = Nothing
%></TD></TR></TBODY></TABLE><BR>
	<TABLE style="WIDTH: 100%" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
	<TBODY>
	<TR>
	<TD align=left height=25 background="images/title_sub.gif">
<font color="#FFFFFF"><b>-=&gt; 最近发表的文章</TH></b></font></TR></TBODY></TABLE>
<%
sql="select top 5 lasttime,Title,BbsID,ShowID from forum where DelThis=False and UserID="&Request.Cookies("user")&" order by lasttime Desc"
Set Rs = Conn.Execute(Sql)
Do While Not RS.EOF
%>
	<TABLE style="WIDTH: 100%" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
	<tr>
	<td align="left">&nbsp;□　<a href=BbsShow.asp?Menu=Show&BbsId=<%=rs("ShowID")%>&Bbs=<%=Rs("BbsID")%>><%=rs("Title")%></a> -- <%=rs("lasttime")%></td>
	</tr>
	</table>
<%
RS.MoveNext
loop
RS.Close 
Set Rs = Nothing
%>
	</TD></TR></TBODY></TABLE>
<%htmlend%>