[求助]如何弹出对话框

天泪离星

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("xscj.mdb")
set rsSchema=Conn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
if rsSchema("TABLE_NAME")="tj008211" then 在此处弹出对话框
rsSchema.movenext
Loop
set objConn=nothing
原程序如上，我请教的问题是如何在数据库xscj中找到数据表tj008211后，程序能弹出一个对话框，说明这表已经存在，并有一个按纽来决定是否进行下一步的操作。

Kdsffsd

<%if rsSchema("TABLE_NAME")="tj008211" then %>
<script language="JavaScript">
alert("对话框中显示的内容")
</script>

（?羙‘妞

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("xscj.mdb")
set rsSchema=Conn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
if rsSchema("TABLE_NAME")="tj008211" then '在此处弹出对话框
Response.write("<script language=JavaScript>alert('弹出对话框内容');</script>")
rsSchema.movenext
Loop
set objConn=nothing

誑謸鉍娚

那我如果想在对话框上加上 "确定"和"取消"两个按钮该怎么写的呢,又如何获取用户点击的是"确定"还是"取消"呢?楼上的大哥教教我的呢?

﹫.★…ㄨ★

javascript的确定取消函数
confirm函数，参数提示信息string(字符串),返回值bool(布尔值)
用法实例:

1. <script language="JavaScript">
   
2. if(confirm("确定取消测试"))
   
3. {
   
4. alert("您点击的是确定");
   
5. }
   
6. else
   
7. {
   
8. alert("您点击的是取消");
   
9. }
   
10. </script>

复制代码

紫色＆飘蓝ぁ

用VB也可以做到:
<script LANGUAGE="VBSCRIPT">
a=msgbox("真的要删除该记录吗？",1,"注意") //这个1是参数 你也可以改为2,3...有不同的样式
if a=1 then
location="Dodelete.asp?id=<%=id%>"
else
history.go(-1)
end if
</script>