Upload_file.asp這個頁面作為彈出窗口,代碼如下:
& lt!-# include file = " upload class . ASP "-& gt;
& lthtml & gt
& lthead & gt
& ltmeta http-equiv = " Content-Type " Content = " text/html;charset=gb2312 " >
& lttitle & gt文件上傳
& ltlink href = " images/CSS . CSS " rel = " style sheet " type = " text/CSS " >
& ltbody bgcolor = " # FFFFFF " left margin = " 5 " top margin = " 20 " >
& lt%
Dim管理_標誌,操作
Dim File_ext,UploadSize,Uploadpath
Dim文件路徑,文件名,隨機數
Dim Fileext_a,Fileext,UpMode
Formname =請求。querystring ("formname ")'父頁面表單名稱。
文本名稱=請求。querystring ("text name ")'上載圖像的父頁面的窗體內存中的文本框的名稱。
如果textname="AdsFilePath "那麽'根據文本框的名稱確定保存文件的路徑。
UploadPath="adpic/"
elseif textname="WebLogo "然後
UploadPath="WebLogoFile/"
elseif textname="ShopPic "然後
UploadPath="Shop_Pic/"
elseif textname="Smaillpic "然後
UploadPath="Smaill_pic/"
elseif textname="Bannapic "然後
UploadPath="Banna_pic/"
如果…就會結束
上傳大小=1000
File_ext="jpg,gif,swf "
選擇案例請求。QueryString("操作")
案例“上傳”
調用Main()
通話上傳()
其他情況
調用Main()
結束選擇
副總管()
% & gt
& ltform name = " my form " method = " post " action = "?動作=上傳& ampformname = & lt% = formname % & gt& amptextname = & lt%=textname% >enctype="multipart/Form-data " >
& lttable width = " 95% " border = " 0 " align = " center " cell padding = " 0 " cellspacing = " 1 " class = " table " >
& lttr & gt
& ltth align = " center " class = " table _ titl " >文件上傳
& lt/tr & gt;
& lttr & gt
& ltTD height = " 30 " align = " center " class = " wz " ID = " strMsg " >允許上傳的文件類型:
& lt/tr & gt;
& lttr & gt
& ltTD height = " 30 " align = " center " class = " wz " >文件上傳大小限制:
& lt/tr & gt;
& lttr & gt
& ltTD height = " 30 " align = " center " class = " wz " >請選擇上傳文件:
& ltinput type = " file " name = " file 1 " size = 20 class = text & gt;
& ltinput type = " hidden " name = " filename " & gt;
& lt/TD & gt;
& lt/tr & gt;
& lttr & gt
& ltTD height = " 30 " align = " center " class = " wz " >
& lt輸入type = " submit " name = " submit " value = " upload " onclick = " filename . value = file 1 . value;"class = button & gt
& lt/TD & gt;
& lt/tr & gt;
& lt/table & gt;
& lt/Form & gt;
& lt/body & gt;
& lt/html & gt;
& lt%
末端接頭
子上傳()
軟上傳()
末端接頭
Sub軟_上傳()
Dim上傳,文件,上傳,splitFile
Dim upName
set upload=new upfile_class
上傳。GetData (-1)
filePath=UploadPath
If right(filePath,1)& lt;& gt"/"那麽filePath = filePath & amp"/"
對於upload.file中的每個upName
Set file=upload.file(upName)
If file.filesize & lt那麽1
回應。寫" & lt腳本語言= javascript & gtStrMsg.innerHTML= '請先選擇要上傳的文件'
響應.結束
如果…就會結束
fileExt=LCase(file。FileExt)
uploadsuc=False
splitFile=Split(File_ext,",")
對於i=0到UBound(splitFile)
如果fileEXT=Trim(LCase(splitFile(i))),則
uploadsuc=True
為...退出
其他
uploadsuc=False
如果…就會結束
然後
如果uploadsuc=False,則
回應。寫" & lt腳本語言= javascript & gtStrMsg.innerHTML= '文件格式不正確'
響應.結束
如果…就會結束
如果文件。文件大小& gtUploadSize*1024然後
回應。寫" & lt腳本語言= javascript & gtStrMsg.innerHTML= '文件大小超出限制'
響應.結束
如果…就會結束
使不規則化
文件名=文件路徑& amp《愛_》與amp年(現在)和。月(現在)和。日(現在)與時;小時(現在)& amp分鐘(現在)& amp第二次(現在)& amp蘭登姆& amp"."& amp文件擴展名
文件。SaveToFile Server.mappath("../& amp;FileName)' '保存文件
Check_picwords("../& amp;FileName)'檢查上傳的文件中是否有非法代碼。
回應。寫" & lt腳本>
回應。寫“開瓶器”& ampformname & amp"."& amp文本名稱& amp".value = ' " & amp文件名和;"
回應。編寫" window . close();"
回應。寫" & lt/script >
然後
設置文件=無
設置上傳=無
末端接頭
% & gt
以後補充。