📄 admin_makehtmldo.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
	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&"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>"
	okpage=""
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>"

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
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
pencat=pencat0&Top&okfile0&Foot
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(pencat,"{$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存放目录

If Not CreateMultiFolder(viewFolder) Then
	Response.Write "<font color='red'><B>HTML存储目录创建失败！！</B></font>"&viewFolder&"<br>"
else

bookfile=server.mappath( ""&viewFolder&""&bookid&"."&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>"&bookname&"资料页</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 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>"


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
💿 文件大小 542 K
👤 上传用户 foreverlovely
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#MSSQL #MySQL #ASP #系统设计
⌨️ 快捷键说明

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