📄 admin_makehtmlindex.asp

📁 功能强大首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii
💻 ASP
字号:
<!-- #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">
<%
Tempid=request.QueryString("Tempid")
b_id=request.QueryString("b_id")
Server.ScriptTimeOut=48000 '设定操作超时的时间（因为程序运行速度慢啊）
sql1="select Page_Top,page_readbook,Page_Foot from [Template] where ID="&Tempid&""
set rs1=connTemp.execute(sql1)
Top=rs1("Page_Top")
okfile0=rs1("page_readbook")
Foot=rs1("Page_Foot")
rs1.close
set rs1=nothing
pencat0="<html>"
pencat0=pencat0&"<head>"
pencat0=pencat0&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
pencat0=pencat0&"<link href=""../../css/main.css"" rel=""stylesheet"" type=""text/css"">"
pencat0=pencat0&"<meta name=""author"" content=""今世:http://www.JsIce.com"" />"
pencat0=pencat0&"<script language=JavaScript src='../../js/js.js'></script>"
pencat0=pencat0&"<script language=JavaScript src='../../js/mono.js'></script></head>"
pencat0=pencat0&"<meta name=""generator"" content=""www.JsIce.com"" />"

SiteCopyright="Powered By <a title='今世小说连载系统' href='http://www.JsIce.com/'>JsIceWeb</a> &copy; 2006-2008 <a href='"&Siteurl&"'>"&replace(Siteurl,"http://","")&"</a> "
SiteCopyright=SiteCopyright&"<br><script language='javascript' src='../../js/gb.js'></script><script language='javascript' src='../../js/JsIcewebset.js'></script>"

pencat=pencat0&Top&okfile0&Foot

set rs2=server.CreateObject("ADODB.recordset")
sql2="select Lock_book,list_name,list_user,list_lei,list_date from [list_book] where id="&b_id
rs2.open sql2,conn,1,3
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("Lock_book") = 1 then
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
list_name=rs2("list_name")
list_user=rs2("list_user")
list_classid=rs2("list_lei")
list_date=formatdatetime(rs2("list_date"),2)
rs2.close
set rs2=nothing

set rs9=server.CreateObject("ADODB.Recordset")
sql9="select list_classname from [list_class] where list_classid="&list_classid&""
rs9.open sql9,conn,1,1
list_classname=rs9("list_classname")
rs9.close
set rs9=nothing
main1=""
main2=""
set rs1=server.CreateObject("ADODB.recordset")
sql1="select list_cookid,list_cookname from list_cook where list_bookid="&b_id&" order by cook_viewid"
rs1.open sql1,conn,1,1
do while not rs1.eof
main1=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'>"&rs1("list_cookname")&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
main1=main1&"[<a target='_blank' href=Z"&rs1("list_cookid")&"."&htmlphe&">分卷阅读</a> ]</td></tr><tr height='26'>"
c_id=rs1("list_cookid")
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
i=1
do while not rs4.eof
main1=main1&"<td height='26' align='left' width='33%'>&nbsp;<a href='"&rs4("id")&"."&htmlphe&"'>"&rs4("view_type")&"</a></td>"
if i mod 3=0 then main1=main1&"</tr><tr height=26>"
i=i+1
rs4.movenext
loop
rs4.close
set rs4=nothing
main1=main1&"</tr>"
rs1.movenext
loop
rs1.close
set rs1=nothing
 
set rsvip=server.CreateObject("ADODB.Recordset")
sqlvip="select id,view_type from [list_view] where view_id="&b_id&" and view_IsVip=1 order by view_showid"
rsvip.open sqlvip,conn,1,1
if not(rsvip.bof and rsvip.eof) then
main2="<tr height='26'><td colspan='4' align='center' bgcolor='#e3e3e3'>[ VIP章节 <a target='_blank' href='../../look_VIPbook.asp?id="&b_id&"'>查看VIP章节</a>]</td></tr><tr height='26'>"
i=1
do while not rsvip.eof
main2=main2&"<td height='26' align='left' width='33%'>&nbsp;<a href='../../vip_view_book.asp?id="&rsvip("id")&"'>"&rsvip("view_type")&"</a> </td>"
if i mod 3=0 then main2=main2&"</tr><tr height=26>"
i=i+1
rsvip.movenext
loop
main2=main2&"</tr>"
end if
rsvip.close
set rsvip=nothing
main2=main2&"</table>"

pencat=replace(pencat,"{$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,"{$htmlhz$}",htmlphe)

viewFolder=""&SiteSystemPath&"HTML/"&b_id&"/" 'HTML存放目录

If Not CreateMultiFolder(viewFolder) Then
	Response.Write "<font color='red'><B>HTML存储目录创建失败！！</B></font>"&viewFolder&"<br>"
else

bookfile=server.mappath( ""&viewFolder&"index."&htmlphe&"" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(bookfile,true)
fout.writeline pencat
fout.close
set fso=nothing
Response.Write (" 完成: 作品"&list_name&"的目录页HTML生成 ")
end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -