<%@ 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 %> 商务频道-中国榛子网——大农网旗下专业站点