⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_makehtmldo.asp

📁 功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<!-- #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"><%
Server.ScriptTimeOut=48000 '设定操作超时的时间（因为程序运行速度慢啊）
if htmlphem=1 then
htmlphe="htm"
elseif htmlphem=2 then
htmlphe="html"
elseif htmlphem=3 then
htmlphe="shtml"
elseif htmlphem=4 then
htmlphe="asp"
else
htmlphe="html"
end if

Select Case request.querystring("info")
	Case "webindex"
		Call webindex()
	Case "booklist"
		Call booklist()
	Case "booklook"
		Call booklook()
	Case "bookindex"
		Call bookindex()
	Case "bookall"
		Call bookall()
	Case "bookzhang"
		Call bookzhang()
	Case "bookpage"
		Call bookpage()
	Case "typelook"
		Call typelook()
	Case "typeindex"
		Call typeindex()
	Case "typeall"
		Call typeall()
	Case "typezhang"
		Call typezhang()
	Case "typepage"
		Call typepage()
	Case "classlook"
		Call classlook()
	Case "classindex"
		Call classindex()
	Case "classall"
		Call classall()
	Case "classzhang"
		Call classzhang()
	Case "classpage"
		Call classpage()
end select 
%>
<%Sub webindex()
MakewebindexHtml()
Response.Write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;完成：<font color=red>网站首页</font>HTML生成 <br>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】")
Response.end
end sub%>

<%Sub booklist()

id=CheckSql(request("classid"))
CheckSqlnum(id)
id=int(id)
Const MaxPerPage=100
if id=0 then
pencat0="<html>"&chr(13)&chr(10)
pencat0=pencat0&"<head>"&chr(13)&chr(10)
pencat0=pencat0&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""copyright"" content=""作品版权属于原作者·页面所有权  {$SiteName$}"" Powered By CnEndWeb/>"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""keywords"" content=""{$PageKeyword$} Powered By CnEndWeb cnend.net"">"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""description"" content=""{$PageDesc$} Powered By CnEndWeb cnend.net"">"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""generator"" content=""www.cnend.net"" />"&chr(13)&chr(10)
title="<title>{$SiteName$} - {$Stats$}</title>"&chr(13)&chr(10)
SiteCopyright="Powered By <a title='终点小说连载系统' href='http://www.cnend.net/'>CnEndWeb</a> &copy; 2006-2008 <a href='"&Siteurl&"'>"&replace(Siteurl,"http://","")&"</a> "
SiteCopyright=SiteCopyright&"<script language='javascript' src='{$SiteSystemPath$}js/gb.js'></script><br>"

pencats="<table cellspacing=0 width=100% align=center border=0><tr><td align=middle><table cellspacing=0 cellpadding=0 width=100% border=0 valign=top><form method=get action={$SiteSystemPath$}listupdate.asp><tr><td class=xt><span class=zt>&nbsp; □<font color=red>全部作品</font>&nbsp; "
pencats=pencats&"本类全部</span>&nbsp;&nbsp;&nbsp; 按更新时间排序 </td><td class=xt align=right>"
pencats=pencats&"<select name=booktype2><option value=0 selected>排行方式</option><option value=1>总点击</option><option value=2>总推荐</option><option value=3>总收藏</option><option value=4>总字数</option><option value=5>字首拼音</option><option value=6>更新时间</option></select> <input type=submit value=提交></td></tr></form></table></td></tr></table>"
pencats1="<table cellspacing=0 width=100% align=center border=0><tr><td><table cellspacing=0 bordercolordark=white width=99% align=center border=0 valign=top><tr align=middle height=24><td class=xt style='BORDER-LEFT-COLOR: rgb(204,204,204); BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=12% ><b><font color=#003399>类别</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=20% ><b><font color=#003399>书名</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=35% ><b><font color=#003399>最新章节</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=15% ><b><font color=#003399>更新时间</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=10% ><b><font color=#003399>作者</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204); BORDER-RIGHT-COLOR: rgb(204,204,204)' valign=center bordercolorlight=#666666 align=middle width=8% ><b><font color=#003399>状态</font></b></td></tr>"
pencats3="</table></td></tr></table>"

