📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="function/ifziliao.asp"-->
<!--#include file="function/messagecount.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<title><%=WebSiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="top.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top">
<!--#include file="left.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<!--#include file="navigation.asp"-->
<tr>
<td width="66%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="66%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<div align="center">
<center>
<table border="0" width="95%" cellspacing="0" cellpadding="0" style="border: 1 solid #000000">
<form action="search.asp" method="post">
<tr>
<td width="100%" background="images/bg2.gif" height="22" colspan="4"><img border="0" src="images/find.gif"></td>
</tr>
</center>
<tr>
<td width="22%" valign="bottom">
<p align="right" style="margin-top: 3">真实姓名：</p>
</td>
<td width="26%">
<p style="margin-top: 3" align="left"><input type=text name="Name" size=12 maxlength=12 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 85; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
<td width="22%" valign="bottom">
<p style="margin-top: 3" align="right">网络昵称：</p>
</td>
<td width="38%">
<p style="margin-top: 3" align="left"><input type=text name="NickName" size=12 maxlength=12 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 85; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
</tr>
<tr>
<td width="22%" valign="bottom">
<p align="right">OICQ号码：</td>
<td width="19%">
<p align="left"><input type=text name="OICQ" size=12 maxlength=12 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 85; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
<td width="22%" valign="bottom">
<p align="right">邮件地址：</td>
<td width="33%">
<p align="left"><input type=text name="Email" size=12 maxlength=12 style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 85; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
</tr>
<center>
<tr>
<td width="100%" colspan="4">
<p style="margin-left: -1; margin-top: 2; margin-bottom: 3">
<font color="#FF0000">（可按多个条件同时搜索校友信息）</font>
<INPUT type=submit value=' 搜 索 ' name=Submit style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 85; border: 1px groove #000000; background-position: 0% 50%">
</td>
</tr>
</form>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%" height="10" colspan="2"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><img border="0" src="images/info.gif"></td>
</tr>
<%
SQL="Select Top 10 * From 信息发布 Order By ID Desc"
Set RS1=Server.CreateObject("ADODB.Recordset")
Dim Info(9)
Dim InfoURL(9)
RS1.Open SQL,Connstr,1,1
I=0
Do While Not RS1.Eof
Info(I)=RS1("主题")
InfoURL(I)=RS1("ID")
RS1.MoveNext
I=I+1
Loop
%>
<%For I=0 to 4%>
<tr>
<td width="50%" valign="top" height="22">
<p style="margin-left: 20">·<%Response.Write "<a href='infodisplay.asp?id=" & InfoURL(I) & "'>" & Mid(Info(I),1,10) & "..." & "</a>"%>
</td>
<td width="50%" valign="top" height="22">
<p style="margin-left: 20">·<%Response.Write "<a href='infodisplay.asp?id=" & InfoURL(I+5) & "'>" & Mid(Info(I+5),1,10) & "..." & "</a>"%>
</td>
</tr>
<%Next%>
<tr>
<td width="100%" colspan="2">
<p align="right"><a href="infoindex.asp">更多信息...</a></td>
</tr>
<tr>
<td width="100%" colspan="2" height="10"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><img border="0" src="images/wish.gif"></td>
</tr>
<%
SQL="Select Top 10 * From 真情祝福 Order By ID Desc"
Set RS1=Server.CreateObject("ADODB.Recordset")
RS1.Open SQL,Connstr,1,1
I=0
Do While Not RS1.Eof
Info(I)=RS1("内容")
InfoURL(I)=RS1("ID")
RS1.MoveNext
I=I+1
Loop
%>
<%For I=0 to 4%>
<tr>
<td width="50%" valign="top" height="22">
<p style="margin-left: 20">·<%Response.Write "<a href='wishdisplay.asp?id=" & InfoURL(I) & "'>" & Mid(Info(I),1,10) & "..." & "</a>"%>
</td>
<td width="50%" valign="top" height="22">
<p style="margin-left: 20">·<%Response.Write "<a href='wishdisplay.asp?id=" & InfoURL(I+5) & "'>" & Mid(Info(I+5),1,10) & "..." & "</a>"%>
</td>
</tr>
<%Next%>
<tr>
<td width="100%" colspan="2">
<p align="right"><a href="wishindex.asp">更多祝福...</a></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"-->
</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 "您的真实ＩＰ 是："&userip2&"，"
else
response.write "您的真实ＩＰ 是："&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 + -