news.asp

新闻类的。很好很小。有FLASH.源码 适合模块加载

<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from new  order by new_ID desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
total=1
pages=1
cotent=0
kk="暂无内容..."
else '如果记录不为空则计算显示
content=rs.recordcount
if (content mod 10)=0 then
total=content \ 10
else
total=(content \ 10)+1
end if
rs.PageSize =10'每页记录条数
iCount=content '记录总数
iPageSize=rs.PageSize
maxpage=total
page=request("page")   
if Not IsNumeric(page) or page="" then
	page=1
else
	page=cint(page)
end if
if page<1 then
	page=1
elseif  page>maxpage then
	page=maxpage
end if
rs.AbsolutePage=Page
'rs.open sql,conn,1,1
if page=maxpage then
	x=iCount-(maxpage-1)*iPageSize
else
	x=iPageSize
end if
For i=1 To x
id=rs("new_ID")
myTitle=rs("new_Text")
myIntro=rs("new_Author")
if len(myIntro)>1500 then
'myIntro=left(myIntro,500)
myIntro=replace(left(myIntro,16),chr(13)," ")
else
myIntro=replace(myIntro,chr(13)," ")
end if
myTime=rs("new_links")
myPic=rs("new_word")
newbig=rs("new_big")

kk=kk & "<news id=" & chr(39) & id & chr(39) & " myIntro=" & chr(39) & myIntro & chr(39) & " myTitle=" & chr(39) & myTitle & chr(39) & " myTime=" & chr(39) & myTime & chr(39) & " myPic=" & chr(39) & myPic & chr(39) & " newbig=" & chr(39) & newbig & chr(39) & "/>"
rs.movenext
next
end if
kk="<?xml version="& """" & "1.0" & """" & " encoding=" & """" & "gb2312"& """" & " ?>" & "<data  XMLCount=" & chr(39) & content & chr(39) & " Totalpages=" & chr(39) & total & chr(39) &  " nowpage=" & chr(39) & page & chr(39) &  " ><new>" & kk & "</new></data>"
response.Write(kk)
rs.close
set rs=nothing
'response.write("111" & chr(39) & "222")
%>