1.庫文件(upload.inc.asp)< % Dim組文件流

類UpFile_Class

模糊形式，文件，版本，錯誤

private subclass _ InitializeVersion = "無組件上傳類版本V1.0"Err = -1End Sub

如果err < 0，則“Private class _ terminate”清除變量和對象。RemoveAllSet Form = NothingFile。移除所有設置文件=無耦合文件流。CloseSet outfilestream = nothind IfEnd SubPublic Sub GetData(R EtSize)'定義變量dim requestbind，sspace，bcrlf，sinfo，iInfostart，iinfo end，tstream，istart，ofile infodim ifesize，sfilepath，sfiletype，sformvalue，S filename dim ifindstart，ifindenddim iformstart，iformend，sforname '代碼start ifrequest.total字節(jié)

文件屬性類classfileinfo _ classdimformname，filename，filepath，filesize，filetype，filestart，file ext ' public function save to file(路徑)on error resume next dim filestream to filestream = createobject(" adodb . stream ")of lestream。Type =文件流。模式= 3文件流。位置=文件開始文件流。復制到oFileStream，文件大小oFileStream。保存到文件路徑，2文件流。CloseSet of lestream = nothing if Err。號碼<。& gt0然后保存文件=錯誤號& amp“* *”& amp；呃。descriptionnelsavetoefile = " ok " end fend function ' get file data public function file dateautoupfilestream . position = filestar filestream = oupfilestream . read(file size)end function end class % >:

2.處理用戶提交的頁面(upload.asp)<！-# include file = " upload . Inc . ASP "->& lthtml>。& lthead>。& lt標題>。上傳文件

對于上傳中的每個表單名稱。文件'列出所有上傳的文件。設置文件=上傳。文件(表單名稱'生成一個文件對象。文件大小< 100然后響應。寫“請先選擇您要上傳的圖片[

Fileext = lcase (file.fileext)如果選中fileext (fileext) = false，則響應。寫“文件格式不正確[

隨機化器年號= int(90000 * rnd)+10000 filename = formPath & amp；年份(現(xiàn)在)和月份(現(xiàn)在)和日(現(xiàn)在)和。小時(現(xiàn)在)和。分鐘(現(xiàn)在)和第二(現(xiàn)在)和；排名和"."和。fileExtif文件。文件大小>0然后“如果文件大小> 0表示有文件數(shù)據(jù)結果= file . savetofile(server . mappath(filename))”保存文件ifresult = "ok "然后響應. writeformname &“上傳ok，已保存到”& amp文件名& amp”& ltbr & gt”elseresponse . write formName & amp；“上傳失敗”，以及結果和。”& ltbr & gt”end ifend ifset文件= nothingnextset上傳= nothingend ifend sub

私有函數(shù)check file ext(file ext)dim forum upload forum upload = " gif，jpg，BMP，JPEG " forum upload = split(forum upload，"，")為i=0到ubound(Forumupload)如果lcase(file ext)= lcase(trim(forum upload(I)))那么check file ext = true exit functionelsecheckfilext = false end if nextend Function % & gt；& lt/td>。& lt/tr>。& lt/table>。& lt/body>。& lt/html>。

3.HTML表格(upload.html)<！DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN " >;& lthtml>。& lthead>。& ltmeta http-equiv = " Content-Type " Content = " text/html；charset=gb2312 " >;& lt標題>。Asp無組件上傳

& ltbody>。請選擇要上傳的文件:& lt/form>。& lt/body>。& lt/html>。