%@ LANGUAGE=VBScript CodePage=936%> <% Option Explicit Response.Buffer = True Dim dtmStart dtmStart = Timer() '/***************************系统组件初始化***************************** Dim System,Channel Set System = Server.CreateObject("WspBiz.CSystem") Set Channel = Server.CreateObject("WspBiz.CChannel") Dim adoCon Set adoCon = Server.CreateObject("Adodb.Connection") adoCon.Open System.ConString %>