% @language="vbscript" %>
<%
Set MyPageCounter = Server.CreateObject("MSWC.PageCounter")
MyPageCounter.PageHit
%>
<%
response.buffer=true
Response.Expires=0
Set conn = Server.CreateObject("ADODB.Connection")
DBPath ="e:/data/data.mdb"
conn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & DBPath
sql="select * from data order by news_head,news_id,news_class ASC"
sql0="select top 6 * from data where news_head=-1 order by news_id desc"
sql1="select top 10 * from data where news_pro='1' order by news_id desc"
sql2="select top 10 * from data where news_pro='2' order by news_id desc"
sql3="select top 10 * from data where news_pro='3' order by news_id desc"
sql4="select top 1 * from data where news_pro='4' order by news_id desc"
sql5="select top 10 * from data where news_class_name='焦点新闻' order by news_id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql3,conn,3,1
%>