【VB】彈跳視窗應用相當於MsgBox

JavaScript  version

 Sub OpenMsg(ByVal Msg2Show As String) 'Pop-up a message dialogue
        Response.Write("<" + "Script language=""JavaScript"">" + Chr(13))
        Response.Write("window.alert('" & Msg2Show & "'); " + Chr(13))
        response.write("</" + "Script>")
 End Sub

VbScript  version
Sub OpenMsg(Msg2Show as string) 'Pop-up a message dialogue
response.write("<"+"Script language=""VBScript"">"+chr(13))
response.write("Msgbox """+Msg2Show+" "",, ""訊息"" "+chr(13))
response.write("</"+"Script>")
end sub

若有使用到CSS套用版面的話,建議使用下列的寫法:

 Sub OpenMsg(ByVal Msg2Show As String) 'Pop-up a message dialogue
        Dim Msg As String = ""
        Msg = "<Script language=""JavaScript"">" & vbCrLf & _
                 "window.alert('" & Msg2Show & "'); " & vbCrLf & _
                 "</Script>"
        Page.ClientScript.RegisterClientScriptBlock(GetType(String), "Alert", Msg)
 End Sub

呼叫方式 EX: OpenMsg("更新完成")