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

📄 admin_makehtmlzhang.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
字号:
🔍 
<!-- #include file="../conn.asp" --><%Response.buffer=False %>
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<link href="css.css" rel="stylesheet" type="text/css">
<%
Tempid=request.QueryString("Tempid")
b_id=request.QueryString("b_id")
c_id=request.QueryString("c_id")
Server.ScriptTimeOut=48000 '设定操作超时的时间（因为程序运行速度慢啊）
sql1="select Page_Top,page_allviewbook,Page_Foot from [Template] where ID="&Tempid&""
set rs1=connTemp.execute(sql1)
Top=rs1("Page_Top")
okfile0=rs1("page_allviewbook")
Foot=rs1("Page_Foot")
rs1.close
set rs1=nothing
pencat0="<html>"
pencat0=pencat0&"<head>"
pencat0=pencat0&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
pencat0=pencat0&"<link href=""../../css/main.css"" rel=""stylesheet"" type=""text/css"">"
pencat0=pencat0&"<meta name=""author"" content=""终点:http://www.cnend.net"" />"
pencat0=pencat0&"<script language=JavaScript src='../../js/js.js'></script>"
pencat0=pencat0&"<script language=JavaScript src='../../js/mono.js'></script></head>"
pencat0=pencat0&"<meta name=""generator"" content=""www.cnend.net"" />"

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

pencat=pencat0&Top&okfile0&Foot

set rs1=server.CreateObject("ADODB.recordset")
sql1="select list_cookname from [list_cook] where list_cookid="&c_id
rs1.open sql1,conn,1,1
if not(rs1.bof and rs1.eof) then
	else
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
list_cookname=rs1("list_cookname")
rs1.close
set rs1=nothing

set rs2=server.CreateObject("ADODB.recordset")
sql2="select Lock_book,list_name,list_user,list_lei,list_date from [list_book] where id="&b_id
rs2.open sql2,conn,1,3
if not(rs2.bof and rs2.eof) then
	else
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
if rs2("Lock_book") = 1 then
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
list_name=rs2("list_name")
list_user=rs2("list_user")
list_classid=rs2("list_lei")
list_date=formatdatetime(rs2("list_date"),2)
rs2.close
set rs2=nothing

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="<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'>"&list_cookname&"</td></tr><tr height=26>"

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
main1=main1&"</tr></table>" 
main2=""

	Set bv_rs=server.CreateObject("adodb.recordset")
	Best_Sql="select * from [list_view] where list_cookid="&c_id&" and view_IsVip=0 order by view_showid"
	bv_rs.Open Best_Sql,Conn,1,1
	do while not bv_rs.eof
main2=main2&"<table align='center' border='0' cellpadding='0' cellspacing='0' width='98%'><tr><td align='center' valign='middle' class='font'><br><font face='隶书'>" 
main2=main2&"<span style='font-size:18pt; font-weight:700'><a name="&bv_rs("ID")&">"&bv_rs("view_type")&"</a></span></font><br>（本章字数："&bv_rs("view_size")&"  更新时间："&bv_rs("view_date")&"）</td>"
main2=main2&"</tr></table><table align='center' border='0' cellpadding='0' cellspacing='0' width='96%'><tr><td><br><DIV align='left' id=content>"
if bv_rs("view_lock")=0 then

	if bv_rs("view_get")<>0 then
		if bv_rs("view_SaveToTXT")=0 then
			main2=main2&bv_rs("view_ok2")
		else
			main2=main2&"<script src='"&bv_rs("id")&".txt'></script>"
		end if
	else 
		if bv_rs("view_ok")<>"" then

		Set RsItem=server.CreateObject("adodb.recordset")
		SqlItem="Select CsType,CsString,CoType,CoString,CsType1,CsString1,CoType1,CoString1,ContType1,ContType2 from [Item] Where ItemID=" & bv_rs("ItemID")
		RsItem.Open SqlItem,ConnItem,1,1

		CsType=RsItem("CsType")
		CsString=RsItem("CsString")
		CoType=RsItem("CoType")
		CoString=RsItem("CoString")
		CsType1=RsItem("CsType1")
		CsString1=RsItem("CsString1")
		CoType1=RsItem("CoType1")
		CoString1=RsItem("CoString1")
		ContType1=RsItem("ContType1")
		ContType2=RsItem("ContType2")
		ViewUrl=bv_rs("view_ok")
			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)
				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
						if CoType1=1 then
							CoType1=true
						elseif CoType1=0 then
							CoType1=False
						end if
					Content=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
					End If
					If Content="$False$" Then
						Content="内容丢失,请联系管理员!"
					End If
				else
					Content="内容丢失,请联系管理员!"
				End If
			main2=main2&Content
			End If
	else
main2=main2&"内容暫缺"
end if
end if
main2=main2&"</span></font></DIV>"
else
main2=main2&"对不起,您要查看的作品已经被锁定! 可能该作品包含国家或者本站所禁止的内容.您如果是该作品的管理员或作者,请联系站长!"
end if
main2=main2&"<br></td></tr></table><br><br><table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#CCCCCC'><tr align='center'>"
main2=main2&"<td height=20 align='right' bgcolor='dddddd' class='font'>[&nbsp;<a href=#top>置&nbsp;顶&nbsp;&nbsp;返回目录</a>&nbsp;]　　　　</td></tr></table><br>"

	bv_rs.movenext	
	loop
	bv_rs.close
	Set bv_rs=NOTHING

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,"{$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&"Z"&c_id&"."&htmlphe&"" )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(bookfile,true)
fout.writeline pencat
fout.close
set fso=nothing
Response.Write (" 完成: 作品"&list_name&"的"&list_cookname&" 分卷页HTML生成 ")
end if
%>

⌨️ 快捷键说明

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