#FormatTableID_0#

建一个文件data.asp

注：这里我用的是ACCESS数据库，库名叫data.mdb，当然这个自己可以定义，库中表名为info字段分别是id(自动编号)、a、b、c、d(日期类型)

<%@ Language="VBSCRIPT" codepage="936" %>

<%

response.cachecontrol="no-cache"

response.addHeader "pragma","no-cache"

response.expires=-1

response.expiresAbsolute=now-1

response.contentType="text/xml"

'SQL数据库 Set conn=server.CreateObject("adodb.connection")

'sconn="driver={sql server};server=(local);uid=**;pwd=**;database=***"

'conn.open sconn

set conn=server.CreateObject("adodb.connection")

file=server.mappath("data.mdb")

conn.Open "driver={microsoft access driver (*.mdb)};"&"dbq="&file%>

<%

dim iPagesize,rs,sSQL,iCurPage,ipresize,icount,ipagecount

icurpage=trim(request.QueryString("curpage"))

iPagesize=500 '页大小

set rs=server.createObject("adodb.recordset")

'rs.open "select count(id) from ca_news where status=1",conn,1,1

rs.open "select count(id) from info",conn,1,1

icount=rs(0) '总记录数

rs.close

ipagecount=int((icount-1)/iPagesize)+1 '总页数

if icurpage="" then

icurpage=1

else

icurpage=cint(icurpage)

end if

if icurpage<1 then

icurpage=1

end if

if icurPage>ipagecount then icurpage=ipagecount

ipreSize=(iCurPage-1)*ipagesize

if ipresize=0 then

sSQL="select * from info order by id desc"

else

' sSQL="select top "&ipagesize&" id,title,postdate,hits,htmlurl from news where status=1 and id not in (select top "&ipresize&" id from news where status=1 order by id asc) order by id asc"

sSQL="select top "&ipagesize&" * from info id not in (select top "&ipresize&" id from info order by id desc) order by id desc"

end if

rs.open sSQL,conn,1,1

%>

<%

while not rs.eof

%>

">

<![CDATA[<%=rs("b")%>]]>

<%=DateValue(rs("d")) %>

<%=trim(rs("c")) %>

<%

rs.movenext

wend

%>

<%

rs.close

set rs=nothing

conn.close

set conn=nothing

%>

更多信息请查看IT技术专栏