【導(dǎo)讀】隨著Inter技術(shù)的日益發(fā)展，大量用戶使用其作為信息獲取和溝通的一種主要方式。的人進行交流與互動。因此，建立同學(xué)錄網(wǎng)站已經(jīng)成為一種必要。臺的特點、技巧以及如何設(shè)計，介紹了具體開發(fā)各個模塊的思想。最后論述了在這個開發(fā)。過程中所遇到的困難以及新的體會。

　　

【正文】 班級 /option % //指針下移 Loop % /select/p /td /tr /form 用戶搜索的實現(xiàn) 在主頁中有一個多功能搜索模塊，可以輸入姓名、網(wǎng)絡(luò)昵稱 、 OICQ 號碼、郵件地址來搜索所要查看的用戶，通過 ， 最終顯示搜索用戶信息以及其在線的情況。相應(yīng)的頁面如圖 48 所示。 圖 48 用戶搜 索 單擊圖 48 中搜索到的用戶姓名，可以顯示該用戶的詳細信息。 根據(jù)提交的用戶 ID 來查詢數(shù)據(jù)庫中 user 與 class 表，找到該用戶之后顯示其 所在的班級信息（班主任、所屬專業(yè)，人數(shù)等），以及該用戶在注冊時輸入的個人詳細信息。 發(fā)布信息的實現(xiàn) 單擊導(dǎo)航欄中的發(fā)布信息菜單，進入發(fā)布信息頁面。注冊的用戶可以在頁面內(nèi)查看發(fā)布的信息，也可以發(fā)布新的信息。而非注冊用戶卻只可以瀏覽信息，沒有發(fā)布的權(quán)限。當(dāng)然也可以查看自己之前發(fā)表的信息。對于信息的顯示，是按照 ID 進行降序排列，定義了每頁顯示十個記錄。相應(yīng)界面如圖 49 所示。 第四章 同學(xué)錄網(wǎng)站的實現(xiàn) 24 圖 49 發(fā)布信息頁面 在上圖中若用戶要發(fā)布新的信息，可以點擊發(fā)布新信息，進入發(fā)布信息頁面。相應(yīng)界面如圖 410 所示。 圖 410 信息發(fā)布 在該頁面中相應(yīng)的標(biāo)題、內(nèi)容、前言輸入框中填寫你要發(fā)布的信息，還可以選擇心情符。提交信息后，用于檢測信息發(fā)布的代碼如下 ： !include file= !include file=inc/ % IF 0 Then Suc=True Title=(Title) Mood=(mood) 南京工業(yè)大學(xué)本科生畢業(yè)設(shè)計 (論文 ) 25Content=(Content) Preface=(Preface) If Title= Then Suc=False ErrInfo=ErrInfo amp。 請?zhí)顚懶畔?biāo)題！ BR End IF IF Preface= Then Suc=False ErrInfo=ErrInfo amp。 請?zhí)顚懶畔⑶把裕?BR Else IF LEN(Preface)58 Then Preface=Mid(Preface,1,58) End IF End IF IF Content= Then Suc=False ErrInfo=ErrInfo amp。 請?zhí)顚懶畔?nèi)容！ BR Else IF LEN(Content)15000 Then Suc=False ErrInfo=ErrInfo amp。 信息內(nèi)容不能超過 15000 個字符！ BR End IF End IF IF Suc Then SQL=Select * From news Set RS=() SQL,Connstr,3,2 IF Session(Add)=True Then RS(image)=Mood RS(title)=Title RS(content)=Content RS(foreword)=Preface RS(adddate)=Date RS(author)=Session(User) rs(rq)=0 Session(Add)=False End IF End IF End IF % 心愿的實現(xiàn) 心愿地帶（ ）這一頁面中顯示用戶發(fā)表的心愿信息，注冊的用戶可以在此留下自己的心愿，在這里可以許下關(guān)于你學(xué)業(yè)、健康、生活、未來等諸多方面的愿望。頁面如圖 411 所示。 第四章 同學(xué)錄網(wǎng)站的實現(xiàn) 26 圖 411 心愿地帶 當(dāng)鼠標(biāo)點擊上圖中某個心愿后，就會顯示具體的許愿者的姓名、許愿的類型、性別、許愿時間等相關(guān)信息，這一功能是通過用戶提交的心愿的 ID，在數(shù)據(jù)庫中找到相應(yīng)的記錄集來實現(xiàn)的。頁面如圖 412 所示。 圖 412 查看心愿頁面 相應(yīng)的代碼如下： % ID=Request(ID) SQL=Select * From bless Where ID=39。amp。IDamp。39。 Set DisplayRS=() SQL,Connstr,1,1 IF Then End IF % …… table border=0 width=90% cellspacing=0 cellpadding=0 tr td width=100% style=backgroundcolor: EDEDED。 bordertop: 1 solid 800000 colspan=2 p style=lineheight: 150%。 marginleft: 5。 margintop: 3。 marginbottom: 3來自%=DisplayRS(efrom)%的 %IF DisplayRS(sex)=女 Then%女孩 %Else%男孩 %End IF% %=DisplayRS(username)% 許下了一個 %IF DisplayRS(style)=family Then%家庭 %ElseIF DisplayRS(style)=school Then%學(xué)校 %ElseIF DisplayRS(style)=life Then%生活南京工業(yè)大學(xué)本科生畢業(yè)設(shè)計 (論文 ) 27%ElseIF DisplayRS(style)=health Then%健康 %ElseIF DisplayRS(style)=career Then%事業(yè)%ElseIF DisplayRS(style)=future Then%未來 %ElseIF DisplayRS(style)=love Then%戀愛%ElseIF DisplayRS(style)=riches Then%財富 %End IF%方面的愿望，愿他心愿成真！ /td /tr tr td width=100% colspan=2 p style=lineheight: 150%。 marginleft: 15。 marginright: 40。 margintop: 5。 marginbottom: 5font color=990000%=DisplayRS(content)%/font/td /tr tr td width=50% style=borderbottom: 1 solid 990000 height=20 /td /center td width=50% style=borderbottom: 1 solid 990000 height=20 p align=right許愿時間： %=DisplayRS(adddate)%/td /tr /table …… 訪問留言的實現(xiàn) 訪問留言（ ）對任何用戶都開放，可以發(fā)布新的留言，也可以查看別人的留言主題、內(nèi)容、發(fā)表人的姓名、來自哪個省份以及發(fā)表的時間，同時可以給發(fā)表人發(fā)郵件、 OICQ，連接其個人主頁。界面如圖 413 所示。 第四章 同學(xué)錄網(wǎng)站的實現(xiàn) 28 圖 413 訪問留言 在此頁面中，可以看到是以分頁的形式來顯示用戶的留言信息。具體的代碼如下。 !include file= …… % SQL=Select * From forum Order by ID desc Set RS=() SQL,Connstr,1,1 dim currentpage 39。定義當(dāng)前頁的變量 dim totalput,n 39。定義變量 CurrentPage=0 TotalPut=0:N=0 IF Not Then 39。const maxperpage=10 39。定義每一頁顯示的數(shù)據(jù)記錄的常量 =maxperpage currentpage=(pageid) if currentpage= then currentpage=1 elseif currentpage1 then currentpage=1 else currentpage=clng(currentpage) if currentpage then currentpage= end if end if 39。如果變量 currentpage 的數(shù)據(jù)類型不是數(shù)值型 39。就將 1 賦給變量 currentpage if not isnumeric(currentpage) then currentpage=1 end if totalput= if totalput mod maxperpage=0 then n=totalput\maxperpage else n=totalput\maxperpage+1 end if if n=0 then n=1 end if (currentpage1)*maxperpage i=0 % …… %k=currentpage if k1 then%a href=?pageid=1第一頁 /afont color=990000｜ /fonta href=?pageid=%=k1%上一頁 /a%else%第一頁 font color=990000｜ /font上一頁 %end if%font color=990000｜ /font%if kn then%a href=?pageid=%=k+1%下一頁 /afont color=990000｜ /fonta href=?pageid=%=n%尾 頁 /a%else%下一頁 font color=990000｜/font尾 頁 %End IF% …… % I=I+1 南京工業(yè)大學(xué)本科生畢業(yè)設(shè)計 (論文 ) 29Loop Else % …… 在線管理的實現(xiàn) 本文在設(shè)計時，添加了一個后臺的在線管理模塊。管理員可以對同學(xué)錄進行修改，也可以對專業(yè)、班級、人員信息、發(fā)布信息、心愿、留言進行增加、刪除、修改操作，甚至可以對管理員進行添加和修改。 專業(yè)的添加與管理 該頁面（ ）用來 對同學(xué)錄的專業(yè)信息進行修改、添加、刪除。頁面如圖414 所示。 圖 414 專業(yè)添加與管理 在上圖中，對數(shù)據(jù)庫內(nèi)的專業(yè)類型進行增加、刪除、修改操作，當(dāng)用戶選擇了相應(yīng)的操作，將對其進行處理，相關(guān)代碼如下： % ProName=(ProName) ProName1=(ProName1) ProName2=(ProName2) ProName3=(ProName3) IF ProName Then SQL=Select * From specialty Where specialty=39。amp。 ProName amp。39。 Set RS=() sql,connstr,3,2 IF Then RS(specialty)=ProName End IF End IF IF ProName1 Then 第四章 同學(xué)錄網(wǎng)站的實現(xiàn) 30 IF ProName2 Then SQL=Select * From specialty Where specialty=39。amp。 ProName1 amp。39。 Set RS=() set RS=(SQL) IF not Then SQL=Select * From specialty Where specialty=39。amp。 RS(specialty) amp。39。 Set RS1=() set RS1=(SQL) IF Not Then (update specialty set specialty=39。amp。proname2amp。39。 where specialty=39。amp。 RS(specialty) amp。39。) END IF End IF End IF End IF IF ProName3 Then SQL=D