【正文】 if (tmpResult = 39。密碼或用戶名錯誤！請重試。39。) or (tmpResult = 39。數(shù)據(jù)庫讀取錯誤！請和管理員聯(lián)系！39。) then (tmpResult) else begin (39。UserType39。, 1)。 (39。UserID39。, UserID)。 (xmlTitle + xsltS + tmpResult)。 end。 end else if tmpStr = 39。老師登錄39。 then begin Teacher := (39。Sun198042639。)。 tmpResult := (UserID, PWD)。 if (tmpResult = 39。密碼或用戶名錯誤！請重試。39。) or (tmpResult = 39。數(shù)據(jù)庫讀取錯誤！請和管理員聯(lián)系！39。) then (tmpResult) else begin (39。UserType39。, 2)。 (39。UserID39。, UserID)。 (xmlTitle + xsltT + tmpResult)。 end。 end else if tmpStr = 39。管理員登錄39。 then begin Admin := (39。Sun198042639。)。 tmpResult := (PWD)。 if tmpResult 39。OK39。 then (tmpResult) else begin (39。UserType39。, 3)。 (39。UserID39。, 39。Admin39。)。 (39。./admin/39。)。 end。 end。end。procedure 。var Subject, PWD, Email, Age, Sex, Name, tmpStr, EnterTime, TeacherID, StudentID: WideString。 UserType: Integer。 Admin: IMTSDMAdmin。begin UserType := [39。UserType39。]。 if 3 = UserType then//管理員 begin tmpStr := [39。action39。]。 Admin := (39。Sun198042639。)。 if tmpStr = 39。CreateStudent39。 then begin StudentID := [39。StudentID39。]。 PWD := [39。PWD39。]。 Name := [39。Name39。]。 Age := [39。Age39。]。 Sex := [39。Sex39。]。 EnterTime := [39。EnterTime39。]。 Email := [39。Email39。]。 ((StudentID, Name, Sex, Age, EnterTime, Email, PWD) )。 end else if tmpStr = 39。CreateTeacher39。 then begin TeacherID := [39。TeacherID39。]。 PWD := [39。PWD39。]。 Name := [39。Name39。]。 Subject := [39。Subject39。]。 Email := [39。Email39。]。 ((TeacherID, Name, Subject, PWD, Email))。 end。 end。end。procedure 。var Student: IMTSDMStu。 tmpStr: WideString。 UserType: Integer。begin UserType := [39。UserType39。]。 if UserType = 1 then begin tmpStr := [39。action39。]。 if 39。QueryScore39。 = tmpStr then begin Student := (39。Sun198042639。)。 (xmlTitle + xsltSQS + ([39。UserID39。]))。 end else if 39。GetTest39。 = tmpStr then begin Student := (39。Sun198042639。)。 (xmlTitle + xsltSST + ([39。UserID39。]))。 end{ else if 39。GetStudentData39。 = tmpStr then begin Student := (39。Sun198042639。)。 (xmlTitle + xsltSUD + ([39。UserID39。]), False, 39。39。, 39。39。, 39。39。)。 end } else (39。錯誤的請求！39。)。 end else (39。非法用戶！39。)。end。procedure 。var tmpStr, UserID, StudentID, PaperID: WideString。 UserType: Integer。 Teacher: IMTSDMTeacher。begin tmpStr := [39。action39。]。 UserType := [39。UserType39。]。 UserID := [39。UserID39。]。 if 2 = UserType then//老師 begin if tmpStr = 39。CreatePaper39。 then begin Teacher := (39。Sun198042639。)。 StudentID := [39。StudentID39。]。 PaperID := [39。PaperID39。]。 ((UserID, StudentID, PaperID))。 end else (39。錯誤的請求！39。)。 end else (39。非法用戶！39。)。end。procedure 。var Student: IMTSDMStu。 StudentID, PaperID, Answers: WideString。 UserType: Integer。begin UserType := [39。UserType39。]。 StudentID := [39。UserID39。]。 if UserType = 1 then begin Student := (39。Sun198042639。)。 PaperID := [39。PaperID39。]。 (39。PaperID39。, PaperID)。 (xmlTitle + xsltST + (StudentID, PaperID, Answers))。 (39。Answers39。,Answers)。 end else (39。非法用戶！39。)。end。procedure 。var Subject, PWD, Email, Age, UserID: OleVariant。 UserType: Integer。 Student: IMTSDMStu。 Teacher: IMTSDMTeacher。 Admin: IMTSDMAdmin。begin UserType := [39。UserType39。]。 UserID := [39。UserID39。]。 if 1 = UserType then//學(xué)生 begin Student := (39。Sun198042639。)。 PWD := [39。PWD39。]。 Age := [39。Age39。]。 Email := [39。Email39。]。 ((UserID, Age, PWD, Email))。 end else if 2 = UserType then//老師 begin Teacher := (39。Sun198042639。)。 PWD := [39。PWD39。]。 Subject := [39。Subject39。]。 Email := [39。Email39。]。 ((UserID, PWD, Subject, Email))。 end else if 3 = UserType then//管理員 begin Admin := (39。Sun198042639。)。 PWD := [39。PWD39。]。 ((PWD))。 end else (39。非法用戶！39。)。 end。procedure 。var Answers, Answer, UserID, PaperID: WideString。 UserType, No: Integer。 Score, vNo: OleVariant。 Student: IMTSDMStu。begin UserType := [39。UserType39。]。 Answers := [39。Answers39。]。 UserID := [39。UserID39。]。 PaperID := [39。PaperID39。]。 Score := 0。 Answer := 39。39。 if 1 = UserType then//學(xué)生 begin for No := 1 to ( 1) do//減去提交按鈕所占數(shù)字 begin vNo := No。 Answer := [vNo]。 if Answers[No] = Answer[3] then begin Score := Score + 10。 end。 end。//end for Student := (39。Sun198042639。)。 ((UserID, PaperID, Score))。 end else (39。非法用戶！39。)。end。initialization (ComServer, TNetTestASP, Class_NetTestASP, ciMultiInstance, tmApartment)。end.. 學(xué)生對象COM+組件主代碼unit uMain。{$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。type TMTSDMStu = class(TMtsDataModule, IMTSDMStu) ADOQuery1: TADOQuery。 private// function CreatePaper(Subject: WideString { Private declarations } protected class procedure UpdateRegistry(Register: Boolean。 const ClassID, ProgID: string)。 override。 function GetPaper(const StudentID, PaperID: WideString。 out Answers: WideString): OleVariant。 safecall。 function Login(const Studen