📄 search.asp
字号:
ClassNameS="班级没填"
ClassIDS=0
End IF
%>
<a href="classinfo.asp?id=<%=ClassIDS%>"><%=ClassNameS%></a>
<%=Whether1(SearchRS("姓名"))%></td>
</tr>
<%
SearchRS.MoveNext
Loop
%>
<%Else%>
<tr>
<td width="100%" height="22">
<p align="center"><b><font color="#FF0000">对不起,找不到你要搜索的学生信息!</font></b></td>
</tr>
<%End IF%>
<tr>
<td width="100%">
<hr width="90%" color="#EDEDED">
</td>
</tr>
<tr>
<td width="100%">
</td>
</tr>
</table>
</td>
<td width="34%" style="border-left: 1 solid #000000" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" >
<%IF Session("User")<>"" Then%>
<%
SQL="SELECT * FROM 注册信息 WHERE 姓名='"& Session("User") &"'"
Set UserRS=Server.CreateObject("ADODB.Recordset")
UserRS.Open SQL,Conn,1,1
If UserRS.Eof Then
Response.Redirect "error.asp"
End IF
%>
<tr>
<td height="205" valign="middle"><!--#include file="function/personal.asp"--></td>
</tr>
<%Else%>
<tr>
<td height="90"><!--#include file="function/info1.asp"--></td>
</tr>
<tr>
<td height="25" bgcolor="#EDEDED" style="border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="12%">
<p align="right"><img border="0" src="images/den.gif"></td>
<td width="86%" valign="bottom"> <font color="#FF0000"><b>登录校友录首页</b></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="95">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<form action="logon.asp" method="post">
<tr>
<td width="32%" align="right" valign="bottom">
<p style="margin-top: 5">姓名:</p>
</td>
<td width="68%">
<p style="margin-top: 5"><input type=text name="Name" size=12 maxlength=12 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 106; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></p>
</td>
</tr>
<tr>
<td width="32%" align="right" valign="bottom">密码:</td>
<td width="68%"><input type=password name="Password" size=12 maxlength=16 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 106; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center" style="margin-top: 3; margin-bottom: 3"><INPUT type=submit value=' 登 录 ' name=Submit style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 69; border: 1px groove #000000; background-position: 0% 50%">
<INPUT type=reset value=' 取 消 ' name=Submit style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 69; border: 1px groove #000000; background-position: 0% 50%"></td>
</tr>
</form>
<tr>
<td width="100%" colspan="2">
<p align="center" style="margin-top: 3; margin-bottom: 3"><a href="forgetpassword.asp">忘记密码了怎么办?</a></td>
</tr>
</table>
</td>
</tr>
<%End IF%>
<tr>
<td bgcolor="#EDEDED" height="25" style="border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" valign="middle">
<p align="right"><img border="0" src="images/top.gif"></td>
<td width="88%" valign="bottom"> <font color="#545454">最新信息发布
TOP4</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="74">
<p style="line-height: 150%; margin-left: 5; margin-top: 2; margin-bottom: 2"><!--#include file="function/infotop4.asp"--></td>
</tr>
<tr>
<td width="100%" bgcolor="#EDEDED" height="25" style="border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="12%">
<p align="right"><img border="0" src="images/top.gif"></td>
<td width="88%"> <font color="#545454">最新真情祝福
TOP4</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="74">
<p style="line-height: 150%; margin-left: 5; margin-top: 2; margin-bottom: 2"><!--#include file="function/wishtop4.asp"--></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="middle" colspan="2" style="border-top: 1 solid #000000;" bgcolor="#EDEDED" height="27">
<p style="margin-top: 5" align="center">
<%
dim userip,userip2
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
userip2 = Request.ServerVariables("REMOTE_ADDR")
if userip = "" then
response.write "您的真实IP 是:"&userip2&","
else
response.write "您的真实IP 是:"&userip&","
end if
response.write usersysinfo(Request.ServerVariables("HTTP_USER_AGENT"),2)&","&usersysinfo(Request.ServerVariables("HTTP_USER_AGENT"),1)
%>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -