pay_return_aliypay.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="include/con_shop.asp" -->
<!-- #include file="../include/jk_md5.asp" -->
<%

call pay_true()

call shop_end()
call web_end(-1,1)

sub pay_true()
  Dim msg_id,order_no,gross,buyer_email,buyer_name,buyer_address,buyer_zipcode,buyer_tel,buyer_mobile,action,s_date,ac,notify_type
  dim myAlipayObj,ResponseTxt
  Set myAlipayObj		= New yjcity_alipay
  myAlipayObj.myAlipay_Initialize()
	msg_id			= DelStr(Request("msg_id"))
	order_no		= DelStr(Request("order_no"))
	gross			= DelStr(Request("gross"))
	buyer_email		= DelStr(Request("buyer_email"))
	buyer_name		= DelStr(Request("buyer_name"))
	buyer_address	= DelStr(Request("buyer_address"))
	buyer_zipcode	= DelStr(Request("buyer_zipcode"))
	buyer_tel		= DelStr(Request("buyer_tel"))
	buyer_mobile	= DelStr(Request("buyer_mobile"))
	action			= DelStr(Request("action"))
	s_date			= DelStr(Request("date"))
	ac				= DelStr(Request("ac"))
	notify_type  	= DelStr(Request("notify_type"))
	ResponseTxt = myAlipayObj.ReturnState(msg_id,order_no)
	if Cstr(ResponseTxt)<> "true" then exit sub
    myAlipayObj.alipayNotifyURL	= myAlipayObj.alipayNotifyURL & "msg_id=" & msg_id & "&email=" & myalipayEmail & "&order_no=" & order_no
	ResponseTxt		= myAlipayObj.getHTTPURL(alipayNotifyURL)
	
	if gross="" or buyer_email="" or buyer_name="" or ac="" then
		exit sub
	end if
	
	dim v_types,dis_remark,errstr,accept_u,msg_word,msg_tit,tmp_oid,ispayment,tmp_types
		accept_u=web_dim(3)
		msg_word="订单详情：" & chr(13) & "通知编号：" & msg_id & _
					chr(13) & "订单编号：" & order_no & _
					chr(13) & "价格：" & gross & _
					chr(13) & "买家邮件：" & buyer_email & _
					chr(13) & "买家姓名：" & buyer_name & _
					chr(13) & "买家地址：" & buyer_address & _
					chr(13) & "买家邮编：" & buyer_zipcode & _
					chr(13) & "买家电话：" & buyer_tel & _
					chr(13) & "买家手机：" & buyer_mobile & _
					chr(13) & "通知操作：" & action & _
					chr(13) & "通知日期：" & s_date & _
					chr(13) & "MD5摘要：" & ac
		
	sql="select id,types from shop_orders where ordernum='"&order_no&"'"
	set rs=joekoe_cms.exec(sql,1)
	if rs.eof then
		rs.close
		tmp_oid=0
	else
		tmp_oid=rs(0)
		tmp_types=rs(1)
		rs.close0
	end if
if  notify_type="web" then  '“支付后定向至商户平台”的网页转向处理

	tit="在线支付反馈"
	call web_head(0,0,-1,0,0)
	call shop_load(0,0,0)
	response.write shop_tm_body_left()

	if tmp_oid=0 then
		msg_tit="支付宝订单不存在"
	    call pay_true_err("支付宝返回的订单："&order_no&"不存在，请联系网站管理员！！")
	else
		v_types=2
		dis_remark="订单待处理中，若有疑问请联系网站管理员！"
		pay_true_err(dis_remark)
		sql="update shop_orders set types="&v_types&",dis_tim='"&joekoe_cms.now_time&"',dis_remark='"&dis_remark&"' where id="&tmp_oid
		call joekoe_cms.exec(sql,0)
		msg_tit="支付宝订单通知"
	end if
        sql="insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) " & _
	    "values('"&login_username&"','"&accept_u&"','"&msg_tit&"','"&msg_word&"','"&joekoe_cms.now_time&"',1,0)"
		call joekoe_cms.exec(sql,0)
%>
	<%=shop_tm_body_center()%>
	<!-- #include file="inc/shop_right.htm" -->
	<%=shop_tm_body_right()%>
	<!-- #include file="../myHTML/inc/end.htm" -->
	</body></html>
<%
else
	'测试商户网站URL是否正确安装
	If action = "test" Then
		returnTxt	= "Y"
    End If
	'发货通知
	If action = "sendOff" Then
		returnTxt		= "N"
		If (ResponseTxt = "true") Then
			if tmp_oid=0 then
				returnTxt = "N"
				msg_tit="支付宝发货通知，但订单不存在"
			else
				if tmp_types=5 then
					returnTxt = "Y"
					v_types=tmp_types
				else
					v_types=3
					returnTxt = "N"
					dis_remark="已收到支付宝通知，卖家正在发货。"
					msg_tit="已收到支付宝通知，请尽快发货。"
				end if
				ispayment=true
				pay_tim=joekoe_cms.now_time
				sql="update shop_orders set types="&v_types&",dis_tim='"&joekoe_cms.now_time&"',dis_remark='"&dis_remark&"',ispayment="&ispayment&", pay_tim='"&pay_tim&"' where id="&tmp_oid
				call joekoe_cms.exec(sql,0)
			end if
		        sql="insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) " & _
			    "values('"&login_username&"','"&accept_u&"','"&msg_tit&"','"&msg_word&"','"&joekoe_cms.now_time&"',1,0)"
				call joekoe_cms.exec(sql,0)
      	Else
		'非法数据，不做更新
		End If
	End If
	'交易完成通知
	If action = "checkOut" Then
		returnTxt	= "Y"
		If (ResponseTxt = "true")Then
			if tmp_types=5 then
				returnTxt	= "Y"
			else
				returnTxt	= "N"
			end if
		Else
			returnTxt	= "N"
		End If

	End If
	Response.Write returnTxt
end if
	
end sub

	Function DelStr(Str)
		If IsNull(Str) Or IsEmpty(Str) Then
			Str	= ""
		End If
		DelStr	= Replace(Str,";","")
		DelStr	= Replace(DelStr,"'","")
		DelStr	= Replace(DelStr,"&","")
		DelStr	= Replace(DelStr," ","")
		DelStr	= Replace(DelStr,"　","")
		DelStr	= Replace(DelStr,"%20","")
		DelStr	= Replace(DelStr,"--","")
		DelStr	= Replace(DelStr,"==","")
		DelStr	= Replace(DelStr,"<","")
		DelStr	= Replace(DelStr,">","")
		DelStr	= Replace(DelStr,"%","")
	End Function
%>