📄 default.asp
字号:
<%@ language=VBScript %>
<%
if session("AdminName") = "" then
response.Redirect "index.htm"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
set rec=server.CreateObject("adodb.recordset")
sqlstr="select * from info"
rec.open sqlstr,conn,1,3
rec.pageSize=10
if request("page")="" then
rec.absolutePage=1
else
rec.AbsolutePage=request("page")
end if
%>
<html>
<head>
<title>后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.9p { font-family: "宋体"; font-size: 9pt; line-height: 18px}
.10p { font-family: "宋体"; font-size: 10pt; line-height: 22px}
.12p { font-family: "宋体"; font-size: 12pt; line-height: 18px}
.style1 {color: #FF0000}
table.MsoNormalTable
{mso-style-parent:"";
font-size:10.0pt;
font-family:"Times New Roman";
}
-->
</style>
<link href="../braveboy.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#5F836A" text="#000000" topmargin="0">
<div align="center">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr><td height="135" ><img src=../wydc.JPG width="760" height="135"></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td width="121" height="1" bgcolor="#FFFFFF"></td>
<td height="215" rowspan="2" valign="top">
<table width="99%" border="0" align="center" class="9p">
<tr>
<td align=center class=9p>
<table width="557" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=80></td>
<td width="303"><img src="../yjwj.gif" width="315" height="100"></td>
<td width="254"><img src="../dhy.gif" width="236" height="100"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align=center class=9p><div align="left">欢迎<font color="#FF0000"><%=session("AdminName")%></font>光临..后台管理系统>><a href="loginout.asp">退出管理</a>>>修改管理员密码:请
直接输入新密码：<form method="POST" action="modify.asp?id=1">
用户名：<input type="text" name="username" size="20" value="<%=session("AdminName")%>">密码：<input type="text" name="password" type=password size="20"><input type="submit" value="提交" name="B1">
</form>
</div></td>
</tr>
<tr>
<td align=center class=9p><table width="632" border="1">
<tr>
<td width="24" align="center">ID</td>
<td width="52" align="center">姓名</td>
<td width="164" align="center">
<p class="MsoNormal" align="center">所得分数</td>
<td width="168" align="center">联系电话</td>
<td width="127" align="center">答卷日期</td>
<td width="57" align="center">操作</td>
</tr>
<%for i=1 to rec.PageSize
if rec.EOF then exit for%>
<tr>
<td><%=rec("ID")%> </td>
<td><%=rec("username")%> </td>
<td><%=rec("score")%></td>
<td><%=rec("tel")%></td>
<td><%=rec("addtime")%></td>
<td> <a href="del.asp?id=<%=rec("id")%>">删除</a></td>
</tr>
<%
rec.movenext
next
%>
</table></td>
</tr>
<tr>
<td align=center class=9p></td>
</tr>
<tr>
<td align=center class=9p></td>
</tr>
</table><p align="center"></p>
<div align="center"><% for i=1 to rec.pageCount
if trim(request.QueryString("page")<>trim(i)) then
response.Write"[<a href='default.asp?page="& i &"'> 第" & i &" 页</a>] "
else
response.Write"[ 第" & i &" 页</a>] "
end if
next
rec.close
set rec=nothing
%>
</div></td>
</tr>
<tr>
<td width="121" height="420" bgcolor="73B6FA"> </td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -