![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 西風 ![]()
![]() |
gblPassword = NULL 'NULL是windows登錄可改成你要的 Case "UPLOAD" '以下SA-FILEUP元件上傳,元件很貴,建議改免費的諸如sefupload 下載 http://www.anyportal.com 測試 http://www.chome.idv.tw:8889/siteman/siteman.asp 密碼:iloveu 簡略的slfupload語法 Dim Up1 Dim lngMaxFileBytes Dim strUploadPath Dim ChangeLine Dim overwriteFile Dim chgFileName Dim limitFileType(2) Dim varResult Set up1 = Server.CreateObject("chk.slfUpload") lngMaxFileBytes = 1000000000 strUploadPath = fsdir changeLine = "true" overwriteFile = "aa" chgFileName = "" varResult = Up1.DoUpload (lngMaxFileBytes, strUploadPath, changeLine, overwriteFile, chgFileName, limitFileType) Set Up1 = Nothing |