火狐浏览器不执行ASP页面的For Each in,怎么解决?
最近用科讯9.0版本做一个网站。后台编辑器添加图片的时候,火狐不兼容导致添加不了。慢慢研究发现火狐不执行ForEachin这段代码,直接跳过。下面这段代码中间省略了,火狐...
最近用科讯9.0版本做一个网站。后台编辑器添加图片的时候,火狐不兼容导致添加不了。慢慢研究发现火狐不执行For Each in这段代码,直接跳过。下面这段代码中间省略了,火狐根本不执行For Each 到Next中间这段代码,直接跳到下面执行。所以火狐上传图片一致提示“没有上传文件”。有什么办法解决,在线等高手,搞定追加分。1254043304~~Q~~Q。
For Each FormName in UpFileObj.File
SameFileExistTF = False
FileName = UpFileObj.File(FormName).FileName
If NoIllegalStr(FileName)=False Then ErrStr=ErrStr&"文件:上传被禁止!\n"
FileExtName = UpFileObj.File(FormName).FileExt
If Instr(FileExtName,"?")<>0 Then FileExtName=right("00" & FileExtName,4) '防止swfupload的中文乱码处理
If Instr(FileExtName,"?")<>0 Then FileExtName=right("00" & FileExtName,3)
FileContent = UpFileObj.File(FormName).FileData
U_FileSize=UpFileObj.File(FormName).FileSize
Dim FileType:FileType=UpFileObj.File(FormName).FileType
'是否存在重名文件
if U_FileSize > 1 then
NoUpFileTF = False
.......
Next
Set FsoObj = Nothing
if NoUpFileTF = True then
CheckUpFile = "没有上传文件"
end if 展开
For Each FormName in UpFileObj.File
SameFileExistTF = False
FileName = UpFileObj.File(FormName).FileName
If NoIllegalStr(FileName)=False Then ErrStr=ErrStr&"文件:上传被禁止!\n"
FileExtName = UpFileObj.File(FormName).FileExt
If Instr(FileExtName,"?")<>0 Then FileExtName=right("00" & FileExtName,4) '防止swfupload的中文乱码处理
If Instr(FileExtName,"?")<>0 Then FileExtName=right("00" & FileExtName,3)
FileContent = UpFileObj.File(FormName).FileData
U_FileSize=UpFileObj.File(FormName).FileSize
Dim FileType:FileType=UpFileObj.File(FormName).FileType
'是否存在重名文件
if U_FileSize > 1 then
NoUpFileTF = False
.......
Next
Set FsoObj = Nothing
if NoUpFileTF = True then
CheckUpFile = "没有上传文件"
end if 展开
2个回答
展开全部
您好!很高兴为您答疑。
asp是动态脚本语言,其动态语法是在服务器端执行后,以html(超文本)形式输出到浏览器(客户端)的,故您所分析到的原因可能不对。要解决此问题有且只有一个有效办法,即开启您火狐浏览器的开发者工具,观察从服务器端输出到您浏览器的代码中是否包含报错的对象。另外,您服务器端的script语言是否选择正确,按您所提供的代码样例,您应该设置vbscript。
如果对我们的回答存在任何疑问,欢迎继续问询。
asp是动态脚本语言,其动态语法是在服务器端执行后,以html(超文本)形式输出到浏览器(客户端)的,故您所分析到的原因可能不对。要解决此问题有且只有一个有效办法,即开启您火狐浏览器的开发者工具,观察从服务器端输出到您浏览器的代码中是否包含报错的对象。另外,您服务器端的script语言是否选择正确,按您所提供的代码样例,您应该设置vbscript。
如果对我们的回答存在任何疑问,欢迎继续问询。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询