<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.lianjie.net/getcode.asp?wid=1285252368957&type=3"
set lvxmlhttp = CreateObject("MSXML2.Serverlvxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverlvxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
| 不锈钢球阀 |兄弟篮球 |wow gold |
|两性健康 |工业霸主 |shenzhen massage |网赚 |友情链接交换 ||太阳城娱乐网 |捏合机产品,混合机产品 |电磁流量计 |00 |<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.by-link.cn/getcode.php?wid=6rB3S2N71nn&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>| 雪纺 |连衣裙 |女包 |凉鞋 |T恤 |手机 |手表 |文艺天下 |十字绣 |牛仔裤 |单鞋 | |本站友情链接 |中国站长前线 | 无风险创业 | 烧烤王妃 ||宇博化妆品专营店 |艾丽时尚大码服饰 || 多情王爷痴情妃 | Hermes LV Handbags ||百度搜索 |365网吧主页 ||
|笔记本电脑城|手机专卖 ||http://www.dtklj.com |影视小说网 |皇冠店铺 |淘宝频道 |淘宝品质铺精选 |美女逛商城 | 淘宝热卖 |创业商务 |今日威远 | 朋友论坛 |交换流量 |淘宝刷流量 |