?? upfile.asp
字號:
<!--#include file="../../conndb.asp"-->
<!--#include FILE="../../upload_5xsoft.inc"-->
<html>
<head>
<title>文件上傳</title>
</head>
<body>
<%
''將當前的日期和時間轉為文件名
Function makefilename()
Dim fname
fname = Now()
fname = Trim(fname)
fname = Replace(fname,"-","")
fname = Replace(fname,"/","")
fname = Replace(fname," ","")
fname = Replace(fname,":","")
fname = Replace(fname,"PM","")
fname = Replace(fname,"AM","")
fname = Replace(fname,"上午","")
fname = Replace(fname,"下午","")
makefilename = fname
End Function
Dim Num
Num = Request.QueryString("no") '得到圖片編號
Dim upload,file,formName,formPath
Dim i,l,fileType,newfilename,filenamelist,RealName
'創建新文件名稱
newfilename = makefilename()
'建立上傳對象
Set upload = New upload_5xsoft
'上傳文件目錄
formPath = Server.MapPath("files")&"/"
'列出所有上傳了的文件
For Each formName In upload.objFile
'生成一個文件對象
Set file=upload.file(formName)
'如果 FileSize > 0 說明有文件數據
If file.FileSize>0 Then
'取得文件擴展名
fileType = file.FileName '文件名以及擴展名
RealName = fileType
i = Instr(fileType,".") '是否存在“.”
l = Len(fileType)
If i>0 Then
fileType = Right(fileType,l-i+1) '得到擴展名
End If
newfilename = newfilename & fileType
filenamelist = formPath&newfilename '新文件絕對地址和名稱
file.SaveAs filenamelist ''保存文件
End If
Set file = Nothing
Next
'將文件信息傳入指定的文件名字段
Response.Write "<script>parent.form1.file"&Num&".value='"&newfilename&"';</script>" '新文件名稱和存儲路徑
Response.Write "<script>parent.form1.filename"&Num&".value='"&RealName&"';</script>" '實際文件名稱
Response.Write "<font style='font-family: 宋體; font-size: 9pt'>文件上傳成功 [ <a href=# onclick=history.go(-1)>修改</a> ]</font>"
Set upload = Nothing ''刪除此對象
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -