<!--#include file="wxpay.Api.asp" -->
<!--#include file="../conn/email.asp"-->
<%
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'此处根据您的实际服务器情况改写
xml_dom.load request

appid=xml_dom.getelementsbytagname("appid").item(0).text
attach=xml_dom.getelementsbytagname("attach").item(0).text
bank_type=xml_dom.getelementsbytagname("bank_type").item(0).text
cash_fee=xml_dom.getelementsbytagname("cash_fee").item(0).text
device_info=xml_dom.getelementsbytagname("device_info").item(0).text
fee_type=xml_dom.getelementsbytagname("fee_type").item(0).text
is_subscribe=xml_dom.getelementsbytagname("is_subscribe").item(0).text
mch_id=xml_dom.getelementsbytagname("mch_id").item(0).text
nonce_str=xml_dom.getelementsbytagname("nonce_str").item(0).text
openid=xml_dom.getelementsbytagname("openid").item(0).text
out_trade_no=xml_dom.getelementsbytagname("out_trade_no").item(0).text
result_code=xml_dom.getelementsbytagname("result_code").item(0).text
return_code=xml_dom.getelementsbytagname("return_code").item(0).text
time_end=xml_dom.getelementsbytagname("time_end").item(0).text
total_fee=xml_dom.getelementsbytagname("total_fee").item(0).text
trade_type=xml_dom.getelementsbytagname("trade_type").item(0).text
transaction_id=xml_dom.getelementsbytagname("transaction_id").item(0).text
sign=xml_dom.getelementsbytagname("sign").item(0).text


if lcase(MD5("appid="&appid&"&attach="&attach&"&bank_type="&bank_type&"&cash_fee="&cash_fee&"&device_info="&device_info&"&fee_type="&fee_type&"&is_subscribe="&is_subscribe&"&mch_id="&mch_id&"&nonce_str="&nonce_str&"&openid="&openid&"&out_trade_no="&out_trade_no&"&result_code="&result_code&"&return_code="&return_code&"&time_end="&time_end&"&total_fee="&total_fee&"&trade_type="&trade_type&"&transaction_id="&transaction_id&"&key="&KEY,"utf-8"))=lcase(sign) then

if result_code="SUCCESS" then
sql="select * from SL_orders where O_id="&O_id
set rs=Server.CreateObject("ADODB.RecordSet")
		rs.open sql,conn,1,1
		if not rs.eof then
		O_state=rs("O_state")
		O_price=rs("O_price")
		end if
		rs.close
		set rs=nothing

if O_state=0 and O_price<>"" then
conn.execute("update SL_Orders set O_state=1,O_tradeno='"&transaction_id&"（微信付款）' where O_id="&O_id)
call sendmail("有订单已付款，请尽快发货","<h2>您的网站“"&C_webtitle2&"”有订单已付款，请尽快发货</h2><hr>商品编号："&O_id&"<br>价格："&formatnumber(total_fee/100,2,-1)&"元<br>交易号："&transaction_id&"（微信付款）<br>状态：已付款（等待发货）<hr>请进入“网站后台” - “商城管理” - “订单管理”进行发货操作！",C_email)
end if
end if
else
response.Write 0
end if
%>