C# と VB.NET の質問掲示板

■No44662 (ごとぅーん さん) に返信
ClientScript.RegisterStartupScript で Script を登録してはいかがでしょうか。

ClientScript.RegisterStartupScript(Me.GetType(), "alert", GetAlertScript(), False)

Function GetAlertScript() As String
    Return String.Format( _
        "<script language=""VBScript"">" & _
        "Call MsgBox(""{0}"", vbInformation, ""タイトル"")" & _
        "</script>", GetMessageFromDb())
End Function

Function GetMessageFromDb() As String
    Return "わっほーい"
End Function

JavaScript の alert を使うという手もあります。

ClientScript.RegisterStartupScript(Me.GetType(), "alert", GetAlertScript(), True)

Function GetAlertScript() As String
    Return String.Format("alert('{0}')", GetMessageFromDb())
End Function

Function GetMessageFromDb() As String
    Return "わっほーい"
End Function

■No44660 (魔界の仮面弁士 さん) に返信
> <script language="VBScript">Call MsgBox("メッセージ", vbInformation, "タイトル")</script>
こんな手段があったのですか。
文字列をシングルクォートで囲ってしまって悩みまくってしまいました。
コメント・・・
Call MsgBox('わっほーい', vbInformation, 'タイトル')

■No44664 (もりお さん) に返信
>     Return String.Format( _
>         "<script language=""VBScript"">" & _
>         "Call MsgBox(""{0}"", vbInformation, ""タイトル"")" & _
>         "</script>", GetMessageFromDb())

文字列中に「改行」や「"」が現れた場合に、
　Call MsgBox("たとえば、" & vbNewLine & "改行や「""」など", vbInformation, "タイトル")
というスクリプトが生成されるようにしなければならないので、
  Function Quote(ByVal Text As String) As String
      Text = Replace(Text, """", """""").Replace(vbCrLf, vbLf).Replace(vbCr, vbLf)
      Return """" & Text.Replace(vbLf, """ & vbNewLine & """) & """"
  End Function
のような物を用意しておいて、
    String.Format("Call MsgBox({0}, vbInformation, {1})", _
                  Quote(GetMessageFromDb()), _
                  Quote("タイトル"))
などとした方が良いかな。

■No44665 (魔界の仮面弁士 さん) に返信
>   Function Quote(ByVal Text As String) As String
>       Text = Replace(Text, """", """""").Replace(vbCrLf, vbLf).Replace(vbCr, vbLf)
>       Return """" & Text.Replace(vbLf, """ & vbNewLine & """) & """"
>   End Function

う、エスケープ処理を完全に失念していました。
クォーティングとエスケープ処理をメソッドとして切り出してやるわけですね。
なるほど、このようにやると良いのですか。
勉強になりました。ありがとうございます。