link.asp

Flash+XML+ASP Flash+XML+ASPFlash+XML+ASP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim Conn
Dim rs
Dim theclass
Dim intRecordCount
Dim page
IF Session("AdminLogged")<>1 THEN  
	AdminLogFlag=0
ELSE 
	AdminLogFlag=1
END IF
Response.Write "<?xml version='1.0' encoding='GB2312'?>"
Response.Write "<data "

PageSize=9
ConnectionString="Driver=Microsoft Access Driver (*.mdb);dbq=" & Server.MapPath("royu.mdb")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open ConnectionString
Set rs=Server.CreateObject("ADODB.RecordSet")

if  isempty(Request("Page")) then
	Page=1
end if
Page=clng(abs(Request("Page")))
rs.Open "select * from linker  order by messageid  Desc",Conn,3

intRecordCount=rs.RecordCount
	if not (rs.EOF and rs.BOF) then
		rs.PageSize=PageSize'设定每页显示主题的条数
		intPageCount=rs.PageCount'获得总共的页数
		if page>intPageCount then'输入的页数最多为总页数
			page=intPageCount
		end if
		rs.AbsolutePage=Page'设置一个相对的页（即目前页一个包含15各数据的相对数据库）
Response.ContentType = "text/xml"
Response.Expires = -1

Response.Write "zts="""&intRecordCount&""" Total="""&intRecordCount&""" page="""&Page&""">"
       For i=1 to  PageSize
	   			if rs.EOF then
				exit for
			end if

		
		Response.Write "<"
		Response.Write "info "
   		Response.Write "id="
   		Response.Write "'"
		Response.Write rs("messageid")
   		Response.Write "' "
  		Response.Write "l_name="
   		Response.Write "'"
		Response.Write rs("name")
   		Response.Write "' "
  		Response.Write "l_logo="
   		Response.Write "'"
		Response.Write rs("logo")
   		Response.Write "' "
  		Response.Write "l_link="
   		Response.Write "'"
		Response.Write rs("link")
   		Response.Write "' "
  		Response.Write " "
		Response.Write "/>"


		
		

				rs.MoveNext
		NEXT
	END IF 
		'写入XML 数据

Response.Write "</data>"
	rs.Close
	Set rs=nothing
	Conn.Close
	Set Conn=nothing
%>