<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/conn.asp"-->
<!--#include fiel="../inc/ip.asp"-->
<%
id=request.QueryString("id")
sql="select * from ad_user_pic where user_pic_id="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
sortname=rs("user_pic_pn")
sortsay=rs("user_pic_apic")
sortname=rs("user_pic_name")

sql1="select * from ad_ad_blog"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,3

rs1.addnew
rs1("user_sort_id")=id
rs1("user_sort_name")=sortnmae
rs1("ad_log_gut")=sortsay
rs1("ad_log_name")=sortusername
rs1("ad_log_date")=now()
rs1("ad_log_ip")=getIP
rs1.update

sql2="update ad_user_pic set user_pic_fake='1' where user_pic_id="&id
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,3
response.Write"<script>alert('已经审核成功！');window.location.href='pic_list.asp'</script>"
%>
没的提示,总是提交不成功

你直接用:
conn.execute(sql2)执行看看,或者你可以获取异常.
用Response.Write("输出你的异常信息")看看是什么东西

sql2="update ad_user_pic set user_pic_fake='1' where user_pic_id="&id
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,3

改为：

sql2="update ad_user_pic set user_pic_fake='1' where user_pic_id="&id
conn.execute(sql2)