XMWX/core/wxtest.asp

<%@ 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
%>

<br/>wxtest.asp