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
在服务器用代码实现弹出对话框
最新推荐文章于 2022-12-28 15:46:25 发布