
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="collection.asp"-->
<!--#include file="Config.asp"-->

<%
dim readsid,bookid
Server.ScriptTimeOut = 18000
readsid = Request.QueryString("readsid")
dim Xurl,Encoding,sTitle,xwsybook1,xwsybook2,xwsybook3,xwsybook4,xwsybook5,xwsybook6,xurl1,httphtmlcode,httphtmlcode1,sTitle1
	
        Xurl = Trim("http://book.qq.com/s/book/" & readsid & ".shtml")    '目标网站网页地址
		'--获取远程列表网页源代码
		HTTPHtmlCode = Myxwsy.TempTrim (Myxwsy.Gethtmldata(Xurl,Encoding))
		if HTTPHtmlCode = "" then
		   OutErrors ("获取远程信息出错！请确定你的远程列表URL输入无误。")
		end if
		sTitle = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"<title>","_"))
		xwsybook1 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"您的位置：","</div>"))
		xwsybook1 = Myxwsy.TempTrim (Myxwsy.FindMatch(xwsybook1,"<a href=""",""""))
		xwsybook2 = Split(xwsybook1,"|||")
		
		xwsybook2(2) =Replace(xwsybook2(2),"http://bookapp.book.qq.com/cgi-bin/lz_index","list.asp")
		xwsybook2(3) =Replace(xwsybook2(3),"http://bookapp.book.qq.com/cgi-bin/lz_index","list.asp")
		xwsybook2(4) =Replace(xwsybook2(4),"http://book.qq.com/s/book/","reads.asp?bookid=")
		xwsybook2(4) =Replace(xwsybook2(4),"/index.shtml","")
		
		xwsybook3 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"您的位置：","</div>"))
		xwsybook3 = Myxwsy.TempTrim (Myxwsy.FindMatch(xwsybook3,"target=""_blank"">","</a>"))
		xwsybook4 = Split(xwsybook3,"|||")
	
        xwsybook5 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"<h1>","</h1>"))
		
		xwsybook6 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"<div id=""content""","<div id=""pageList"">"))
		xwsybook7 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"<div id=""pageList"">","<div id=""affiche"">"))
		xwsybook8 = Myxwsy.TempTrim (Myxwsy.FindMatch(xwsybook7,"<a href=""",""">"))
		xwsybook9 = Split(xwsybook8,"|||")
		xwsybook9(0) =Replace(xwsybook9(0),"/index.shtml","/1.shtml")
		xwsybook9(0) =Replace(xwsybook9(0),"http://book.qq.com/s/book/","?readsid=")
		xwsybook9(0) =Replace(xwsybook9(0),".shtml","")
		xwsybook9(1) =Replace(xwsybook9(1),"/index.shtml","")
		xwsybook9(1) =Replace(xwsybook9(1),"/2.shtml","")
		xwsybook9(1) =Replace(xwsybook9(1),"http://book.qq.com/s/book/","reads.asp?bookid=")
		xwsybook9(2) =Replace(xwsybook9(2),"http://book.qq.com/s/book/","?readsid=")
		xwsybook9(2) =Replace(xwsybook9(2),".shtml","")
		
		xwsybook10 =Replace(xwsybook2(4),"reads.asp?bookid=","")
		xwsybook11 =Replace(xwsybook9(1),"reads.asp?bookid=","")
		
        Xurl1 = Trim("http://book.qq.com/s/book/" & xwsybook10 & "/index.shtml")    '目标网站网页地址
		'--获取远程列表网页源代码
		HTTPHtmlCode1 = Myxwsy.TempTrim (Myxwsy.Gethtmldata(Xurl1,Encoding))
		if HTTPHtmlCode1 = "" then
		   OutErrors ("获取远程信息出错！请确定你的远程列表URL输入无误。")
		end if
		sTitle1 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode1,"<title>","_"))
		
        if xwsybook9(2) ="javascript:bookmark();" then xwsybook9(2) ="?readsid=" &(xwsybook11&"/2")


%>
<!--#include file="top.asp"-->
<div class="leftshad"><div class="rightshad">
	<div class="maincol">
	  <span class="crumbleft"><b>当前位置：</b><a href="<%=Xwsy_sWebUrl%>" target="_blank"><%=Xwsy_sWebName%></a> > 
			  <a href="<%=xwsybook2(2)%>" target="_blank"><%=xwsybook4(2)%></a> > <a href="<%=xwsybook2(3)%>" target="_blank"><%=xwsybook4(3)%></a> ><a href="<%=xwsybook2(4)%>" target="_blank"><%=sTitle1%></a> > 正文</span><div class="crumbot"><div class="crumbotm"></div></div><div style="clear:both"></div>
<h1><%=xwsybook5%></h1>
<%

		response.write ("<div id=""content""")
        response.write (xwsybook6)

%>
<div id="pageList"> 
    <a href="<%=xwsybook9(0)%>"><img src="http://mat1.qq.com/book/images/model/prev.gif" alt="上一页" border="0" /></a>
	<a href="<%=xwsybook9(1)%>"><img src="http://mat1.qq.com/book/images/model/return.gif" alt="返回目录" border="0" /></a>	 

	<a href="<%=xwsybook9(2)%>"><img src="http://mat1.qq.com/book/images/model/next.gif" border="0"/></a>
  </div>
<div id="affiche"></div>
</div></div>

</div></div></div>
<!--#include file="end.asp"-->