CSDN博客

img xiaoK

在服务器用代码实现弹出对话框

发表于2004/12/30 20:02:00  885人阅读

 Private Sub cscript(ByVal key As String, ByVal meg As String)
        Dim scriptFunction As New StringBuilder
        scriptFunction.Append("<script language= vbscript>")
        scriptFunction.Append("msgbox(""" & meg & """)")
        scriptFunction.Append("</script>")
        RegisterStartupScript(key, scriptFunction.ToString())
    End Sub

0 0

相关博文

我的热门文章

img
取 消
img