社区
ASP
帖子详情
不能用msgbox()?
distort
2001-07-20 08:35:07
我使用如下代码:
m=msgbox("...",vbokcancel)
if m=2 then
...
else
...
end if
运行时出错提示:
mirosoft vbscript runtime(0x800a0046).
pession denied:"msgbox"
...全文
179
10
打赏
收藏
不能用msgbox()?
我使用如下代码: m=msgbox("...",vbokcancel) if m=2 then ... else ... end if 运行时出错提示: mirosoft vbscript runtime(0x800a0046). pession denied:"msgbox"
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
distort
2001-07-23
打赏
举报
回复
感谢所有人。
distort
2001-07-22
打赏
举报
回复
现在可以弹出窗口了,但还不能得到msgbox()的返回值。是不是不能用此函数?
我用它的意图是:在用户要删除某一纪录时先确认一下。有何方法实现?
孟子E章
2001-07-22
打赏
举报
回复
<HTML>
<body>
<script language=vbscript>
mm=msgbox("请您按确定或取消",vbokcancel)
if mm=1 then
msgbox "你选了确定"
else
msgbox "你选了取消"
end if
</script>
</body>
</HTML>
l_walker
2001-07-22
打赏
举报
回复
down
wangzheng57
2001-07-22
打赏
举报
回复
天!难道你不能看一下VBSCRIPT的文档吗?
怎么不能得到msgbox()的返回值呢?真是奇怪!
freezwy
2001-07-22
打赏
举报
回复
给你个方法。记住给分就是了。
<script language="javascript">
<!--
function freezwy()
{
if (confirm("确实要这样吗?"))
{return true;}
else
{return false;}
}
//-->
</script>
对于连接
<a href="del.asp?id=<%=xx%>" onclick="javascript:return freezwy();">删除</a>
对于按钮
<input type=submit name=delit value="删除" onclick="javascript:return freezwy
();">
其他的就自己弄吧。
rainman_zhang
2001-07-22
打赏
举报
回复
<script language=vbscript>
msgbox "真的要删除"&"<%=你的记录值%>"&"吗?"
</script>
cczdp
2001-07-20
打赏
举报
回复
只能在客户端执行的,要执行可以这样的:
response.write "<script language=vbscript>
response.write "msgbox(....)"
response.write "</script>"
wyb2k
2001-07-20
打赏
举报
回复
asp语言是在服务器解释后,返回结果给浏览器。而msgbox()需要人为响应。总不至于在服务器打开N个窗口吧??用jvscript,vbscript 在客户端调用msgbox()函数是可以的。
dapan
2001-07-20
打赏
举报
回复
老大,您的程序是在服务器端之执行的,如何弹出窗口?!
只有在客户端执行时才可以的!
VBA实现可自动延时关闭消息框VBA代码示例,自动消失的
Msg
Box
实现方法,可以在Excel VBA自动化程序中采用
VBA实现可自动延时关闭消息框VBA代码示例,自动消失的
Msg
Box
实现方法,可以在Excel VBA自动化程序中采用。
Msg
Box
用于显示提示信息,但用
Msg
box
显示消息框时,VBA代码过程将处于暂停状态,并且可以根据用户的不同选择执行不同的后续操作。如果用户不进行操作,后续代码
不能
执行,这个问题不利于我们设计自动化执行的程序。而原生VBA中提供的
Msg
Box
无法实现自动关闭的功能。 那么使用这里分享的VBA代码可以自动关闭的消息框,从而避免程序暂停挂起,无法继续执行的问题。这里分享了两种代码实现方法,可以完美实现自动关闭的消息框。有兴趣可以下载使用哦。 具体效果看CSDN视频链接:https://live.csdn.net/v/317670
msg
box
FontSize:在
msg
box
(),errordlg(),warndlg()等中更改fontsize和其他文本属性。-matlab开发
h =
msg
box
('Hello world (20 pt font)', '示例');
msg
box
FontSize(h, fontsize)
msg
box
FontSize(h, fontsize, 'FontName', 'Consolas', 'Color', 'b')
msg
box
FontSize(h, fontsize, 'ignorebuttons', true) % 不对按钮应用更改。 Matlab的
msg
box
()、errordlg()、warndlg()等中的文本属性
不能
直接编辑并且默认的“字体大小”非常小。 这个函数解决了这个问题通过在
msg
box
句柄中搜索文本,更改其字体大小,然后更改适合新字体大小的窗口大小。 左下角的位置
msg
box
不会改变并且 resize 属性被打开。 附加名称-值可以设置除“单位”之外的文本属性(参见示例)。 输出包括文本对象的
Javascript DIV
msg
box
怎么俩个呢,
不能
删除!!! 请下载另一个, 这个作废:) http://download.csdn.net/source/807157
vbs表白小程序
根据抖音上小程序改的,写的比较激进,60秒没按要求填写会自动重启,并且将程序添加到了启动文件夹,重启后会自动运行,按要求输入后才会取消重启并删除启动文件夹内的文件。如果真的想用来表白请三思而后行哦。
试用期限制程序(VB6.0源代码编写)试用期限制程序,运行程序后,试用30天后,程序就
不能
启动
试用期限制程序(VB6.0源代码编写)试用期限制程序,运行程序后,试用30天后,程序就
不能
启动 。Dim ss As Date Dim dd As Integer If GetSetting(appname:="this", section:="user", Key:="time") = "" Then
Msg
Box
"尊敬的用户:你好!你还没有注册软件,从现在开始,你的试用为30天!" SaveSetting appname:="this", section:="user", Key:="time", setting:=Date Else ss = GetSetting(appname:="this", section:="user", Key:="time") dd = Date - ss If dd > 30 Then
Msg
Box
"对不起,你的试用期已到! " Unload Me Else
Msg
Box
"您现在还没有注册本软件,试用期还有" & 30 - dd & "天!" End If End If
ASP
28,391
社区成员
357,060
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章