?? savetofile2.asp
字號:
<%OPTION EXPLICIT%>
<!--#include FILE="upfile_class.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount
dim SaveFilename
upfilecount=0
set upfile=new upfile_class ''建立上傳對象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;" '設置上傳類型的黑名單
upfile.GetData (10240000) '取得上傳數據,限制最大上傳10M
if upfile.isErr then '如果出錯
select case upfile.isErr
case 1
Response.Write "你沒有上傳數據呀???是不是搞錯了??"
case 2
Response.Write "你上傳的文件超出我們的限制,最大10M"
end select
else
FSPath=GetFilePath(Server.mappath("upfile.asp"),"\")'取得當前文件在服務器路徑
ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在網站上的位置
for each formName in upfile.file '列出所有上傳了的文件
set oFile=upfile.file(formname)
FileName=upfile.form(formName)'取得文本域的值
if not FileName>"" then FileName=oFile.filename'如果沒有輸入新的文件名,就用原來的文件名
'upfile.AutoSave formname,FSPath&FileName ''保存文件 也可以使用AutoSave來保存,參數一樣,但是會自動建立新的文件名
SaveFilename=upfile.AutoSave(formname,FSPath&FileName)
if upfile.iserr then
Response.Write upfile.errmessage
else
upfilecount=upfilecount+1
Response.Write "上傳成功"
end if
response.cookies("file3")=savefilename
Response.Cookies("file3").Expires=date+1
set oFile=nothing
next
end if
set upfile=nothing '刪除此對象
function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
response.redirect "ok2.asp?file3="&savefilename&""
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -