'================================================
'作 用：输出错误警告脚本
'参 数：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