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

📄 admin_makehtmldo.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
	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&"listbook_"&id&"_"&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>"&list_tpye&"</font> 列表第"&j&"页HTML生成 <br>")
	pencats2=""
	pencats=""
	Next
	response.write "<p align='center'>全部完成!!【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
	pagefile=""
End If
Rsbclass.Close
Set Rsbclass=Nothing
End If
end sub

Sub booklook()
getstartid=request("start")
getendid=request("end")
CheckSqlnum(getstartid)
CheckSqlnum(getendid)

If getstartid="" or getendid="" Then
	response.write "<script language=javascript>alert('未指定有效的作品编号!');history.back(-1);</script>"
	response.End
else
	if getendid-getstartid<0 or  getendid-getstartid>2147480000 then
		response.write "<script language=javascript>alert('未指定有效的作品编号!');history.back(-1);</script>"
		response.End
	end if
end if

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='js/gb.js'></script><br>"

sql1="select SystemPath,Page_bottom,page_lookbook,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_lookbook")
	showlook_book=rs1("Page_1")
	Foot=rs1("Page_bottom")
rs1.close
set rs1=nothing
pagefile=pencat0&Top&okfile0&Foot

set rs2=server.CreateObject("ADODB.recordset")
sql2="select id,list_name,list_user,list_class,list_lei,list_gxdate,IsVip,list_sftai,list_qianyue,list_size,list_tai,list_hit,list_jian,list_cang,list_pic,list_all,list_key,list_news from list_book where Lock_book = 0 and id>="&getstartid&" and id<="&getendid&" ORDER BY id"
rs2.open sql2,conn,1,3
if rs2.bof and rs2.eof then
	response.write "<script language=javascript>alert('错误! \n\n 指定范围内没有作品存在!');history.back(-1);</script>"
	response.end 
else
	do while not rs2.eof
		bookid=rs2("id")
		bookname=rs2("list_name")
		bookuser=rs2("list_user")
		list_date=formatdatetime(rs2("list_gxdate"),2)
		if rs2("IsVip")=1 then
			xingzhi="VIP作品"
		elseif rs2("IsVip")=0 then
			xingzhi="公众作品"
		end if
		qianyue=rs2("list_qianyue")
		if rs2("list_sftai")=0 then
			sftai="他站首发"
		elseif rs2("list_sftai")=1 then
			sftai="本站首发"
		end if
		booksize=rs2("list_size")

		if rs2("list_tai")="1" then
			booktai="转载中..."
		elseif rs2("list_tai")="2" then
			booktai="连载中..."
		elseif rs2("list_tai")="3" then
			booktai="出版中..."
		elseif rs2("list_tai")="4" then
			booktai="已暂停..."
		elseif rs2("list_tai")="5" then
			booktai="已停止..."
		elseif rs2("list_tai")="6" then
			booktai="已完成..."
		end if
		bookhit=rs2("list_hit")
		bookjian=rs2("list_jian")
		bookcang=rs2("list_cang")
		if rs2("list_pic")<>"images/0.jpg" then
			bookpic=rs2("list_pic")
		else
			bookpic=SiteSystemPath&"images/0.jpg"
		end if
		bookjianjie=replace(rs2("list_all"),chr(13),"<Br>")
		bookkey=rs2("list_key")
		if rs2("list_news")<>"" then
			booknews=rs2("list_news")
		else
			booknews="暂缺"
		end if
		set rs8=server.CreateObject("ADODB.Recordset")
		sql8="select list_tpye from list_type where typeid="&rs2("list_class")&""
		rs8.open sql8,conn,1,1
		if rs8.bof and rs8.eof then
			typesname=""
		else
			typesname=rs8("list_tpye")
		end if
		rs8.close
		set rs8=nothing
		set rs9=server.CreateObject("ADODB.Recordset")
		sql9="select list_classname from list_class where list_classid="&rs2("list_lei")&""
		rs9.open sql9,conn,1,1
		if rs9.bof and rs9.eof then
			booklei=""
		else
			booklei=rs9("list_classname")
		end if
		rs9.close
		set rs9=nothing
		Stats=bookname&" - "&bookuser&" - "&booklei&" - "&typesname&""

		pencat=replace(pagefile,"{$showlook_book$}",showlook_book)
		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,"{$bookid$}",bookid)
		pencat=replace(pencat,"{$booklei$}",booklei)
		pencat=replace(pencat,"{$bookclass$}",typesname)
		pencat=replace(pencat,"{$bookname$}",bookname)
		pencat=replace(pencat,"{$bookuser$}",bookuser)
		pencat=replace(pencat,"{$gxdate$}",list_date)
		pencat=replace(pencat,"{$sftai$}",sftai)
		pencat=replace(pencat,"{$xingzhi$}",xingzhi)
		pencat=replace(pencat,"{$qianyue$}",qianyue)
		pencat=replace(pencat,"{$bookpic$}",bookpic)
		pencat=replace(pencat,"{$bookjianjie$}",bookjianjie)
		pencat=replace(pencat,"{$bookkey$}",bookkey)
		pencat=replace(pencat,"{$booknews$}",booknews)
		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&""&bookid&"."&htmlphe&"" )

		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		Set fout = fso.Createtextfile(bookfile,true)
			fout.writeline pencat
			pencat=""
		fout.close
		set fso=nothing
		Response.Write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;完成：<font color=red>"&bookname&"资料页</font>HTML生成 <br>")
	rs2.movenext
	loop
end if
rs2.close
set rs2=nothing
pagefile=""
response.write "<p align='center'>全部完成!!【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub


Sub bookindex()
getstartid=request("start")
getendid=request("end")
CheckSqlnum(getstartid)
CheckSqlnum(getendid)

If getstartid="" or getendid="" Then
	response.write "<script language=javascript>alert('未指定有效的作品编号!');history.back(-1);</script>"
	response.End
else
	if getendid-getstartid<0 or  getendid-getstartid>2147480000 then
		response.write "<script language=javascript>alert('未指定有效的作品编号!');history.back(-1);</script>"
		response.End
	end if
end if
pencat0="<html>"
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&"<link href=""../../css/main.css"" rel=""stylesheet"" type=""text/css"">"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""author"" content=""终点:http://www.cnend.net"" />"&chr(13)&chr(10)
pencat0=pencat0&"<script language=JavaScript src='../../js/js.js'></script>"&chr(13)&chr(10)
pencat0=pencat0&"<script language=JavaScript src='../../js/mono.js'></script>"&chr(13)&chr(10)
pencat0=pencat0&"<meta name=""generator"" content=""www.cnend.net"" />"&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&"<br><script language='javascript' src='../../js/gb.js'></script><script language='javascript' src='../../js/cnendwebset.js'></script>"

sql1="select Page_Top,page_readbook,Page_Foot from [Template] where ID="&Tempid&""
12345

⌨️ 快捷键说明

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