📄 subjectdel.asp
字号:
<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<html>
<head>
</head>
<body>
<P align="center"><STRONG><FONT face="华文彩云" size=6 color=darkred>课程删除</FONT></STRONG></P>
<%
const N=3
set rs1=server.CreateObject("adodb.recordset")
rs1.PageSize=N
rs1.Open "select * from course ORDER BY 课程编号",conn,adOpenStatic
set myrs1=server.CreateObject("adodb.recordset")
pageth=Request.QueryString("pageth")
'判断页数是否为空
if pageth="" then pageth="1"
'判断页数是否为数字
if not IsNumeric(pageth) then pageth="1"
'判断数字是否大于总页数
pageth=cint(pageth)
if pageth>rs1.PageCount then pageth=rs1.PageCount
rs1.AbsolutePage=pageth
%>
<form method="get" id=form1 name=form1>
<table align=center border=1 cellpadding=0 cellspacing=0 width="80%">
<tr><td colspan="4">共有<%=rs1.RecordCount%> 条记录,每页<%=N%> 条，共<%=rs1.PageCount%> 页，当前是第<%=rs1.AbsolutePage%>页</td></tr>
<tr align=middle>
<td width="8%"><b>课程编号</b></td>
<td width="30%"><b>课程名称</b></td>
<td width="15%"><b>学期</b></td>
<td width="15%"><b>操作</b></td>
</tr>
<%
for i=1 to N
%>
<tr align=middle>
<td><%=rs1(0)%> </td>
<td><%=rs1(1)%> </td>
<td><%=rs1(2)%> </td>
<td ><a href=SubjectDel.asp?id=<% =rs1(0) %> >删除</a></td>
</tr>
<%
rs1.MoveNext
if rs1.EOF then exit for '避免存在半页时循环出现问题；
next
pagepre=pageth-1
pagenext=pageth+1
if pagepre<1 then pagepre=1
if pagenext>rs1.PageCount then pagenext=rs1.PageCount
%>
<tr>
<td colspan=4>
<%
'如果当前页不是第一页，则显示;
if pageth<>1 then
%>
<A href="SubjectDel.asp?pageth=1">第一页</a> |
<A href="SubjectDel.asp?pageth=<%=pagepre%>">上一页</a> |
<%
end if
'如果当前页不是最后一页，则显示;
if pageth<>rs1.PageCount then
%>
<A href="SubjectDel.asp?pageth=<%=pagenext%>">下一页</a>
<A href="SubjectDel.asp?pageth=<%=rs1.PageCount%>">最后一页</a> |
<%
end if
%>
转向第<input name="pageth" size=2>页
<input type="submit" value=" GO " id=submit1 name=submit1>
</td>
</tr>
</table></form>
<%
%>
<%
dim subjectID1,sqlstring '87
subjectID1=Request.QueryString("id")
if subjectID1>0 then
sqlstring=" select count(*) from test_questions_store where 课程编号 =" & subjectID1 & " "
'Response.Write sqlstring
myrs1.Open sqlstring, conn,adOpenStatic
if myrs1(0)>0 then
%>
<script language="javascript">
<!--
window.alert("该课程下已经有题目，必须先删除题目再删除课程。");
-->
</script>
<%
else
sqlstring="delete from course where 课程编号 =" & subjectID1 & ""
conn.Execute(sqlstring)
%>
<script language="javascript">
<!--
window.alert("已成功删除。");
-->
</script>
<%
end if
myrs1.Close
end if
%>
<%
rs1.Close
conn.Close
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -