attribute2.asp

OA最新破解2008版 全新 破解 希望大家用着舒服

<%@ codepage ="936" %>
<%
if instr(session("flag"),"04")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#include file="../../conn/dbconn2.asp" -->
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select id,flag,url,tjbz,begindate,enddate,trust_score from corporation where id="&id&""
rs.open sql,conn,1,3
rs("flag")=0
rs("url")=""
rs("tjbz")=""
rs("begindate")=""
rs("enddate")=""
rs("trust_score")=0
rs.update
call deleteannounce(id)
response.redirect "payment.asp?id="&id&"&page="&request("Page")&""
rs.close
set rs=nothing
conn.close
set conn=nothing

sub deleteannounce(id)
conn.execute("delete from [book] where bookid="&cstr(id)&" or gsid="&cstr(id)&"")    '从客户反馈表中删除这个公司的信息(阳光公司专有)
conn.execute("delete from [trustadv] where bprid="&cstr(id)&" or pjrid="&cstr(id)&"")    '从阳光会员评论表中删除这个公司的信息(阳光公司专有)
conn.execute("delete from [work] where gsid="&cstr(id)&"")    '从招聘表中删除这个公司的信息(阳光公司专有)
conn.execute("delete from [productclass] where gsid="&cstr(id)&"")    '从产品分类中删除这个公司的信息(阳光公司专有)
conn.execute("delete from [productshow] where gsid="&cstr(id)&"")    '从产品信息中删除这个公司的信息(阳光公司专有)
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>