📄 view_book3.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%
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("<card id='main' title='错误'><p>无此文章！<br/>")
else
%>
<!--#include file="xxts.asp"-->
<!--#INCLUDE VIRTUAL="/ad/ad_V.asp"--><br/>
<%
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%>
<card id='main' title='<%=rs("view_type")%>'>
<p><%=rs("view_type")%><br/>
<%
view_ok2=replace(view_ok2,"<p>","◎")
view_ok2=replace(view_ok2,"<br>","◎")
view_ok2=replace(view_ok2,"P","")
view_ok2=replace(view_ok2,"document.write('","")
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
pageWordNum=500
StartWord = 1
Length=len(Content)
PageAll=(Length+PageWordNum-1)\PageWordNum
i=request("i")-1
if i>PageAll then
i=PageAll-1
end if
if i=-1 then
i=0
end if
if isnull(i) or i="" then
i=0
end if
Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)
content=replace(content,"◎","<br/>")
content=replace(content,"本书由泡书paobook.com小说原创网首发，转载请保留！","")
Response.Write ""&content&""
if 0<=i<PageAll then
if cint(i)<cint(PageAll)-1 then
Response.Write "<br/><a href='wap_view_book.asp?i="&i+2&"&id="&request("id")&"&zhan="&zhan&"'>下一页</a>"
'-------------------
End if
if cint(i)>0 then
Response.Write " " & "|<a href='wap_view_book.asp?i="&i&"&id="&request("id")&"&zhan="&zhan&"'>上一页</a>"
set rs = server.createobject("adodb.recordset")
response.write "|<a href='wap_view_book.asp?id="&rs("id")&"&zhan="&zhan&"'>上一页</a>"
End if
End if
rs.close
set rs=nothing
%>
<%=application("guang1")%>
<br/>(<%=i+1%>/<%=PageAll%>)
至<input type="text" name="i" format="*N" size="2" value="1"/>页
<anchor>Go!
<go href='wap_view_book.asp' method='post'>
<postfield name='i' value='$(i)'/>
<postfield name='zhan' value='<%=zhan%>'/>
<postfield name='id' value='<%=request("id")%>'/>
</go>
</anchor>
<br/>
<%
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_book.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_book.asp?id=<%=rspr("id")%>&sb=<%=sb%>">下一章</a>
<%end if%>
<%if rspr.recordcount=0 then%>
下一章
<%end if%>
<br/>
<a href="mysq.asp?sb=<%=sb%>&lid=<%=rs("view_id")%>&vid=<%=id%>&page=<%=i%>">存入书签</a>|<a href="view_book2.asp?id=<%=id%>&sb=<%=sb%>">粉红</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
%>
<br/>
</p></card></wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -