<div align="center">

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

<script>
	function opennew(url)
{
	window.open(url,"_blank");
}
function rcm_book()
{
		form2.submit();
}
function splitAuthor(author)
{
	var authors = author.split(",");
	var str="";
	for (var i=0;i<authors.length;i++)
	{
		str += '<a href="<%=Xwsy_sWebUrl%>list.asp?type=author&key='+authors[i]+'" target="_blank">'+authors[i]+"</a> ";
	}
	return str;
}
</script>
<%
Server.ScriptTimeOut = 18000
bookid = Request.QueryString("bookid")

dim Xurl,Encoding
	
        Xurl = Trim("http://book.qq.com/s/book/" & bookid & "/index.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,"<!--图书信息-->","<!--图书信息结束-->"))
		if xwsybook1 = "" then
		   OutErrors ("获取远程列表出错！请确定你的远程列表开始和结束代码输入无误。")
		end if
		xwsybook1 = Replace(xwsybook1,"http://book.qq.com/s/book/","readbook.asp?readsid=")
		xwsybook1 = Replace(xwsybook1,"http://bookapp.book.qq.com/cgi-bin/lz_index","list.asp")
		
		xwsybook2 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"您的位置：","</div>"))
		xwsybook2 = Myxwsy.TempTrim (Myxwsy.FindMatch(xwsybook2,"<a href=""",""""))
		xwsybook3 = Split(xwsybook2,"|||")
		xwsybook3(2) =Replace(xwsybook3(2),"http://bookapp.book.qq.com/cgi-bin/lz_index?type=sort&key=","list.asp?type=sort&key=")
		xwsybook3(3) =Replace(xwsybook3(3),"http://bookapp.book.qq.com/cgi-bin/lz_index?type=sort&key=","list.asp?type=sort&key=")

		xwsybook4 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"您的位置：","</div>"))
		xwsybook4 = Myxwsy.TempTrim (Myxwsy.FindMatch(xwsybook4,"target=""_blank"">","</a>"))
		xwsybook5 = Split(xwsybook4,"|||")
		
		xwsybook6 = Myxwsy.TempTrim (Myxwsy.CutFixed(HTTPHtmlCode,"<!--相关阅读-->","<div id=""Left"">"))
		xwsybook6 = Replace(xwsybook6,".shtml","")
		xwsybook6 = Replace(xwsybook6,"http://book.qq.com/s/book/","readbook.asp?readsid=")
		xwsybook6 = Replace(xwsybook6,"a href=""http://book.qq.com/s/book/","a href=""readbook.asp?readsid=")
		xwsybook6 = Replace(xwsybook6,"http://bookapp.book.qq.com/cgi-bin/lz_showvip","shouvip")


%>
<!--#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="<%=xwsybook3(2)%>" target="_blank"><%=xwsybook5(2)%></a> > <a href="<%=xwsybook3(3)%>" target="_blank"><%=xwsybook5(2)%></a> > <%=sTitle%></span><div class="crumbot"><div class="crumbotm"></div></div><div style="clear:both"></div>
<%
		response.write (xwsybook1)
%>
<div id="bookComment">
<%
		response.write (xwsybook6)
%>
<DIV id=Left>
<DIV class=divbd>
<div class="tit" style="display:11;">编辑推荐</div>
<DIV id=editorGroom>




<BR>

<script type="text/javascript"><!--
google_ad_client = "pub-4640062736902572";
/* 160x600, 创建于 09-3-31 */
google_ad_slot = "6718403678";
google_ad_width = 160;
google_ad_height = 600;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

<br>


      





</DIV>
</DIV>
</DIV>
<DIV class=cl></DIV>
</div>

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

</div>