|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般收集<%@Language=VBScript%>
<%
ifRequest.ServerVariables("http_method")="GET"then
假如是以GET体例哀求页面,则将页码定为1
page=1
endif
setrec=server.CreateObject("adodb.recordset")
rec.ActiveConnection="dsn=testsys"
rec.Source="select*fromsubinfowhereteachid="&session("teachid")&""
将课程表中一切teachid=以后教员编号的纪录查找出来
rec.Open,,1,3
ifRequest.ServerVariables("http_method")="POST"then
page=cint(Request.Form("page"))
ifRequest.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
endif
ifRequest.Form("submit")="修正"then
处置修正课程的哀求
rec.PageSize=1
将页码设置为以后页
rec.AbsolutePage=page
依据提交的课程内容举行修正
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"))
elseifRequest.Form("submit")="前一个"then
假如请求显现前一个纪录,则页码-1
page=page-1
else
请求显现后一个纪录,页码+1
page=page+1
endif
endif
ifnotrec.BOFandnotrec.EOFthen
假如课程纪录不为空
rec.PageSize=1
依据页码设定以后的纪录地位
rec.AbsolutePage=page
依据以后纪录获得课程信息
subname=rec("sub")
testtime=rec("testtime")
testnum=rec("testnum")
ifpage>1then
假如页码>1,则字符串变量prebut="false",依据该变量
在window_onload事务中设定按扭(id=submit3,value="前一个")
的disabled值决意该按扭是不是可用
以下的nextbut、revisebut变量感化相似
prebut="false"
else
假如以后页码<0则设定prebut="true"设定"前一个"按扭不成用
prebut="true"
endif
ifcint(page)<rec.PageCountthen
以后页码<最年夜页码,则设定"后一个"按扭可用
nextbut="false"
else
设定"后一个"按扭不成用
nextbut="true"
endif
修正按扭可用
revisebut="false"
else
revisebut="true"
prebut="true"
nextbut="true"
endif
dimpagecount以后课程的总数
pagecount=rec.PageCount
rec.Close
setrec=nothing
%>
<html>
<head>
<metaNAME="GENERATOR"Content=&</p>由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; |
|