VBScript中如何通过弹出的MsgBox按钮来执行具体操作？ 分数不够可以再加！（急！）(15分)

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-03

• #1

[blue]如题，例如：如下代码中：
...
MsgBox("您真的要删除该记录吗？",65)
...
若用户单击了MsgBox上的“确定”按钮，则转向相应的DeleteRecord.asp页面删除选定记录，若用户单击了MsgBox上的“取消”按钮，则忽略当前操作。
请各位指教，谢谢！
[/blue]

 

A

antonytyler

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-03

• #2

有返回值的啊，去网上查查，一查一大堆

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-04

• #3

是有返回值，但是我试过了，无法通过返回值（点击“确定”返回1，点击“取消”返回2）跳转到指定的ASP页面的啊！

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-04

• #4

<script language=&quot;VBScript&quot;>
<!--
sub ConfirmDelete()
ask = MsgBox(&quot;您真的要删除该记录吗？&quot;,65,&quot;确认删除&quot
if ask = 1 then
Response.Redirect(&quot;Test.asp&quot
end if
end sub
-->
</script>
以上代码为什么在单击MsgBox上的“确定”按钮后不能转向Test.asp操作页呢？

 

K

kid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-04

• #5

你这是在客户端运行的脚本，不能用Response，这个只能在服务端运行才有效。
可以用window.open(&quot;test.asp&quot代替。
<script language=&quot;VBScript&quot;>
<!--
sub ConfirmDelete()
ask = MsgBox(&quot;您真的要删除该记录吗？&quot;,65,&quot;确认删除&quot
if ask = 1 then
window.open(&quot;Test.asp&quot
end if
end sub
-->
</script>

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-04

• #6

to kid大侠：
但我想要的结果是不出现页面，而是只在Test.asp单元中执行代码，而后仍然返回到本页

 

F

fei_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-04

• #7

可以做一个Form.如果点击确定的话就提交到Test.asp在Test中做完后再返回就可以了.我做过很多这方面的asp.

 

A

antonytyler

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-04

• #8

来自：kid, 时间：2006-8-4 9:50:35, ID：3524987
你这是在客户端运行的脚本，不能用Response，这个只能在服务端运行才有效。
同意这位兄弟的话！
而且楼主你的代码中response对象肯定用不了，这是asp的服务器端对象。
给你二个解决思路：
1。在test.asp里写一个重定向语句response.redirect XXX,在转到这个页面的时候传一个参数（值为跳转到该页面的原来的页面名称）给这个页面，上面这个语句中XXX就是这个页面名称，至于怎么跳转可以用javascript,（vbscript好像也可以，不过我对javascript比较熟悉）。
2。如果test.asp里的功能代码能封装成函数，那么就封装成函数，用include包含到页面里调用执行就可以了省得跳转了

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-07

• #9

多人接受答案了。