📄 profile.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="Includes/site-dataconn.asp" -->
<!--#include file="Includes/func-common.asp" -->
<!--#include file="Includes/site-config.asp" -->
<!--#include file="Includes/inc-common.asp" -->
<%
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<html>
<head>
<title>// <%=Site_Name%> //</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL=stylesheet TYPE="text/css" HREF="Includes/site-style.css">
</head>
<body>
<!--#include file="Includes/inc-header.asp" -->
<%
'navigation trail
response.write("<table border='0' cellspacing='0' cellpadding='2' align='center' class='plain'><tr><td valign='top'><a href='default.asp'>"& Site_Name &"</a> >> Profiles<br>"& Site_Description &"</td></tr></table>")
if isnumeric(request.querystring("I")) <> true or request.querystring("I") = "" then
if request.querystring("I") = "" then
'user needs to log in
strMessage = "You have reached this page in error. If you are trying to view or change your account details you must first log in to the" & Site_Name &" forums. Or, if you are trying to view someones profile you must first select someone by clicking on their 'profile' link or cliking on their name in the online listings."
strRedirectURL = "default.asp"
else
'Reached page in error
strMessage = "You have reached this page in error. If you have followed a valid link please contact the "& Site_Name &" forum administrators with the deails."
strRedirectURL = "default.asp"
end if
else
'Grab all user details and whack them on the screen!
set rsdetails = server.createobject("adodb.recordset")
sqlDetails = "SELECT User_Name, User_Join_Date, User_Laston_Date, User_LastURL, User_Location, User_Posts, User_DOB, User_Last_Post, User_Biography, User_ICQ, User_MSN, User_AIM, User_Email, User_Email_View, User_Website FROM Forum_Users WHERE User_ID = "& int(request.querystring("I")) &";"
rsDetails.open sqlDetails, adoConn, adCMDText
if rsDetails.eof or rsDetails.bof then
strMessage = "The specified user could not be found. Please click <a href='default.asp'>here</a> if you are not redirected within 5 seconds"
strRedirectURL = "default.asp"
else
strUserName = rsDetails("User_Name")
strJoined = rsDetails("User_Join_Date")
strLastVisit = rsDetails("User_Laston_Date")
strLastURL = rsDetails("User_LastURL")
strLastPost = rsDetails("User_Last_Post")
strLocation = rsDetails("User_Location")
strPosts = rsDetails("User_Posts")
strBiography = rsdetails("User_Biography")
strDOB = rsDetails("User_DOB")
strICQ = rsDetails("User_ICQ")
strMSN = rsDetails("User_MSN")
strAIM = rsDetails("User_AIM")
strEmail = rsDetails("User_Email")
strEView = rsDetails("User_Email_View")
strWebsite = rsDetails("User_Website")
rsDetails.close
set rsDetails = nothing
end if
end if
if strMessage <> "" then
'Display error message
%>
<table border="0" cellspacing="1" cellpadding="2" align="center" class="main">
<tr valign="middle" class="title">
<td align="center"><%=Site_Name%> // Error</td>
</tr>
<tr valign="top" class="body">
<td align="center"><%=strMessage%></td>
</tr>
</table>
<META HTTP-EQUIV="Refresh" CONTENT="5; URL=<%=strRedirectURL%>">
<%
else
if instr(1, strLastURL, "default", 1) = 0 and instr(1, strLastURL, "displaycategory", 1) < 0 and instr(1, strLastURL, "displayforum", 1) < 0 and instr(1, strLastURL, "displaytopic", 1) < 0 and instr(1, strLastURL, "newreply", 1) < 0 and instr(1, strLastURL, "profile", 1) < 0 then
if instr(1, strLastURL, "newreply") = 1 then
strLastURL = replace(strLastURL, "newreply", "displaytopic")
else
strlastURL = "default.asp"
end if
end if
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" class="main">
<tr align="left" class="title">
<td valign="middle" colspan="2">用户信息： <%=strUserName%></td>
</tr>
<tr align="left" class="sub-title">
<td valign="middle" colspan="2">>>基本资料：</td>
</tr>
<tr align="left" class="body">
<td width="200" valign="top">用户名:</td>
<td valign="top"><%=strUserName%></td>
</tr>
<tr align="left" class="body">
<td width="200" valign="top">入会时间:</td>
<td valign="top"><%=web_time(strJoined, Site_Time_Format, "Long")%></td>
</tr>
<tr align="left" class="body">
<td width="200" valign="top">生 日:</td>
<td valign="top"><%if strDOB<> "" then response.write(web_date(strDOB, Site_Time_Format))%></td>
</tr>
<tr align="left" class="body">
<td width="200" valign="top">地 址:</td>
<td valign="top"><%=strLocation%></td>
</tr>
<tr align="left" class="body">
<td width="200" valign="top">个性签名：</td>
<td valign="top"><%=strBiography%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" class="main">
<tr align="left" class="sub-title">
<td valign="middle" colspan="2">>> 论坛资料</td>
</tr>
<tr align="left" class="body">
<td width="200" valign="top">发帖数：</td>
<td valign="top"><%=strPosts%></td>
</tr>
<tr align="left" class="body">
<td width="200" valign="top">Last Post:</td>
<td valign="top"><%if strLastPost <> "" then response.write(web_time(strLastPost, Site_Time_Format, "Long"))%></td>
</tr>
<tr align="left" valign="top" class="body">
<td width="200">Last On:</td>
<td ><%=web_time(strLastVisit, Site_Time_Format, "Long")%></td>
</tr>
<tr align="left" class="body">
<td width="200" valign="top">Last Location:</td>
<td valign="top"><a href="<%=strLastURL%>"><%=strLastURL%></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" class="main">
<tr align="left" class="sub-title">
<td valign="middle" colspan="2">>>联系用户</td>
</tr>
<tr align="left" valign="top" class="body">
<td width="200">个人主页:</td>
<td><a href="<%=strWebsite%>" target="_blank"><%=strWebsite%></a></td>
</tr>
<%
if strEView = 1 then
%>
<tr align="left" valign="top" class="body">
<td width="200">Email:</td>
<td><a href="mailto:<%=strEmail%>"><%=strEmail%></a></td>
</tr>
<%
end if
%>
<tr align="left" valign="top" class="body">
<td width="200">OICQ:</td>
<td><%=strICQ%></td>
</tr>
<tr align="left" valign="top" class="body">
<td width="200">MSN:</td>
<td><%=strMSNl%></td>
</tr>
<tr align="left" valign="top" class="body">
<td width="200">梦想:</td>
<td><%=strAIM%></td>
</tr>
</table>
<%
end if
%>
<!--#include file="Includes/inc-footer.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -