<%@ Language=VBScript %><%'定义用于从给定文件读取票数的函数:Function ReadCount(CFile) Dim objFSO,objTS Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTs = objFSO.O
<%@ Language=VBScript %><%'定义用于从给定文件读取票数的函数:Function ReadCount(CFile) Dim objFSO,objTS Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTs = objFSO.O