📄 subjectmodify.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
pageth=Request.QueryString("pageth")
'判断页数是否为空
if pageth="" then pageth="1"
'判断页数是否为数字
if not IsNumeric(pageth) then pageth="1" '21
'判断数字是否大于总页数
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 '39
%>
<tr align=middle>
<td><%=rs1(0)%> </td>
<td><%=rs1(1)%> </td>
<td><%=rs1(2)%> </td>
<td ><a href=SubjectModify.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 '53
%>
<tr>
<td colspan=4>
<%
'如果当前页不是第一页，则显示;
if pageth<>1 then
%>
<A href="SubjectModify.asp?pageth=1">第一页</a> |
<A href="SubjectModify.asp?pageth=<%=pagepre%>">上一页</a> |
<%
end if '65
'如果当前页不是最后一页，则显示;
if pageth<>rs1.PageCount then
%>
<A href="SubjectModify.asp?pageth=<%=pagenext%>">下一页</a>
<A href="SubjectModify.asp?pageth=<%=rs1.PageCount%>">最后一页</a> |
<%
end if '72
%>
转向第<input name="pageth" size=2>页
<input type="submit" value=" GO " id=submit1 name=submit1>
</td>
</tr>
</table></form>
<%
'dim subjectName1,sqlstring, subjectID1
session("subjectID")=Request.QueryString("id")
'subjectName1=""
if session("subjectID")>0 then
Response.Redirect("SModify.asp")
end if
%>
<%
rs1.Close
set rs1=nothing
conn.Close
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -