📄 admin.asp
字号:
<%@ language="VBscript" %>
<% option explicit %>
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body { font-size: 9pt;line-height: 12pt}
td { font-size: 9pt;line-height: 12pt}
a {color: #000000; text-decoration: none}
a:hover {text-decoration: underline;color: #ff0000;}
-->
</style>
<script language=javascript>
<!--
function check()
{
if(document.login.name.value=="")
{alert("姓名不能为空^_^");return false}
if(document.login.age.value=="")
{alert("年龄不能为空^_^");return false}
if(document.login.sex.value=="")
{alert("性别不能为空^_^");return false}
if(document.login.city.value=="")
{alert("城市不能为空^_^");return false}
if(document.login.xl.value=="")
{alert("学历不能为空^_^");return false}
if(document.login.zy.value=="")
{alert("您得告诉我们您想要学的专业吧?");return false}
if(document.login.tel.value=="")
{alert("联系电话不能为空^_^");return false}
if(document.login.comments.value=="")
{alert("个人简介不能为空^_^");return false}
}
-->
</script>
<%
dim strsql,page,total,mypagesize
strSQL= "SELECT * FROM gb_data Order By date DESC"
dim rs
set rs = server.createobject("ADODB.recordset")
rs.open strSQL, db, 1,3
%>
<title></title>
</head>
<body topmargin="6">
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000">
<tr>
<td bgcolor="#CCCCCC">
<div align="center"><b>网上报名程序</b>
<%
if rs.eof or rs.bof then
response.write "<table width='740' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='4B4B4B' class='table'><tr><td><div align='center'><font color=#000000>暂时未有任何留言，请您留言。</font></div></td></tr></table>"
else
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize =5
total = rs.RecordCount
mypagesize=rs.pagesize
rs.absolutepage = page
%>
</div>
<table width="740" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="table">
<td height="11" valign="top" bgcolor="f5f5f5" >
<%
dim i
i=1
do while not rs.eof and mypagesize>0
%></td>
</tr>
<tr class="table">
<td height="96" valign="top" bgcolor="#f5f5f5" ><font color="#000000">报名学生个人资料</font><br>
<font color="#000000">
姓名：<b>
[<% response.write(rs("name")) %>] </b>年龄：
[<% response.write(rs("age"))%>] 性别：
[<% response.write(rs("sex"))%>] 城市：
[<% response.write(rs("city"))%>] 学历：
[<% response.write(rs("xl"))%>] 所报专业：
[<% response.write(rs("zy"))%>] <br>信箱：
[<% response.write(rs("email"))%>]
报名时间：
[<% response.write(rs("date")) %>] 联系电话：</font>
[<% response.write(rs("tel")) %>]<br>==========================================================<br>
<font color="#000000">
<% response.write(rs("comments")) %></font></td>
</tr>
</table>
<div align="center">
<%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
%>
</div>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table" height="33">
<form name="form2" method="post" action="default.asp">
<tr>
<td height="6" align="right" bgcolor="#CCCCCC"> </td>
</tr>
<tr>
<td height="27" align="right" bgcolor="#f5f5f5"><div align="center"><font color="#000000">共<b><%=rs.pagecount%></b>页<b><%=total%></b>条报名信息
当前第<b><%=page%></b>页 <a href="default.asp?page=1">首页</a>
<%if page>1 then%>
<a href=default.asp?page=<%=page-1%>>上一页</a>
<%else%>
上一页
<%end if%>
<%if page<rs.pagecount then%>
<a href=default.asp?page=<%=page+1%>>下一页</a>
<%else%>
下一页
<%end if%>
<a href=default.asp?page=<%=rs.pagecount%>>尾页</a>
<select name="page" class="table1">
<%for i=1 to rs.pagecount%>
<option value=<%=i%>
<%
if i=page then
response.write"选择"
end if
%>
><%=i%></option>
<%next%>
</select>
<input name="Submit22" type="submit" class="table1" value="转向">
</font></div></td>
</tr>
</form>
</table> </td>
</tr>
</table>
<%end if%>
<%
rs.close
set rs = nothing
db.close
set db = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -