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

📄 admin_makehtmldo.asp

📁 功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
   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='Quanben_1."&htmlphe&"'>首页</a>&nbsp;"
pencats2=pencats2& "<a href='Quanben_"&(j-1)&"."&htmlphe&"'>上一页</a>&nbsp;"
end if
if j>=Allpage then
pencats2=pencats2& "下一页 尾页"
else
pencats2=pencats2& "<a href='Quanben_"&(j+1)&"."&htmlphe&"'>下一页</a>&nbsp;"
pencats2=pencats2& "<a href='Quanben_"&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&"Quanben_"&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=9999 then

Response.Write ("功能暂缺")

else
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>"

set rsclass=server.CreateObject("ADODB.recordset")
sqlclass="select * from list_type where typeid="&id
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
list_tpye="未知分类"
else
list_tpye=rsclass("list_tpye")
end if
rsclass.close
set rsclass=nothing

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$}list_book.asp><tr><td class=xt><span class=zt>&nbsp; □<font color=red>"&list_tpye&"</font>&nbsp; "
pencats=pencats&"本类全部</span>&nbsp;&nbsp;&nbsp; 按更新时间排序 </td><td class=xt align=right><input type=hidden name=id value="&id&"><select name=booktype1><option value=0 selected>本类全部</option>"
pencats0=""
set rs=server.CreateObject("ADODB.recordset")
sql="select * from list_class where list_typeid="&id
rs.open sql,conn,1,1
Do while not rs.eof
pencats0=pencats0&"<option value="&rs("list_classid")&">"&rs("list_classname")&"</option>"
	rs.MoveNext
	Loop
	rs.close
set rs=nothing
pencats=pencats&pencats0&"</select><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=" 作品分类列表 "&list_tpye&" - 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 list_class="&id&" and 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='listbook_1."&htmlphe&"'>首页</a>&nbsp;"
pencats2=pencats2& "<a href='listbook_"&id&"_"&(j-1)&"."&htmlphe&"'>上一页</a>&nbsp;"
end if
if j>=Allpage then
pencats2=pencats2& "下一页 尾页"
else
pencats2=pencats2& "<a href='listbook_"&id&"_"&(j+1)&"."&htmlphe&"'>下一页</a>&nbsp;"
pencats2=pencats2& "<a href='listbook_"&id&"_"&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)
12345

⌨️ 快捷键说明

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