delphoto.asp

这是一个文章管理的网页源程序

<!-- #include file="data1.inc" -->
<%
dim rs,name
username=Session.Contents("Name")
name=Request.QueryString("name")
if username="" or username<>name then %>
 <script language=vbscript>
  MsgBox "你不能删除此照片！"
  location.href = "javascript:window.close()"
</script>
<%else
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "delete from pic where name ='"&name&"'"
set rs=conn.Execute(sql)
Response.Redirect "indexphoto.asp"
end if
%>