基于bs架構(gòu)的班級網(wǎng)站設(shè)計與實現(xiàn)--asp課程設(shè)計(編輯修改稿)
2025-02-12 13:10 本頁面
【文章內(nèi)容簡介】 8080內(nèi)容/FONT/B/TD TD%=rs(內(nèi)容)%/TD /TR /TABLE HR%()Wend%圖2 留言簿主頁面通訊錄的功能是保存姓名、Email地址、家庭住址等常用的聯(lián)系信息。模塊包含瀏覽記錄，查詢記錄，添加記錄和編輯記錄（修改和刪除）四個部分，其中添加記錄和編輯留言需要身份認證。瀏覽留言采用分頁顯示技術(shù)，通訊錄主頁面運行效果如圖3所示，其主要代碼如下：※ ：添加記錄% set rs=() txl,conn,1,2 rs(xm)=(xm) rs(lxfs)=(lxfs) rs(bz)=(bz) 記錄己經(jīng)被成功輸入。 set rs=nothing set conn=nothing %※ ：刪除記錄% id=(id) SQLstmt=DELETE from txl where id=amp。 id amp。 (SQLstmt) set conn=nothing %※ ：查詢記錄% xm2=(xm) sqlstmt=SELECT * from txl where xm=39。amp。 xm2 amp。39。 set rs=() sqlstmt,conn,1,1 totalerec= if totalerec=0 then 沒有符合條件的記錄,請重新輸入！ end if% table tr td姓名/td td聯(lián)系方式/td td備注/td /tr % do while not % tr align=center td %=rs(xm)%/td td%=rs(lxfs)%/td td%=rs(bz)%/td /tr % loop set rs=nothing set conn=nothing % /table※ ：修改記錄% id3=(id)xm3=(xm)lxfs3=(lxfs)bz3=(bz)sqlstmt=UPDATE txl set xm=39。amp。 xm3 amp。39。,lxfs=39。amp。 lxfs3 amp。39。,bz=39。amp。 bz3 amp。39。 where id=amp。 id3 amp。(sqlstmt)set conn=nothing %圖3 通訊錄主頁面圖4 通訊錄瀏覽圖片計數(shù)器是Application對象的一個用途，因為Application是所有的用戶所共有的，所以可以存儲計數(shù)器的值，當有新用戶訪問網(wǎng)頁時自動增值計數(shù)器的值。其代碼如下：% ()Application(Counter) = Application(Counter) + 1()Function G ( counter ) Dim S, i S = CStr( counter ) For i = 1 to Len(S) myimage = myimage amp。 IMG SRC= amp。 Mid(S, i, 1) amp。 .gif Next G = myimageEnd Function %P ALIGN=CENTER您是本站第%=G (Application(Counter))% 位貴賓！ /P當前時間是now()自動調(diào)用系統(tǒng)時間實現(xiàn)的，其代碼如下：script language=vbscript(now())/script在線人數(shù)統(tǒng)計采用Application對象和Session對象來編寫。，此時其中的Application_OnStart首先被調(diào)用，然后執(zhí)行其中的語句，Application(whosOn)被自動清零。然后當?shù)谝晃挥脩舻卿浘W(wǎng)站時，Session_OnStart被調(diào)用，此時Application(whosOn)被自動加一。當?shù)诙?、第三位用戶登錄時，又被加一，所以顯示的是在線的人數(shù)。其代碼如下：※ %(現(xiàn)在有 amp。 Application(whoson)amp。 人在線)%※ Script LANGUAGE=VBScript RUNAT=SERVERSub Application_OnStart() () Application(whosOn) = 0 ()End SubSub Session_OnStart() () Application(whoson) = Cint(Application(whoson)) + 1 ()End SubSub Session_OnEnd() () Application(whoson) = Cint(Application(whoson)) 1 ()End Sub/Script廣告圖片的動態(tài)顯示時利用內(nèi)置組件ADROTATOR來
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1