<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
|
<% Session.CodePage=65001 %>
|
<% Response.charset = "utf-8" %>
|
<%
|
appid=request("appid")
|
sessionKey=request("sessionKey")
|
encryptedData=request("encryptedData")
|
iv=request("iv")
|
|
url="https://api.966120.com.cn/weixin/encryptedData/index.php" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="appid="&appid
|
Origin=Origin&"&sessionKey="&Server.URLEncode(sessionKey)
|
Origin=Origin&"&encryptedData="&Server.URLEncode(encryptedData)
|
Origin=Origin&"&iv="&Server.URLEncode(iv)
|
'Response.Write url&"?"&Origin
|
'Response.End
|
'Origin=Origin&"&Encrypt="&
|
HTMLCODE= GetBody(url,Origin)
|
|
Response.Write HTMLCODE
|
|
'Get方法
|
Function GetBody(appUrl,Origin)
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
|
|
With https
|
.Open "GET", appUrl&"?"&Origin, False
|
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
|
.Send ""
|
GetBody = .ResponseBody
|
End With
|
GetBody = BytesToBstr(GetBody,"utf-8")
|
Set https = Nothing
|
End Function
|
|
Function BytesToBstr(body,Cset) '飘易：转换GB2312
|
dim objstream
|
set objstream = Server.CreateObject("adodb.stream")
|
objstream.Type = 1
|
objstream.Mode =3
|
objstream.Open
|
objstream.Write body
|
objstream.Position = 0
|
objstream.Type = 2
|
objstream.Charset = Cset
|
BytesToBstr = objstream.ReadText
|
objstream.Close
|
set objstream = nothing
|
End Function
|
%>
|
