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
<form id="form1" runat="server">
<div>
<script type="text/javascript">
function oo(a){
document.getEleme ......
<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......
由于对页面使用了伪静态
并且对ID进行了加密。
主要代码如下：
httpd.ini
RewriteRule /List-([0-9,a-z]*).html /List.asp\?ComId=$1 [N,I]
程序代码
A为加密，B为解密函数
<a href=&q ......
