photo_del_ok.asp

提供给大家学习交流,图片制作程序.希望大家提出提意见.

<!-- #include file="chk.asp" -->
<!-- #include file="conn.asp" -->

<%
id=request("id")
set rs=server.createobject("adodb.recordset")
rs.Open "Select * from [photo] where id="&id,conn,3,3
If rs.bof or rs.eof then 
  Response.write "数据出错，可能您已经删除了该照片但没有刷新网页！"
Else
name=rs("url")
rs.Delete
rs.Update
rs.Close
Response.Write "照片删除成功！仅在数据库中删除了该照片的信息，需要完全删除该照片应使用FTP连接主机并删除photo/uploadimg/相应文件！"

rs.Open "Select * from [sysphoto]",conn,3,3
rs.ADDNEW
rs("name")=name
rs("time")=now()
rs.Update
rs.Close
Set rs=nothing
End If
%>