?? upfile.asp
字號:
<!--#include file="uploadx.asp"-->
<!--#include file='connect.asp'-->
<html>
<head>
<title>上傳文件中.....</title>
</head>
<body>
<%
Dim filePath
Dim fileName
Dim fileExt
Dim file_subject
Dim Sql
Dim msg
Dim errflag
Dim errnumber
Dim SavePath
Dim maxfilesize
SavePath = "SavePath" '虛擬路徑(后面不要加"/"符號)
maxfilesize = 1*5120 '大小為5M
Errflag=false
filePath = SavePath '使用虛擬路徑進行賦值,如"/www"或"www"等
filePath = Server.MapPath(filePath) '將虛擬路徑轉換為磁盤路徑
file_subject = GetFormVal("filename") '取得文件標題
fileext = GetFormVal("fileExt") '取得文件介紹
errnumber = GetFormVal("errnumber") '取得報錯方式
errnumber = cint(errnumber)
if len(trim(file_subject))=0 then
Response.Write "文件主題不能為空"
Response.End
end if
if len(trim(fileext))=0 then
fileext = "無簡介"
end if
filename = SaveFile("fruit",filePath,maxfilesize,errnumber,1) '保存并取得文件名
' 0,1 唯一文件名方式，如果有同名則自動改名；
' 1,1 報錯方式，如果有同名則出錯；
' 2,[0|1] 覆蓋方式，如果有同名則覆蓋原來的文件
if len(trim(filename))>0 then
Dim PerFnN
Dim intPerFnN
Dim PerFsize
PerFnN=split(filename,"|")
intPerFnN=Ubound(PerFnN)
Select Case intPerFnN
Case 1
FileName=Trim(PerFnN(0))
PerFsize=Csng(Trim(PerFnN(1)))
Case 0
FileName=Trim(PerFnN(0))
PerFsize=0
End Select
select case Trim(filename)
case "pathError"
msg="錯誤: 指定的路徑不存在"
errflag=true
case "refileError"
msg="錯誤: 文件已經存在"
errflag=true
case "sizeError"
msg="錯誤: 文件超出指定大小"
errflag=true
case "modeError"
msg="主機在不支持Fso模式下不能采用唯一或報錯方式上傳文件"
errflag=true
case "fileError"
msg="被限制上傳的文件格式"
errflag=true
case else
msg=""
errflag=false
end select
if not errflag then
Sql = "insert into upfile_table (subject,expit,filepath,filename,filesize) values"
Sql = Sql& " ('"& file_subject &"','"& fileext &"','"& SavePath &"','"& filename &"',"& PerFsize &")"
conn.execute(sql)
end if
end if
conn.close
set conn=nothing
Response.Write "<script language='Jscript'>"&vbcrlf
Response.Write "<!--"&vbcrlf
if errflag then
Response.Write "alert('"& msg &"');"&vbcrlf
end if
Response.Write "window.open('default.asp','_self');"
Response.Write "//-->"&vbcrlf
Response.Write "</script>"&vbcrlf
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -