view_book.asp

小说站源代码文件

<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"-->
<%UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)

set rsx=server.CreateObject("ADODB.recordset")
sqlx="select view_get,view_id,view_IsVip from list_view where id="&id
rsx.open sqlx,conn,1,1
if rsx.eof then
	Response.Write ("<script>alert(' 访问错误!\n\n 已经到达首页或尾页或访问的文件不存在！\n\n 点击确定返回 ');history.back();</script>")
	Response.end
end if
if rsx("view_IsVip")=1 then
	Response.Write ("<script>alert(' 访问错误!\n\n 您访问的章节为VIP作品未解禁VIP会员章节！ \n\n 您需要订阅才可以阅读！\n\n 点击确定返回 ');history.back();</script>")
	Response.end
end if

if makehtml=1 then
if htmlphem=1 then
htmlphe="htm"
elseif htmlphem=2 then
htmlphe="html"
elseif htmlphem=3 then
htmlphe="shtml"
elseif htmlphem=4 then
htmlphe="asp"
else
htmlphe="html"
end if

	viewFolder = SiteSystemPath&"HTML/"&rsx("view_id")&"/"

file2=server.mappath( ""&viewFolder&""&id&"."&htmlphe&"" )
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(file2) = True Then
response.write "<meta http-equiv=Refresh content='0; URL="&viewFolder&""&id&"."&htmlphe&"'>"
	Response.redirect(""&viewFolder&""&id&"."&htmlphe&"")
	Response.end
end if

end if
bookid=rsx("view_id")
rsx.close
set rsx=nothing

set rs=server.CreateObject("ADODB.recordset")
sql="select id,view_id,list_cookid,view_type,view_date,view_lock,view_get,view_size,view_ok,view_ok2,view_SaveToTXT,ItemID,view_showid from list_view where id="&id
rs.open sql,conn,1,1
cookid=rs("list_cookid")
id1=rs("id")
ItemID=rs("ItemID")
bookid=rs("view_id")
view_lock=rs("view_lock")
view_showid=rs("view_showid")
view_type=rs("view_type")
view_date=rs("view_date")
view_size=rs("view_size")
view_get=rs("view_get")
view_ok2=rs("view_ok2")
view_ok=rs("view_ok")
view_SaveToTXT=rs("view_SaveToTXT")
rs.close
set rs=nothing

set rs3=server.createobject("adodb.recordset")
sql3="select list_name,list_user,isuserread,Lock_book from list_book where id="&bookid
rs3.open sql3,conn,1,1
if rs3.bof and rs3.eof then
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
if rs3("isuserread")=1 then
If UserName="" or UserID="" or IsNull(userID) Then
	response.write "<script language=javascript>alert('对不起,您要查看的作品只允许注册会员阅读! \n\n 如果您是会员可能您还没有登陆或者登陆超时! \n\n 如果您没有成为会员请先进行会员注册！ \n\n 如果您已经是注册会员请重新登陆！');history.back(-1);</script>"
	response.end 
end if
end if
if rs3("Lock_book") = 1 then
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
list_name=rs3("list_name")
list_user=rs3("list_user")
rs3.close
set rs3=nothing

set rsco=server.createobject("adodb.recordset")
sql="select list_cookname,cook_viewid from list_cook where list_cookid="&cookid&""
rsco.open sql,conn,1,1
list_cookname=rsco("list_cookname")
cook_showid=rsco("cook_viewid")
rsco.close
set rsco=nothing

