📄 address.asp
字号:
<!--#INCLUDE FILE="common.inc" -->
<%
if Session("user_id") = "" then
Response.Redirect "timeout.asp"
end if
%>
<%
Function FormatString(str, link)
str = Replace(str, "，", "<br>")
str = Replace(str, ",", "<br>")
str = Replace(str, ";", "<br>")
if link = "true" then
tx = split(str, "<br>")
str = ""
dim i
for i = 0 to ubound(tx)
str = str & "<a href='mailto:" & trim(tx(i)) & "'>" & tx(i) & "</a>"
if i<ubound(tx) then
str = str & "<br>"
end if
next
end if
FormatString=str
End Function
Function SplitCity(cid)
SplitCity = ""
if cid <> "" then
Str2 = "SELECT * FROM City where City_ID = " & cid
set rs_city = conn.Execute (str2)
if rs_city.Eof or rs_city.Bof then
mcity = "其它"
else
mcity = rs_city("C_Name")
end if
rs_city.close
set rs_city=nothing
for i = 1 to len(mcity)-1
SplitCity=SplitCity & mid(mcity,i,1) & "<br>"
next
SplitCity=SplitCity & mid(mcity,len(mcity))
end if
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href='style.css'>
<script language="JavaScript">
<!--
function WinOpen(url) {
var AtWnd = window.open(url,"PopWindow","toolbar=no,directories=no,menubar=no,location=no,status=no,scrollbars=no,resizable=no,copyhistory=no,width=500,height=350");
if ((document.AttachForm.window != null) && (!AtWnd.opener)) {
AtWnd.opener = document.AttachForm.window;
AtWnd.focus();
}
}
function WinOpen2(url) {
var AtWnd = window.open(url,"AlbumWindow","toolbar=yes,directories=no,menubar=yes,location=no,status=yes,scrollbars=yes,resizable=yes,copyhistory=no");
if ((document.AttachForm.window != null) && (!AtWnd.opener)) {
AtWnd.opener = document.AttachForm.window;
AtWnd.focus();
}
}
// -->
</script>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open ConnString
mode=request.QueryString("mode")
If mode="" then
if session("address_mode") <> "" then
mode = session("address_mode")
else
mode=1
end if
end if
profileid=request.QueryString("id")
if profileid<>"" and mode=3 then
mode=1
else
session("address_mode")=mode
end if
if mode=3 then
profileid=session("user_id")
end if
%>
<table width="760" border="0" align="center" height="320" cellspacing="2" cellpadding="0">
<tr>
<td width="118" valign="top" height="317">
<table width="100%" border="0" height="300" cellspacing="0" cellpadding="0">
<tr valign="top">
<td height="320">
<table width="100%" border="0">
<tr bgcolor="#CCCCFF">
<td height="25"><div align="center">
<% if mode=1 then%>
分类显示用户
<%else%>
<a href="address.asp?mode=1">分类显示用户</a>
<%end if%>
</div></td>
</tr>
<tr bgcolor="#CCCCFF">
<td height="25"><div align="center">
<% if mode=2 then%>
显示所有用户
<%else%>
<a href="address.asp?mode=2">显示所有用户</a>
<%end if%>
</div></td>
</tr>
<tr bgcolor="#CCCCFF">
<td height="25"><div align="center">
<% if mode=3 then%>
显示本人资料
<%else%>
<a href="address.asp?mode=3">显示本人资料</a>
<%end if%>
</div></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="640" valign="top" height="317" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="3" style="border: 1px solid rgb(0,0,0)" height="320" bgcolor="<% =TableBgColor %>">
<tr valign="top" align="center">
<td><br>
<%
if profileid<>"" then '显示个人资料
strSQL = " SELECT * FROM Members INNER JOIN UserInfo ON Members.Member_id = UserInfo.User_ID where Members.Member_id = " & profileid
set rs = conn.Execute (strSQL)
If rs.Eof or rs.Bof then
' No items found in DB
Response.Write "没有符合条件的用户！"
Else
ucom = rs("U_Comment")
%>
<table width="95%" border="0" cellspacing="0" cellpadding="3" height="320">
<tr>
<td width="1%" height="50"> </td>
<td width="14%" height="50" valign="top"><b><font face="<%=SpecificFontFace%>" size="5"><%=rs("M_Name")%></font></b></td>
<td width="35%"> </td>
<td width="50%" colspan="2" valign="top">
<Form name="AttachForm">
<table width=80 align="right">
<tr>
<% if cint(profileid) = cint(session("user_id")) or getUserLevel(session("user_id"))=3 then %>
<td>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="center">
<tr>
<td>
<div align="center" class="p9"><a href='profile.asp?id=<%=rs("Member_id")%>'><font size=2>修改资料</font></a></div>
</td>
</tr>
</table>
</td>
<% end if %>
<td>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="center">
<tr>
<td>
<div align="center" class="p9"><a href='#' onClick='WinOpen("message.asp?mode=1&id=<%=rs("Member_id")%>")'><font size=2>给我发讯息</font></a></div>
</td>
</tr>
</table>
</td>
<% if getEmail(profileid)<>"" then %>
<td>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="center">
<tr>
<td>
<div align="center" class="p9"><a href='#' onClick='WinOpen("mail.asp?id=<%=rs("Member_id")%>")'><font size=2>给我发邮件</font></a></div>
</td>
</tr>
</table>
</td>
<%end if%>
<td>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="center">
<tr>
<td>
<div align="center" class="p9"><a href='#' onClick='WinOpen2("album_info.asp?album_id=<%=rs("U_Album_ID")%>")'><font size=2>我的影集</font></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</Form>
</td>
</tr>
<tr>
<td width="1%" height="35"> </td>
<td width="14%" height="35" valign="top">电话：</td>
<td colspan="3" valign="top"><font color="<%=SpecificFontColor%>"><% if rs("U_Phone")="" then Response.write "<无>" else Response.write rs("U_Phone") end if%></font></td>
</tr>
<tr>
<td width="1%" height="35"> </td>
<td width="14%" height="35" valign="top">E-mail： </td>
<td colspan="3" valign="top"><font color="<%=SpecificFontColor%>"><% if rs("U_Email")="" then Response.write "<无>" else Response.write "<a href='mailto:" & rs("U_Email") & "'>" & rs("U_Email") & "</a>" end if%></font></td>
</tr>
<tr>
<td width="1%" height="35"> </td>
<td width="14%" height="35">OICQ/ICQ：</td>
<td height="35" colspan="2"><font color="<%=SpecificFontColor%>"><% if rs("U_Oicq")="" then Response.write "<无>" else Response.write rs("U_Oicq") end if%></font></td>
<td width="30%">用户级别：<font face="<%=SpecificFontFace%>" color="<%=SpecificFontColor%>"><%=getLevelName(rs("M_Level"))%></font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -