code.txt

一个足球彩票程序,不是原创.是朋友偷来的!

<%
    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

    %>