Stats=" 全部作品分类列表"

set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select id,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0 order by list_gxdate desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
	pencats2="<tr bgColor=#ffffff height=24><td align=center>暂无任何作品</td></tr>"
else
	pencats2=""
   Rsbclass.PageSize=MaxPerPage
   Allpage=Rsbclass.PageCount
	For j=1 To Allpage

	sql1="select SystemPath,Page_bottom,page_listbook,Page_head,Page_Css,Page_1 from [Template] where ID="&Tempid&""
	set rs1=connTemp.execute(sql1)
	SystemPath=rs1("SystemPath")
	Page_Css=rs1("Page_Css")
	Top=rs1("Page_head")
	okfile0=rs1("page_listbook")
	showlook_book=rs1("Page_1")
	Foot=rs1("Page_bottom")
	rs1.close
	set rs1=nothing
	pencat=pencat0&Top&okfile0&Foot

   Num=Rsbclass.RecordCount
   Rsbclass.MoveFirst
   Rsbclass.AbsolutePage=j
   i=0
	Do While Not Rsbclass.Eof
	pencats2=pencats2&"<tr height=24><td class=xt valign=top align=middle>"
	set rs1=server.CreateObject("ADODB.recordset")
	sql="select list_classname from list_class where list_classid="&rsbclass("list_lei")
	rs1.open sql,conn,1,1
	if rs1.eof and rs1.bof then
		pencats2=pencats2&"被删除"
	else
		pencats2=pencats2&rs1("list_classname")
	end if
	rs1.close
	set rs1=nothing
	pencats2=pencats2&"</td><td class=xt valign=top align=left><a href="&rsbclass("id")&"."&htmlphe&">"&rsbclass("list_name")&"</a></td><td class=xt valign=top align=left><a href="
	if rsbclass("newviewid")=0 then
		pencats2=pencats2&"0.htm"
	else
		pencats2=pencats2&""&rsbclass("id")&"/"&rsbclass("newviewid")&"."&htmlphe&""
	end if
	pencats2=pencats2&"><font color=#5d5d5d>"
	if rsbclass("newviewname")<>"" then
		pencats2=pencats2&rsbclass("newviewname")
	else
		pencats2=pencats2&"暂无更新"
	end if
	pencats2=pencats2&"</font></a></td><td class=xt valign=top align=middle>"&formatdatetime(rsbclass("list_gxdate"),2)&"</td><td class=xt valign=top align=middle>"&rsbclass("list_user")&"</td>	<td class=xt valign=top align=middle>"
	if rsbclass("list_tai")="1" then
		pencats2=pencats2&"转载中..."
	elseif rsbclass("list_tai")="2" then
		pencats2=pencats2&"连载中..."
	elseif rsbclass("list_tai")="3" then
		pencats2=pencats2&"出版中..."
	elseif rsbclass("list_tai")="4" then
		pencats2=pencats2&"已暂停..."
	elseif rsbclass("list_tai")="5" then
		pencats2=pencats2&"已停止..."
	elseif rsbclass("list_tai")="6" then
		pencats2=pencats2&"已完成..."
	end if
	pencats2=pencats2&"</td></tr>"
      i=i+1
      If i>=MaxPerPage Then Exit Do
      Rsbclass.MoveNext
   Loop
