【正文】 safecall。 const ClassID, ProgID: string)。end.. 學(xué)生對象COM+組件主代碼unit uMain。非法用戶！39。Sun198042639。 if Answers[No] = Answer[3] then begin Score := Score + 10。 Answer := 39。 PaperID := [39。]。UserType39。 UserType, No: Integer。)。]。Sun198042639。Email39。 Subject := [39。)。]。Age39。 PWD := [39。]。UserType39。 Student: IMTSDMStu。end。,Answers)。, PaperID)。PaperID39。 if UserType = 1 then begin Student := (39。]。 StudentID, PaperID, Answers: WideString。)。錯誤的請求！39。PaperID39。 StudentID := [39。CreatePaper39。 UserID := [39。]。 UserType: Integer。)。錯誤的請求！39。, 39。]), False, 39。Sun198042639。]))。Sun198042639。]))。Sun198042639。]。UserType39。var Student: IMTSDMStu。 end。 Email := [39。]。PWD39。 then begin TeacherID := [39。]。EnterTime39。 Sex := [39。]。PWD39。 then begin StudentID := [39。Sun198042639。 if 3 = UserType then//管理員 begin tmpStr := [39。 Admin: IMTSDMAdmin。end。./admin/39。, 39。UserType39。 tmpResult := (PWD)。管理員登錄39。, UserID)。UserType39。39。)。 end else if tmpStr = 39。UserID39。) then (tmpResult) else begin (39。密碼或用戶名錯誤！請重試。Sun198042639。]。PWD39。begin UserID := [39。 PWD: WideString。)。 + 39。?xmlstylesheet type=text/xsl href=./Teacher/?39。?xmlstylesheet type=text/xsl href=./Student/?39。?xmlstylesheet type=text/xsl href=./Student/?39。implementationuses ComServ。 safecall。 safecall。 safecall。 safecall。網(wǎng)頁的編輯工具比較好選，Dreamweaver功能最強大使用方便，并且他還提供30天試用版，是不二之選。. XML和網(wǎng)頁編輯工具的選擇XML的開發(fā)工具我試過好幾個，可都不理想，不是使用不方便就是對中文的支持不好。) drop table go/*==============================================================*//* Table: Admin *//*==============================================================*/create table (Name char(12) not null,PWD char(16) not null,constraint PK_ADMIN primary key (Name))go/*==============================================================*//* Index: Index_Name *//*==============================================================*/create index Index_Name on (Name)go/*==============================================================*//* Table: Papers *//*==============================================================*/create table (ID bigint identity,TeacherID char(10) not null,StudentID char(10) not null,PaperID int not null,Subject varchar(50) not null,Score smallint null constraint CKC_SCORE_PAPERS check (Score is null or (Score = 0 )),constraint PK_PAPERS primary key (ID))go/*==============================================================*//* Index: Index_StudentID *//*==============================================================*/create index Index_StudentID on (StudentID)go/*==============================================================*//* Table: Questions *//*==============================================================*/create table (QuestionID bigint identity,Subject varchar(50) not null,Question varchar(200) not null,Select1 varchar(100) not null,Select2 varchar(100) not null,Select3 varchar(100) not null,Select4 varchar(100) not null,Answer char(1) not null,constraint PK_QUESTIONS primary key (QuestionID))go/*==============================================================*//* Index: Index_SubjectID *//*==============================================================*/create index Index_SubjectID on (Subject)go/*==============================================================*//* Table: Students *//*==============================================================*/create table (StudentID char(10) not null,Name char(12) not null,Age smallint not null constraint CKC_AGE_STUDENTS check (Age between 0 and 100),Sex char(2) not null,EnterTime datetime not null,PWD char(16) not null,Email varchar(35) null,constraint PK_STUDENTS primary key (StudentID))go/*==============================================================*//* Table: Teachers *//*==============================================================*/create table (TeacherID char(10) not null,Name char(12) not null,PWD char(16) not null,Subject varchar(50) not null,Email varchar(35) null,constraint PK_TEACHERS primary key (TeacherID))go/*==============================================================*//* Index: Index_Name *//*==============================================================*/create index Index_Name on (Name)goalter table add constraint FK_PAPERS_CREATE_TEACHERS foreign key (TeacherID) references (TeacherID)goalter table add constraint FK_PAPERS_TESTING_STUDENTS foreign key (StudentID) references (StudentID)go5. 系統(tǒng)實現(xiàn). 開發(fā)平臺的選擇本系統(tǒng)由于是采用的微軟公司所推出的分布式Web應(yīng)用構(gòu)架，所以開發(fā)平臺使用了Windows2000，數(shù)據(jù)庫選用SQL Server2000。)