admin_reviewdelall.asp

这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下

<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：[e-mail]
'=========================================================
if session("AdminName") = "" then
    response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<%
   dim sql 
   dim rs
   set rs=server.createobject("adodb.recordset")
   sql="delete from Pic_Review where IswNumsClass="&request("id")  
   conn.execute sql
   set rs=server.createobject("adodb.recordset")
   sql="update desktop set desktopre=0 where desktopid="&request("id")
   conn.execute sql
   set rs=nothing  
   conn.close
   set conn=nothing
   response.write "<script language=javascript>alert('已经删除了本张图片的所有评论!');history.back(-1);</script>"
	response.end ()%>