msgbox.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 23 行

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><%
Sub MsgBox(str,stype,url)
	response.write "<script language=javascript>"
	response.write "alert('"&str&"');"
	select case stype
		case "Back"
			response.write "history.go(-1);"
		case "GoUrl"
			response.write "window.location='"&url&"'"
		case "Close"
			response.write "window.close()"
	end select
	response.write "</script>"
End Sub
%>