<%Option Explicit%>
<%
dim rs_lar,rs,rs1
dim sql,sql1
dim i,id
dim conn,DBPath

%>
<!--#include file="connpic.asp"-->

<%

id=request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")

sql="delete from pic where id1="&id&""
conn.execute sql

sql="delete from shuoming where ID="&id&""
conn.execute sql
response.redirect "manage.asp"
%>