showuserinfo.asp
来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 89 行
ASP
89 行
<!--#include file ="setup.asp"-->
<%
validate "Login.asp",3
Usid=Cint(Trim(Request.QueryString("Usid")))
if IsNumEric(Usid)=False Then Error 2,"非法用户ID！",""
Sql="Select UserHead,UserGrade,UserName_2,UserID,UserName_1,UserEmail_2,UserCphone,UserFax,UserMoney,UserPrestige,UserAddr,UserPsd,UserSex,UserInfo,UserCode,UserEmail_1,UserTel,UserAddtime,UserQQ,UserICQ,UserWeb,UserPhoto From UserInfo Where UserID = "&Usid
Set Rs = Conn.Execute(Sql)
if Rs.Eof or Rs.Bof Then Error 2,"无此用户ID!",""
if int(Request.Cookies("Product")) < int(rs("UserGrade")) Then Error 2,"您无权限查看此用户资料!",""
Call Top
Call table()
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%>
<META http-equiv="Content-Type" content="text/html; charset=GB2312">
<body link="#000000" vlink="#000000" alink="#000000">
<table width=100% border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td width="16%"><img src="images/face/<%= Rs("UserHead") %>.gif" width="32" height="32"> <%= Rs("UserName_2") %></td>
<td align="right" valign="bottom" width="47%"> <p align="center"><b>:::相关操作:::</b> </td>
<td align="right" valign="bottom" width="37%">｛ <img src="images/message1.gif"> <a href=# onClick="javascript:open('friend.asp?menu=post&inceptID=<%= Rs("UserID") %>','','width=320,height=170')"> 发送讯息</a> ｝</td></tr></table>
<table border="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#BBD0EC" cellpadding="0" bgcolor="#BBD0EC">
<tr><td width="100%"> <table width="100%" cellspacing=1 cellpadding=4 border=0>
<tr><td height="20" align="center" colspan="2" background=images/title_sub.gif><b>查看用户“<%= Rs("UserName_1") %>”的资料</b> [用户号码：<%= Rs("UserID") %>]</td>
</tr><tr><td height="25" colspan="2" align="left" valign="middle" bgcolor="#FFFFFF"><b> <img src="images/2.gif" width="60" height="9">:::社区信息:::</b></td></tr><tr>
<td bgcolor=#ECF5FF height="5" align="right" valign="middle" width="50%"> <div align="left"><b> 昵 称：</b><%= Rs("UserName_2") %></div></td><td bgcolor=#ECF5FF height="5" align="left" valign="middle" width="56%"> <b> 移动电话：<%= Rs("UserCphone") %></b></td></tr><tr> <td bgcolor=#f2f8ff height="0" align="right" valign="middle" width="50%"> <div align="left"><b> 用户类型：</b><%= Uleve %></div></td>
<td width="56%" height="0" align="left" valign="middle" bgcolor=#f2f8ff> <b> 传真：<%= Rs("UserFax") %></b></td></tr><tr>
<td bgcolor=#f2f8ff height="1" align="right" valign="middle"><div align="left"><strong>用户预付款：<%= Rs("UserMoney") %></strong></div></td>
<td width="56%" height="1" align="left" valign="middle" bgcolor=#f2f8ff><strong><b> </b>用户留言：<%= Rs("UserPrestige") %></strong></td></tr><tr>
<td height="2" colspan="2" align="right" valign="middle" bgcolor=#f2f8ff>
<div align="left"><b> 详细地址：<%= Rs("UserAddr") %></b></div></td>
</tr><tr>
<td height="25" colspan="2" align="left" valign="middle" bgcolor="#FFFFFF"><b> <img src="images/2.gif" width="60" height="9">:::生活信息:::</b></td></tr><tr>
<td height="28" valign="top" bgcolor="#ECF5FF" width="50%"> <b>真实姓名：</b>
<%= Rs("UserName_1") %>
<% If Request.Cookies("Product") > 5 Then Response.write " [<a href=Other.asp?Menu=RePsd&UserID="&Rs("UserID")&">初始化用户密码</a>]"%>
</td>
<td width="56%" rowspan="6" valign="top" bgcolor="#FFFFFF"><p><b> 用户简介:</b></p><p> <%= Rs("UserInfo") %></p></td></tr>
<tr>
<td height="24" valign="top" bgcolor="#ECF5FF" width="50%"> <b>
性别：<%
if Rs("UserSex")=True Then
Response.write "男"
Else
Response.write "女"
End if%></b>
</td></tr>
<tr>
<td height="24" valign="top" bgcolor="#ECF5FF" width="50%"> <b>
邮编：<%= Rs("UserCode") %></b>
</td></tr>
<tr>
<td height="24" valign="top" bgcolor="#ECF5FF" width="50%"> <b>安全Email：</b><a href="mailto:<%=Rs("UserEmail_1")%>"><%= Rs("UserEmail_1") %></a> </td>
</tr><tr><td height="13" valign="top" bgcolor="#ECF5FF" width="50%"> <b>联系电话：</b><%= Rs("UserTel") %> </td></tr><tr><td height="14" valign="top" bgcolor="#ECF5FF"><strong> 注册时间</strong>：<%= Rs("UserAddtime") %></td></tr><tr bgcolor="#FFFFFF">
<td height="24" colspan="2" align="right" valign="top"><div align="left"><b> <img src="images/2.gif" width="60" height="9">:::联系方法:::</b></div></td>
</tr><tr>
<td height="24" valign="top" bgcolor="#ECF5FF" width="50%" align="right"><div align="left"> <b>ＱＱ号码：<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%= Rs("UserQQ") %>"><%= Rs("UserQQ") %></a></b></div></td>
<td width="56%" rowspan="4" valign="top" bgcolor="#FFFFFF"><p align="center"><b> 用户照片：<br></b><a target="_blank" href="images/upphoto/<%=Rs("UserPhoto")%>"><img border="1" width="150" height="100" src="images/upphoto/<%=Rs("UserPhoto")%>"></a></p>
</td></tr><tr><td valign="top" bgcolor="#ECF5FF" width="50%" align="right"><div align="left"><b> <b>ICQ 号码：<%= Rs("UserICQ") %></b></b></div></td>
</tr><tr><td height="24" valign="top" bgcolor="#ECF5FF" width="50%" align="right"><div align="left"> <b>联系Email：<a href="mailto:<%=Rs("UserEmail_2")%>"><%= Rs("UserEmail_2") %></a></b></div></td>
</tr><tr>
<td height="24" valign="top" bgcolor="#ECF5FF" width="50%" align="right"><div align="left"> <b>个人主页：<%= Rs("UserWeb") %></b></div></td>
</tr><tr align="center"><td height="2" colspan="2" valign="middle" bgcolor="#FFFFFF" > </td></tr></table></td>
</tr>
</table>
<%
Rs.Close
Set Rs = Nothing
Htmlend %>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?