📄 user_display.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<!-- #include file="init.inc" -->
<%
userno=Request.QueryString("userno")
usercode=Request.QueryString("usercode")
if userno="" and usercode="" then Response.End
myurl="user_display.asp?userno="&userno
tablename="userinfo"
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
if Session("userqx")="9" or Session("userflag")="9" then
userqx="1"
end if
if userno<>"" then
sqltext="select * from userinfo where userno="&userno
else
sqltext="select * from userinfo where usercode='"+usercode+"'"
end if
rs.Open sqltext,cn,1,3
if not rs.EOF then
usercode=trim(rs("usercode"))
realname=trim(rs("realname"))
state=rs("state")
picflag=trim(rs("picflag"))
picfile=trim(rs("picfile"))
creadate=rs("creadate")
grade=rs("grade")
amount=rs("amount")
creadate=rs("creadate")
updatetime=rs("updatetime")
logintime=rs("logintime")
logincount=rs("logincount")
talkcount=rs("talkcount")
querycount=rs("querycount")
sex=trim(rs("sex"))
if userqx="1" then
certcode=trim(rs("certcode"))
certclass=trim(rs("certclass"))
corpname=trim(rs("corpname"))
phone=trim(rs("phone"))
address=trim(rs("address"))
else
certcode="---"
corpname="---"
phone="---"
address="---"
end if
qq=trim(rs("qq"))
marry=trim(rs("marry"))
email=trim(rs("email"))
zip=trim(rs("zip"))
website=trim(rs("website"))
creadate=rs("creadate")
birthday=rs("birthday")
content=trim(rs("content"))
rs("querycount")=rs("querycount")+1
rs.Update
end if
rs.Close
%>
<!-- #include file="begin.asp" -->
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="30">
<tr>
<td width="20"> </td>
<td>欢迎光临<%=forumtitle%></td>
<td width="10"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="30" bgcolor="<%=barcolor%>">
<tr>
<td width="10"> </td>
<td width=30 align=center><img src="images/homeflag.gif"></td>
<%if classflag="1" then%>
<td><a href="forum.asp"><%=forumtitle%></a> > 用户资料 > <%=usercode%></td>
<%else%>
<td><a href="forum_list.asp"><%=forumtitle%></a> > 用户资料 > <%=usercode%> </td>
<%end if%>
<td width="100" align="right"></td>
<td width="10"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="6"></td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="<%=titlebgcolor%>">
<td height="26" width=30></td>
<td align="center"><b><font color=<%=titlecolor%>>用户基本情况</font></b></td>
<td> </td>
</tr>
</table>
<table width="90%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
<form action="<%=htmlname%>" method=post name=editform onsubmit="return checkform(editform)" autocomplete = "off">
<tr bgcolor="#ffffff">
<td width=120 height=30 align=center>用户情况：</td>
<td height=150>
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr><td height=24 align=center width=160>
<%if picflag="1" then%>
<img src="userfiles/<%=picfile%>" width=120>
<%end if%>
<%if picflag="2" then%>
<img src="face/face<%=picfile%>.gif">
<%end if%>
</td>
<td width=20></td>
<td style="line-height:180%">
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" class=t1>
<tr><td width=10 align=right height=22></td>
<td width=120>(1) 用户代号：</td><td><%=usercode%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(2) 最后登录时间：</td><td><%=logintime%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(3) 最后更新时间：</td><td><%=updatetime%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(4) 注册时间：</td><td><%=creadate%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(5) 文章：</td><td><%=talkcount%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(6) 积分：</td><td><%=amount%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(7) 上线：</td><td><%=logincount%> 次</td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(8) 简历阅读次数：</td><td><%=querycount%> 次</td></tr>
<%if userqx="1" then%>
<tr><td width=10 align=right height=22></td>
<td width=120>(9) 真实姓名：</td><td><%=realname%></td></tr>
<%end if%>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#ffffff">
<td width=120 height=30 align=center>联系信息：</td>
<td>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" class=t1>
<tr><td width=10 align=right height=22></td>
<td width=120>(1) 电子信箱：</td><td><%=email%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(2) QQ等：</td><td><%=qq%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(3) 联系电话：</td><td><%=phone%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(4) 单位名称：</td><td><%=corpname%></td></tr>
<tr><td width=10 align=right height=22></td>
<td width=120>(5) 地址：</td><td><%=address%></td></tr>
</table>
</td>
</tr>
<tr bgcolor="#ffffff">
<td width=120 height=30 align=center>个人介绍：</td>
<td>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" class=t1>
<tr><td height=60 style="line-height:180%">
<%=checkstr(content,"1")%>
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#efefef">
<td height="40" align="center"><br>
</td>
<td align="left">
</td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="15"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!-- #include file="end.asp" -->
<!-- #include file="func.inc" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -