<%@ language=vbscript codepage="65001" %> <% Response.Charset = "UTF-8" op = trim(request("op")) m_url = "http://partner.zhizhuchuxing.com/json?user=tmall01&sign=7620D8B54A4218E2EE1FFABFB40867C5" Private Function GetUrl() Dim ScriptAddress, M_ItemUrl, M_item ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址 M_ItemUrl = Request.QueryString cstr1 = trim(ScriptAddress & "?" & M_ItemUrl) response.write cstr1 ' 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 ' Set objXML = CreateObject("Microsoft.XMLHTTP") ' objXML.open "GET",strURL,false ' objXML.send ' c_rtn = objXML.responseText ' response.write c_rtn %>
wxtest.asp