Asp输出错误警告脚本函数

来源：互联网发布：积极网络用语编辑：程序博客网时间：2024/05/20 18:51

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