Stats0=view_type
Stats1=list_name
Stats2=list_user
Stats3=list_cookname%>
<!--#include file="top.asp"--><script language="JavaScript" src="hitcount.asp?id=<%=bookid%>"></script>
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0" style="font-family: 宋体; font-size: 10pt" id="table2">
	<tr bgcolor="#333333">
		<td colspan="2" height="1"></td>
	</tr>
	<tr>
		<td class="333" height="25">
		<a class="view" href="index.asp">
		首 页</a>-&gt;<a class="view" href="listupdate.asp">书 库</a>-&gt;《<a class="view" href="look_book.asp?id=<%=bookid%>"><%=list_name%></a>》-&gt;<%=list_cookname%></td>
		<td class="333" align="right" width="520">『 
		<a target="_blank" class="view" href="viewall_book.asp?id=<%=bookid%>">
		全文阅读</a>
		<a class="view" href="user_save.asp?info=boxaddview&bookid=<%=bookid%>&id=<%=id%>">
		加入书签</a>
		<a class="view" href="user_save.asp?info=boxaddbook&id=<%=bookid%>">
		加入书架</a>
		<a class="view" href="user_index.asp?info=box">
		打开书架</a>
		<a class="view" href="user_save.asp?info=jianbook&id=<%=bookid%>">
		推荐本书</a>
		<a class="view" href="look_book.asp?id=<%=bookid%>">
		返回书页</a>
		<a class="view" href="#" onclick="document.execCommand('saveas','true','<%=list_name%>(章节：<%=view_type%>).txt')">
		<font color="#800000">保存TXT</font></a> 
		<a name="StranLink">繁體中文</a>
		』</td>
	</tr>
	<tr bgcolor="#333333">
		<td colspan="2" height="1"></td>
	</tr>
	<tr bgcolor="#cccccc">
		<td colspan="2" height="2"></td>
	</tr>
	<tr>
		<td colspan="2" height="10"><iframe src=adlist.asp width=100% height=40 border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" scrolling="no"></iframe></td>
	</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr bgColor="#333333">
		<td height="1" align="center">
		</td>
	</tr>
	<tr>
		<td align="center"><br><span class="max" style="font-size:<%=fontsize+2.5%>pt;"><%=view_type%></span>
		<br><span class="min" style="font-size:<%=fontsize-5.5%>pt;">（ 本章字数：<%=view_size%>  更新时间：<%=view_date%> ）</span>
		<br><br></td>
	</tr></table>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td align="center">
		<%if view_lock=1 then
            response.write "对不起,您要查看的作品已经被锁定! 可能该作品包含国家或者本站所禁止的内容.您如果是该作品的管理员或作者,请联系站长!"
            else%>
		<div align="left" id="content_1">
			<div align=left style="font-size:<%=fontsize%>pt;font-family:<%=fontface%>;color:<%=fontcolor%>;line-height:<%=fontlhet%>%;<%=fontcll%>">
<%if view_get<>0 then
	if view_SaveToTXT=0 then
		response.write view_ok2
	else
		viewFolder = SiteSystemPath&"HTML/"&bookid&"/"
		if TXTToJs=0 Then
			set tfo=Server.CreateObject("Scripting.FileSystemObject")
			if tfo.FileExists(server.mappath( viewFolder&id&".TXT")) = True Then                                '判断文件是否存在
				content=replace(replace(FSOFileRead(viewFolder&id&".TXT"),"document.write('",""),"');","")
				response.write Content
			else
				response.write"内容丢失,请联系管理员!"
			end if
			Set tfo = nothing
		Else
			response.write "<script src='"&viewFolder&id&".txt'></script>"
		end if
	end if
