我在网站后台上传时，提示这种文件类型不允许上传！ 5
我在网站后台上传时，提示这种文件类型不允许上传！不知道是怎么会回事？那位高手帮忙看看DimSavePath,xUpload,xPageName,upload,file,f...
我在网站后台上传时，提示这种文件类型不允许上传！不知道是怎么会回事？那位高手帮忙看看
Dim SavePath,xUpload,xPageName,upload,file,formName,fileExt
Dim upNum,EnableUpload,Forumupload,ranNum,uploadfiletype,msg,FileType
xPageName=request("xPageName")
IF xPageName="Pic" THEN SavePath = "../Upload/Pic"
IF xPageName="PicLoad" THEN SavePath = "../" & request("FileNames")
IF xPageName="Pic" OR xPageName="PicLoad" THEN xUpload = "png|gif|jpg|bmp"
IF xPageName="Flash" THEN SavePath = "../Upload/Flash"
IF xPageName="Flash" THEN xUpload = "swf"
IF xPageName="Media" THEN SavePath = "../Upload/Media"
IF xPageName="Media" THEN xUpload = "rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov"
IF xPageName="Real" THEN SavePath = "../Upload/Real"
IF xPageName="Real" THEN xUpload = "rm|ra|ram|wma"
IF xPageName="DownLoad" OR xPageName="" THEN SavePath = "../Upload"
IF xPageName="DownLoad" OR xPageName="" THEN SavePath = uFileType
IF right(SavePath,1)<>"/" THEN SavePath=SavePath&"/"
xUpload=split(xUpload,"|")
For intTemp=0 to ubound(xUpload)
IF instr(uFileType,xUpload(intTemp)) THEN
UpFileType=xUpload(intTemp) & "|" & UpFileType
End IF
Next
const upload_type=0
MaxFileSize=uFileNu
msg=""
founderr=False
EnableUpload=False
response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><body>"
Select Case upload_type
Case 0
Call upload_0()
Case Else
response.Write "本系统未开放插件功能"
response.End
End Select
response.Write "</body></html>"
sub upload_0()
set upload=new upload_file
For each formName in upload.file
set file=upload.file(formName)
IF file.filesize<1 THEN
msg="请先选择你要上传的文件！"
founderr=True
End IF
IF file.filesize>(MaxFileSize*1024) THEN
msg="文件大小超过了限制，最大只能上传" & CStr(MaxFileSize) & "K的文件！"
founderr=True
End IF
fileExt=lcase(file.FileExt)
Forumupload=split(UpFileType,"|")
For i=0 to ubound(Forumupload)
IF fileEXT=trim(Forumupload(i)) THEN
EnableUpload=True
Exit For
End IF
Next
IF fileEXT="asp" OR fileEXT="asa" OR fileEXT="aspx" THEN
EnableUpload=False
End IF
IF EnableUpload=False THEN
msg="这种文件类型不允许上传！"
founderr=True
End IF
我试了，什么格式都上传不了,都提示这种文件类型不允许上传！ 展开
Dim SavePath,xUpload,xPageName,upload,file,formName,fileExt
Dim upNum,EnableUpload,Forumupload,ranNum,uploadfiletype,msg,FileType
xPageName=request("xPageName")
IF xPageName="Pic" THEN SavePath = "../Upload/Pic"
IF xPageName="PicLoad" THEN SavePath = "../" & request("FileNames")
IF xPageName="Pic" OR xPageName="PicLoad" THEN xUpload = "png|gif|jpg|bmp"
IF xPageName="Flash" THEN SavePath = "../Upload/Flash"
IF xPageName="Flash" THEN xUpload = "swf"
IF xPageName="Media" THEN SavePath = "../Upload/Media"
IF xPageName="Media" THEN xUpload = "rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov"
IF xPageName="Real" THEN SavePath = "../Upload/Real"
IF xPageName="Real" THEN xUpload = "rm|ra|ram|wma"
IF xPageName="DownLoad" OR xPageName="" THEN SavePath = "../Upload"
IF xPageName="DownLoad" OR xPageName="" THEN SavePath = uFileType
IF right(SavePath,1)<>"/" THEN SavePath=SavePath&"/"
xUpload=split(xUpload,"|")
For intTemp=0 to ubound(xUpload)
IF instr(uFileType,xUpload(intTemp)) THEN
UpFileType=xUpload(intTemp) & "|" & UpFileType
End IF
Next
const upload_type=0
MaxFileSize=uFileNu
msg=""
founderr=False
EnableUpload=False
response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><body>"
Select Case upload_type
Case 0
Call upload_0()
Case Else
response.Write "本系统未开放插件功能"
response.End
End Select
response.Write "</body></html>"
sub upload_0()
set upload=new upload_file
For each formName in upload.file
set file=upload.file(formName)
IF file.filesize<1 THEN
msg="请先选择你要上传的文件！"
founderr=True
End IF
IF file.filesize>(MaxFileSize*1024) THEN
msg="文件大小超过了限制，最大只能上传" & CStr(MaxFileSize) & "K的文件！"
founderr=True
End IF
fileExt=lcase(file.FileExt)
Forumupload=split(UpFileType,"|")
For i=0 to ubound(Forumupload)
IF fileEXT=trim(Forumupload(i)) THEN
EnableUpload=True
Exit For
End IF
Next
IF fileEXT="asp" OR fileEXT="asa" OR fileEXT="aspx" THEN
EnableUpload=False
End IF
IF EnableUpload=False THEN
msg="这种文件类型不允许上传！"
founderr=True
End IF
我试了，什么格式都上传不了,都提示这种文件类型不允许上传！ 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
