基于bs架構(gòu)的班級網(wǎng)站設(shè)計與實(shí)現(xiàn)--asp課程設(shè)計-資料下載頁
2025-01-16 13:10本頁面
【正文】 RDER=0 WIDTH=60% TRTD選擇文件/TD TDINPUT TYPE=file NAME=upfile SIZE=40BR（文件名請勿用中文）/TD/TRTR TD簡單說明/TDTD INPUT TYPE=TEXT name=intro SIZE=50（必須輸入） /TD/TR/TABLE PINPUT TYPE=SUBMIT VALUE= 確定 /FORM /CENTER/BODY /HTML※ HTMLBODY img src=?id=%=(id)%/BODY/HTML※ % set conn = () DRIVER={Microsoft Access Driver (*.mdb)}。DBQ= amp。_ () 39。打開記錄集 strSql = SELECT * FROM uploadfiles WHERE id = amp。 Request(id) Set rs = (strSql) 39。下面將文件輸出到客戶端瀏覽器 = image/* rs(fileimage) %※ % set conn = () DRIVER={Microsoft Access Driver (*.mdb)}。DBQ= amp。_ () 39。打開記錄集 strSql = Select * From uploadfiles where id = amp。 Request(id) Set rs = (strSql) 39。下面將文件輸出到客戶端，首先指明ContentType = application/octetstream 39。告訴瀏覽器文件名稱 ContentDisposition,attachment。filename= amp。 rs(filename) 39。告訴瀏覽器文件大小 ContentLength, CStr(rs(size)) 39。輸出二進(jìn)制文件 rs(fileimage)%※ % 39。刪除數(shù)據(jù)庫中的記錄 set conn = () DRIVER={Microsoft Access Driver (*.mdb)}。DBQ= amp。_ () strSql = Delete From uploadfiles Where id= amp。_ (id) (strSql) 39。返回首頁 () %※ % set conn = () DRIVER={Microsoft Access Driver (*.mdb)}。DBQ= amp。_ () Set upload = () =20*1024*1024 39。設(shè)置文件上傳的最大為20MB 39。保存文件到服務(wù)器內(nèi)存中,upfile是表單中的名稱 filename = (upfile) If filename=0 Then 39。表示文件過大，超出體積 文件超出2M！請返回 a href=39。(1)。39。重新上傳/acenter Else 39。將文件信息保存到數(shù)據(jù)庫，首先建立Recordset對象 strSql=SELECT * FROM uploadfiles Set rs = () strSql,conn,1,3 39。下面增加一條新記錄 rs(filename) = filename rs(ext) = GetExt(filename) 39。調(diào)用函數(shù)獲取擴(kuò)展名 rs(size) = rs(intro) = (intro) 39。獲取表單信息 rs(fileimage).AppendChunk 39。給文件內(nèi)容字段賦值 39。成功插入數(shù)據(jù)庫后，返回首頁 () End If%% 39。該函數(shù)用來得到文件的擴(kuò)展名 Function GetExt(thefilename) strTemp = Split(thefilename,.) numTemp = Ubound(strTemp) If numTemp = 0 Then GetExt=No 39。表示沒有擴(kuò)展名 Else GetExt=. amp。 strTemp(numTemp) 39。是數(shù)組中最后一項(xiàng) End If End Function%四、結(jié)束語ASP課程已經(jīng)學(xué)過，但理解的不夠深。本次課程設(shè)計將靜態(tài)網(wǎng)頁和動態(tài)網(wǎng)頁結(jié)合起來，使我有了網(wǎng)站設(shè)計的經(jīng)驗(yàn)，我感覺以后在工作中遇到類似的一些項(xiàng)目就能心中有數(shù)。同時使得我不僅對編程提升了很多，對靜態(tài)網(wǎng)頁的設(shè)計也大大提高。這次的課程設(shè)計也激發(fā)了我對網(wǎng)站設(shè)計的興趣。曾經(jīng)我對網(wǎng)頁設(shè)計是一片迷茫，但是通過這次制作的網(wǎng)頁和課程實(shí)驗(yàn)報告，我感覺到ASP不是想象中的那么難，同時隱約了解了一些網(wǎng)站設(shè)計未來的發(fā)展方向。最后衷心感謝我們優(yōu)秀的王老師對我的幫助和同學(xué)對我的鼓勵！主頁面運(yùn)行效果如圖4所示： 圖5 主頁面第 17 頁 共 17 頁
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1