viewall_book.asp

小说站源代码文件

<!-- #include file="conn.asp" --><%Response.buffer=False %>
<!--#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)
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

view_localpath = view_localpath0&"/"&view_localpath1&"/"&view_localpath2&"/"&view_localpath3&"/"
viewFolder = SiteSystemPath&"HTML/"&id&"/"
file=server.mappath( ""&viewFolder&"ALLbook"&id&"."&htmlphe&"" )
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(file) = True Then
Response.redirect(""&viewFolder&"ALLbook"&id&"."&htmlphe&"")
Response.end
end if
end if

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

classid=rs2("list_class")
set rs3=server.CreateObject("ADODB.recordset")
sql3="select * from list_type where typeid="&classid
rs3.open sql3,conn,1,1

dim list_classid
list_classid=rs2("list_lei")
set rs9=server.CreateObject("ADODB.Recordset")
sql9="select * from list_class where list_classid="&list_classid&""
rs9.open sql9,conn,1,1
%><%
Stats0="全文阅读"
Stats1=rs2("list_name")
%>
<!--#include file="top.asp"--><script language="JavaScript" src="hitcount.asp?id=<%=id%>"></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=<%=id%>"><%=rs2("list_name")%></a>》</td>
		<td class="333" align="right" width="500">『 
		<a target="_blank" class="view" href="viewall_book.asp?id=<%=id%>">
		全文阅读</a>
		<a class="view" href="user_save.asp?info=boxaddbook&id=<%=id%>">
		加入书架</a>
		<a class="view" href="user_index.asp?info=box">
		打开书架</a>
		<a class="view" href="user_save.asp?info=jianbook&id=<%=id%>&us=<%=rs2("list_userid")%>">
		推荐本书</a>
		<a class="view" href="look_book.asp?id=<%=id%>">
		返回书页</a> 
		<a class="view" href="#" onclick="document.execCommand('saveas','true','<%=rs2("list_name")%>(全文阅读).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"><%=rs2("list_name")%></span>
		<br><span class="min">作者: <%=rs2("list_user")%>&nbsp;&nbsp;发表时间: 
                        <%=rs2("list_date")%>&nbsp;&nbsp;所属类型:<%=rs9("list_classname")%></span>
		<br><br></td>
	</tr>
</table>
<%
set rs1=server.CreateObject("ADODB.recordset")
sql1="select * from list_cook where list_bookid="&id&" order by cook_viewid"
rs1.open sql1,conn,1,1
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="white" bordercolorlight="cccccc" bordercolor="white">
											<%do while not rs1.eof%>
											<tr height="26">
												<td colspan="4" align="center" bgcolor="#e3e3e3"><a href="#cook<%=rs1("list_cookid")%>">
												<%=rs1("list_cookname")%></a></td>
											</tr>
											<tr height="26">
												<%
c_id=rs1("list_cookid")
set rs4=server.CreateObject("ADODB.recordset")
sql4="select id,view_size,view_date,view_type,view_get from list_view where list_cookid="&c_id&" and view_IsVip=0 order by view_showid"
rs4.open sql4,conn,1,1
%> <%
i=1
do while not rs4.eof
%>
												<td height="26" align="left" width="33%">&nbsp;
												<a href="#<%=rs4("id")%>" title='本章字数：<%=rs4("view_size")%>

更新日期：<%=rs4("view_date")%>' ><%=rs4("view_type")%></a></td>
												<%
if i mod 3=0 then response.write "</tr><tr height=26>"
i=i+1
rs4.movenext
loop
rs4.close
set rs4=nothing
%>
											</tr>
											<%rs1.movenext
loop
rs1.close
set rs1=nothing

rs9.close
set rs9=nothing

rs3.close
set rs3=nothing
%> 
										</table>
<%
set rs1=server.CreateObject("ADODB.recordset")
sql1="select * from list_cook where list_bookid="&id&" order by cook_viewid"
rs1.open sql1,conn,1,1
do while not rs1.eof
%><table align="center" width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="white" bordercolorlight="cccccc" bordercolor="white">
	<tr height="26">
		<td colspan="4" align="center" bgcolor="#e3e3e3"><a name="#cook<%=rs1("list_cookid")%>"><%=rs1("list_cookname")%></a></td>
	</tr>
</table>
<%
c_id=rs1("list_cookid")
set rs4=server.CreateObject("ADODB.recordset")
sql4="select * from list_view where list_cookid="&c_id&" and view_IsVip=0 order by view_showid"
rs4.open sql4,conn,1,1
do while not rs4.eof%>
<table align="center" width="100%" border="0" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center" valign="middle" class="font"><br><font face="隶书"> 
		<span  style="font-size:<%=fontsize+2.5%>pt;"><a name="<%=rs4("id")%>"><%=rs4("view_type")%></a></span></font><br>
		<span class="min" style="font-size:<%=fontsize-5.5%>pt;">（ 本章字数：<%=rs4("view_size")%>  更新时间：<%=rs4("view_date")%>）</span></td>
	</tr>
</table>
		<table align="center" border="0" cellpadding="0" cellspacing="0" width="96%">
			<tr>
				<td><br>
				<div align="left" id="content">
				<div align=left style="font-size:<%=fontsize%>pt;font-family:<%=fontface%>;color:<%=fontcolor%>;line-height:<%=fontlhet%>%;<%=fontcll%>">
				<%if rs4("view_get")<>0 then
if rs4("view_SaveToTXT")=0 then%><%=rs4("view_ok2")%><%else
viewFolder = SiteSystemPath&"HTML/"&id&"/"
		if TXTToJs=0 Then
		set tfo=Server.CreateObject("Scripting.FileSystemObject")
		if tfo.FileExists(server.mappath( viewFolder&rs4("id")&".TXT")) = True Then                                '判断文件是否存在
			content=replace(replace(FSOFileRead(viewFolder&rs4("id")&".TXT"),"document.write('",""),"');","")
			response.write Content
		else
			response.write"内容丢失,请联系管理员!"
		end if
		Set tfo = nothing
		Else
%> <script src='<%=viewFolder%><%=rs4("id")%>.txt'></script><%end if
end if
else
if rs4("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=" & rs4("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
				ViewUrl=rs4("view_ok")
				If ContType2=2 Then
					Content=""
					Content="<script src='"&ViewUrl&"'></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(ViewUrl,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%></div>
					</div>
				<br>
				</td>
			</tr>
		</table>
<br>
<br>
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
			<tr align="center">
				<td height="20" align="right" bgcolor="dddddd" class="font">[
				<a href="#top">置 顶&nbsp; 返回目录</a> ]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
				</td>
			</tr>
		</table>
<br>
<br>
<%
rs4.movenext
loop
rs4.close
set rs4=nothing
%><%rs1.movenext
loop
rs1.close
set rs1=nothing
%><%
rs2.close
set rs2=nothing
%>
<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>
<!-- #include file="foot.asp" -->