上传文件类型

<%
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 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
                    strJS="<SCRIPT language=javascript>" & vbcrlf
                    IF founderr<>True THEN
                        randomize
                        ranNum=int(900*rnd)+100
                        filename=SavePath & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ranNum & "." & fileExt
                        file.SaveToFile Server.mappath(FileName) 
                        msg="上传文件成功！"
                        FileName=Replace(FileName,"../","")
                        IF xPageName="PicLoad" OR xPageName="DownLoad" THEN
                            IF file.FileSize>0 THEN 
                                response.Write "<script>window.opener.document." & upload.form("FormName") & "." & upload.form("EditName") & ".value='" & FileName & "'</script>"
                            End IF
                        Else
                            arrUploadFiles=split(UpFileType,"|")
                            For intTemp=0 to ubound(arrUploadFiles)
                                strJS=strJS & "content=parent.document.UploadFile.a.value;"
                                FileType=right(fileExt,3)
                                Select Case FileType
                                    Case "" & arrUploadFiles(intTemp) & "",""
                                        strJS=strJS &"content=content+'" & filename & "';" & vbcrlf
                                End Select
                                strJS=strJS & "parent.document.UploadFile.a.value=content;" & vbcrlf
                                strJS=strJS & "content=parent.document.UploadFile.f.value;"
                                FileType=right(fileExt,3)
                                Select Case FileType
                                    Case "" & arrUploadFiles(intTemp) & "",""
                                        strJS=strJS &"content=content+'" & filename & "';" & vbcrlf
                                End Select
                                strJS=strJS & "parent.document.UploadFile.f.value=content;" & vbcrlf
                            Next
                        End IF
                    End IF
                    strJS=strJS & "alert('" & msg & "');" & vbcrlf
                    IF xPageName="PicLoad" or xPageName="DownLoad" THEN
                        strJS=strJS & "window.close();" & vbcrlf
                    Else
                        strJS=strJS & "window.location = 'Upload.asp?uPageName=" & uPageName & "';" & vbcrlf
                    End IF
                    strJS=strJS & "</script>"
                    response.write strJS
                Set file=Nothing
            Next
        Set upload=Nothing
    End sub
%>如何改为可以上传任何文件！~

解决方案 »

  1.   

    把这个去掉  IF EnableUpload=False THEN 
                            msg="这种文件类型不允许上传！" 
                            founderr=True 
                        End IF 
      

  2.   


    IF fileEXT="asp" OR fileEXT="asa" OR fileEXT="aspx" THEN 
                            EnableUpload=False 
                        End IF 
    这个意思是如果文件扩展名是asp或asa或aspx，就有    EnableUpload=False 
      

  3.   

    把以下删除掉: IF fileEXT="asp" OR fileEXT="asa" OR fileEXT="aspx" THEN 
                            EnableUpload=False 
                        End IF 
                        IF EnableUpload=False THEN 
                            msg="这种文件类型不允许上传！" 
                            founderr=True 
                        End IF