delid.asp

来自「电影类型的好网站」· ASP 代码 · 共 41 行

<%

   on error resume next
   connstr="DBQ="+server.mappath("checkid.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
	 id=request("id")
set rs=createobject("adodb.recordset")
  sql="SELECT * FROM deleteid"
  rs.open sql,Conn,3,3
  do while not rs.eof 
  if rs("idd")=id then
  %>
  <script language="vbScript">
window.alert("请刷新!!!些ID已记录!")
window.close()
</script>
  <%
response.end
  end if
   rs.movenext
  loop
   rs.addnew
  rs("idd")=id
  rs.update
  rs.close
  set rs=nothing	
%>
<!--#include file="conn.asp"-->
<%
sql="delete from media where mediaid="&request("id")
conn.execute(sql)
sqll="delete from medialink where mediaid="&request("id")
conn.execute(sqll)


%>
<script language="vbScript">
window.alert("你已经删除了此影片")
document.location.href="movie.asp"
</script>