del.asp

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

<%
   connstr="DBQ="+server.mappath("movie.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
	  connstr1="DBQ="+server.mappath("checkid.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn1=server.createobject("ADODB.CONNECTION")
     conn1.open connstr1
	 


    set rs=createobject("adodb.recordset")
  sql33="SELECT mediaid FROM medialink"
  rs.open sql33,Conn,3,3 
  
   set rs=createobject("adodb.recordset")
  sql1="SELECT mediaid FROM media"
  rs.open sql1,Conn,3,3



do while not rs.eof 
set rs1=createobject("adodb.recordset")
sql4="SELECT * FROM deleteid"
	 rs1.open sql4,Conn1,3,3 
	  
  do while not rs1.eof
  if rs("mediaid")=rs1("idd") then

  sql5="delete from media where mediaid="&rs1("idd")
  conn.execute(sql5)
   sql55="delete from medialink where mediaid="&rs1("idd")
  conn.execute(sql55)
exit do
  end if
  rs1.movenext
loop
rs.movenext
loop
%>
<script language="vbScript">
window.alert("你已经删除了不能看的影片")
window.close()
</script>