功能：判断扩展名是否合法
sAllowExt = "gif|jpg|jpeg|png|bmp"
---------------------------------------
Sub CheckValidExt(sExt)
       Dim b, i, aExt
       b = False
       aExt = Split(sAllowExt, "|")
       For i = 0 To UBound(aExt)
              If LCase(aExt(i)) = sExt Then
                     b = True
                     Exit For
              End If
       Next
       If b = False Then
         'response.redirect "upload.asp"  ---当以上条件成立，只用这一行时能正确运行，非法扩展名文件不会上传
         response.write "<script language=javascript>"  ---注释掉上一行而用这几行，就不行，非法扩展名文件也会上传
         response.write "window.alert(""不允许上传的文件类型！"");"
         response.write "window.location.href='newupload.asp';"
         response.write "</script>"
         'response.write "<script language=javascript>window.alert(""不允许上传的文件类型！"");window.location.href='upload.asp';</script>"  ---以上四行换成一行也不行
       End If
End Sub

(""不允许上传的文件类型！"")

跟这里单引号双引号没关系，我试了N遍了，不关这里的事

response.write "<script language=javascript>window.alert('不允许上传的文件类型！');window.location.href='upload.asp';</script>"

这样是可以的

response.redirect "upload.asp"这行去掉

然后
.......型！"");window.location.href='upload.asp';</script>"  
response.end
end if

谢谢udbyygy

就是这个，加上response.end就好了

万分感谢！！能告诉我为什么必须加这个吗？

你不明白为什么一定要明白你不明白的,,
这就是原因!嘿嘿...

因为当提示"不允许上传的文件类型"时,程序就要跳转到'newupload.asp',此时必须结束response.write的输出,因此就需要response.end()终止.

谢谢7楼

帮楼主总结下ASP中关于单引号双引号的问题：从1楼的问题中看来，ASP中单引号和双引号的效果，一个单引号和两个双引号的效果相同，至少都可以运行。