📄 del.asp
字号:
<!-- #include file="top.asp" -->
<!-- #include file="delsub.asp" -->
<html>
<head>
<script type="text/javascript">
function SelectAll(delid)
{
var a = document.getElementsByName(delid);
for (var i=1; i<a.length; i++){
a[i].checked = a[0].checked;
}
}
</script>
</head>
<body>
<h4>同学信息列表</h4>
<%
'判断用户是否具有删除数据的权限
if Session("level") < 2 then
Response.write"您没有操作权限或连接已经超时，请重新登录！"
Response.end
end if
Set rs=Server.CreateObject("Adodb.recordSet")
Con="Provider=sqloledb;Data Source=(local);Initial Catalog=txl;User ID=sa;Password=;"
'判断用户是否点击了“删除按钮”
if Request.Form("del")="确定删除" then
delsub
Response.end
end if
'判断用户是否指定了搜索条件
who=Request.Form("who")
if Request.Form("sel")="查找" and who <> "" then
sql="select * from t_student where d_name='"&who&"' order by d_class,d_no"
else
sql="select * from t_student order by d_class,d_no"
end if
'Response.write(sql)
'Response.end
'rs.Open sql,Con,AdOpenStatic,adlockreadonly,adcmdtext
rs.Open sql,Con,1,1
if rs.eof then
Response.write"<p>对不起，数据库中没有数据！</p>"
Response.end
end if
rs.PageSize=9
if not isnumeric(request("page")) then
NowPage=1
else
NowPage=Clng(Request("page"))
end if
if NowPage="" then NowPage=1
if NowPage < 1 then NowPage=1
if NowPage > rs.PageCount then NowPage=rs.PageCount
rs.AbsolutePage=NowPage
%>
<form action="del.asp" method="post" name="formdel">
<p>请输入学生姓名：<input type="text" name="who" size="12">
<input type="submit" name="sel" value="查找"></p>
<table border="1" width="776" bordercolor="#666699">
<tr align=center valign=middle height=23>
<td><b>班级</b></td>
<td><b>学号</b></td>
<td><b>姓名</b></td>
<td><b>性别</b></td>
<td><b>年龄</b></td>
<td><b>联系电话</b></td>
<td><b>地址</b></td>
<td><b>单位</b></td>
<td><b>电子邮件</b></td>
<td><b>备注</b></td>
<td><b><input type="checkbox" name="delid" onClick="SelectAll('delid')" value="">全选</b></td>
</tr>
<%
'输出当前页面记录
for j=0 to rs.PageSize-1
Response.Write"<tr align=center valign=middle>"
for i=0 to rs.fields.count-1
Response.write"<td>" & rs.fields(i).value & " </td>"
next
Response.write"<td><input type='checkbox' name='delid' value='"&rs("d_class")&"s"&rs("d_no")&"'>删除</td>"
Response.write"</tr>"
rs.MoveNext
if rs.eof then Exit for
next
Response.Write"</table><br>"
'输出首页，上一页，下一页和尾页对应的链接
if NowPage <> 1 then
Response.Write"<a href='del.asp?page=1'>首页</a>"
Response.write" "
Response.Write"<a href='del.asp?page="&NowPage-1&"'>上一页</a>"
end if
if NowPage <> rs.PageCount then
Response.write" "
Response.Write"<a href='del.asp?page="&NowPage+1&"'>下一页</a>"
Response.write" "
Response.Write"<a href='del.asp?page="&rs.PageCount&"'>尾页</a>"
end if
%>
<p>数据页数 <% =NowPage %>/<% =rs.PageCount %>
请输入页号：<input type="text" name="page" size="4">
<input type="submit" name="go" value="转到">
<input type="reset" value="取消">
</p>
<p><input type="submit" name="del" value="确定删除"></p>
</form>
<!-- #include file="bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -