公司+经营模式+主营产品
会员等级
即时交流
 
 
主营:济南搬家公司主要从事济南搬家,,
[山东省-济南市]
  • 普通会员
  • 第 1 年
 
 
主营:建材网建材招商,装饰建材,五金建材,家居
[山东省-济南市]
  • 普通会员
  • 第 1 年
 
 
主营:家居招商建材招商,装饰,装修,家居五金建
[山东省-济南市]
  • 普通会员
  • 第 1 年
 
[上海市-其它地区]
  • 普通会员
  • 第 1 年
 
 
主营:力资厦门人才网,为厦门地区提供专业性人才
[福建省-厦门市]
  • 普通会员
  • 第 2 年
 
[江苏省-南京市]
  • 普通会员
  • 第 2 年
技术支持:厦门帮企信息技术有限公司
<% Function getHTTPPage(url) dim objXML set objXML=server.createobject("MSXML2.XMLHTTP") objXML.open "GET",url,false On Error Resume Next objXML.send() If objXML.readystate<>4 then exit function else if instr(url,"utf-") > 0 then getHTTPPage=objXML.ResponseText else getHTTPPage=BytesToBstr(objXML.responseBody) end if set objXML=nothing End If 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 Dim Url,Html Url = "http://www.100lian.net/user/26093.html" response.write(getHTTPPage(Url)) %>