基于bs架構(gòu)的班級網(wǎng)站設(shè)計(jì)與實(shí)現(xiàn)--asp課程設(shè)計(jì)-閱讀頁
2025-01-31 13:10本頁面
【正文】 txl,conn,1,2 rs(xm)=(xm) rs(lxfs)=(lxfs) rs(bz)=(bz) 記錄己經(jīng)被成功輸入。 id amp。amp。39。amp。39。amp。39。amp。39。 id3 amp。其代碼如下：% ()Application(Counter) = Application(Counter) + 1()Function G ( counter ) Dim S, i S = CStr( counter ) For i = 1 to Len(S) myimage = myimage amp。 Mid(S, i, 1) amp。此時(shí)其中的Application_OnStart首先被調(diào)用，然后執(zhí)行其中的語句，Application(whosOn)被自動清零。當(dāng)?shù)诙?、第三位用戶登錄時(shí)，又被加一，所以顯示的是在線的人數(shù)。 Application(whoson)amp。使用該組件，可以在每次訪問中顯示不同的圖標(biāo)，可以設(shè)置廣告的不同權(quán)重使得顯示頻率不同。URL=% set MyAdvertise = ()%CENTER%=() %/CENTER※ REDIRECT WIDTH 230 HEIGHT 60 BORDER 0*../../web/ 娛樂天宮40../../ 我的地盤我做主30../../web/ 安徽綠海商務(wù)學(xué)院30※ % (Request(url)) %文件鏈接組件使用戶可以在你頁面中自由跳轉(zhuǎn)，當(dāng)有許多并列的頁面時(shí)，改組件非常有用，可以大大簡化每個(gè)頁面加入相應(yīng)鏈接信息的這個(gè)過程。返回文件總數(shù)For I = 1 to Sum 39。(REMOTE_ADDR)為客戶端的IP地址，這樣所有訪問過該頁面的IP地址就被記錄下來了。本文件上傳包含下載、瀏覽、刪除操作，其中刪除操作需要身份認(rèn)證，用戶上傳的文件保存到數(shù)據(jù)庫中，Access中是利用類型“OLE對象”來上傳文件的。RIGHT39。DBQ= amp。EBEBEB39。?id= amp。 39。12039。8039。 rs(filename) amp。right39。 Int(rs(size)/1024) amp。 rs(ext) amp。 rs(intro) amp。center39。?id= amp。 39。center39。?id= amp。 39。_blank39。center39。?id= amp。 39。 return false。 return false。 }/SCRIPT/HEADBODY H2 ALIGN=CENTER上傳文件/H2CENTERFORM ACTION= METHOD=post ENCTYPE=multipart/formdata NAME=form1 ONSUBMIT=return check_Null()。DBQ= amp。打開記錄集 strSql = SELECT * FROM uploadfiles WHERE id = amp。下面將文件輸出到客戶端瀏覽器 = image/* rs(fileimage) %※ % set conn = () DRIVER={Microsoft Access Driver (*.mdb)}。_ () 39。 Request(id) Set rs = (strSql) 39。告訴瀏覽器文件名稱 ContentDisposition,attachment。 rs(filename) 39。輸出二進(jìn)制文件 rs(fileimage)%※ % 39。DBQ= amp。_ (id) (strSql) 39。DBQ= amp。設(shè)置文件上傳的最大為20MB 39。表示文件過大，超出體積 文件超出2M！請返回 a href=39。39。將文件信息保存到數(shù)據(jù)庫，首先建立Recordset對象 strSql=SELECT * FROM uploadfiles Set rs = () strSql,conn,1,3 39。調(diào)用函數(shù)獲取擴(kuò)展名 rs(size) = rs(intro) = (intro) 39。給文件內(nèi)容字段賦值 39。該函數(shù)用來得到文件的擴(kuò)展名 Function GetExt(thefilename) strTemp = Split(thefilename,.) numTemp = Ubound(strTemp) If numTemp = 0 Then GetExt=No 39。 strTemp(numTemp) 39。本次課程設(shè)計(jì)將靜態(tài)網(wǎng)頁和動態(tài)網(wǎng)頁結(jié)合起來，使我有了網(wǎng)站設(shè)計(jì)的經(jīng)驗(yàn)，我感覺以后在工作中遇到類似的一些項(xiàng)目就能心中有數(shù)。這次的課程設(shè)計(jì)也激發(fā)了我對網(wǎng)站設(shè)計(jì)的興趣。最后衷心感謝我們優(yōu)秀的王老師對我的幫助和同學(xué)對我的鼓勵！主頁面運(yùn)行效果如圖4所示： 圖5 主頁面第 17 頁 共 17 頁
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1