28,406
社区成员
发帖
与我相关
我的任务
分享<!--#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 linkurl="http://www.56xs.net<%=rs("bookhtml")%><%=rs("id")%>/<%=rs("bookupdateid")%>.shtml" linkcontent="<%=rs("bookupdatetitle")%>" />
</display>
</item>
</DOCUMENT>
<%
Response.ContentType = "text/xml"
%><?xml version="1.0" encoding="gbk"?>
<!--#include file="conn.asp"-->
<!--#include file="sqlin.asp"-->
<%
Request_id = Request("aa")
sql = "select id,bookhtml,bookupdateid,bookupdatetitle from Ws_BookList where id=" & Request_id
set rs = CreateObject("adodb.recordset")
rs.open sql,conn,1,1
Set oDoc = CreateObject("Msxml2.DOMDocument")
Set root = oDoc.createElement("DOCUMENT")
Set item = oDoc.createElement("item")
Set key = oDoc.createElement("key")
key.text = rs("booktitle").Value
item.appendChild key
Set display = oDoc.createElement("display")
Set url = oDoc.createElement("url")
s = "http://www.56xs.net/book/" & rs("id").Value & "/index.aspx"
Set cdata = oDoc.createCDATASection(s)
url.appendChild cdata
display.appendChild url
Set title = oDoc.createElement("title")
title.text = rs("booktitle").Value & "-56小说网"
display.appendChild title
Set showurl = oDoc.createElement("showurl")
s = "www.56xs.net/book/" & rs("id").Value & "/index.aspx"
Set cdata = oDoc.createCDATASection(s)
showurl.appendChild cdata
display.appendChild showurl
Set pagesize = oDoc.createElement("pagesize")
pagesize.text = "17k"
display.appendChild pagesize
Set date1 = oDoc.createElement("date")
date1.text = "2009-10-02"
display.appendChild date1
Set content1 = oDoc.createElement("content1")
content1.text = "56免费小说阅读网提供" & rs("bookwriter").Value & "的" & rs("booktitle").Value & "最新章节" & rs("bookupdatetitle").value & "在线阅读,并提供" & rs("booktitle").value & "TXT、CHM、UMD、JAR、JAD电子书免费下载 ..."
display.appendChild content1
Set link = oDoc.createElement("link")
link.setAttribute "linkurl", "http://www.56xs.net" & rs("bookhtml") & rs("id") & "/index.shtml"
link.setAttribute "linkcontent", rs("booktitle") & "目录"
display.appendChild link
Set link1 = oDoc.createElement("link")
link1.setAttribute "linkurl", "http://www.56xs.net" & rs("bookhtml") & rs("id") & "/" & rs("bookupdateid") & ".shtml"
link1.setAttribute "linkcontent", rs("bookupdatetitle")
display.appendChild link1
item.appendChild display
root.appendChild item
Response.Write root.xml
%>