<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("NewsCenter.mdb")+";DefaultDir=; DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access; ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5; SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
set rs=conn.execute("select top 6 * from news where index=true and class='gsdt' order by id desc")
set rs1=conn.execute("select top 9 * from news where index=true and class<>'gsdt' order by id desc")
%>
北京同创同德投资咨询有限责任公司
