ASP网页编程之收集科场（6）（转）stselectsub.asp
在实现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系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失； 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。
页:
[1]