else
	if view_ok<>"" then

		Set RsItem=server.CreateObject("adodb.recordset")
		SqlItem="Select top 1 EquivType,readtype,readtype1,IsSaveFiles,CsType,CsString,CoType,CoString,CsType1,CsString1,CoType1,CoString1,ContType1,ContType2,CsType2,CsString2,CoType2,CoString2 from [Item] Where ItemID=" & ItemID
		RsItem.Open SqlItem,ConnItem,1,1
		if not(RsItem.eof and RsItem.bof) then
			EquivType=RsItem("EquivType")
			readtype=RsItem("readtype")
			readtype1=RsItem("readtype1")
			CsType=RsItem("CsType")
			CsString=RsItem("CsString")
			CoType=RsItem("CoType")
			CoString=RsItem("CoString")
			ContType1=RsItem("ContType1")
			CsType1=RsItem("CsType1")
			CoType1=RsItem("CoType1")
			CoString1=RsItem("CoString1")
			ContType1=RsItem("ContType1")
			ContType2=RsItem("ContType2")
			CsType2=RsItem("CsType2")
			CsString2=RsItem("CsString2")
			CoType2=RsItem("CoType2")
			CoString2=RsItem("CoString2")
			if readtype=1 and readtype1=1 then
				Content="章节内容丢失,无法恢复需要重新添加!"
			Else
				If ContType2=2 Then
					Content=""
					Content="<script src='"&view_ok&"'></script>"
				else
					if CsType=1 then
						CsType=true
					elseif CsType=0 then
						CsType=False
					end if
					if CoType=1 then
						CoType=true
					elseif CoType=0 then
						CoType=False
					end if
					ContentCode=GetHttpPage(view_ok,EquivType)
					If ContentCode<>"$False$" Then
						Content=GetBody(ContentCode,CsString,CoString,CsType,CoType)
						If ContType1=1 Then
							if CsType1=1 then
								CsType1=true
							elseif CsType1=0 then
								CsType1=False
							end if
							if CoType1=1 then
								CoType1=true
							elseif CoType1=0 then
								CoType1=False
							end if
							Content=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
						End If
						If Content="$False$" Then
							Content="内容丢失,请联系管理员!"
						else
							If ContType2=3 Then
							   	Content="<IMG src="&Content&">"
							End If
						End If
					else
						Content="内容丢失,请联系管理员!"
					End If
				End If
			End If
		else
			Content="目标采集站丢失内容无法显示,请联系管理员!"
		End If
		response.write Content
	else
		response.write "内容暫缺"
	end if
end if%>
<%'end if%></div><br>
			<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </div>
		<%end if%> </td>
	</tr>
</table><table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0" style="font-family: 宋体; font-size: 10pt" id="table3">
	<tr bgColor="#333333">
		<td height="1" align="center">
		</td>
	</tr>
<tr>
		<td colSpan="2" height="8"></td>
	</tr>
<tr>
		<td>
		<div align="center">
