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

📄 admin_makehtmldo.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
							if CoType1=1 then
								CoType1=true
							elseif CoType1=0 then
								CoType1=False
							end if
							Content=GetBody(view_ok2,CsString1,CoString1,CsType1,CoType1)
						End If
						If Content="$False$" Then
							Content="内容丢失,请联系管理员!"
						else
							If ContType2=3 Then
							   	Content="<IMG src="&Content&">"
							End If
						End If
					else
						Content="内容丢失,请联系管理员!"
					End If
					main2=main2&Content
				End If
			End If
		else
			main2=main2&"目标采集站丢失内容无法显示,请联系管理员!"
		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=98% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#CCCCCC>"
			main2=main2&"<tr align=center><td height=20 align=right bgcolor=dddddd class=font>[ <a href=#top>置 顶&nbsp; 返回目录</a> ]</td></tr></table><br><br>"
		rs4.movenext
		loop
		rs4.close
		set rs4=nothing
	rs1.movenext
	loop
	rs1.close
	set rs1=nothing

pencat=replace(pencat,"{$bookid$}",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/"&id&"/" 'HTML存放目录

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

	Set fso = Server.CreateObject("Scripting.FileSystemObject")
		  Set fout = fso.Createtextfile(bookfile,true)
		 fout.writeline pencat
		fout.close
	set fso=nothing
	main1=""
	main2=""
	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 bookzhang()
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,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 rs1=server.CreateObject("ADODB.recordset")
sql1="select list_cookid,list_cookname from [list_cook] where list_bookid="&b_id
rs1.open sql1,conn,1,1
if not(rs1.bof and rs1.eof) then
	do while not rs1.eof
sqlt="select Page_Top,page_allviewbook,Page_Foot from [Template] where ID="&Tempid&""
set rst=connTemp.execute(sqlt)
Top=rst("Page_Top")
okfile0=rst("page_allviewbook")
Foot=rst("Page_Foot")
rst.close
set rst=nothing
pencat=pencat0&Top&okfile0&Foot

c_id=rs1("list_cookid")
list_cookname=rs1("list_cookname")


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
			if TXTToJs=0 Then
				set tfo=Server.CreateObject("Scripting.FileSystemObject")
				if tfo.FileExists(server.mappath( viewFolder&bv_rs("id")&".TXT")) = True Then                                '判断文件是否存在
					main2=main2&replace(replace(FSOFileRead(viewFolder&bv_rs("id")&".TXT"),"document.write('",""),"');","")
				else
					main2=main2&"内容丢失,请联系管理员!"
				end if
				Set tfo = nothing
			Else
				main2=main2&"<script src='"&bv_rs("id")&".txt'></script>"
			End If
		end if
	else 
		if bv_rs("view_ok")<>"" then

		ViewUrl=bv_rs("view_ok")
		ItemID=bv_rs("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
							if CoType1=1 then
								CoType1=true
							elseif CoType1=0 then
								CoType1=False
							end if
							Content=GetBody(view_ok2,CsString1,CoString1,CsType1,CoType1)
						End If
						If Content="$False$" Then
							Content="内容丢失,请联系管理员!"
						else
							If ContType2=3 Then
							   	Content="<IMG src="&Content&">"
							End If
						End If
					else
						Content="内容丢失,请联系管理员!"
					End If
					main2=main2&Content
				End If
			End If
		else
			main2=main2&"目标采集站丢失内容无法显示,请联系管理员!"
		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=
12345

⌨️ 快捷键说明

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