|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!收集<%@Language=VBScript%>
<%
ifRequest.ServerVariables("http_method")="POST"then
提交体例对试题举行操纵
setmrs=server.CreateObject("adodb.recordset")
mrs.ActiveConnection="dsn=testsys"
mrs.Source="select*fromquestionwhereteachid="&session("teachid")&"andsub="&Request.Form("selsub")&""
翻开与以后教员编号和选择课程的称号分歧的recordset
mrs.Open,,1,3
ifRequest.Form("submit")="删除"then
实行删除操纵
page=Request.Form("page")
指向要删除的纪录
mrs.PageSize=1
mrs.AbsolutePage=page
删除并更新
mrs.Delete
mrs.Update
ifRequest.Form("page")>1then
page=Request.Form("page")-1
else
page=1
endif
endif
ifRequest.Form("submit")="修正"then
实行修正操纵
page=Request.Form("page")
指向要修正的纪录
mrs.PageSize=1
mrs.AbsolutePage=page
依据提交的内容修正以后纪录
mrs("teachid")=session("teachid")
mrs("sub")=Request.Form("selsub")
mrs("question")=Request.Form("question")
mrs("A")=Request.Form("opta")
mrs("B")=Request.Form("optb")
mrs("C")=Request.Form("optc")
mrs("D")=Request.Form("optd")
mrs("answer")=Request.Form("answer")
mrs.Update
page=Request.Form("page")
elseifRequest.Form("submit")="前一个"then
实行检察前一个纪录的哀求
page=Request.Form("page")-1
elseifRequest.Form("submit")="后一个"then
实行检察后一个纪录的哀求
page=Request.Form("page")+1
elseifRequest.Form("submit")="断定"then
从选择课程的页面进进该页面时,将页数设定为1
page=1
endif
ifnotmrs.BOFandnotmrs.EOFthen
假如选择的数据库不为空
mrs.PageSize=1
mrs.AbsolutePage=page
寄存标题总数的变量
quesnum=mrs.PageCount
寄存以后标题序号的变量
currques=page
寄存标题内容的变量
question=mrs("question")
寄存标题选择谜底A-D内容的变量
opta=mrs("A")
&nb</p>当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 |
|