【正文】 p。 amp。 pass1 amp。dbq= amp。 session(teacher) amp。 nick amp。 sex amp。 age amp。 idcard amp。 diploma amp。 39。 39。 39。 39。 amp。 amp。 amp。 5． 4． 2 IPO 圖 輸入（ I）：單擊導航條“家教信息”鏈接 處理描述（ P）：①從 teacherinfo 表中查詢家教發(fā)布的信息內(nèi)容，發(fā)布時間和昵稱 ②分頁顯示查詢結(jié)果 輸出（ O）：顯示家教信息頁面 5． 4． 3 名稱 ：家教信息 標識 ： 使用的文件或數(shù)據(jù)庫 ： teacherinfo 5． 4． 4 界面設(shè)計 圖 56 家教信息瀏覽模塊界面 5． 4． 5 程序的設(shè)計與實現(xiàn) table width=80% border=1 tr th scope=col求職信息的內(nèi)容 /th th scope=col發(fā)布時間 /th th scope=col發(fā)布人 /th /tr % Dim db,conn conn=driver={microsoft access driver (*.mdb)}。 td amp。 rs(nick) amp。 /a) % /table p body background=../image/div align=center % if Page1 then (a href=39。 (Page1) amp。 (Page+1) amp。 ()” 39。 (db/) trSql=Select * from teacherdetail where nick=39。 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。 amp。下一頁 /a ) (a href=39。 上一頁 /a ) end if if Page then (a href=39。首頁 /a ) (a href=39。 amp。 tda href=39。(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。 39。 39。 39。待聘 39。 amp。 amp。 amp。,amp。,39。,39。 ,39。,39。, 39。_ values(39。) (strsql) session(teacher)=teacher () end if end if end if % （ 2） 本文件顯示一個表單，用來使注冊成功的用戶錄入其個人的詳細信息。,39。 ＇ Set rs=(strSql) if then (該用戶名已存在 !) else strSql=insert into teacherreg(nick,pass) values (39。其中包括五個表單元素，如表表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)}。 ) Set rs=(strSql) () % 學生注冊模塊 5． 3． 1 功能描述： 學生用戶在本模塊注冊用戶名、設(shè)置密碼、錄入自己的詳細信息。,39。,39。,39。 address amp。 tele amp。_ amp。 amp。 amp。 amp。 amp。 amp。文件中包含的表單元素如表 52 所示： 表 52 頁面所使用的表單元素表 名稱 表單元素類型 Value 值 含義 Tname 文本框 用戶填寫 注冊用戶真實姓名 Sex 單選按鈕組 用戶選擇 性別：男、女 Age 文本框 用戶填寫 年齡 Idcard 文本框 用戶填寫 身份證號 Select 下拉列表框 用戶選擇 學歷：大學本科、大學?？啤⒋T士研究生 Work 文本框 用戶填寫 職業(yè) Email 文本框 用戶填寫 郵箱 Tele 文本框 用戶填寫 電話 Address 文本框 用戶填寫 地址 Subject1 文本框 用戶填寫 講授的科目 1 Subject2 文本框 用戶填寫 講授的科目 2 Demo 文本框 用戶填寫 備注信息 St Submit 按鈕 提交 提交表單 rt reset 按鈕 重置 重置表單 詳細代碼如下： % if session(student)= then (您無權(quán)訪問本頁面 ) 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 女 /td /tr tr tdfont color=0000FF size=3年齡 :/font/td tdinput type=text name=age/td /tr tr tdfont color=0000FF size=3學習程度 :/font/td tdselect name=select option小學生 /option option初中生 /option option高中生 /option option大學生 /option /select/td /tr tr tdfont color=0000FF size=3郵箱 :/font/td tdinput type=text name=textfield6/td