[求助] err.desription的错误信息如何在JS中的Alert()里表现出来。

if err<>0 then
response.write "这里如何写JS的Alert（err.description）"
'表现出错的信息来

else
...
end if

[此贴子已经被作者于2007-3-21 10:16:44编辑过]

response.write "&lt;script language=""javascript""&gt;alert("""&amp; err.desription &amp;""");&lt;/script&gt;"

response.write "<script language=""javascript"">alert("""& err.description &""");</script>"

为什么用单引号不行。

[此贴子已经被作者于2007-3-21 10:17:55编辑过]

err.desription 里往往会包含单引号或者双引号，建议先对err.desription 中的单引号或者双引号进行过滤再输出

嗯，谢谢版主

还有谢谢你的递归无级限树型菜单。

是呀 ，外层是 " 里面就只能有 '

使用了还是无效，用常量代替则有效。是不是alert()里不能使用变量。

用response.write err.description 直接输出有效。

用response.write "<script language=""javascript"">alert("""& err.description &""");</script>"则无效。无显示

并不是说alert()里不能使用变量，是因为err.description 会有很多不规则字符、换行等，输出到客户段后，很可能就使JS脚本产生错误，LZ看下输出的原文件就明白了，里面的JS已经不是比拟预想中的那种格式了

哦，刚试了一下这种方法
dim errormsg
if err<>0 then
errormsg=err.description
errormsg=replace(errormsg,"'","")
response.write "<script language=""javascript"">alert("'"& errormsg&"'");</script>"

还是不行。

麻烦“阳光白雪”能提供一个实例参照一下。如何避免这种格式的输出。但又要弹出消息框来。

多谢。

给你一个函数，把错误信息格式化下

Function ToumhJs(Strings)
Dim Str
Str = Strings
str = Replace(str, CHR(39), "\'")
str = Replace(str, CHR(13), "")
str = Replace(str, CHR(10), "")
str = Replace(str, "]]>","]]&gt;")
ToumhJs = str
End Function


response.write "<script language=""javascript"">alert("'"& ToumhJs(Err.Description) &"'");</script>"