admin_bookhtmlmake.asp
来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 307 行
ASP
307 行
<!-- #include file="../conn.asp" --><%Response.buffer=False %>
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<link href="css.css" rel="stylesheet" type="text/css">
<%
b_id=CheckSql(request.querystring("b_id"))
CheckSqlnum(b_id)
b_id=int(b_id)
Select Case request.querystring("info")
Case "allpage"
Call allpage()
Case "look"
Call look()
Case "index"
Call index()
Case "zhang"
Call zhang()
Case "all"
Call all()
Case "page"
Call page()
Case "zhangpage"
Call zhangpage()
Case "jiepage"
Call jiepage()
end select
sub allpage()
response.Write "生成作品资料页...<br>"
MakelookHtml(b_id)
response.Write "完成<br><br>"
response.Write "生成作品目录页...<br>"
MakeindexHtml(b_id)
response.Write "完成<br><br>"
response.Write "生成作品章节页...<br>"
MakepageHtml(b_id)
response.Write "完成<br><br>"
response.Write "生成作品分卷页...<br>"
MakezhangHtml(b_id)
response.Write "完成<br><br>"
response.Write "生成作品全文页...<br>"
MakeallHtml(b_id)
response.Write "完成<br><br>"
response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
response.write "<tr><td height=25 align=center> 完成所有静态页面生成!</td></tr></table>"
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
sub zhangpage()
c_id=CheckSql(request.querystring("c_id"))
CheckSqlnum(c_id)
c_id=int(c_id)
set rsbo=server.createobject("adodb.recordset")
sql="select list_name,list_user,list_lei,list_date from list_book where id="&b_id&""
rsbo.open sql,conn,1,1
if rsbo.eof and rsbo.bof then
response.write "<script language=javascript>alert('错误! \n\n 作品不存在!');history.back(-1);</script>"
response.end
else
list_name=rsbo("list_name")
list_user=rsbo("list_user")
list_classid=rsbo("list_lei")
list_date=formatdatetime(rsbo("list_date"),2)
end if
rsbo.close
set rsbo=nothing
sql1="select Page_Top,page_allviewbook,Page_Foot from [Template] where ID="&Tempid&""
set rs1=connTemp.execute(sql1)
Top=rs1("Page_Top")
okfile0=rs1("page_allviewbook")
Foot=rs1("Page_Foot")
rs1.close
set rs1=nothing
pagefile=sitehead&Top&okfile0&Foot
set rs9=server.CreateObject("ADODB.Recordset")
sql9="select list_classname from list_class where list_classid="&list_classid&""
rs9.open sql9,conn,1,1
if not(rs9.eof and rs9.bof) then
list_classname=rs9("list_classname")
else
list_cookname="正文"
end if
rs9.close
set rs9=nothing
set rs1=server.CreateObject("ADODB.recordset")
sql1="select list_cookid,list_cookname from list_cook where list_cookid="&c_id
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
response.write "<script language=javascript>alert('错误! \n\n 作品没有分卷!');history.back(-1);</script>"
response.end
else
c_id=rs1("list_cookid")
list_cookname=rs1("list_cookname")
main1="<table width='100%' border='1' cellspacing='0' cellpadding='0' bordercolordark='white' bordercolorlight='cccccc' bordercolor='white'>"
main1=main1&"<tr height=26><td colspan='4' align='center' bgcolor='#e3e3e3'>"&list_cookname&"</td></tr><tr height=26>"
set rs4=server.CreateObject("ADODB.recordset")
sql4="select id,view_type from list_view where list_cookid="&c_id&" and view_IsVip=0 order by view_showid"
rs4.open sql4,conn,1,1
mzpvi=1
do while not rs4.eof
main1=main1&"<td align='left' width='25%'> <a href=#"&rs4("id")&">"&rs4("view_type")&"</a></td>"
if mzpvi mod 3=0 then main1=main1&"</tr><tr height=26>"
mzpvi=mzpvi+1
rs4.movenext
loop
rs4.close
set rs4=nothing
main1=main1&"</tr></table>"
main2=""
viewFolder=""&SiteSystemPath&"HTML/"&b_id&"/" 'HTML存放目录
Set bv_rs=server.CreateObject("adodb.recordset")
Best_Sql="select id,list_cookid,view_type,view_date,view_get,view_size,view_ok,view_ok2,view_SaveToTXT,ItemID,view_showid,view_lock from list_view where list_cookid="&c_id&" and view_IsVip=0 order by view_showid"
bv_rs.Open Best_Sql,Conn,1,1
do while not bv_rs.eof
main2=main2&"<table align='center' border='0' cellpadding='0' cellspacing='0' width='98%'><tr><td align='center' valign='middle' class='font'><br><font face='隶书'>"
main2=main2&"<span style='font-size:18pt; font-weight:700'><a name="&bv_rs("ID")&">"&bv_rs("view_type")&"</a></span></font><br>（本章字数："&bv_rs("view_size")&" 更新时间："&bv_rs("view_date")&"）</td>"
main2=main2&"</tr></table><table align='center' border='0' cellpadding='0' cellspacing='0' width='96%'><tr><td><br><DIV align='left' id=content>"
if bv_rs("view_lock")=0 then
if bv_rs("view_get")<>0 then
if bv_rs("view_SaveToTXT")=0 then
main2=main2&bv_rs("view_ok2")
else
if TXTToJs=0 Then
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(server.mappath( viewFolder&bv_rs("id")&".TXT")) = True Then '判断文件是否存在
main2=main2&replace(replace(FSOFileRead(viewFolder&bv_rs("id")&".TXT"),"document.write('",""),"');","")
else
main2=main2&"内容丢失,请联系管理员!"
end if
Set tfo = nothing
Else
main2=main2&"<script src='"&bv_rs("id")&".txt'></script>"
End If
end if
else
if bv_rs("view_ok")<>"" then
ViewUrl=bv_rs("view_ok")
ItemID=bv_rs("ItemID")
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
main2=main2="章节内容丢失,无法恢复需要重新添加!"
Else
If ContType2=2 Then
main2=main2&"<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(view_ok2,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
main2=main2&Content
End If
End If
else
main2=main2&"目标采集站丢失内容无法显示,请联系管理员!"
End If
else
main2=main2&"内容暫缺"
end if
end if
main2=main2&"</span></font></DIV>"
else
main2=main2&"对不起,您要查看的作品已经被锁定! 可能该作品包含国家或者本站所禁止的内容.您如果是该作品的管理员或作者,请联系站长!"
end if
main2=main2&"<br></td></tr></table><br><br><table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#CCCCCC'><tr align='center'>"
main2=main2&"<td height=20 align='right' bgcolor='dddddd' class='font'>[ <a href=#top>置 顶 返回目录</a> ] </td></tr></table><br>"
bv_rs.movenext
loop
bv_rs.close
Set bv_rs=NOTHING
If Not CreateMultiFolder(viewFolder) Then
Response.Write "<font color='red'><B>HTML存储目录创建失败！！</B></font>"&viewFolder&"<br>"
else
pencat=replace(pagefile,"{$bookid$}",b_id)
pencat=replace(pencat,"{$list_classname$}",list_classname)
pencat=replace(pencat,"{$SiteName$}",SiteName)
pencat=replace(pencat,"{$PageKeyword$}",keywords)
pencat=replace(pencat,"{$PageDesc$}",Description)
pencat=replace(pencat,"{$list_name$}",list_name)
pencat=replace(pencat,"{$list_user$}",list_user)
pencat=replace(pencat,"{$list_date$}",list_date)
pencat=replace(pencat,"{$list_main1$}",main1)
pencat=replace(pencat,"{$list_main2$}",main2)
pencat=replace(pencat,"{$Copyright$}",SiteCopyright&Copyright)
pencat=replace(pencat,"{$Adshead$}",htmllists(Adshead))
pencat=replace(pencat,"{$Adsfoot$}",htmllists(Adsfoot))
pencat=replace(pencat,"{$WebmasterName$}",WebmasterName)
pencat=replace(pencat,"{$WebmasterQQ$}",webQQ)
pencat=replace(pencat,"{$WebmasterEmail$}",WebmasterEmail)
pencat=replace(pencat,"{$showclass$}",topsclass)
pencat=replace(pencat,"{$showclass1$}",topsclass1)
pencat=replace(pencat,"{$showclass2$}",topsclass2)
pencat=replace(pencat,"{$htmlhz$}",htmlphe)
bookfile=server.mappath( ""&viewFolder&"Z"&c_id&"."&htmlphe&"" )
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(bookfile,true)
fout.writeline pencat
pencat=""
fout.close
set fso=nothing
main1=""
main2=""
Response.Write (" 完成：<font color=#800000>"&list_name&" - "&list_cookname&" 分卷页</font>HTML生成 <br>")
end if
end if
rs1.close
set rs1=nothing
pagefile=""
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
sub jiepage()
id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
MakeViewHtml(id)
Response.Write ("<p align='center'>完成：<font color=#800000>章节页</font>HTML生成</p><br>")
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
sub look()
MakelookHtml(b_id)
Response.Write ("<p align='center'>完成：<font color=#800000>资料页</font>HTML生成</p><br>")
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
sub index()
MakeindexHtml(b_id)
Response.Write ("<p align='center'>完成：<font color=#800000>目录页</font>HTML生成</p><br>")
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
sub zhang()
MakezhangHtml(b_id)
response.write "<p align='center'>全部完成【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
sub page()
MakepageHtml(b_id)
response.write "<p align='center'>全部完成【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
sub all()
MakeallHtml(b_id)
response.write "<p align='center'>全部完成!!【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?