|
|
<%
Application.lock
set object3=server.createobject("scripting.Filesystemobject")
object3_path=server.Mappath("count2.txt")
set file3=object3.OpenTextFile(object3_path)
Dim count
count=file3.readline
file3.close
count=count+1
set file3=object3.createTextFile(object3_path)
file3.WriteLine (count)
file3.close
Application.unlock
%>
|
版权所有 广东轻工职业技术学院图书馆 中国 广州 510300 技术支持:020-61230825(2825) 图书馆五楼技术部 联系我们:294@gdqy.edu.cn
请使用IE5.0以上的浏览器1024*768的分辨率进行浏览 |
|