readall.asp

flash blog

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#INCLUDE FILE="conn.asp"-->
<%
' ---This code is creat by Flash2ASP---
' ---http://yellowboy.cn---
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM [blog_Article] ORDER BY log_id DESC"
rs.open sql,ccc,1,3
Response.Charset = "UTF-8"
Response.ContentType="text/xml"
Response.Write("<?xml version=""1.0"" encoding=""UTF-8""?>")
Response.Write "<XML>"
DO WHILE not rs.eof
Response.Write "<Y>"
Response.Write "<log_id>"&xmlxml(rs("log_id"))&"</log_id>"
Response.Write "<log_title>"&xmlxml(rs("log_title"))&"</log_title>"
Response.Write "<log_postTime>"&xmlxml(rs("log_postTime"))&"</log_postTime>"
Response.Write "</Y>"
rs.movenext
loop
Response.Write "</XML>"
rs.Close()
set rs=Nothing


'XML 转义 by yellow
Function xmlxml(Str)
 If Isnull(Str) Then
	 xmlxml = ""
	 Exit Function 
 End If
 Str = Replace(Str,"&","&amp;")
 Str = Replace(Str,"<","&lt;")
 Str = Replace(Str,">","&gt;")
 Str = Replace(Str,"'","&apos;")
 xmlxml =  Replace(Str,"""","&quot;") 
End Function

%>