code.txt

来自「一个足球彩票程序,不是原创.是朋友偷来的!」· 文本 代码 · 共 15 行

<%
    application.lock
    	set f_object=server.createobject("Scripting.FileSystemobject")
    	f_path=server.mappath("counter.txt")
    	set file1=f_object.OpenTextFile(f_path)
    	application("counter")=file1.ReadLine
    	file1.close
        application("counter")=application("counter")+1
        counter=application("counter")
        set file1=f_object.createtextfile(f_path)
        file1.writeline counter
        file1.close    
    application.unlock

    %>