VB code:
<!--#include file="conn.asp"--><!--#include file="sqlin.asp"--><?xml version="1.0" encoding="gbk"?>
<%
Request_id=Request("aa")
sql="select id,bookhtml,bookupdateid,bookupdatetitle from Ws_BookList where "&Request_id&" 1=1"
set rs = server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,1
%>
<DOCUMENT>
<item>
<key><%=rs("booktitle")%></key>
<display>
<url><![CDATA[http://www.56xs.net/book/<%=rs("id")%>/index.aspx]]></url>
<title><%=rs("booktitle")%>-56小说网</title>
<showurl><![CDATA[www.56xs.net/book/<%=rs("id")%>/index.aspx]]></showurl>
<pagesize>17k</pagesize>
<date>2009-10-02</date>
<content1>56免费小说阅读网提供<%=rs("bookwriter")%>的<%=rs("booktitle")%>最新章节<%=rs("bookupdatetitle")%>在线阅读,并提供<%=rs("booktitle")%>TXT、CHM、UMD、JAR、JAD电子书免费下载 ...</content1>
<link linkurl="http://www.56xs.net<%=rs("bookhtml")%><%=rs("id")%>/index.shtml" linkcontent="<%=rs("booktitle")%>目录" />
<link linku
