转载计算机世界）
夏长虹 童亮 陈文博
一． 应用实例的分析与开发

---- 我们以学籍管理系统为背景，基于Windows DNA的思想，开发了一套应用系统。在该系统中，有关教务学籍的事务逻辑都是由定制COM组件来处理的，动态Web页面通过ASP脚本调用这些组件。系统在开发速度和软件质量等方面都优于不用COM组件而仅用ASP脚本的方案。为说明问题，我们通过一个定制组件和ASP脚本的主要代码简单介绍局部功能的实现过程。

---- 在displayscore.asp页面中接受、辨别用户的查询请求，做出不同的查询处理。当客户的身份为教师或教务时，可以查询所有学生的成绩；当客户的身份为学生时，只能查询该生本人的成绩。

---- 定制COM组件Score.dll进行查询处理。首先设计该组件的接口，为组件设置四个属性： Subj（课程）、Term（课程所属学期）、Class（查询的班级）和Stu_No（查询学生的学号）；定义两个方法：RequeryScores和RequeryAllScores，分别对教师、教务部门和学生的请求做出相应的处理，并将查询结果集返回给用户。

---- 以下是实现该组件Score.dll的部分关键代码。从中我们可以看到组件的接口是如何实现的：

Option Explicit
Private m_StuNo As Variant
Private m_Subj As String
Private m_Term As String
Private m_Class As String
  ' 设置属性为可写入的
Public Property Let StuNo(ByVal vNewValue As Variant)
m_StuNo = vNewValue
End Property
Public Property Let Subj(ByVal vNewValue As Variant)
m_Subj = vNewValue
End Property
......            
' 学生查询成绩请求处理
Public Function RequeryScores() As Object
Dim objContext As MTxAS.ObjectContext
Set objContext = GetObjectContext()
             ' 建立事务性组件
Dim ObjConn As ADODB.Connection
            ' 利用ADO访问数据库
Dim ObjRecordset As ADODB.Recordset
Set ObjConn = New ADODB.Connection
ObjConn.Open "xia", "sa", ""
Set ObjRecordset = New ADODB.Recordset
Dim query As String
' 根据查询要求（查询所有课程、查询特定学期的所有课程、
  查询指定课程、查询特定学期的某一课程）进行不同的查询操作
If (m_Subj = "all" And m_Term <> "all") Then
  query="select   Client_Name,Client.Client_No,Courses.subject,
         stu_score.score,stu_score.term,sub_type"
  query = query & " from client,stu_score,courses"
  query=query&"where client.client_no=stu_score.client_no
  and stu_score.subject=courses.subject
  and courses.term=stu_score.term
  and courses.term='" & m_Term & "'
  and Client.Client_no='" & m_StuNo & "'"
End If
......
ObjRecordset.Open query, ObjConn
         ' 进行数据库查询
ObjContext.SetComplte
             ' 若事务成功完成，则提交该事务
RequeryScoresExit:
Set RequeryScores = ObjRecordset
          ' 返回查询结果集
Exit Function
RequeryScoresErr:
Set RequeryScores=Nothing
           ' 事务失败处理
End Function
' 教师、教务查询成绩请求处理
Public Function RequeryAllScores() As Object
......
End Function
---- 在ASP页面displayscore.asp中引用组件，ASP代码如下（其中加粗的部分便是对该组件的调用）：
< %@ LANGUAGE="VBSCRIPT" % >
< HTML >
< HEAD >
< META NAME="GENERATOR" Content="Microsoft
Visual InterDev 1.0" >
< META HTTP-EQUIV="Content-Type"
content="text/html; charset=gb_2312-80" >
< TITLE >Show To Teacher< /TITLE >
< /HEAD >
< BODY background="images/bk.GIF" >
< %
  dim objResult
  set objResult=Server.CreateObject("Display.Score")
  dim Term,Subject
  Term=Cstr(Request.Form("Term"))
  Subject=Cstr(Request.Form("Subject"))
  objResult.term=Request.Form("term")
  objResult.Subj=RequestForm("Subject")
  objresult.class=Request.Form("Class")
  dim Scores
  set Scores=objResult.RequeryAllScores
  % >
' 以下代码为显示处理的结果
< div align="center" >< center >
......
< table border="0" cellpadding="0"
cellspacing="1" width="10