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

📄 admin_makehtmldo.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
		okpage=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='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(okpage,"{$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=""
		pencats=""
	Next
	response.write "<p align='center'>全部完成!!【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
	okpage=""
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"
'MySQL需要如下语句
conn.CursorLocation=3
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
	okpage=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(okpage,"{$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)
12345

⌨️ 快捷键说明

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