pencats2=pencats2&"<tr><td height=24 class=xt align=center colspan=6>共 <b>" & Num & "</b> 条纪录&nbsp;&nbsp;"
if j<2 then
pencats2=pencats2&"首页 上一页&nbsp;"
else
pencats2=pencats2& "<a href='listupdate_1."&htmlphe&"'>首页</a>&nbsp;"
pencats2=pencats2& "<a href='listupdate_"&(j-1)&"."&htmlphe&"'>上一页</a>&nbsp;"
end if
if j>=Allpage then
pencats2=pencats2& "下一页 尾页"
else
pencats2=pencats2& "<a href='listupdate_"&(j+1)&"."&htmlphe&"'>下一页</a>&nbsp;"
pencats2=pencats2& "<a href='listupdate_"&Allpage&"."&htmlphe&"'>尾页</a>"
end if
pencats2=pencats2& "&nbsp;页次：<strong><font color=red>" & j & "</font>/" & Allpage & "</strong>页 "
pencats2=pencats2& "&nbsp;<b>" & MaxPerPage & "</b>条纪录/页"
pencats2=pencats2& "</td></tr></table></td></tr>"

pencat=replace(pencat,"{$showlist_book$}",pencats&pencats1&pencats2&pencats3)
pencat=replace(pencat,"{$PageCSS$}",Page_Css)
pencat=replace(pencat,"{$showtitle$}",title)
pencat=replace(pencat,"{$Stats$}",Stats)
pencat=replace(pencat,"{$SiteName$}",SiteName)
pencat=replace(pencat,"{$Siteurl$}",Siteurl)
pencat=replace(pencat,"{$Sitelogo$}",Sitelogo)
pencat=replace(pencat,"{$SiteSystemPath$}",SiteSystemPath)
pencat=replace(pencat,"{$BannerUrl$}",htmllists(BannerUrl))
pencat=replace(pencat,"{$Bannerads$}",htmllists(Bannerads))
pencat=replace(pencat,"{$PageKeyword$}",keywords)
pencat=replace(pencat,"{$PageDesc$}",Description)
pencat=replace(pencat,"{$user_login$}","<script language=JavaScript src="""&SiteSystemPath&"js/userlogin.asp?type=1""></script>")

pencat=replace(pencat,"{$Copyright$}",SiteCopyright&Copyright)

pencat=replace(pencat,"{$showqltj$}",topsqltj)
pencat=replace(pencat,"{$userlogin$}","<script language=JavaScript src="""&SiteSystemPath&"js/userlogin.asp?type=0""></script>")
pencat=replace(pencat,"{$booksearch$}",topsbooksearch)
pencat=replace(pencat,"{$book_search$}",topsbook_search)
pencat=replace(pencat,"{$showclass$}",topsclass)
pencat=replace(pencat,"{$showtopten$}",topstopten)
pencat=replace(pencat,"{$showlztj$}",topslztj)
pencat=replace(pencat,"{$showsc$}",topssc)
pencat=replace(pencat,"{$showdj$}",topsdj)
pencat=replace(pencat,"{$showmdj$}",topsmdj)
pencat=replace(pencat,"{$showddj$}",topsddj)
pencat=replace(pencat,"{$showzdj$}",topszdj)
pencat=replace(pencat,"{$showtj$}",topstj)
pencat=replace(pencat,"{$showadd$}",topsadd)
pencat=replace(pencat,"{$showmtj$}",topsmtj)
pencat=replace(pencat,"{$showztj$}",topsztj)
pencat=replace(pencat,"{$showdtj$}",topsdtj)
pencat=replace(pencat,"{$showlogolink$}",topslogolink)
pencat=replace(pencat,"{$showtxtlink$}",topstxtlink)
pencat=replace(pencat,"{$showlogo_link$}",topslogo_link)
pencat=replace(pencat,"{$showtxt_link$}",topstxt_link)
pencat=replace(pencat,"{$showuserbookadd$}",topsuserbookadd)
pencat=replace(pencat,"{$showuserbookadds$}",topsuserbookadds)
pencat=replace(pencat,"{$showuserbooktj$}",topsuserbooktj)
pencat=replace(pencat,"{$showuserbookdj$}",topsuserbookdj)
	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)

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

