📄 user_view.asp
字号:
<!--#include file="User_conn.asp"-->
<!--#include file="../Include/cls_pageview.asp"-->
<%
dim sql
dim rs
sql = "select * from [Art_user] where UserID="&request("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
UserFace=trim(rs("UserFace"))
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type="text/css">
<!--
body {
margin-top: 0;
margin-bottom: 0;
margin-left:0;
margin-right:0;
color: #000000;
background-image: url();
background-color: #F4F4F4;
}
TD {FONT-SIZE: 9pt; color: #000000;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; color: #000000}
A:link {
COLOR: #222222; TEXT-DECORATION: none
}
A:visited {
COLOR: #222222; TEXT-DECORATION: none
}
A:hover {
COLOR: #f87501; TEXT-DECORATION: underline
}
A:active {
COLOR: #222222; TEXT-DECORATION: none}
.style4 {
color: #5c5c5c;
font-weight: bold;
font-size: 9pt;
}
-->
</STYLE>
<title>查看用户信息</title></head>
<body bgcolor="#B2C5D3" ondragstart="window.event.returnValue=false" oncontextmenu="window.event.returnValue=false" onselectstart="event.returnValue=false">
<table width="800" border="1" cellpadding="0" cellspacing="0" bordercolor="#E5E5E5" bgcolor="#FFFFFF" style="border-collapse: collapse">
<TR>
<TD bgColor=#E6E6FF height=25 class="wz"><IMG src="../images/TEAM.gif" width="16" height="16" align=absMiddle><B> 会员信息</B><FONT color=red> </FONT></TD>
</TR>
<tr>
<td>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0" frame="void" style="border-collapse: collapse">
<tr>
<td width="30%" valign="top" ><TABLE cellspacing="0" cellpadding="0" width="100%" border=0>
<TBODY>
<TR>
<TD align=middle width="13%" background="../images/bt_5.gif"
height=25>
<DIV align=center><IMG height=11 src="../images/ico_bud.gif" width=14></DIV></TD>
<TD align=middle width="87%" background="../images/bt_5.gif" height=26>
<DIV align=center class="wz">作 者 基 本 信 息</DIV></TD>
</TR>
<TR align="center">
<TD colSpan=2 vAlign=top class=left_tdbg1>
<table width="150" height="172" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="../images/photo_bg.gif">
<TABLE cellSpacing=12 cellPadding=0 width="57%" border=0>
<TBODY>
<TR>
<TD align=center><img src=<%if not isnull(UserFace) and UserFace<>"" then response.write ""&config("path")&UserFace&"" else response.write config("path")&"images/pic.gif" end if%> border=0 width=126 height=149></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table> <TABLE border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" width="95%" >
<TR>
<TD width=72 height="20" vAlign=middle><span class="style4">用 户 名:</span></TD>
<TD width="153" class="text"><%=rs("UserName")%></TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">性 别:</span></TD>
<TD class="text"><% if rs("sex")=0 then response.write "男" else response.write "女" end if %></TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">真实姓名:</span></TD>
<TD class="text"><%=rs("RealName")%></TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">生 日:</span></TD>
<TD class="text"><%=rs("Birthday")%></TD>
</TR>
<TR>
<TD width=72 height="20" vAlign=middle><span class="style4">电子邮件:</span></TD>
<TD class="text"><a href=mailto:<%=rs("Email")%>><%=rs("Email")%></a></TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">联系电话:</span></TD>
<TD class="text"><%=rs("OfficeTel")%></TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">工作单位:</span></TD>
<TD class="text"><div align="left"><%=rs("Address")%></div></TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">登录次数:</span></TD>
<TD class="text"><%=rs("LoginNumber")%>次</TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">文 章 数:</span></TD>
<TD class="text">已发表<%=rs("ArticleNum")%>篇</TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">最近地址:</span></TD>
<TD class="text"><%=rs("Loginip")%></TD>
</TR>
<TR>
<TD height="20" vAlign=middle width=72><span class="style4">最近登录:</span></TD>
<TD class="text"><%=rs("LoginTime")%></TD>
</TR>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></td>
<td width="1%"><img src="../images/space.gif" width="5" height="1"></td>
<td width="69%" valign="top"><TABLE width=100% border=0 cellSpacing=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=27 background="../images/bt_5.gif">
<DIV align=center><IMG height=11 src="../images/ico_leaf.gif" width=14></DIV></TD>
<TD width=651 height=24 background="../images/bt_5.gif" class="wz"><B><%=rs("UserName")%>作品集</B></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top height=250>
<table width="100%" border="0" cellspacing="10" cellpadding="0">
<%
Set rs2 = Server.CreateObject("ADODB.RecordSet")
sql2=" select * from News where adduser='"&rs("UserName")&"' order by id desc"
rs2.Open sql2,conn,1,1
if rs2.recordcount<>0 then
page=int(request.QueryString ("page"))
rs2.PageSize=13
pagecount=rs2.pagesize
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs2.AbsolutePage=page
for i=1 to pagecount
lmid=rs2("lm3")
if lmid="0" then lmid=rs2("lm2")
if lmid="0" then lmid=rs2("lm")
sql3 = "select * from lm where id="&lmid
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open sql3,conn,1,1
lm=rs3("lm")&rs3("lm2")&rs3("lm3")
%>
<tr>
<td class="wz"><img src="../images/icon/p_00.gif"> <font color=666666>[<%=lm%>]</font> <a href="<%=fun_html_url(rs2("id"))%>" target="_blank"><font color="<%=rs2("titlecolor")%>"><%=rs2("title")%></font></a><font color=999999>(<%=formatdatetime(rs2("time"),1)%>)</font></td>
</tr>
<%
rs2.movenext
if rs2.eof then exit for
next
%>
<%
else
response.write "<tr><td class='wz'><center><BR><BR><BR>暂时没有作品!<BR><BR><BR><BR></tr></td>"
end if
%>
</table></TD>
</TR>
</TBODY>
</TABLE>
<table width=84% border="0" align=center cellpadding="0" cellspacing="10" >
<tr><td colspan="9" class="wz" align="center">
<%if rs2.recordcount<>0 then
if page>1 then%>
<a href='<%=request.servervariables("URL")%>?page=1&id=<%=trim(request("id"))%>'>首页</a>
<a href='<%=request.servervariables("URL")%>?page=<%=page-1%>&id=<%=trim(request("id"))%>'>上一页</a>
<%end if%>
<%if page<rs2.pagecount then%>
<a href='<%=request.servervariables("URL")%>?page=<%=page+1%>&id=<%=trim(request("id"))%>'>下一页</a>
<a href='<%=request.servervariables("URL")%>?page=<%=rs2.pagecount%>&id=<%=trim(request("id"))%>'>尾页</a>
<%end if%>
共<%=rs2.recordcount%>条 每页显示<%=pagecount%>条 第<%=page%>页 共<%=rs2.pagecount%>页
<%
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for i=1 to rs.pagecount
response.write"<option value='" & request.servervariables("URL") & "?page=" & i & "&id="&trim(request("id"))&"'"
if i=page then response.write"selected"
response.write">"&i&"</option>"
next
response.write"</select>"
response.write" 页"
end if
%>
</td>
</tr></table>
</td>
</tr>
</table>
</td>
</tr></table>
<%
rs2.close:set rs2=nothing
rs.close:set rs=nothing
conn.close:set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -