% '取计数器的值将其加1写回数据库
Application.Lock
application("counter")=clng(getcounter)
session("addcount")=true
Application.UnLock
%>
<%
table="news"
sql="select * from " & table &" where subclass='新闻' order by id DESC"
sql1="select * from " & table &" where subclass='活动' order by id DESC"
'请参考下面代码排序
'sql="select * from " & table & search
'response.write sql
set rs=Server.CreateObject("ADODB.recordset")
rs.CursorType = 3
rs.Open sql,conn
result_num=rs.RecordCount '记录总数
set rs1=Server.CreateObject("ADODB.recordset")
rs1.CursorType = 3
rs1.Open sql1,conn
result_num1=rs1.RecordCount '记录总数
%>