?? taddsub.asp
字號:
<%@ Language=VBScript %>
<%
db="testsys.MDB"
if Request.ServerVariables("http_method")="GET" then
'如果是以GET方式請求頁面，則將頁碼定為1
page=1
end if
set rec=server.CreateObject("adodb.recordset")
rec.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
rec.Source="select * from subinfo where teachid='" & session("teachid") & "'"
'將課程表中所有teachid=當前教師編號的記錄查找出來
rec.Open ,,1,3
if Request.ServerVariables("http_method")="POST" then
page=cint(Request.Form("page"))
if Request.Form("submit")="加入" then
'處理加入新的課程的請求
rec.AddNew
rec("teachid")=session("teachid")
rec("sub")=Request.Form("subname")
rec("testtime")=Request.Form("testtime")
rec("testnum")=Request.Form("testnum")
rec.Update
end if
if Request.Form("submit")="修改" then
'處理修改課程的請求
rec.PageSize=1
'將頁碼設(shè)置為當前頁
rec.AbsolutePage=page
'根據(jù)提交的課程內(nèi)容進行修改
rec("teachid")=session("teachid")
rec("sub")=Request.Form("subname")
rec("testtime")=Request.Form("testtime")
rec("testnum")=Request.Form("testnum")
rec.Update
page=cint(Request.Form("page"))
elseif Request.Form("submit")="前一個" then
'如果要求顯示前一個記錄，則頁碼-1
page=page-1
else
'要求顯示后一個記錄，頁碼+1
page=page+1
end if
end if
if not rec.BOF and not rec.EOF then
'如果課程記錄不為空
rec.PageSize=1
'根據(jù)頁碼設(shè)定當前的記錄位置
rec.AbsolutePage=page
'根據(jù)當前記錄取得課程信息
subname=rec("sub")
testtime=rec("testtime")
testnum=rec("testnum")
if page>1 then
'如果頁碼>1，則字符串變量prebut="false"，根據(jù)該變量
'在window_onload事件中設(shè)定按扭(id=submit3,value="前一個")
'的disabled值決定該按扭是否可用
'以下的nextbut、revisebut變量作用類似
prebut="false"
else
'如果當前頁碼<0則設(shè)定prebut="true"設(shè)定"前一個"按扭不可用
prebut="true"
end if
if cint(page)<rec.PageCount then
'當前頁碼<最大頁碼，則設(shè)定"后一個"按扭可用
nextbut="false"
else
'設(shè)定"后一個"按扭不可用
nextbut="true"
end if
'修改按扭可用
revisebut="false"
else
revisebut="true"
prebut="true"
nextbut="true"
end if
dim pagecount '當前課程的總數(shù)
pagecount=rec.PageCount
rec.Close
set rec=nothing
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onload() {
<%'以下為根據(jù)各個變量初始化表單form1的各個元素%>
<%'根據(jù)字符串變量prebut,nextbut,revisebut決定相應(yīng)的按扭是否可用%>
form1.prebut.disabled=<%=prebut%>
form1.nextbut.disabled=<%=nextbut%>
form1.revisebut.disabled=<%=revisebut%>
<%'根據(jù)字符串變量subname、testtime、testnum初始化相應(yīng)的文本框%>
form1.txtsubname.value="<%=subname%>"
form1.txttestnum.value="<%=testtime%>"
form1.txttesttime.value="<%=testtime%>"
<%'根據(jù)變量page的值初始化文本框txtpage的值，該文本框為hidden類型，用于
'在頁面間傳遞當前頁碼值%>
form1.txtpage.value="<%=page%>"
}
//-->
</SCRIPT>
</head>
<body LANGUAGE=javascript onload="return window_onload()">
<form action="taddsub.asp" method="post" id="form1" name="form1">
<%
Response.Write "課程總數(shù):" & PageCount & "/"
Response.Write "當前課程:" & page
%>
<p>
<table border="0" cellPadding="1" cellSpacing="1" width="75%">
<tr>
<td>
<div align="center"><font color="crimson" face="幼圓" size="4">
<strong>新增加考試科目</strong></font></div>
</td></tr>
<tr>
<td>增加科目
<input id=txtsubname name="subname" ></td></tr>
<tr>
<td>考試時間
<input id=txttesttime name="testtime">（分鐘）
<tr>
<td>考試題量
<input id=txttestnum name="testnum">
</table></p>
<p><input id=addbut name="submit" type="submit" value="加入">
<input id=revisebut name="submit" type="submit" value="修改">
<input id=prebut name="submit" type="submit" value="前一個" >
<input id=nextbut name="submit" type="submit" value="后一個" ></p>
<input type="hidden" id=txtpage name="page" >
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -