delqy2.asp

青岛分类信息网整合企业名录.供大家分享

<!--#include file="conn.asp"-->
<%
if session("ad_admin")="" then
response.redirect "login.asp"
else
if session("ad_admin")<>"" then

lid=request("id")
if not isChkInteger(lid) then
response.write "<script>alert('参数错误，窗口将关闭！');window.close();</script>"
response.end
end if

 sql="select * from qydata where id=cint('"&lid&"')"
 set rs=server.createobject("adodb.recordset")
 rs.open sql,connstr,3,2
  if not rs.eof then
  rs.delete
  rs.update
  response.redirect "adminqy.asp?pageid="&request("pageid")
  end if
else
response.write "<script>alert('您无权删除数据！请返回！');history.back();</script>"
response.end
end if
end if
%>