asp开发学习笔记-常用页转向提示

Sub alertgo(msg,url) 
    Response.Write ("<script language=javascript>alert(’"&msg&"’);window.location=’"&url&"’;</script>") 
End Sub 

Sub alert(msg) 
    Response.Write ("<script language=javascript>alert(’"&msg&"’);</script>") 
End Sub 

Sub go(url) 
    Response.Write ("<script language=javascript>window.location=’"&url&"’;</script>") 
End Sub 

Sub goHistory() 
    Response.Write ("<script language=javascript>window.location=document.referrer;</script>") 
End Sub 

Sub History() 
    Response.Write ("<script language=javascript>history.go(-1);</script>") 
End Sub 

Sub ReLoad() 
    Response.Write ("<script language=javascript>window.location.reload(true);</script>") 
End Sub