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

📄 admin_makehtmldo.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
	response.write "<script language=javascript>alert('错误! \n\n 指定范围内没有作品存在!');history.back(-1);</script>"
	response.end 
else
	do while not rs2.eof
sql1="select Page_Top,page_readbook,Page_Foot from [Template] where ID="&Tempid&""
set rs1=connTemp.execute(sql1)
Top=rs1("Page_Top")
okfile0=rs1("page_readbook")
Foot=rs1("Page_Foot")
rs1.close
set rs1=nothing
pencat=pencat0&Top&okfile0&Foot
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
list_classname=rs9("list_classname")
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
i=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 i mod 3=0 then main1=main1&"</tr><tr height=26>"
i=i+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'>"
i=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 i mod 3=0 then main2=main2&"</tr><tr height=26>"
i=i+1
rsvip.movenext
loop
main2=main2&"</tr>"
end if
rsvip.close
set rsvip=nothing
main2=main2&"</table>"

pencat=replace(pencat,"{$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
fout.close
set fso=nothing
Response.Write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;完成：<font color=red>"&list_name&"目录页</font>HTML生成 <br>")
end if
rs2.movenext
    loop
end if
rs2.close
set rs2=nothing
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>"

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

	pencat=pencat0&Top&okfile0&Foot

	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
	list_classname=rs9("list_classname")
	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 list_bookid"
	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
		i=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 i mod 3=0 then main1=main1&"</tr><tr height=26>"
			i=i+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 list_bookid"
	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"
		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 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")
			ContType1=RsItem("ContType1")
			ContType2=RsItem("ContType2")
			CsType2=RsItem("CsType2")
			CsString2=RsItem("CsString2")
			CoType2=RsItem("CoType2")
			CoString2=RsItem("CoString2")
			if readtype=1 and readtype1=1 then
				main2=main2="章节内容丢失,无法恢复需要重新添加!"
			Else
				If ContType2=2 Then
					main2=main2&"<script src='"&ViewUrl&"'></script>"
				else
					if CsType=1 then
						CsType=true
					elseif CsType=0 then
						CsType=False
					end if
					if CoType=1 then
						CoType=true
					elseif CoType=0 then
						CoType=False
					end if
					ContentCode=GetHttpPage(ViewUrl,EquivType)
					If ContentCode<>"$False$" Then
						Content=GetBody(ContentCode,CsString,CoString,CsType,CoType)
						If ContType1=1 Then
							if CsType1=1 then
								CsType1=true
							elseif CsType1=0 then
								CsType1=False
							end if
12345

⌨️ 快捷键说明

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