userinfo.asp
来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 292 行
ASP
292 行
<!--#include file="Inc/syscode_article.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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=strPageTitle%></title>
<link href="img/css.CSS" rel="stylesheet" type="text/css">
<STYLE type=text/css>BODY {
SCROLLBAR-FACE-COLOR: #E4E4E4; SCROLLBAR-HIGHLIGHT-COLOR: #cccccc; SCROLLBAR-SHADOW-COLOR: #828282; SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-ARROW-COLOR: #797979; SCROLLBAR-TRACK-COLOR: #ECECEC; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body bgcolor="#CCCCCC" topmargin="0">
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From PhotoClass C inner join Layout L on C.LayoutID=L.LayoutID "
if ClassID<>0 then
sqlRoot = sqlRoot & " where C.ParentID=" & ClassID & " or C.ParentPath like '%" & ParentPath & "," & ClassID & "%' "
else
sqlRoot = sqlRoot & " where 1 "
end if
sqlRoot = sqlRoot & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
arrClassID=ClassID
do while not rsRoot.eof
arrClassID=arrClassID & "," & rsRoot(0)
rsRoot.movenext
loop
rsRoot.close
set rsRoot=nothing
%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="779"><table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="760" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="480" height="164" align="center" valign="top" >
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="imge/topbgm.gif"> <font color="#CC0000">会员信息</font></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="100%" height="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" valign="top" class="tde"><table width="100%" height="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" Class="tdbg_left2"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="title_main">
<tr>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="25" bgcolor="f2f2f2" class="title_maintxt">
·<%= UserName %>个人文集</td>
</tr>
</table></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="7">
<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 class="tdbg_leftall">
<td> </td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
<tr>
<td height="5" valign="bottom">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="15" align="center" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f2f2f2">
<tr>
<td height="25" Class="tdbg_left2"> <div align="center">
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
end if
%>
</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr >
<td height="10"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="10" valign="top"> </td>
<td valign="top" bgcolor="#FFFFFF" class="tde">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" bgcolor="#B6B6B6">
<tr>
<td valign="top">
<table width="100%" height="26" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="e1e1e1"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%"><div align="center"><img src="imge/top1.gif" width="20" height="20"></div></td>
<td width="90%" valign="bottom" class="14">会员信息</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="11"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="98%" border="0" align="right" cellpadding="0" cellspacing="2">
<tr>
<td colspan="2" align="center">
<%
if Instr(rs(db_user_face),"http://")>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
%>
</tr>
<tr valign="middle">
<td> <div align="right">呢称：</div></td>
<td width="198"><%= 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="59"> <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="59"> <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="59"> <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="59"> <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="59"> <div align="right">注册：</div></td>
<td><%=FormatDateTime(rs(db_User_RegDate),2)%> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="11"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
</td>
</tr>
</table>
<% call PopAnnouceWindow(400,300) %>
<% call ShowAD(0) %>
<% call ShowAD(4) %>
<% call ShowAD(5) %>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?