
仪器公告
一:
美国JC
Nabity电子束曝光系统NPGS 
仪器公告
二:
德国TVIPS系列透射电镜专用CCD相机 
仪器公告
三:
韩国“赛科”台式电子显微镜(Mini型可移动扫描电镜) 
金相、电镜(SEM,TEM及AFM)耗材超市,欢迎选购!
您是第 位访客
<%
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
If Session("Counter") = Empty Then
Session("Counter") = Counts("jishu.txt")
End If
%>
<%= Session("Counter") %>
COPYRIGHT (C)2005/2008 Tansi Inc. All rights reserved
Tel: +86 25 85432178,85432278
苏ICP备05020058号
客户留言