今天是  
<% Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.openTextFile(server.mappath("count.txt")) count=a.readline response.write "您是本站的第" & count & "位访问者,欢迎您!" count=count+1 Set fs = CreateObject("Scripting.FileSystemObject") Set a=fs.createTextfile(server.mappath("count.txt")) a.writeline (count) %>


读者第一   服务育人
学院主页       英语之声       工具下载       中国国家图书馆       山东省高校图工委  
地址:中国济南市历城区彩石蟠龙路    邮编:250103    版权所有:文献资源建设部    联系电话:0531-86335228