📄 userinfo.asp
字号:
<!--#include file="Inc/func_info.asp"-->
<%
'请勿改动下面这三行代码
const ChannelID=2
Const ShowRunTime="Yes"
SkinID=0
MaxPerPage=20
dim UserID
UserID=trim(request("UserID"))
if UserID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定UserID</li>"
call WriteErrMsg()
response.end
else
UserID=Clng(UserID)
end if
strFileName="UserInfo.asp?UserID=" & UserID
sql="select * from " & db_User_Table & " where " & db_User_ID & "=" & UserID
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn_User,1,1
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到指定的用户<li>"
else
UserName=rs(db_User_Name)
PageTitle="用户信息：" & UserName
%>
<html>
<head>
<title><%=strPageTitle & "----用户信息：" & UserName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<%call MenuJS()%>
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="Top.asp"-->
<table border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td width="196" align="left" valign="top" class="td_left">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border="0">
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0" class="title_left">
<tr>
<td class='title_bg_center'>个 人 信 息</td>
</tr>
</table></TD>
</TR>
<TR>
<TD height="40" valign="top" class="tdbg_left"> <table width="98%" border="0" align="right" cellpadding="0" cellspacing="2">
<tr>
<td colspan="2" align="center"><%
if Instr(rs(db_user_face),"ttp://")>1 then
response.write "<img src='" & rs(db_User_Face) & "' width='" & rs(db_User_FaceWidth) & "' height='" & rs(db_User_FaceHeight) & "' border=0>"
else
response.write "<img src='bbs/" & rs(db_User_Face) & "' width='" & rs(db_User_FaceWidth) & "' height='" & rs(db_User_FaceHeight) & "' border=0>"
end if
%></td></tr>
<tr valign="middle">
<td> <div align="right">呢称：</div></td>
<td width="172"><%= UserName %></td>
</tr>
<tr valign="middle">
<td> <div align="right">性别：</div></td>
<td> <%
if rs(db_User_Sex)=1 then
response.write "男"
else
response.write "女"
end if
%> </td>
</tr>
<tr valign="middle">
<td width="44"> <div align="right">信箱：</div></td>
<td> <%response.write "<a href='mailto:" & rs(db_User_Email) & "'>" & rs(db_User_Email) & "</a>"%> </td>
</tr>
<tr valign="middle">
<td width="44"> <div align="right">QQ号：</div></td>
<td> <%
if rs(db_User_QQ)<>"" then
response.write rs(db_User_QQ)
else
response.write "未填"
end if
%> </td>
</tr>
<tr valign="middle">
<td width="44"> <div align="right">MSN ：</div></td>
<td> <%
if rs(db_User_Msn)<>"" then
response.write rs(db_User_Msn)
else
response.write "未填"
end if%> </td>
</tr>
<tr valign="middle">
<td width="44"> <div align="right">主页：</div></td>
<td> <%if rs(db_User_Homepage)<>"" then
response.write rs(db_User_Homepage)
else
response.write "未填"
end if%> </td>
</tr>
<tr valign="middle">
<td width="44"> <div align="right">注册：</div></td>
<td><%=FormatDateTime(rs(db_User_RegDate),2)%> </td>
</tr>
</table></TD>
</TR>
<TR>
<td class="title_left2"></td>
</TR>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0" class="title_left">
<tr>
<td align="left" class='title_bg_center'>文 章 搜 索</td>
</tr>
</table></TD>
</TR>
<TR>
<TD valign="top" class="tdbg_left"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td valign="top"> <div align="center">
<% call ShowSearchForm("info_Search.asp",1) %>
</div></td>
</tr>
</table> </TD>
</TR>
<TR>
<td class="title_left2"></td>
</TR>
</table>
</td><td width="582" valign="top"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="21" class='title_bg_center'> <%= UserName %>个人文集</td>
</tr>
</table></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="200" valign="top"> <table width="98%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"> <%call ShowUserArticle(54)%> </td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% call Bottom() %>
</td>
</tr></table>
<% call PopAnnouceWindow(400,300) %>
</body>
</html>
<script>
mtDropDown.initialize();
</script>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -