XMWXC/core/partner.asp

<%@ language=vbscript  codepage="65001" %>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
	Response.Charset = "UTF-8"

	op = trim(request("op"))
	'm_url = "http://partner.zhizhuchuxing.com/json?user=tmall01&sign=7620D8B54A4218E2EE1FFABFB40867C5"
	'm_url = "http://partner.zhizhuchuxing.com/json?user=shnswx01&sign=5AE42D0AD35EEEF45B79C7A533CC509D"
	'm_url = "http://partner.zizaitrip.net/json?user=shnswx01&sign=5AE42D0AD35EEEF45B79C7A533CC509D"
	m_url = "http://partner.zizaitrip.net/json?user=[luser]&sign=[lsign]"

	Private Function GetUrl() 
		Dim ScriptAddress, M_ItemUrl, M_item 
		ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址 
		M_ItemUrl = Request.QueryString
		cstr1 = trim(ScriptAddress & "?" & M_ItemUrl)
		if right(cstr1,1)="&" then cstr1=left(cstr1,len(cstr1)-1)
		cstr1 = replace(cstr1,"/core/partner.asp?",m_url & "&",1,-1,1)
		cstr1 = replace(cstr1,"%2D","-",1,-1,1)
		cstr1 = replace(cstr1,"%7C","|",1,-1,1)
		
		GetUrl = cstr1
	End Function
	
	strURL = GetUrl
	
	nnum1 = instr(strURL,"&projcode=")
	linksysuser = 0
	c_lsuser = "shnswx01"
	c_lssign = "5AE42D0AD35EEEF45B79C7A533CC509D"
	if nnum1-0>0 then
		cstr2 = mid(strURL,nnum1-0+10)
		nnum1 = instr(cstr2,"&")
		if nnum1-0>0 then cstr2 = left(cstr2,nnum1-1)
		csql = "select top 1 link_system_user from circuit where circuitcode='" & cstr2 & "'"		
		set rs=conn.execute(csql)
		if not rs.eof then linksysuser = rs("link_system_user") 
		rs.close 
	else
		nnum1 = instr(strURL,"&tradeno=")
		cstr2 = mid(strURL,nnum1-0+9)
		nnum1 = instr(cstr2,"&")
		if nnum1-0>0 then cstr2 = left(cstr2,nnum1-1)
		csql = "select top 1 b.link_system_user from app_order_main a inner join circuit b on a.prod_code=b.circuitcode where a.main_id=" & cstr2
		set rs=conn.execute(csql)
		if not rs.eof then linksysuser = rs("link_system_user") 
		rs.close
	end if
	if linksysuser-1=0 then
		c_lsuser = "nssale01"
		c_lssign = "796E85AC11598C9C32D9979C7B82042C"
	end if
	strURL = replace(strURL,"[luser]",c_lsuser)
	strURL = replace(strURL,"[lsign]",c_lssign)
	
	nnum1 = instr(strURL,"op=lock&")
	if nnum1 - 0 > 0 then
		c_openid = request.cookies("m_openid")
		c_memberid = "0"
		csql = "APP_GET_MEMBER_ID_ZIZAI '" & c_openid & "'"
		set rs=conn.execute(csql)
		if not rs.eof then c_memberid=rs("member_id")
		rs.close
		strURL = strURL & "&memid=" & c_memberid
	end if
	
'	response.redirect strURL
	Set objXML = CreateObject("Microsoft.XMLHTTP") 
	objXML.open "GET",strURL,false
	objXML.send
	c_rtn = objXML.responseText
	Set objXML = nothing

	if nnum1 - 0 > 0 then
		cstr1 = c_rtn 
		nnum2 = instr(cstr1,"""code"":""0"",")
		if nnum2 > 0 then 
			nnum3 = instr(cstr1,"""tradeno"":")
			if nnum3>0 then
				cstr1 = mid(cstr1,nnum3-0+11)
				nnum4 = instr(cstr1,",")
				cstr1 = left(cstr1,nnum4-2)
				csql = "SP_COPY_ORDER_DETAIL_ZIZAI " & cstr1
				'response.write csql
				conn.execute csql
			end if
			
		end if
	end if
	
	response.write c_rtn
%>