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后,程序能弹出一个对话框,说明这表已经存在,并有一个按纽来决定是否进行下一步的操作。
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
用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>