【正文】 Set rs=(ADODB,Recordset) strSql,conn,1,3 % table width=70% border=0 align=center tr th colspan=2 scope=colspan class=stytel%=nick%個人信息 /span/th /tr tr td width=19%真實姓名： /td td width=81% %=rs(name)%/td /tr tr td width=19%性別： /td td width=81% %=rs(sex)%/td /tr tr td width=19%年齡： /td td width=81% %=rs(age)%/td /tr tr td width=19%身份證： /td td width=81% %=rs(idcard)%/td /tr tr td width=19%學歷： /td td width=81% %=rs(select)%/td /tr tr td width=19%職業(yè)： /td td width=81% %=rs(work)%/td /tr tr td width=19%郵箱： /td td width=81% %=rs(Email)%/td /tr tr td width=19%電話： /td td width=81% %=rs(Tele)%/td /tr tr td width=19%住址： /td td width=81% %=rs(address)%/td /tr tr td width=19%講授科目 1： /td td width=81% %=rs(subject1)%/td /tr tr td width=19% 講授科目 2： /td td width=81% %=rs(subject2)%/td /tr /table 5． 5 學生信息瀏覽模塊 5． 5． 1 功能描述： 顯示所有尚未找到家教的學生。 nick amp。 (db/) trSql=Select * from teacherdetail where nick=39。 amp。 ()” 39。下一頁 /a ) (a href=39。 (Page+1) amp。 上一頁 /a ) end if if Page then (a href=39。 (Page1) amp。首頁 /a ) (a href=39。 /a) % /table p body background=../image/div align=center % if Page1 then (a href=39。 amp。 rs(nick) amp。 tda href=39。 td amp。(db\) Set db=() conn strSql=Select content,puttime,nick from teacherinfo order by puttime desc Set rs=(ADODB,Recordset) strSql,conn,1,3 =5 page=1 if Not IsEmpty(Request(Page)) then Page=CIntRequest(Page)) if Page= else =Page end if else Page=1 End if else =Page For i=1 To if then Exit For End If (trtd amp。 5． 4． 2 IPO 圖 輸入（ I）：單擊導航條“家教信息”鏈接 處理描述（ P）：①從 teacherinfo 表中查詢家教發(fā)布的信息內容，發(fā)布時間和昵稱 ②分頁顯示查詢結果 輸出（ O）：顯示家教信息頁面 5． 4． 3 名稱 ：家教信息 標識 ： 使用的文件或數(shù)據(jù)庫 ： teacherinfo 5． 4． 4 界面設計 圖 56 家教信息瀏覽模塊界面 5． 4． 5 程序的設計與實現(xiàn) table width=80% border=1 tr th scope=col求職信息的內容 /th th scope=col發(fā)布時間 /th th scope=col發(fā)布人 /th /tr % Dim db,conn conn=driver={microsoft access driver (*.mdb)}。 39。 amp。 39。 amp。 39。 amp。待聘 39。 39。 amp。 39。 amp。 39。 amp。 39。,amp。 diploma amp。,39。 idcard amp。,39。 age amp。 ,39。 sex amp。,39。 nick amp。, 39。 session(teacher) amp。_ values(39。dbq= amp。) (strsql) session(teacher)=teacher () end if end if end if % （ 2） 本文件顯示一個表單，用來使注冊成功的用戶錄入其個人的詳細信息。 pass1 amp。,39。 amp。 ＇ Set rs=(strSql) if then (該用戶名已存在 !) else strSql=insert into teacherreg(nick,pass) values (39。(db\) Set db=() conn strSql=select*from teacherreg where nick=＇ amp。其中包括五個表單元素，如表表53 所示： 表 53 頁面所使用的表單元素表 名稱 表單元素類型 Value 值 含義 student 文本框 用戶填寫 用戶名 Pass1 密碼框 用戶填寫 密碼 Pass2 密碼區(qū) 用戶填寫 確認密碼 St Submit 按鈕 下一步 提交表單 rt reset 按鈕 重置 重置表單 ASP 代碼如下： form name=form1 method=post action= table width=44% height=82 border=0 align=center cellpadding=0 cellspacing=0 tr td colspan=2div align=center家教注冊 /div/td /tr tr td width=49%div align=left用戶名 :/div/td td width=51%input type=text name=teacher/td /tr tr td密碼 :/td tdinput type=text name=pass1/td /tr tr td確認密碼 :/td tdinput type=text name=pass2/td /tr tr td colspan=2div align=center input type=submit name=st value=下一步 input type=reset name=Rt value=重置 /div/td /tr /table /form % If (st) then teacher=(teacher) pass1=(pass1) pass2=(pass2) if teacher= then (用戶名不得為空 ) elseif pass1pass2 then (兩次輸入的密碼不同 ,請重新輸入 ) else Dim db,conn conn=driver={microsoft access driver (*.mdb)}。 5． 3． 2 IPO 圖 輸入（ I）：單擊“學生注冊”鏈接 處理描述（ P）：①顯示注冊用戶名、設置密碼頁面 ②驗證用戶名是否與數(shù)據(jù)庫中其他用戶名重復，如果重復用戶需要重新注冊，否則進入詳細信息錄入界面 ③用戶錄入信息完畢，單擊“提交”按鈕，信息被保存到數(shù)據(jù)庫中。 ) Set rs=(strSql) () % 學生注冊模塊 5． 3． 1 功能描述： 學生用戶在本模塊注冊用戶名、設置密碼、錄入自己的詳細信息。 demo amp。,39。 tutorship2 amp。,39。 tutorship1` amp。,39。,39。 address amp。,39。 tele amp。,39。_ amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。(db\) Set db=() conn srtSql=insert intostudentdetail(snick,sname,sex,age, grade, ,tele,address,s tate,tutouship1,tutorship2,demo) amp。文件中包含的表單元素如表 52 所示： 表 52 頁面所使用的表單元素表 名稱 表單元素類型 Value 值 含義 Tname 文本框 用戶填寫 注冊用戶真實姓名 Sex 單選按鈕組 用戶選擇 性別：男、女 Age 文本框 用戶填寫 年齡 Idcard 文本框 用戶填寫 身份證號 Select 下拉列表框 用戶選擇 學歷：大學本科、大學專科、碩士研究生 Work 文本框 用戶填寫 職業(yè) Email 文本框 用戶填寫 郵箱 Tele 文本框 用戶填寫 電話 Address 文本框 用戶填寫 地址 Subject1 文本框 用戶填寫 講授的科目 1 Subject2 文本框 用戶填寫 講授的科目 2 Demo 文本框 用戶填寫 備注信息 St Submit 按鈕 提交 提交表單 rt reset 按鈕 重置 重置表單 詳細代碼如下： % if session(student)= then (您無權訪問本頁面 ) else % form name=form1 method=post action= table width=53% height=225 border=0 align=center cellpadding=0 cellspacing=0 tr td colspan=2div align=centerstrong 學生詳細信息錄入/strong/div/td /tr tr td width=38%font color=0000FF size=3姓名 :/font/td td width=62%input type=text name=sname/td /tr tr tdfont color=0000FF size=3性別 :/font/td tdinput type=radio name=sex value=radiobutton 男 input type=radio name=sex value=radiobutton