问一个上传的问题

来源：百度知道 编辑：UC知道 时间：2024/06/09 13:09:10
'格式后缀
'-----------------------------------------------------------------------------------
Private Function FixFileName(Byval FName)
If IsEmpty(FName) Then Exit Function
FixFileName = Lcase(Trim(FName))
FixFileName = Replace(FixFileName,Chr(0),"")
FixFileName = Replace(FixFileName,"..","")
FixFileName = Replace(FixFileName,"'","")
FixFileName = Replace(FixFileName,"/","")
FixFileName = Replace(FixFileName,"\","")
FixFileName = Replace(FixFileName,"[","")
FixFileName = Replace(FixFileName,"]","")
FixFileName = Replace(FixFileName,"<","")
FixFileName = Replace(FixFileName,">","")
End Function
'-----------------------------------------------------------------------------------
'格式后缀

Private Function FixName(Byval UpFileExt)
If IsEmpty(UpFileExt) Then Exit Function
FixName = Lcase(UpFileExt)
FixName = Replace(FixName,Chr(0),"")
FixName = Replace(FixName,".","")
FixName = Replace(FixName,"'","")
FixName = Replace(FixName,"asp","")
FixName = Replace(FixName,"asa","")
FixName = Replace(FixName,"aspx","")
FixName = Replace(FixName,"cer","")
FixName = Replace(FixName,"cdx","")
FixName = Replace(FixName,"htr","")

End Function

改成：Private Function FixName(Byval UpFileExt)
If IsEmpty(UpFileExt) Then Exit Function
FixName = Lcase(UpFileExt)
FixName = Replace(FixName,Chr(0),"")
FixName = Replace(FixName,".","")
FixName = Replace(FixName,"'","")