📄 puprofile.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<!--#include file="functions/datetime.asp" -->
<%
Response.Buffer = True

Dim lngProfileNum
Dim strUsername
Dim intUsersGroupID		
Dim strEmail	
Dim blnShowEmail
Dim strLocation
Dim strHomepage
Dim strAvatar	
Dim intForumID
Dim strICQNum	
Dim strAIMAddress
Dim strMSNAddress
Dim strYahooAddress
Dim strjob
Dim strInterests
Dim dtmJoined	
Dim lngNumOfPosts
Dim dtmDateOfBirth
Dim dtmLastVisit
Dim strGroupName
Dim intRankStars 
Dim strRankCustomStars
Dim blnProfileReturned
Dim blnGuestUser
Dim blnActive	
Dim strRealName
Dim strMemberTitle

blnProfileReturned = True
blnGuestUser = False
blnShowEmail = False
blnModerator = False
lngNumOfPosts = 0
If bannedIP() Then blnActiveMember = False
lngProfileNum = CLng(Request.QueryString("pf"))
If intGroupID <> 2 Then
	strSQL = "SELECT timesaccess.Moderate "
	strSQL = strSQL & "FROM timesaccess "
		strSQL = strSQL & "WHERE timesaccess.grpid = " & intGroupID & " AND  timesaccess.Moderate = True;"
	rsConn.Open strSQL, adoCon
	If NOT rsConn.EOF Then blnModerator = True
	rsConn.Close
	strSQL = "SELECT timesuser.*, timesgrp.Name, timesgrp.Stars, timesgrp.cusstars "
	strSQL = strSQL & "FROM timesuser, timesgrp "
	strSQL = strSQL & "WHERE timesuser.grpid = timesgrp.grpid AND timesuser.userid = " & lngProfileNum
	rsConn.Open strSQL, adoCon
	If NOT rsConn.EOF Then
		strUsername = rsConn("Username")
		strRealName = rsConn("realname")
		intUsersGroupID = CInt(rsConn("grpid"))
		strEmail = rsConn("useremail")
		blnShowEmail = CBool(rsConn("disemail"))
		strHomepage = rsConn("Homepage")
		strLocation = rsConn("Location")
		strAvatar = rsConn("Avatar")
		strMemberTitle = rsConn("rank")
		strICQNum = rsConn("ICQ")
		strAIMAddress = rsConn("AIM")
		strMSNAddress = rsConn("MSN")
		strYahooAddress = rsConn("Yahoo")
		strjob = rsConn("job")
		strInterests = rsConn("Interests")
		If isDate(rsConn("DOB")) Then dtmDateOfBirth = CDate(rsConn("DOB"))
		dtmJoined = CDate(rsConn("joindtm"))
		lngNumOfPosts = CLng(rsConn("postnum"))
		dtmLastVisit = rsConn("lastvst")
		strGroupName = rsConn("Name")
		intRankStars = CInt(rsConn("Stars"))
		strRankCustomStars = rsConn("cusstars")
		blnActive = CBool(rsConn("Active"))
	Else
		blnProfileReturned = False
	End If
	rsConn.Close
	If strEmail <> "" Then
		strEmail = formatLink(strEmail)
		strEmail = formatInput(strEmail)
	End If
Else
	blnGuestUser = True
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>

<html>
<head>
<title>用户资料</title>

<script language="JavaScript">
function openInMainWin(winLocation){
	window.opener.location.href = winLocation
	window.opener.focus();
	window.close();
}
</script>

<!--#include file="includes/skin.asp" -->

