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

📄 admin_makehtmldo.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
set rs1=connTemp.execute(sql1)
Top=rs1("Page_Top")
okfile0=rs1("page_readbook")
Foot=rs1("Page_Foot")
rs1.close
set rs1=nothing
pagefile=pencat0&Top&okfile0&Foot

set rs2=server.CreateObject("ADODB.recordset")
sql2="select id,list_name,list_user,list_lei,list_date 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
		b_id=rs2("id")
		list_name=rs2("list_name")
		list_user=rs2("list_user")
		list_classid=rs2("list_lei")
		list_date=formatdatetime(rs2("list_date"),2)
		set rs9=server.CreateObject("ADODB.Recordset")
		sql9="select list_classname from list_class where list_classid="&list_classid&""
		rs9.open sql9,conn,1,1
		if rs9.bof and rs9.eof then
			list_classname="已删除分类"
		else
			list_classname=rs9("list_classname")
		end if
		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 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
			viewi=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 viewi mod 3=0 then main1=main1&"</tr><tr height=26>"
				viewi=viewi+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 href='../../look_VIPbook.asp?id="&b_id&"'>查看VIP章节</a>]</td></tr><tr height='26'>"
			vviewi=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 vviewi mod 3=0 then main2=main2&"</tr><tr height=26>"
					vviewi=vviewi+1
			rsvip.movenext
			loop
			main2=main2&"</tr>"
		end if
		rsvip.close
		set rsvip=nothing
		main2=main2&"</table>"

		pencat=replace(pagefile,"{$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,"{$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/"&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
				pencat=""
			fout.close
			set fso=nothing
			Response.Write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;完成：<font color=red>"&list_name&"目录页</font>HTML生成 <br>")
		end if
	main1=""
	main2=""
	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 bookall()
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&"<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_viewallbook,Page_Foot from [Template] where ID="&Tempid&""
set rs1=connTemp.execute(sql1)
	Top=rs1("Page_Top")
	okfile0=rs1("Page_viewallbook")
	Foot=rs1("Page_Foot")
rs1.close
set rs1=nothing
pagefile=pencat0&Top&okfile0&Foot

set rs2=server.CreateObject("ADODB.recordset")
sql2="select id,list_name,list_user,list_lei,list_date from list_book where Lock_book = 0 and id>="&getstartid&" and id<="&getendid&" ORDER BY id"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
	response.write "<script language=javascript>alert('错误! \n\n 指定范围内没有作品存在!');history.back(-1);</script>"
	response.end 
else
	do while not rs2.eof

	id=rs2("id")
	list_classid=rs2("list_lei")
	list_name=rs2("list_name")
	list_user=rs2("list_user")
	list_date=formatdatetime(rs2("list_date"),2)
	set rs9=server.CreateObject("ADODB.Recordset")
	sql9="select * from list_class where list_classid="&list_classid&""
	rs9.open sql9,conn,1,1
	if rs9.eof and rs9.bof then
		list_classname="已删除分类"
	else
		list_classname=rs9("list_classname")
	end if
	rs9.close
	set rs9=nothing
	main1="<table align=center width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white>"
	set rs1=server.CreateObject("ADODB.recordset")
	sql1="select * from list_cook where list_bookid="&id&" order by cook_viewid asc"
	rs1.open sql1,conn,1,1

	do while not rs1.eof
		main1=main1&"<tr height=26><td colspan=4 align=center bgcolor=#e3e3e3>"&rs1("list_cookname")&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [ <a href=#cook"&rs1("list_cookid")&">分卷阅读</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
		viewi=1
		do while not rs4.eof
			main1=main1&"<td align='left' width='25%'>&nbsp;&nbsp;<a href=#"&rs4("id")&">"&rs4("view_type")&"</a></td>"
			if viewi mod 3=0 then main1=main1&"</tr><tr height=26>"
			viewi=viewi+1
		rs4.movenext
		loop
		rs4.close
		set rs4=nothing
	rs1.movenext
	loop
	rs1.close
	set rs1=nothing
	main1=main1&"</tr></table>" 
	main2=""

	set rs1=server.CreateObject("ADODB.recordset")
	sql1="select * from list_cook where list_bookid="&id&" order by cook_viewid asc"
	rs1.open sql1,conn,1,1
	do while not rs1.eof
		c_id=rs1("list_cookid")
		main2=main2&"<table align=center width=100% border=1 cellspacing=0 cellpadding=0 bordercolordark=white bordercolorlight=cccccc bordercolor=white>"
		main2=main2&"<tr height=26><td colspan=4 align=center bgcolor=#e3e3e3><a name=#cook"&c_id&">"&rs1("list_cookname")&"</a></td></tr></table>"

		set rs4=server.CreateObject("ADODB.recordset")
		sql4="select * from list_view where list_cookid="&c_id&" and view_IsVip=0 order by view_showid asc"
		rs4.open sql4,conn,1,1
		do while not rs4.eof
			main2=main2&"<table align=center width=100% border=0 cellspacing=0 cellpadding=0><tr><td align=center valign=middle class=font><br>"
			main2=main2&"<span style='font-size:13pt;'><a name="&rs4("id")&">"&rs4("view_type")&"</a><br>（ 本章字数："&rs4("view_size")&"  更新时间："&rs4("view_date")&"）</span></td>"
			main2=main2&"</tr></table><table width=96% align=center border=0 cellpadding=0 cellspacing=0><tr><td><br><div align=left id=content><span style='line-height:150%;'>"
			if rs4("view_lock")=0 then
				if rs4("view_get")<>0 then
					if rs4("view_SaveToTXT")=0 then
						main2=main2&rs4("view_ok2")
					else
						if TXTToJs=0 Then
							set tfo=Server.CreateObject("Scripting.FileSystemObject")
							if tfo.FileExists(server.mappath( viewFolder&rs4("id")&".TXT")) = True Then						        '判断文件是否存在
								main2=main2&replace(replace(FSOFileRead(viewFolder&rs4("id")&".TXT"),"document.write('",""),"');","")
							else
								main2=main2&"内容丢失,请联系管理员!"
							end if
							Set tfo = nothing
						Else
							main2=main2&"<script src='"&rs4("id")&".txt'></script>"
						End If
					end if
				else 
					if rs4("view_ok")<>"" then
						ViewUrl=rs4("view_ok")
						ItemID=rs4("ItemID")
						Set RsItem=server.CreateObject("adodb.recordset")
						SqlItem="Select top 1 EquivType,readtype,readtype1,IsSaveFiles,CsType,CsString,CoType,CoString,CsType1,CsString1,CoType1,CoString1,ContType1,ContType2,CsType2,CsString2,CoType2,CoString2,JDTHType1,JDTHType2,JDTHType3,JDTH1sStr,JDTH2sStr,JDTH3sStr,JDTH1oStr,JDTH2oStr,JDTH3oStr,GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr from [Item] Where ItemID=" & ItemID
						RsItem.Open SqlItem,ConnItem,1,1
						if not(RsItem.eof and RsItem.bof) then
							EquivType=RsItem("EquivType")
							readtype=RsItem("readtype")
							readtype1=RsItem("readtype1")
							CsType=RsItem("CsType")
							CsString=RsItem("CsString")
							CoType=RsItem("CoType")
							CoString=RsItem("CoString")
							ContType1=RsItem("ContType1")
							CsType1=RsItem("CsType1")
							CoType1=RsItem("CoType1")
							CoString1=RsItem("CoString1")
12345

⌨️ 快捷键说明

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