'作  用：输出错误警告脚本
　　'参  数：str ----参数入口
　　'返回值：警告信息
　　'================================================
　　Sub OutAlertScript(str)
　　Response.Write "<script language=javascript>" & vbcrlf
　　Response.Write "alert('" & str & "');"
　　Response.Write "history.back()" & vbcrlf
　　Response.Write "</script>" & vbcrlf
　　Response.End
　　End Sub
　　Sub OutHintScript(str)
　　Response.Write "<script language=JavaScript>" & vbCrLf
　　Response.Write "alert('" & str & "');"
　　Response.Write "location.replace('" & Request.ServerVariables("HTTP_REFERER") & "')" & vbCrLf
　　Response.Write "</script>" & vbCrLf
　　Response.End
　　End Sub
　　Sub OutputScript(str,url)
　　Response.Write "<script language=JavaScript>" & vbCrLf
　　Response.Write "alert('" & str & "');"
　　Response.Write "location.replace('" & url & "')" & vbCrLf
　　Response.Write "</script>" & vbCrLf
　　Response.End
　　End Sub