📄 address.asp
字号:
</tr>
<tr>
<td width="1%" height="35"> </td>
<td width="14%" height="35">个人主页：</td>
<td colspan="2"><font color="<%=SpecificFontColor%>">
<% url=rs("U_Homepage")
if url ="" then
Response.write "<无>"
else
if lcase(left(url, 5)) = "http:" then
Response.write "<A href='" & url & "' Target=_Blank>"
else
Response.write "<A href='http://" & url & "' Target=_Blank>"
end if
Response.write url & "</a>"
end if %></font></td>
<td>所在城市：<font face="<%=SpecificFontFace%>" color="<%=SpecificFontColor%>">
<% city=getCity(rs("U_City"),rs("U_City2"))
if city="" then Response.write "<无>" else Response.write city end if%></font></td>
</tr>
<tr>
<td width="1%" height="35"> </td>
<td width="14%" height="35">通讯地址：</td>
<td colspan="2"><font face="<%=SpecificFontFace%>" color="<%=SpecificFontColor%>"><% if rs("U_Address")="" then Response.write "<无>" else Response.write rs("U_Address") end if%></font></td>
<td>邮政编码：<font color="<%=SpecificFontColor%>"><% if rs("U_Zipcode")="" then Response.write "<无>" else Response.write rs("U_Zipcode") end if%></font></td>
</tr>
<tr>
<td width="1%" height="35"> </td>
<td width="14%" height="35">个人简介：</td>
<td colspan="3"> </td>
</tr>
<tr>
<td width="1%"> </td>
<td colspan="4" valign="top" ><font face="<%=SpecificFontFace%>" color="<%=SpecificFontColor%>"><% if ucom= "" then Response.Write "<无>" else Response.Write formatStr(ucom) end if %></font><p></p></td>
</tr>
<tr>
<td width="1%" height="40"> </td>
<td colspan="4" height="40">用户访问次数：<font face="<%=SpecificFontFace%>"><%=rs("M_Visited_Times")%></font> 最近访问时间：<font face="<%=SpecificFontFace%>"><%=formatDate(rs("M_Last_Visited"))%></font></td>
</tr>
<tr>
<td width="1%" height="20"> </td>
<td colspan="4" height="20">*** 本资料由<b><font face="<%=SpecificFontFace%>"><%=getUserName(rs("U_Updated_By"))%></font></b>更新于<%=formatDate(rs("U_Updated_Date"))%> ***
</td>
</tr>
</table>
<%
End if
rs.close
set rs=nothing
if mode<>3 then
%>
<br>
<div align="right">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="right">
<tr>
<td>
<div align="center" class="p9"><a href="javascript:history.back()"><font size=2>返回</font></a></div>
</td>
</tr>
</table>
</div>
<%
end if
Else
isTeacher=request.QueryString("t")
cityid=request.QueryString("c")
if isTeacher="true" or cityid<>"" or mode=2 then '显示名单
strSql = ""
if isTeacher="true" then
strSql=" where UserInfo.U_Is_Teacher = true"
end if
if cityid<>"" then
strSql=" where UserInfo.U_Is_Teacher = false and UserInfo.U_City = " & cityid
end if
strSql = " SELECT * FROM Members INNER JOIN UserInfo ON Members.Member_id = UserInfo.User_ID " & strSql & " order by Members.M_Name"
set rs = conn.Execute (strSql)
%>
<table width="90%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td align="center" bgcolor="<% =HeadCellColor %>"> </td>
<td align="center" bgcolor="<% =HeadCellColor %>"><strong><font face="<% =DefaultFontFace %>" size="2" color="<% =HeadFontColor %>">姓名</font></strong></td>
<td align="center" bgcolor="<% =HeadCellColor %>"><strong><font face="<% =DefaultFontFace %>" size="2" color="<% =HeadFontColor %>">电话</font></strong></td>
<td align="center" bgcolor="<% =HeadCellColor %>"><strong><font face="<% =DefaultFontFace %>" size="2" color="<% =HeadFontColor %>">E-mail</font></strong></td>
<td align="center" bgcolor="<% =HeadCellColor %>"><strong><font face="<% =DefaultFontFace %>" size="2" color="<% =HeadFontColor %>">OICQ/ICQ</font></strong></td>
<td align="center" bgcolor="<% =HeadCellColor %>"><strong><font face="<% =DefaultFontFace %>" size="2" color="<% =HeadFontColor %>">城市</font></strong></td>
</tr>
<%
If rs.Eof or rs.Bof then
' No items found in DB
Response.Write "<tr><td> </td><td collspan=4>没有符合条件的用户！</td></tr>"
Else '显示用户名单
rs.movefirst
i=0
do until rs.Eof
if i mod 2= 0 then
CColor = AltForumCellColor
else
CColor = ForumCellColor
End if
Response.Write "<tr>"
Response.Write "<td bgcolor='" & CColor & "' valign='middle' align='center'>" & isNew(rs("U_Updated_Date"),2) & "</td>" & vbcrlf
Response.Write "<td width='60' bgcolor='" & CColor & "' valign='middle' align='left'><font face='" & DefaultFontFace & "' size='2'><a href='address.asp?id=" & rs("Member_id") & "'><img src='gif/profile.gif' border=0>" & rs("M_Name") & "</a> </font></td>"
Response.Write "<td bgcolor='" & CColor & "' valign='middle' align='left'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>"
if rs("U_Phone")="" then
Response.write "<无>"
else
Response.write FormatString(rs("U_Phone"), "false")
end if
Response.Write "</font></td>"
Response.Write "<td bgcolor='" & CColor & "' valign='middle' align='left'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>"
if rs("U_Email")="" then
Response.write "<无>"
else
Response.write FormatString(rs("U_Email"), "true")
end if
Response.write "</font></td>"
Response.Write "<td bgcolor='" & CColor & "' valign='middle' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>"
if rs("U_Oicq")="" then
Response.write "<无>"
else
Response.write rs("U_Oicq")
end if
Response.Write "</font></td>"
Response.Write "<td width='40' bgcolor='" & CColor & "' valign='middle' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & getCity(rs("U_City"),rs("U_City2")) & "</font></td>"
Response.Write "</tr>"
rs.MoveNext
i = i + 1
loop
End If
rs.close
set rs=nothing
%>
</table>
<% if mode<>2 then%>
<br>
<div align="right">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="right">
<tr>
<td>
<div align="center" class="p9"><a href="javascript:history.back()"><font size=2>返回</font></a></div>
</td>
</tr>
</table>
</div>
<%
end if
Else 'mode=1 %>
<div align="center"><b><font face="<%=SpecificFontFace%>" size="6"><% =PageTitle %></font></b>
<br>
<hr width="90%">
<br>
<table width="90%" border="1" cellspacing="8" cellpadding="2" bordercolorlight="#78592c" bordercolordark="#faf5ed" bgcolor="#CCCCFF" height="178">
<tr>
<td height="50">
<p align="center"><font face="<%=SpecificFontFace%>" size="5"><a href="address.asp?t=true">教<br>
<br>
师</a></font></p>
</td>
<td height="50">
<p align="center"><font face="<%=SpecificFontFace%>" size="5"><a href="address.asp?c=1"><%=SplitCity(1)%><br>
总<br>
舵</a></font></p>
</td>
<td height="50">
<div align="center"><font face="<%=SpecificFontFace%>" size="5"><a href="address.asp?c=2"><%=SplitCity(2)%><br>
分<br>
舵</a></font></div>
</td>
<td height="50">
<div align="center"><font face="<%=SpecificFontFace%>" size="5"><a href="address.asp?c=3"><%=SplitCity(3)%><br>
分<br>
舵</a></font></div>
</td>
<td height="50">
<p align="center"><font face="<%=SpecificFontFace%>" size="5"><a href="address.asp?c=4"><%=SplitCity(4)%><br>
分<br>
舵</a></font></p>
</td>
<td height="50">
<div align="center"><font face="<%=SpecificFontFace%>" size="5"><a href="address.asp?c=5"><%=SplitCity(5)%><br>
分<br>
舵</a></font></div>
</td>
<td height="50">
<div align="center"><font face="<%=SpecificFontFace%>" size="5"><a href="address.asp?c=6"><%=SplitCity(6)%><br>
分<br>
舵</a></font></div>
</td>
<td height="50">
<div align="center"><font face="<%=SpecificFontFace%>" size="5"><a href="address.asp?c=0"><%=SplitCity(0)%><br>
分<br>
舵</a></font></div>
</td>
</tr>
</table>
</div>
<%
End if
End if
%>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
'## 关闭数据库连接
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -