📄 search.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="const.asp" -->
<!--#include file="char.asp"-->
<html><head>
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
<title><%=SchoolmateName%>——校友查询</title>
<link rel=stylesheet type=text/css href=txl.css>
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0>
<%
if request("action")="search" then
call find()
else
call inputname()
end if
sub find()
realname=trim(request.form("realname"))
if realname="" then
Errmsg=Errmsg+"<br>"+"<li>请确认输入了校友真实姓名。"
founderr=true
elseif not isChinese(realname) then
Errmsg=Errmsg+"<br>"+"<li>您的输入有误！"
founderr=true
end if
if founderr=true then
call error(Errmsg)
exit sub
end if
%>
<br><br>
<!--#INCLUDE FILE="script/popup.inc" -->
<table width=85% bgcolor=<%=TableborderColor%> cellspacing=0 border=0 align=center>
<tr>
<td>
<table cellpadding=6 cellspacing=1 border=1 width=100% bgcolor=<%=TableborderColor%> bordercolor=<%=TableborderColor%> bordercolorlight=<%=TablebodyColor1%> bordercolordark=<%=TablebodyColor1%>>
<tr bgcolor=<%=TablebodyColor1%>>
<td colspan=2 valign=top width=40% align=center> <img src=images/find.gif>
<font face=宋体></td><td colspan=4 align=center>校友<font color=brown><b><%=htmlencode(realname)%></b></font>查询结果：共找到 <font color=brown><b><%=allfriends(realname)%></b></font> 人</font></td>
</tr>
<tr bgcolor=<%=TabletitleColor%> style=color:<%=TableFontColor%> bordercolorlight=<%=TabletitleColor%> bordercolordark=<%=TabletitleColor%>>
<td align=center><b>用户名</b></td>
<td align=center><b>所在班级</b></td>
<td align=center><b>QQ号码</b></td>
<td align=center><b>主页地址</b></td>
<td align=center><b>电子邮件</b></td>
<td align=center><b>短信息</b></td>
</tr>
<%
sql="select * from [student] where realname='"&htmlencode(realname)&"'"
set rs=conn.execute(sql)
if rs.eof then
%>
<TR bgcolor=<%=tablebodycolor2%>>
<TD colspan=6>对不起，没有您要找的同学</TD>
</TR>
<%else%>
<script language="JavaScript" src="script/jsfun.js"></script>
<%
do until rs.eof
name=htmlencode(rs("userid"))
%>
<tr bgcolor=<%=tablebodycolor2%>>
<td nowrap> <a href="profile.asp?name=<%=name%>" target=_blank onmouseout="kill()" onmouseover="popup('查看<%=name%>的个人信息','<%=tablebodycolor1%>')"><%=name%></a></td>
<td nowrap> <%=classname(rs("classid"))%></td>
<td align=center>
<%if rs("oicq")="" or isnull(rs("oicq")) then
response.write "-"
elseif rs("isoicqshow")=false then
response.write "保密"
else
%>
<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=htmlencode(rs("oicq"))%> target=_blank onmouseout="kill()" onmouseover="popup('查看<%=name%>的QQ资料','<%=tablebodycolor1%>')"><img src="images/oicq.gif" border=0 width=16 height=16 hspace=1>QQ</a>
<%end if%>
</td>
<td align=center>
<%if rs("homepage")="" or isnull(rs("homepage")) then
response.write "-"
elseif rs("ishomepageshow")=false then
response.write "保密"
else
%>
<a href=<%=htmlencode(rs("homepage"))%> target=_blank onmouseout="kill()" onmouseover="popup('访问<%=name%>的主页','<%=tablebodycolor1%>')"><img border=0 src=images/homepage.gif>主页</a>
<%end if%>
</td>
<td align=center>
<%if rs("isemailshow")=false then
response.write "保密"
else
%>
<a href="mailto:<%=htmlencode(rs("email"))%>" onmouseout="kill()" onmouseover="popup('给<%=name%>发电子邮件','<%=tablebodycolor1%>')"><img border=0 src=images/email1.gif hspace=1>邮件</a>
<%end if%>
</td>
<td align=center><a href="usersms.asp?action=new&touser=<%=htmlencode(rs("userid"))%>" target=_blank onmouseout="kill()" onmouseover="popup('给<%=name%>发短消息','<%=tablebodycolor1%>')"><img border=0 src=images/message.gif hspace=1>消息</a></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table></td></tr></table>
<%
end sub
sub inputname()
%>
<br><br><form action="search.asp" method="post">
<input type=hidden name=action value=search>
<table cellpadding=0 cellspacing=0 border=0 width=80% bgcolor=<%=TableborderColor%> align=center>
<tr>
<td>
<table cellpadding=6 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=<%=TableTitleColor%> valign=middle colspan=2 align=center><img src=images/find.gif align=absmiddle width=30>
<b>查找校友</b></font></td></tr>
<tr>
<td bgcolor=<%=TablebodyColor2%> valign=middle width=40%>请输入校友真实姓名：</td>
<td bgcolor=<%=TablebodyColor1%> valign=middle><INPUT name=realname type=text> </td></tr>
<tr>
<td bgcolor=<%=TableTitleColor%> valign=middle colspan=2 align=center><input type=submit name="submit" value="查询"></td></tr></table></td></tr></table>
</form>
<%
end sub
function allfriends(byval realname)
tmprs=conn.execute("Select count(*) from [student] where realname='"&htmlencode(realname)&"'")
allfriends=tmprs(0)
set tmprs=nothing
if isnull(allfriends) then allfriends=0
end function
function classname(byval classid)
set tmprs=conn.execute("Select classname from [class] where classid="&classid)
if not tmprs.eof then
classname=tmprs(0)
else
classname="同学录游民"
end if
end function
%>
<!--#include file="footer.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -