【導讀】小型的網站信息管理系統。全系統共分前言、編程環(huán)境基礎知識、需求分。析、系統設計、系統實施、系統運行及維護、開發(fā)總結等幾章。求分析、系統設計的技術及應用、系統的功能等內容。各種規(guī)模的網絡連接成一個整體。作為Inter上一種先進的，易于被人們所。界上最大的信息資源寶庫。據估計，目前Inter上已有上百萬個Web站點，近年來，隨著網絡用戶要求的不斷提高及計算機科學的迅速發(fā)展，來越豐富，越來越人性化。建設中的重要組成部分，從而倍受人們的重視。本系統為家教服務提供一個交流。能夠發(fā)布自己的簡歷。要實現這樣的功能，離不開后臺數據庫的支持。用戶驗證信息，收集到的用

　　

【正文】 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 tdinput type=text name=idcard/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職業(yè) :/font/td tdinput type=text name=work/td /tr tr tdfont color=0000FF size=3郵箱 :/font/td tdinput type=text name=textfield6/td /tr tr tdfont color=0000FF size=3電話 :/font/td tdinput type=text name=tele/td /tr tr tdfont color=0000FF size=3住址 :/font/td tdinput type=text name=address/td /tr tr tdfont color=0000FF size=3講授科目一 :/font/td tdinput type=text name= subject1/td /tr tr tdfont color=0000FF size=3講授科目二 :/font/td tdinput type=text name=subject2/td /tr tr tdfont color=0000FF size=3備注 :/font/td tdtextarea name=demo/textarea/td /tr tr tdinput type=submit name=St value=提交 /td tdinput type=reset name=Rt value=重置 /td /tr /table /form % end if % script language=vbscript sub St_onclick() stname= sage= s= sidcard= stele= if stname= then msgbox(用戶名不能為空！ ) exit sub end if if len(stname)4 then msgbox(用戶名的長度必須超過 3 個字符！ ) exit sub end if if sage= then msgbox(年齡不能為空！ ) exit sub end if if instr(s,@)3 or instr(s,.)7 or instr(s,.)=len(s) then msgbox(請輸入正確的郵箱！ ) exit sub end if if len(sidcard)=18 then msgbox(身份證號碼號碼必須是 18 位 !) exit sub end if if stele= then msgbox(電話號碼不能為空！ ) exit sub end if end sub /script （ 3） 詳細代碼如下： % nick=(tname) sex=(sex) age=(age) idcard=(idcard) diploma=(select) work=(work) =() tele=(tele) address=(address) subject1=(subject1) subject2=(subject2) demo=(demo) conn=driver={microsoft access driver (*.mdb)}。dbq= amp。(db\) srtSql=insert into teacherdetail(nick,name,sex,age,idcard,diploma,work,,address,s tate,subject1,subject2,demo) amp。_ values(39。 amp。 session(teacher) amp。 39。, 39。 amp。 nick amp。 39。,39。 amp。 sex amp。 39。 ,39。 amp。 age amp。 39。,39。 amp。 idcard amp。 39。,39。 amp。 diploma amp。 39。,amp。_ work amp。 39。,39。 amp。 amp。 39。,39。 amp。 tele amp。 39。,39。 amp。 address amp。 39。,39。待聘 39。,39。 amp。 subject1 amp。 39。,39。 amp。 subject2 amp。 39。,39。 amp。 demo amp。 39。 ) Set rs=(strSql) () % 5． 4 家教信息瀏覽模塊 5． 4． 1 功能描述： 顯示所有尚未被聘用的家教信息，包括他們發(fā)布的求職信息和個人信息。 5． 4． 2 IPO 圖 輸入（ I）：單擊導航條“家教信息”鏈接 處理描述（ P）：①從 teacherinfo 表中查詢家教發(fā)布的信息內容，發(fā)布時間和昵稱 ②分頁顯示查詢結果 輸出（ O）：顯示家教信息頁面 5． 4． 3 名稱 ：家教信息 標識 ： 使用的文件或數據庫 ： teacherinfo 5． 4． 4 界面設計 圖 56 家教信息瀏覽模塊界面 5． 4． 5 程序的設計與實現 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)}。dbq= 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。 rs(content) amp。 td amp。 rs(puttime) amp。 tda href=39。?name= amp。 rs(nick) amp。 39。 amp。 rs(nick) amp。 /a) % /table p body background=../image/div align=center % if Page1 then (a href=39。?Page=139。首頁 /a ) (a href=39。?Page= amp。 (Page1) amp。 39。 上一頁 /a ) end if if Page then (a href=39。?Page= amp。 (Page+1) amp。 39。下一頁 /a ) (a href=39。?Page=“ amp。 ()” 39。尾頁 /a ) end if % % nick=Request(name) Set conn=() =Provider=。 amp。 Data Source= amp。 (db/) trSql=Select * from teacherdetail where nick=39。 amp。 nick amp。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 功能描述： 顯示所有尚未找到家