<%
dim id,aa
aa=request("vbok")
if aa=1 then
id=request("id")
else if id <> "" then
set rs = server.CreateObject("ADODB.Recordset")
sql="select * from pro_img where id="&id
rs.open sql,conn,1,1
pic_img=rs("p_pic")
sql2 = "delete from pro_img where id="&id
conn.execute sql2
end if
end if
%>
---------------------
我在aa.asp页面的弹出对话框里无论是单击确认还是取消,传到aa_de.asp后无任何操作,不会删除,也不会跳转页了,请我接收那个对话框的值哪里出错了。。。作者: 蓳隯Д麞帥 时间: 2010-1-10 07:38
sql2="Select * from pro_img where id in ("& trim(Request("id"))&")"
换上这句试试,没有任何操作,应该是传递的ID值没有得到!作者: (のkisδ≒雪 时间: 2010-1-10 07:38
--------aa.asp---------
<script type="text/JavaScript">
function MM_popupMsg(msg,Url) {
if(confirm(msg))
self.location=Url;
}
<%
dim id,aa
aa=request("vbok")
if aa=1 then
id=request("id")
else if id <> "" then
set rs = server.CreateObject("ADODB.Recordset")
sql="select * from pro_img where id="&id
rs.open sql,conn,1,1
pic_img=rs("p_pic")
sql2 = "delete from pro_img where id="&id
conn.execute sql2