bookfile=server.mappath( ""&viewFolder&"listupdate_"&j&"."&htmlphe&"" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(bookfile,true)
fout.writeline pencat
fout.close
set fso=nothing
Response.Write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;完成：<font color=red>全部</font> 列表第"&j&"页HTML生成 <br>")
	pencats2=""

Next
response.write "<p align='center'>全部完成!!【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
End If
Rsbclass.Close
Set Rsbclass=Nothing

elseif id=999 then

pencat0="<html>"&chr(13)&chr(10)
pencat0=pencat0&"<head>"&chr(13)&chr(10)
pencat0=pencat0&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""copyright"" content=""作品版权属于原作者·页面所有权  {$SiteName$}"" Powered By CnEndWeb/>"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""keywords"" content=""{$PageKeyword$} Powered By CnEndWeb cnend.net"">"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""description"" content=""{$PageDesc$} Powered By CnEndWeb cnend.net"">"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""generator"" content=""www.cnend.net"" />"&chr(13)&chr(10)
title="<title>{$SiteName$} - {$Stats$}</title>"&chr(13)&chr(10)
SiteCopyright="Powered By <a title='终点小说连载系统' href='http://www.cnend.net/'>CnEndWeb</a> &copy; 2006-2008 <a href='"&Siteurl&"'>"&replace(Siteurl,"http://","")&"</a> "
SiteCopyright=SiteCopyright&"<script language='javascript' src='{$SiteSystemPath$}js/gb.js'></script><br>"

pencats="<table cellspacing=0 width=100% align=center border=0><tr><td align=middle><table cellspacing=0 cellpadding=0 width=100% border=0 valign=top><form method=get action={$SiteSystemPath$}Quanben.asp><tr><td class=xt><span class=zt>&nbsp; □<font color=red>全部作品</font>&nbsp; "
pencats=pencats&"本类全部</span>&nbsp;&nbsp;&nbsp; 按更新时间排序 </td><td class=xt align=right>"
pencats=pencats&"<select name=booktype2><option value=0 selected>排行方式</option><option value=1>总点击</option><option value=2>总推荐</option><option value=3>总收藏</option><option value=4>总字数</option><option value=5>字首拼音</option><option value=6>更新时间</option></select> <input type=submit value=提交></td></tr></form></table></td></tr></table>"
pencats1="<table cellspacing=0 width=100% align=center border=0><tr><td><table cellspacing=0 bordercolordark=white width=99% align=center border=0 valign=top><tr align=middle height=24><td class=xt style='BORDER-LEFT-COLOR: rgb(204,204,204); BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=12% ><b><font color=#003399>类别</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=20% ><b><font color=#003399>书名</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=35% ><b><font color=#003399>最新章节</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=15% ><b><font color=#003399>更新时间</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)' valign=center align=middle width=10% ><b><font color=#003399>作者</font></b></td><td class=xt style='BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204); BORDER-RIGHT-COLOR: rgb(204,204,204)' valign=center bordercolorlight=#666666 align=middle width=8% ><b><font color=#003399>状态</font></b></td></tr>"
pencats3="</table></td></tr></table>"

Stats=" 全本作品列表 - Powered By CnEndWeb"

set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select id,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0 and list_tai=6 order by list_gxdate desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
	pencats2="<tr bgColor=#ffffff height=24><td align=center>暂无任何作品</td></tr>"
else
	pencats2=""
   Rsbclass.PageSize=MaxPerPage
   Allpage=Rsbclass.PageCount
	For j=1 To Allpage

	sql1="select SystemPath,Page_bottom,page_listbook,Page_head,Page_Css,Page_1 from [Template] where ID="&Tempid&""
	set rs1=connTemp.execute(sql1)
	SystemPath=rs1("SystemPath")
	Page_Css=rs1("Page_Css")
	Top=rs1("Page_head")
	okfile0=rs1("page_listbook")
	showlook_book=rs1("Page_1")
	Foot=rs1("Page_bottom")
	rs1.close
	set rs1=nothing
	pencat=pencat0&Top&okfile0&Foot

   Num=Rsbclass.RecordCount
   Rsbclass.MoveFirst
   Rsbclass.AbsolutePage=j
12345

⌨️ 快捷键说明

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