ASP上传文件的问题

来源:百度知道 编辑:UC知道 时间:2024/05/11 05:06:46
uploadfile.asp代码如下:
<!--#include file="upload.asp"-->
<%
Dim AffixSize,AffixType,FilePath
AffixSize=200 '设置上传文件大小,单位为K
AffixType=".gif|.jpg|.bmp" '设置上传文件格式,用“|”分隔
Server.ScriptTimeOut=5000 '超时设置
FilePath="UploadFiles" '设置上传文件的目录
If Request("action")="saveupload" Then
Dim Affix,i
Dim Upload,File,Fso
Dim formName,FileName,FileType,FileSize,TotalBytes,ErrorType,ranNum,FullPath
Set Upload=New Upload_Kings
For Each formName In Upload.File
Set File=Upload.File(formName)
FileName=File.FileName
FileType=Lcase(Mid(FileName,InStrRev(FileName, ".")))
Affix=Split(AffixType,"|")
For i = 0 To UBound(Affix)
If FileType=Affix(i) Then
ErrorType=0
Exit For
Else
ErrorType=1
End If
Next
If ErrorType=1 Then
Response.Write("文件格式错误!")
Respon

加上这么一句

<%
if request("file")="" then
response.write("<script>alert('请选择要上传的文件');history.go(-1)</script>")
else
%>
你上面的内容
<%
end if
%>