Go_Error(str) 错误返回处理

 ' ============================================
' 错误返回处理
' ============================================
Sub Go_Error(str)
 Call CloseConn()
  Response.Write "<script language=javascript>alert('" & str & "\n\n"& p_xtjzd &"');history.back();</script>"
  Response.End
End Sub

Sub Go_Error1(str,page)
 Call CloseConn()
  Response.Write "<script language=javascript>alert('" & str & "\n\n"& p_xtjzd &"');window.location.replace('"&page&"')</script>"
  Response.End
End Sub