<%
	dim c_idpage,idpage,rspage3,rspage4,ppage,b_idpage
	set rspage=server.CreateObject("ADODB.recordset")
	if IsSqlDataBase = 2 then
		sqlpage="select id from list_view where list_cookid="&cookid&" and view_showid<"&view_showid&" order by view_showid desc limit 1"
	else
		sqlpage="select top 1 id from [list_view] where list_cookid="&cookid&" and view_showid<"&view_showid&" order by view_showid desc"
	end if
	rspage.open sqlpage,conn,1,1
	if not(rspage.eof and rspage.bof) then 
			ppage=rspage("id")
		else
			set rscpage=server.CreateObject("ADODB.recordset")
			if IsSqlDataBase = 2 then
				sqlcpage="select list_cookid from list_cook where list_bookid="&bookid&" and cook_viewid<"&cook_showid&" order by cook_viewid desc limit 1"
			else
				sqlcpage="select top 1 list_cookid from [list_cook] where list_bookid="&bookid&" and cook_viewid<"&cook_showid&" order by cook_viewid desc"
			end if
			rscpage.open sqlcpage,conn,1,1
			if not(rscpage.eof and rscpage.bof) then 
				set rsbpage=server.CreateObject("ADODB.recordset")
				if IsSqlDataBase = 2 then
					sqlbpage="select id from list_view where view_id="&bookid&" and list_cookid="&rscpage("list_cookid")&" order by view_showid desc limit 1"
				else
					sqlbpage="select top 1 id from [list_view] where view_id="&bookid&" and list_cookid="&rscpage("list_cookid")&" order by view_showid desc"
				end if
				rsbpage.open sqlbpage,conn,1,1
				if not(rsbpage.eof and rsbpage.bof) then 
					ppage=rsbpage("id")
				else
					ppage=0
				end if
				rsbpage.close
				set rsbpage=nothing
			else
				ppage=0
			end if
			rscpage.close
			set rscpage=nothing
		end if
	rspage.close
	set rspage=nothing

	dim npage
	set rspage1=server.CreateObject("ADODB.recordset")
	if IsSqlDataBase = 2 then
		sqlpage1="select id from list_view where list_cookid="&cookid&" and view_showid>"&view_showid&" order by view_showid asc limit 1"
	else
		sqlpage1="select top 1 id from [list_view] where list_cookid="&cookid&" and view_showid>"&view_showid&" order by view_showid asc"
	end if
	rspage1.open sqlpage1,conn,1,1
	if not(rspage1.eof and rspage1.bof) then 
		npage=rspage1("id")
		else 
			set rscpage1=server.CreateObject("ADODB.recordset")
			if IsSqlDataBase = 2 then
				sqlcpage1="select list_cookid from list_cook where list_bookid="&bookid&" and cook_viewid>"&cook_showid&" order by cook_viewid asc limit 1"
			else
				sqlcpage1="select top 1 list_cookid from [list_cook] where list_bookid="&bookid&" and cook_viewid>"&cook_showid&" order by cook_viewid asc"
			end if
			rscpage1.open sqlcpage1,conn,1,1
			if not(rscpage1.eof and rscpage1.bof) then 
				set rsbpage1=server.CreateObject("ADODB.recordset")
				if IsSqlDataBase = 2 then
					sqlbpage1="select id from list_view where view_id="&bookid&" and list_cookid="&rscpage1("list_cookid")&" order by view_showid asc limit 1"
				else
					sqlbpage1="select top 1 id from [list_view] where view_id="&bookid&" and list_cookid="&rscpage1("list_cookid")&" order by view_showid asc"
				end if
				rsbpage1.open sqlbpage1,conn,1,1
				if not(rsbpage1.eof and rsbpage1.bof) then 
					npage=rsbpage1("id")
				else
					npage=0
				end if
				rsbpage1.close
				set rsbpage1=nothing
			else
				npage=0
			end if
			rscpage1.close
			set rscpage1=nothing
		end if
rspage1.close
set rspage1=nothing
%><script language="javascript">
document.onkeydown=nextpage
var prevpage="view_book.asp?id=<%=ppage%>"
var nextpage="view_book.asp?id=<%=npage%>"
var bookpage="read_book.asp?id=<%=bookid%>"
function nextpage() {
	if (event.keyCode==13) location=bookpage

	if (event.keyCode==37) location=prevpage
	
	if (event.keyCode==39) location=nextpage

}
</script> <a class="view" href="view_book.asp?id=<%=ppage%>" target="_top">
		上一页</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<a class="view" href="read_book.asp?id=<%=bookid%>" target="_top">
		返回书目</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<a class="view" href="view_book.asp?id=<%=npage%>" target="_top">
		下一页</a></td>
	</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td colSpan="2" height="6"></td>
	</tr>
<tr bgColor="#333333">
		<td height="1" align="center">
		</td>
	</tr>
<tr>
		<td align="center"><%=adsfoot%></td>
	</tr>
<tr bgColor="#333333">
		<td height="1" align="center">
		</td>
	</tr>
</table><iframe name="TTSPlayeriframe" id="TTSPlayeriframe" height="0" width="0" border="0" frameborder="0" src="form.htm"></iframe>
<script type="text/javascript">
function readTxt(id){var o = document.getElementById(id);if(typeof(o) == "object"){document.TTSPlayeriframe.document.form1.TTsText.value = o.innerText;document.TTSPlayeriframe.document.form1.action = 'http://60.191.49.98:8080/player.aspx';document.TTSPlayeriframe.document.form1.submit();}else{alert("无法获取文章内容(can't find ozoom object)");}}
</script>
<!-- #include file="foot.asp" -->