主题：谁进来帮我看看－－－谢谢
endlessrain
[专家分：10] 发布于 2007-05-01 15:55:00
目的就是根据上个页面传来的id号，删除相关的类，如果该类为大类，就删除它所包含的所有的小类，如果不是就直接删除．
<%dim s
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from class where id="&id,conn,1,2
s=rs("parentid")
if s="num" then%>
<script language="vbscript">
dim i
i=msgbox ("这是一个大类，确定要全部删除!",vbyesno+48,"系统提示")
</script>
<%if i=vbyes then
rs.delete
conn.execute"delete * from class where parentid='"&rs("classid")&"'"
end if%>
<%else
rs.delete
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
server.Transfer("class.asp")
%>
总是达不到自己想要的效果，要么删除了全部的大类．．．．．
还有<script>.... </script>中可不可以加<%...%>啊
最后更新于：2007-05-02 21:31:00
回复列表 （共21个回复）
沙发
liulei001 [专家分：12820] 发布于 2007-05-02 10:42:00
问题1：
如果要返回提示，脚本必须运行在客户端，所以runat=server不行。
（可能你是在服务器本机上进行的测试，所以没发现。）
问题2：
parentid到底是字符串还是数值？
先用if s="num" then判断，又用delete * from class where parentid='"&s&"'"删除，你确定这段没问题吗？
板凳
endlessrain [专家分：10] 发布于 2007-05-02 21:10:00
上面我改过了
我主要想问的是
1. <script>.....</script>之间可不可以加<%....%>动态的东西
或<%...%>里面加<script>..</script>
2. <script language="vbscript" runat="server">
dim i
i=msgbox ("这是一个大类，确定要全部删除!",vbyesno+48,"系统提示")
</script>
<%if i=vbyes then －－－就这
rs.delete
conn.execute"delete * from class where parentid='"&s&"'"
end if%>
这段代码是不是要这样写啊
<script language="vbscript" runat="server">
dim i
i=msgbox ("这是一个大类，确定要全部删除!",vbyesno+48,"系统提示")
if i=vbyes then
</script>
<%rs.delete
conn.execute"delete * from class where parentid='"&s&"'"
end if%>
3 楼
oyh484203 [专家分：5890] 发布于 2007-05-04 10:46:00
1.可以写的。
2.多试下不是知道了吗？
4 楼
endlessrain [专家分：10] 发布于 2007-05-04 18:05:00
这就有问题了
．．．．
<%if i=vbyes then
rs.delete
conn.execute"delete * from class where parentid='"&s&"'"
end if%>
．．．．
这样写没用
if i=vbyes then
<%rs.delete
conn.execute"delete * from class where parentid='"&s&"'"%>
end if
</script>
这样写不管是不是点ok全删了
应该怎样写？
5 楼
oyh484203 [专家分：5890] 发布于 2007-05-05 09:10:00
为什么不用JS呢？那么简单的效果，JS一句就可以搞定了
6 楼
a97191 [专家分：4040] 发布于 2007-05-05 10:08:00
asp要给vbyes初值，我看是原来是搞vb的吧，把vbyes换成6试一下
7 楼
endlessrain [专家分：10] 发布于 2007-05-05 15:33:00
换成６不行啊
为什么是６？
那如何得到ok值啊？
8 楼
endlessrain [专家分：10] 发布于 2007-05-08 16:41:00
有没有人知道啊？
那oyh484203用js怎么写啊？
因为我没有java基础，所以我基本上都是用vbscript的
9 楼
a97191 [专家分：4040] 发布于 2007-05-08 18:02:00
参考一下
<script language="VBScript">
dim yn
yn=msgbox("确定要删除吗？",4+32,"信息窗口")
if yn=6 then
else
window.history.back()
end if
</script>
10 楼
endlessrain [专家分：10] 发布于 2007-05-08 18:10:00
<script language="vbscript">
dim i
i=msgbox ("这是一个大类，确定要全部删除!",4+48,"系统提示")
if i=6 then
<%rs.delete
conn.execute"delete * from class where parentid='"&classid&"'"%>
else
window.history.back()
end if
</script>
就这样啊点no 照样全删了
我来回复
您所在位置：