'************************
'子程序名：信息提示窗口
'功能：信息提示，并作返回或者轉(zhuǎn)向
'參數(shù)：
'str 提示字符串
'stype 處理類型:Back 返回 GoUrl 轉(zhuǎn)向 Close 關(guān)閉
'url 轉(zhuǎn)向方向
'************************
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

具體的使用方法就不說了，很簡(jiǎn)單

相關(guān)文章

SQL"不能為新插入的行確定標(biāo)識(shí)"錯(cuò)誤的解決方法
下列代碼運(yùn)行將出錯(cuò)(不能為新插入的行確定標(biāo)識(shí)),即新記錄不能為自己的另一個(gè)字段賦予新生成標(biāo)識(shí)的值
2008-10-10
使用Flash DownLoad編寫采集器(之突破防盜連下載音樂文件)
使用Flash DownLoad編寫采集器(之突破防盜連下載音樂文件)...
2007-02-02
asp之GetArray提取鏈接地址，以$Array$分隔的代碼
asp之GetArray提取鏈接地址，以$Array$分隔的代碼...
2007-09-09
ASP調(diào)用WebService轉(zhuǎn)化成JSON數(shù)據(jù)，附j(luò)son.min.asp
接觸WebService也很久了，但是使用asp調(diào)用教程的卻不多，還有轉(zhuǎn)成json也不多見，本文全部分享給大家，需要的拿去吧。
2016-03-03
一個(gè)sql查詢器，自動(dòng)畫表格填字段
隨便寫了一個(gè)，當(dāng)然為了數(shù)據(jù)安全，要過濾掉一個(gè)sql關(guān)鍵詞和系統(tǒng)中的一些表了
2008-11-11
ASP中巧用Split()函數(shù)生成SQL查詢語句的實(shí)例
有時(shí)候我們需要根據(jù)參數(shù)來實(shí)現(xiàn)多種條件查詢，這里就是通過split函數(shù)將參數(shù)分割為多個(gè)
2014-04-04
asp下檢查表中是否存在某個(gè)字段（列）函數(shù)
asp可以方便的檢查數(shù)據(jù)庫表中，是否存在這個(gè)字段
2008-03-03
實(shí)例分析之用ASP編程實(shí)現(xiàn)網(wǎng)絡(luò)內(nèi)容快速查找的代碼
實(shí)例分析之用ASP編程實(shí)現(xiàn)網(wǎng)絡(luò)內(nèi)容快速查找的代碼...
2007-03-03
ASP保存遠(yuǎn)程圖片到本地同時(shí)取得第一張圖片并創(chuàng)建縮略圖的代碼
采集中或者在線添加文章中都可以用到此功能
2008-10-10
server.mappath方法詳解
server.mappath方法整理，可供需求的朋友參考
2012-11-11