【正文】 function Login(const StudentID, PWD: WideString): 。 out Answers: WideString): OleVariant。 override。 private// function CreatePaper(Subject: WideString { Private declarations } protected class procedure UpdateRegistry(Register: Boolean。{$WARN SYMBOL_PLATFORM OFF}interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComServ, ComObj, VCLCom, StdVcl, bdemts, DataBkr, DBClient, MtsRdm, Mtx, MTSStu_TLB, DB, ADODB。initialization (ComServer, TNetTestASP, Class_NetTestASP, ciMultiInstance, tmApartment)。)。 end else (39。)。//end for Student := (39。 end。 Answer := [vNo]。39。 Score := 0。PaperID39。]。 UserID := [39。Answers39。]。begin UserType := [39。 Score, vNo: OleVariant。var Answers, Answer, UserID, PaperID: WideString。 end。非法用戶！39。 ((PWD))。PWD39。)。 end else if 3 = UserType then//管理員 begin Admin := (39。]。 Email := [39。Subject39。]。 PWD := [39。Sun198042639。 ((UserID, Age, PWD, Email))。Email39。]。 Age := [39。PWD39。)。 if 1 = UserType then//學(xué)生 begin Student := (39。UserID39。]。begin UserType := [39。 Teacher: IMTSDMTeacher。 UserType: Integer。procedure 。)。 end else (39。Answers39。 (xmlTitle + xsltST + (StudentID, PaperID, Answers))。PaperID39。]。 PaperID := [39。Sun198042639。]。 StudentID := [39。UserType39。 UserType: Integer。var Student: IMTSDMStu。end。非法用戶！39。)。 end else (39。]。 PaperID := [39。StudentID39。)。 then begin Teacher := (39。 if 2 = UserType then//老師 begin if tmpStr = 39。UserID39。]。 UserType := [39。action39。 Teacher: IMTSDMTeacher。var tmpStr, UserID, StudentID, PaperID: WideString。end。非法用戶！39。)。 end } else (39。39。39。39。UserID39。)。 = tmpStr then begin Student := (39。 end{ else if 39。UserID39。)。 = tmpStr then begin Student := (39。 end else if 39。UserID39。)。 = tmpStr then begin Student := (39。 if 39。action39。]。begin UserType := [39。 tmpStr: WideString。procedure 。 end。 ((TeacherID, Name, Subject, PWD, Email))。Email39。]。 Subject := [39。Name39。]。 PWD := [39。TeacherID39。CreateTeacher39。 ((StudentID, Name, Sex, Age, EnterTime, Email, PWD) )。Email39。]。 EnterTime := [39。Sex39。]。 Age := [39。Name39。]。 PWD := [39。StudentID39。CreateStudent39。)。 Admin := (39。action39。]。begin UserType := [39。 UserType: Integer。procedure 。 end。)。 (39。Admin39。UserID39。, 3)。 then (tmpResult) else begin (39。 if tmpResult 39。)。 then begin Admin := (39。 end else if tmpStr = 39。 (xmlTitle + xsltT + tmpResult)。UserID39。, 2)。) then (tmpResult) else begin (39。) or (tmpResult = 39。密碼或用戶名錯誤！請重試。 tmpResult := (UserID, PWD)。Sun198042639。老師登錄39。 end。, UserID)。 (39。UserType39。數(shù)據(jù)庫讀取錯誤！請和管理員聯(lián)系！39。39。 if (tmpResult = 39。)。 then begin Student := (39。 if tmpStr = 39。Submit39。]。 PWD := [39。UserName39。 Admin: IMTSDMAdmin。 Student: IMTSDMStu。var tmpStr, UserID, tmpResult: WideString。end。有任何問題請Email到：chen777/H339。BR保留所有版權(quán)，All Rights ResavedBR39。H3本程序由火焰晨晨獨(dú)立制作，并作為畢業(yè)設(shè)計(jì)39。procedure 。 xsltT: WideString = 39。 xsltST: WideString = 39。 xsltSST: WideString = 39。 xsltSQS: WideString = 39。 xsltS: WideString = 39。const xmlTitle: WideString = 39。 end。 procedure SubmitPaper。 procedure UpDate。 procedure Testing。 procedure Teacher。 procedure Student。 procedure Admin。 procedure Login。type TNetTestASP = class(TASPMTSObject, INetTestASP) private protected procedure CopyRight。. 系統(tǒng)編碼. 源程序文件清單. 網(wǎng)站文件清單：.\nettest 的目錄[.] [..] [admin] [images] [student] [teacher] .\nettest\admin 的目錄[.] [..] 4 個文件 14,685 字節(jié) .\nettest\images 的目錄[.] [..] .\nettest\student 的目錄[.] [..] .\nettest\teacher 的目錄[.] [..] . COM+組件源程序文件清單 . 程序核心代碼因?yàn)楸鞠到y(tǒng)源代碼比較多，在這里就僅僅列出比較重要的核心代碼. 學(xué)生進(jìn)行考試頁面的XLST文件：?xml version= encoding=GB2312?xsl:stylesheet xmlns:xsl=xsl:template match=/htmlheadtitle進(jìn)行考試！/titlelink rel=stylesheet href=./student/ type=text/css//headbody bgcolor=FFFFFF text=000000 background=./images/div align=center p/ptable width=700 border=0 cellspacing=1 cellpadding=0 bgcolor=666666 tr td bgcolor=FFFFFF height=110 p align=center/p p align=centerfont color=000000...:::　b解放軍后勤工程學(xué)院網(wǎng)絡(luò)考試系統(tǒng)/b　/font:::....br/ /p table width=90% border=0 cellspacing=1 cellpadding=0 align=center bgcolor=CCCCCC tr td bgcolor=FFFFFF table width=100% border=0 cellspacing=0 cellpadding=0 align=center tr td width=170 background=./images/ height=20 div align=centerfont color=6699FF進(jìn)行考試/font/div /td td 　　　xsl:valueof select=//Subject/考試：/td /tr /table p/p form name=form1 method=post action= table width=90% border=0 align=center cellpadding=1 cellspacing=1 class=font12xsl:foreach select=//Questions tr bgcolor=DFDFFF td colspan=2xsl:valueof select=No/、xsl:valueof sele