</head>
<body marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" OnLoad="self.focus();"><br/>
<div align="center"><%
If blnProfileReturned = False Then %>
<span class="text">没有找到相关的用户</span>
<% ElseIf blnGuestUser = True OR blnActiveMember = False Then %>
<span class="text">对不起,您必须成为注册用户才能观看详细资料.</span><br /><br />
<% Else %></div>
<table width="500" align="center" border="0" cellspacing="0" cellpadding="1" bgcolor="<% = strTableBgColour %>">
  <tr> <td>
	<table width="100%" border="0" cellspacing="1" cellpadding="4" bgcolor="<% = strTableProfileBgColour %>">
        <tr class="tHeading" bgcolor="#FFFFFF"><td colspan="2" align="center" background="<%= strTableTitleBgImage %>">查看用户资料</td></tr>
        <tr class="text" bgcolor="#FFFFFF">
         <td width="25%" align="right">用户名:</td>
         <td width="75%"><% = strUsername %></td>
        </tr><%   If blnAvatar = True AND NOT strAvatar = "" Then	%>
        <tr class="text" bgcolor="#FFFFFF">
         <td  align="right" valign="top">头像:</td>
         <td><img src="<%= strAvatar %>" alt="头像" OnError="this.src='images/photo/1.gif', height='0';"></td>
        </tr><%	End If
	If strMemberTitle <> "" Then%>
	<tr class="text" bgcolor="#FFFFFF">
         <td align="right">级别:</td>
         <td><% = strMemberTitle %></td>
        </tr><% 	End If %>
	<tr class="text" bgcolor="#FFFFFF">
         <td align="right">级别:</td>
         <td><% = strGroupName %> <img src="<% 
         	If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write("images/" & intRankStars & "star.gif") 
		Response.Write(""" alt=""" & strGroupName & """ align=""absmiddle"">") %></td>
        </tr>
         <tr class="text" bgcolor="#FFFFFF">
         <td align="right">用户状态:</td>
         <td><% If blnActive = True Then %>通过认证 <% Else %>审核中<% end if %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
         <td align="right">真实姓名:</td>
         <td><% If strRealName <> "" Then Response.Write(strRealName) Else Response.Write("没有填写") %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
         <td align="right">注册时间:</td>
         <td><% = DateFormat(dtmJoined, saryDateTimeData) %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
         <td align="right">文章数:</td>
         <td><% = lngNumOfPosts %> <span class="smText"><% If lngNumOfPosts > 0 AND DateDiff("d", dtmJoined, Now()) > 0 Then Response.Write("[" & FormatNumber(lngNumOfPosts / DateDiff("d", dtmJoined, Now()), 2) & " " & "平均每天发帖") & "]"%></span></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
         <td align="right">最后一次访问:</td>
         <td><% If isDate(dtmLastVisit) Then Response.Write(DateFormat(dtmLastVisit, saryDateTimeData)) %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
             <td align="right">国　　家:</td>
        	 <td><% If strLocation = "" Then Response.Write("没有填写") Else Response.Write(strLocation) %></td>
        </tr>
         <tr class="text" bgcolor="#FFFFFF">
             <td align="right">生　　日:</td>
        	 <td><% 
         If isDate(dtmDateOfBirth) Then 
		If strTimeOffSet = "-" Then
			dtmDateOfBirth = DateAdd("h", + intTimeOffSet, dtmDateOfBirth)
		ElseIf strTimeOffSet = "+" Then
			dtmDateOfBirth = DateAdd("h", - intTimeOffSet, dtmDateOfBirth)
		End If
         	Response.Write(DateFormat(dtmDateOfBirth, saryDateTimeData))   	
         Else 	
         	Response.Write("没有填写") 
        End If%></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
            <td align="right">主　　页:</td>
         	<td><% If strHomepage = "" Then Response.Write("没有填写") Else Response.Write("<a href=""" & strHomepage & """ target=""_blank"">" & strHomepage & "</a>") %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
            <td align="right">职　　业:</td>
         	<td><% If strjob = "" Then Response.Write("没有填写") Else Response.Write(strjob) %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
            <td align="right">兴　　趣:</td>
         	<td><% If strInterests = "" Then Response.Write("没有填写") Else Response.Write(strInterests) %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
         	<td align="right">电子邮件:</td>
         	<td><%
	If blnShowEmail = False AND blnAdmin = False AND strEmail <> "" Then
        	Response.Write("短信")
        ElseIf strEmail = "" OR isNull(strEmail) Then
            	Response.Write("没有填写")
        ElseIf blnEmailMessenger = True Then
        	Response.Write("<a href=""javascript:openInMainWin('emessenger.asp?SEID=" & lngProfileNum & "')""><img src=""images/email.gif""  border=""0"" align=""absmiddle"" alt=""发送邮件""></a>")
        Else
            	Response.Write("<a href=""mailto:" & strEmail & """>" & strEmail & "</a>")
        End If
    %></td><%
    	If blnPrivateMessages Then
    		%>
        <tr class="text" bgcolor="#FFFFFF">
            <td align="right">短　　信:</td>
         	<td><% Response.Write("<a href=""javascript:openInMainWin('newmess.asp?name=" & Server.URLEncode(strUsername) & "')""><img src=""images/pmpic.gif""  border=""0"" align=""absmiddle"" alt=""发送短信""></a>") %></td>
        </tr><%
	End If
%>
    	<tr class="text" bgcolor="#FFFFFF">
         	<td align="right">MSN Messenger:</td>
         	<td><% If strMSNAddress <> "" Then Response.Write(strMSNAddress) Else Response.Write("没有填写") %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
         	<td align="right">AIM 地址:</td>
         	<td><% If strAIMAddress <> "" Then Response.Write("<a href=""javascript:openInMainWin('aim:goim?screenname=" & Server.URLEncode(strAIMAddress) & "&message=Hello+Are+you+there?')""><img src=""images/aol.gif""  border=""0"" align=""absmiddle"" alt=""AIM 地址""></a>") Else Response.Write("没有填写") %></td>
        </tr>
        <tr class="text" bgcolor="#FFFFFF">
         	<td align="right">Yahoo Messenger:</td>
         	<td><% If strYahooAddress <> "" Then Response.Write("<a href=""javascript:openInMainWin('http://edit.yahoo.com/config/send_webmesg?.target=" & Server.URLEncode(strYahooAddress) & "&amp;.src=pg')""><img src=""images/yim.gif""  border=""0"" align=""absmiddle"" alt=""Yahoo Messenger""></a>") Else Response.Write("没有填写") %></td>
        </tr>
    	<tr class="text" bgcolor="#FFFFFF">
        	 <td align="right">ICQ:</td>
        	 <td><% If strICQNum <> "" Then Response.Write("<a href=""javascript:openInMainWin('http://wwp.icq.com/scripts/search.dll?to=" & strICQNum & "')""><img src=""images/icq.gif""  border=""0"" align=""absmiddle"" alt=""ICQ Number""></a>") Else Response.Write("没有填写") %></td>
        </tr>
       </table></td>
  </tr>
 </table>
 
 <%
	If ((blnAdmin) OR (blnModerator AND intUsersGroupID <> 1)) Then
%><br />
  <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
   <form>
    <tr>
      <td align="center"><input type="submit" name="Submit" value="编辑资料" onClick="openInMainWin('register.asp?pf=<% = lngProfileNum %>&M=A');" /></td>
    </tr>
    </form>
  </table><%
	End If
End If
%>
  <br />
  <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr>
  <td align="center" height="34">
   <a href="JavaScript:onClick=window.close()">关闭窗口</a>
   <br /><br />
   <!-- #include file="includes/footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -