📄 view_book2.asp
字号:
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html>
<!--#include file="conn.inc"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body><body bgcolor="#fcefff"><p>
<%
id=usb(request("id"))
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from list_view where id="&id
rs.open rspl,conn,1,2
if rs.eof then
response.write("无此文章！<br/>")
else
nxn=ubb(rs("view_type"))
%>
<!--#include file="xxts.asp"-->
<%
view_id=rs("view_id")
if rs("view_savetotxt")=1 then
view_id=rs("view_id")
viewRootFolder="../html/" 'HTML存放目录
view_localpath0 = left(view_id,2) '一级分类目录
view_localpath1 = left(view_id,4) '二级分类目录
view_localpath2 = left(view_id,6) '作品分类目录
view_localpath3 = view_id '作品目录
view_localpath = view_localpath0&"/"&view_localpath1&"/"&view_localpath2&"/"&view_localpath3&"/"
viewFolder = viewRootFolder&""&view_localpath
view_localpathTXT="TXT"
viewFolder1=viewFolder&view_localpathTXT&"/"
'file=""&viewFolder1&""&request("id")&".TXT"
file=".."&rs("view_ok")&""
'------------------
Dim fso, f1, ts, jumpip, FilePath
FilePath=server.mappath(""&file&"")
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(FilePath, ForReading)
jumpip = ts.ReadLine
set ts=nothing
set fso=nothing
view_ok2=jumpip
else
view_ok2=rs("view_ok2")
end if
view_ok2=replace(view_ok2,"<p>","◎")
view_ok2=replace(view_ok2,"<br>","◎")
view_ok2=replace(view_ok2,"br","◎")
view_ok2=replace(view_ok2,"P","")
view_ok2=replace(view_ok2,"document.write('","")
view_ok2=replace(view_ok2,"[SOHU广告][百度广告][智源广告][阿里广告][Google广告]","")
view_ok2=replace(view_ok2,"发布","")
view_ok2=replace(view_ok2,"www.cmfu.com","")
view_ok2=replace(view_ok2,"div","")
view_ok2=replace(view_ok2,"display:none","")
view_ok2=replace(view_ok2,"style=","")
view_ok2=replace(view_ok2,"""","")
view_ok2=replace(view_ok2,"/","")
view_ok2=replace(view_ok2,"＊","")
view_ok2=replace(view_ok2,""","")
view_ok2=replace(view_ok2,"amp;","")
view_ok2=replace(view_ok2,"<","")
view_ok2=replace(view_ok2,">","")
view_ok2=replace(view_ok2,"<","")
view_ok2=replace(view_ok2,">","")
view_ok2=replace(view_ok2,"');","")
view_ok2=replace(view_ok2," ","")
view_ok2=replace(view_ok2,"BRBR","")
view_ok2=replace(view_ok2,"BR","")
view_ok2=replace(view_ok2,"*","")
view_ok2=replace(view_ok2,"-","")
view_ok2=replace(view_ok2,"tdDIV id=booktext","")
view_ok2=replace(view_ok2,"fontsize:15px;color:black;lineheight:180%;paddingleft:10;paddingright:10 align=left","")
Content=view_ok2
dim pageWordNum,StartWord,Content,Length,PageAll,i
pageWordNum=fyzs
StartWord = 1
Length=len(Content)
PageAll=(Length+PageWordNum-1)\PageWordNum
i=request("i")
if isnull(i) or i="" then i=0
Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)
response.write("章节：" & ubb(rs("view_type")) & "<br/>")
response.write("----------<br/>" & content & "")
if 0<=i<PageAll then
Response.Write "<br/>"
end if
if cint(i)<cint(PageAll)-1 then
Response.Write "<a href='view_book2.asp?ltid=" & ltid & "&id=" & rs("id") & "&i=" & i+1 & "&page=" & page & "&sb=" & sb & "'>下页</a>"
End if
if cint(i)>0 then
Response.Write " " & "<a href='view_book2.asp?ltid=" & ltid & "&id=" & rs("id") & "&i=" & i-1 & "&page=" & page & "&sb=" & sb & "'>上页</a>"
%>
<%end if%>
<%
set rsn=Server.CreateObject("ADODB.Recordset")
rsstrn="select id,view_id from [list_view] where [ID]<"& ID &" and view_id="&rs("view_id")&" order by [ID] desc"
rsn.open rsstrn,conn,1,2
set rspr=Server.CreateObject("ADODB.Recordset")
rsstrpr="select id,view_id from [list_view] where [ID]>"& ID &" and view_id="&rs("view_id")&" order by [ID] asc"
rspr.open rsstrpr,conn,1,2%>
<%if rsn.recordcount>0 then%>
<a href="view_book2.asp?id=<%=rsn("id")%>&sb=<%=sb%>">上章</a>
<%end if%>
<%if rsn.recordcount=0 then%>
上一章
<%end if%>
<%if rsn.recordcount>0 and rspr.recordcount>0 then response.write"|"%>
<%if rspr.recordcount>0 then%>
<a href="view_book2.asp?id=<%=rspr("id")%>&sb=<%=sb%>">下章</a>
<%end if%>
<%if rspr.recordcount=0 then%>
下一章
<br/>
<%
End if
if PageAll>1 then
response.write "<br/>(" & i+1 & "/" & PageAll & ")"
%>
<%end if%>
<br/><!--#include file="guanggao1.asp"--><br/>
<a href="mysq.asp?sb=<%=sb%>&lid=<%=rs("view_id")%>&vid=<%=id%>&page=<%=i%>">存入书签</a>|粉红|<a href="view_book1.asp?id=<%=id%>&sb=<%=sb%>">灰色</a><br/>
<a href="tuijian.asp?id=<%=rs("view_id")%>&sb=<%=sb%>&url=view_book.asp&i=<%=i%>">投票</a>|<a href="sp.asp?id=<%=rs("view_id")%>&sb=<%=sb%>">书评</a>|<a href="view.asp?id=<%=rs("view_id")%>&sb=<%=sb%>">章节</a>|<a href="/guest/index.asp?sb=<%=sb%>">报错</a>
<br/>
--------<br/>
<a href="class.asp?id=<%=rs("view_id")%>&sb=<%=sb%>">返回本书封面</a>
<br/>
<!--#include file="fanhui.asp"-->
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -