【正文】 Set rs=(ADODB,Recordset) strSql,conn,1,3 % table width=70% border=0 align=center tr th colspan=2 scope=colspan class=stytel%=nick%個(gè)人信息 /span/th /tr tr td width=19%真實(shí)姓名： /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%學(xué)歷： /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 學(xué)生信息瀏覽模塊 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）：?jiǎn)螕魧?dǎo)航條“家教信息”鏈接 處理描述（ P）：①從 teacherinfo 表中查詢家教發(fā)布的信息內(nèi)容，發(fā)布時(shí)間和昵稱 ②分頁顯示查詢結(jié)果 輸出（ O）：顯示家教信息頁面 5． 4． 3 名稱 ：家教信息 標(biāo)識(shí) ： 使用的文件或數(shù)據(jù)庫 ： teacherinfo 5． 4． 4 界面設(shè)計(jì) 圖 56 家教信息瀏覽模塊界面 5． 4． 5 程序的設(shè)計(jì)與實(shí)現(xiàn) table width=80% border=1 tr th scope=col求職信息的內(nèi)容 /th th scope=col發(fā)布時(shí)間 /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） 本文件顯示一個(gè)表單，用來使注冊(cè)成功的用戶錄入其個(gè)人的詳細(xì)信息。 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。其中包括五個(gè)表單元素，如表表53 所示： 表 53 頁面所使用的表單元素表 名稱 表單元素類型 Value 值 含義 student 文本框 用戶填寫 用戶名 Pass1 密碼框 用戶填寫 密碼 Pass2 密碼區(qū) 用戶填寫 確認(rèn)密碼 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家教注冊(cè) /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確認(rèn)密碼 :/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 (兩次輸入的密碼不同 ,請(qǐng)重新輸入 ) else Dim db,conn conn=driver={microsoft access driver (*.mdb)}。 5． 3． 2 IPO 圖 輸入（ I）：?jiǎn)螕簟皩W(xué)生注冊(cè)”鏈接 處理描述（ P）：①顯示注冊(cè)用戶名、設(shè)置密碼頁面 ②驗(yàn)證用戶名是否與數(shù)據(jù)庫中其他用戶名重復(fù)，如果重復(fù)用戶需要重新注冊(cè)，否則進(jìn)入詳細(xì)信息錄入界面 ③用戶錄入信息完畢，單擊“提交”按鈕，信息被保存到數(shù)據(jù)庫中。 ) Set rs=(strSql) () % 學(xué)生注冊(cè)模塊 5． 3． 1 功能描述： 學(xué)生用戶在本模塊注冊(cè)用戶名、設(shè)置密碼、錄入自己的詳細(xì)信息。 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 文本框 用戶填寫 注冊(cè)用戶真實(shí)姓名 Sex 單選按鈕組 用戶選擇 性別：男、女 Age 文本框 用戶填寫 年齡 Idcard 文本框 用戶填寫 身份證號(hào) Select 下拉列表框 用戶選擇 學(xué)歷：大學(xué)本科、大學(xué)?？?、碩士研究生 Work 文本框 用戶填寫 職業(yè) Email 文本框 用戶填寫 郵箱 Tele 文本框 用戶填寫 電話 Address 文本框 用戶填寫 地址 Subject1 文本框 用戶填寫 講授的科目 1 Subject2 文本框 用戶填寫 講授的科目 2 Demo 文本框 用戶填寫 備注信息 St Submit 按鈕 提交 提交表單 rt reset 按鈕 重置 重置表單 詳細(xì)代碼如下： % 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 學(xué)生詳細(xì)信息錄入/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