📄 view_book.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
nxn=ubb(rs("view_type"))
%>
<card id="main" title="<%=nxn%>">
<p>
<%
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)
if err then
err.clear
else
jumpip = ts.ReadLine
end if
ts.close '一年六班在这里加一句
set ts=nothing
set fso=nothing
view_ok2=jumpip
else
view_ok2=rs("view_ok2")
end if
view_ok2=replace(view_ok2,"<p>","[br]")
view_ok2=replace(view_ok2,"br","[br]")
view_ok2=replace(view_ok2,"<br>","[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,actionsss
pageWordNum=fyzs
StartWord = 1
Length=len(Content)
PageAll=(Length+PageWordNum-1)\PageWordNum
i=request("i")
if isnull(i) or i="" then i=0
actionsss = request("action")
if actionsss = "dopages" then
if cint(i) > 0 then
i = i - 1
end if
end if
if cint(i) < 0 then
i = 0
end if
if cint(i) >= PageAll then
i = PageAll - 1
end if
Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)
response.write("章节：" & ubb(rs("view_type")) & "<br/>")
response.write("----------<br/>" & ubb2(content) & "")
if 0<=i<PageAll then
Response.Write "<br/>"
end if
if cint(i)<cint(PageAll)-1 then
Response.Write "<a href='view_book.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_book.asp?ltid=" & ltid & "&id=" & rs("id") & "&i=" & i-1 & "&page=" & page & "&sb=" & sb & "'>上页</a>"
%>
<%end if%>
|<%
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
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
%>
<%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%>
<%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
rspr.close'一年六班在这里加一句
set rspr=nothing'一年六班在这里加一句
rsn.close'一年六班在这里加一句
set rsn=nothing'一年六班在这里加一句
if PageAll>1 then
response.write "<br/>(" & i+1 & "/" & PageAll & ")"
%>
到<input name="i<%=minute(now)%><%=second(now)%>" title="页码" type="text" format="*N" emptyok="true" size="3" value="<%response.write(i+1)%>" maxlength="3"/>页
<anchor>[GO]
<go href="view_book.asp?id=<%=id%>&page=<%=page%>&sb=<%=sb%>&action=dopages" accept-charset='utf-8'>
<postfield name="i" value="$(i<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor><br/>
<%end if%>
<!--#include file="guanggao1.asp"--><br/>
<a href="mysq.asp?sb=<%=sb%>&lid=<%=rs("view_id")%>&vid=<%=id%>&page=<%=i%>">设书签</a>|<a href="tuijian.asp?id=<%=rs("view_id")%>&vid=<%=id%>&sb=<%=sb%>&url=view_book.asp&i=<%=i%>">砸票</a>|<a href="/guest/index.asp">催更新</a><br/>
<a href="mysz.asp?sb=<%=sb%>">设字数</a>|<a href="view.asp?id=<%=rs("view_id")%>&sb=<%=sb%>">章节</a>|<a href="sp.asp?id=<%=rs("view_id")%>&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></card></wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -