>>>>是不是由于错误信息中含有 双引号 才导致上面语句执行出错shouldn'ttry
Dim Error_Msg As String 
Error_Msg = "<script language=javascript>alert('" & COMObj.ErrorFound.Description & "');</" & "script>"
Response.Write(Error_Msg)orDim Error_Msg As String 
Error_Msg = "<script language=javascript>alert('" & COMObj.ErrorFound.Description.Replace("'","""") & "');</" & "script>"
Response.Write(Error_Msg)