📄 classmate.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<HTML><HEAD><TITLE><%=SchoolmateName%>——班级通讯录</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 5.50.3825.1300" name=GENERATOR><link href="txl.css" type="text/css" rel="stylesheet"></HEAD>
<BODY topmargin="0" leftmargin="0">
<%isjoinclass(1)%>
<br><br>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select * from student where isadmin<>3 and classid="&clsid&" order by studid"
rs.open StrSQL,conn,1,1
%>
<table border="0" cellspacing="1" width="100%"><tr><td>
<DIV align=center>
<CENTER>
<%
do until rs.eof
name=rs("realname")
email=rs("email")
homepage=rs("homepage")
if homepage="http://" then homepage=""
oicq=rs("oicq")
address=rs("address")
zipcode=rs("zipcode")
face=rs("image")
if isnull(face) then face=""
%>
<CENTER>
<TABLE cellSpacing=1 width=351 bgColor=#9999ff border=0>
<TBODY>
<TR vAlign=top bgColor=#ffffff>
<TD>
<IMG height=29 src="images/bar1.gif" width=349>
<table border="0" cellpadding="0" width="350" height="110%">
<tr>
<td width="105" rowspan="5" height="92" bgColor=#fcf0f5><div><center><table><tr><td align=center><%if rs("isadmin")=1 then%><FONT color=red><%else%><FONT color=blue><%end if%><SPAN
style="FONT-SIZE: 9pt"><b><%=htmlencode(name)%></b></SPAN></FONT><br><br>
<%if face<>"" then%><img src="<%=face%>"><%end if%></td><tr></table></center></div></td>
<td width="202" height="20" bgColor=#fcf0f5 ><FONT color=#476992><SPAN
style="FONT-SIZE: 9pt"> <img src=images/email.gif> 邮箱：
<%if trim(email)<>"" then%><a href="mailto:<%=htmlencode(email)%>" title='给<%=htmlencode(name)%>发邮件'><%=htmlencode(email)%></a><%end if%></SPAN></FONT></td>
</tr>
<tr>
<td width="202" height="20" bgColor=#fcf0f5 ><FONT color=#476992><SPAN
style="FONT-SIZE: 9pt"> <img src=images/oicq.gif> OICQ： <%if oicq<>"" then%>
<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=htmlencode(oicq)%>' target=_blank title='查看<%=htmlencode(name)%>的OICQ状态'><%=htmlencode(oicq)%></a>
<%end if%></SPAN></FONT></td>
</tr>
<tr>
<td width="202" height="20" bgColor=#fcf0f5 ><FONT color=#476992><SPAN
style="FONT-SIZE: 9pt"> <img src=images/homepage.gif>： <%if trim(homepage)<>"" then%><a href="<%=htmlencode(homepage)%>"
target="_blank" title='访问<%=htmlencode(name)%>的个人主页'><%=htmlencode(homepage)%></a><%end if%></SPAN></FONT></td>
</tr>
<tr>
<td width="202" height="20"bgColor=#fcf0f5><FONT color=#476992><SPAN
style="FONT-SIZE: 9pt"> <img src=images/tel.gif> 电话： <%=rs("telephone")%></SPAN></FONT></td>
</tr>
<tr>
<td width="202" height="20" bgColor=#fcf0f5 ><FONT color=#476992><SPAN
style="FONT-SIZE: 9pt"> <img src=images/zipcode.gif> 邮编： <%=zipcode%></SPAN></FONT></td>
</tr>
<tr>
<td width="364" colspan="2" height="20" bgColor=#fcf0f5 ><FONT color=#476992><SPAN
style="FONT-SIZE: 9pt"> <img src=images/address.gif> 地址：
<%=htmlencode(address)%></SPAN></FONT></td>
</tr>
</table>
</TD></TR></TBODY></TABLE></CENTER>
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=351 border=0>
<TBODY>
<TR align=right>
<TD><IMG height=12 src="images/more1.gif" width=69
border=0></TD></TR></TBODY></TABLE></CENTER><BR>
<CENTER>
<%rs.movenext
loop
rs.close
set rs=nothing
call endconnection()
%>
</TD></TR>
</TABLE></CENTER></DIV></td><tr></table>
</BODY></HTML>
<!--#INCLUDE FILE="footer.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -