|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。select|收集<%@Language=VBScript%>
<%
ifRequest.Form("selsub")""then
假如选择了考科目,则进进测验界面
marray=split(Request.Form("selsub"),",")
保留测验科目标教员编号
session("teachid")=trim(marray(0))
保留测验科目称号
session("subname")=trim(marray(1))
保留考题数目
session("testnum")=trim(marray(2))
保留测验工夫
session("testtime")=trim(marray(3))
保留入手下手工夫
session("starttime")=now()
进进测验界面
Response.Redirect"screatefrm1.asp"
endif
%>
<html>
<head>
<metaNAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</head>
<body>
<formaction="stselectsub.asp"method="post"id="form1"name="form1">
<p><fontface=""size="2">你已进进收集科场,必需恪守科场划定规矩,注重测验工夫</font></p>
<STRONG><FONTsize=4color=bluevioletface=隶书>
<%Response.Writesession("stname")%>
</FONT></STRONG>
<palign=center>
<tableborder="1"cellPadding="1"cellSpacing="1"width="75%">
<tr>
<tdcolSpan="3">
<divalign="center"><FONTcolor=crimsonface=幼圆
size=4><STRONG>选择测验科目</STRONG></FONT></div>
<tr>
<td>科目</td>
<td>任课先生</td>
<td>测验工夫</td></tr>
<%
创立两个数据库毗连工具conn和conn2
setconn=server.CreateObject("adodb.connection")
setconn2=server.CreateObject("adodb.connection")
conn2.ConnectionString="dsn=testsys"
conn.ConnectionString="dsn=testsys"
conn.Open
conn2.Open
strsql="selectsubinfo.sub,subinfo.teachid,subinfo.testtime,subinfo.testnum,teacherinfo.teachnamefromsubinfo,teacherinfowheresubinfo.teachid=teacherinfo.teachid"
第一个数据库毗连工具查询一切的测验科目信息(包含称号、测验工夫、标题数目、开课教员的姓名及编号
setmrs=conn.Execute(strsql)
whilenotmrs.eof
Response.Write"<tr>"
第二个数据库毗连工具查询响应科目先生是不是已有了成就
setmrs2=conn.Execute("select*fromscorewherestid="&session("stid")&"andsub="&mrs("sub")&"andteachid="&mrs("teachid")&"")
ifnotmrs2.eofthen
假如响应科目先生已有了成就,则标识为已考
Response.Write"<td>"&mrs("sub")&"已考("&mrs2("score")&")"&"</td>"
else
不然供应radio选择测验科目,每一个radio的value当中包括测验科目标信息
(如开课教员的编号,课程称号,测验工夫及数目)
Response.Write"<td><inputname=selsubtype=radiovalue="&mrs("teachid")&","&mrs("sub")&","&mrs("testnum")&","&mrs("testtime")&">"&mrs("sub")&"</td>"
endif
setmrs2=nothing
Response.Write"<td>"&mrs("teachname")&"</td>"
Response.Write"<td>"&mrs("testtime")&"</td></tr>"
mrs.movenext
wend
封闭数据库毗连
conn.Close
conn2.Close
清空工具变量
setconn=nothing
setconn2=nothing
%>
</table></p>
<p><inputid="submit1"name="submit1"type="submit"value="确认"></p>
</form>
</p>ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失; |
|