偃师市王世忠建材厂青石建筑石料专栏

    王世忠建材厂提供φ13mm、φ12mm、φ08mm、φ05mm及石粉等各种规格的建筑石子。

    建材厂位于九龙角水库大坝下，是目前佛光青石建筑石子基地，规模最大、运输最安全、交通最便利的专业石子加工厂。日产石子3000立方，欢迎广大客户来电来函，欢迎实地考察。

联系电话：

王先生 13837923216

薛先生：13949298361

<% Function Counts(CounterFile) Dim objFSO, objTS Application.Lock Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True) If Not objTS.AtEndOfStream Then '检查是否到达文件结尾 Counts = CLng(objTS.ReadLine) End If Counts = Counts + 1 objTS.Close Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True) objTS.WriteLine(Counts) objTS.Close Application.Unlock End Function Function G_Counts(CounterFile) Dim objFSO, objTS, Counts, StrCounts Application.Lock Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True) If Not objTS.AtEndOfStream Then '检查是否到达文件结尾 Counts = CLng(objTS.ReadLine) End If response.write counts Counts = Counts + 1 objTS.Close Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True) objTS.WriteLine(Counts) objTS.Close Application.Unlock StrCounts = CStr(Counts) For i = 1 to Len(StrCounts) G_Counts = G_Counts & "" Next End Function %> <% If Session("Counter") = Empty Then Session("Counter") = G_Counts("jishu.txt") End If %> <%= Session("Counter") %>

偃师石材网 http://www.ysscw.com

ICP备案号: 豫ICP备 06018322 号

邮箱:email@ysscw.com 电话:0379-69653361