ASP情報提示関数を返したり転向したりする
769 ワード
时にはaspを书く时にユーザーにいくつかフィードバックの情报を必要として、このカスタマイズのリターンの情报の関数、とても便利です
具体的な使い方はもちろん、簡単です
'************************
' ：
' ： ，
' ：
'str
'stype :Back GoUrl Close
'url
'************************
Sub MsgBox(str,stype,url)
response.write ""
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 " "
End Sub具体的な使い方はもちろん、簡単です