readid.asp

flash blog

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#INCLUDE FILE="conn.asp"-->
<%
Response.Charset = "UTF-8"
Response.ContentType="text/xml"
Response.Write("<?xml version=""1.0"" encoding=""UTF-8""?>")
Response.Write "<XML>"
' ---This code is creat by Flash2ASP---
' ---http://yellowboy.cn---
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM [blog_Article] WHERE log_id="& Request("log_id") &""
rs.open sql,ccc,1,3
Response.Write "<XML>"

Response.Write "<log_title><![CDATA["&rs("log_title")&"]]></log_title>"
Response.Write "<log_content0><![CDATA["&rs("log_content0")&"]]></log_content0>"
Response.Write "<log_content1><![CDATA["&rs("log_content1")&"]]></log_content1>"
Response.Write "<log_commentCount><![CDATA["&rs("log_commentCount")&"]]></log_commentCount>"
Response.Write "<log_viewCount><![CDATA["&rs("log_viewCount")&"]]></log_viewCount>"

Response.Write "</XML>"
rs.Close()
set rs=nothing
%>
<%
' ---This code is creat by Flash2ASP---
' ---http://yellowboy.cn---
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM [blog_Comment] WHERE log_id="& Request("log_id") &" ORDER BY comm_id ASC"
rs.open sql,ccc,1,3
Response.Write "<XML>"
DO WHILE not rs.eof
Response.Write "<Y>"
Response.Write "<comm_content><![CDATA["&rs("comm_content")&"]]></comm_content>"
Response.Write "<comm_author><![CDATA["&rs("comm_author")&"]]></comm_author>"
Response.Write "<comm_postTime><![CDATA["&rs("comm_postTime")&"]]></comm_postTime>"
Response.Write "</Y>"
rs.movenext
loop
Response.Write "</XML>"
rs.Close()
set rs=Nothing
Response.Write "</XML>"
%>