📄 admin_bookhtmlmake.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
											End If
											If JDTHType1=1 Then
												Content=Replace(Content,JDTH1sStr,JDTH1oStr)
											End If
											If JDTHType2=1 Then
												Content=Replace(Content,JDTH2sStr,JDTH2oStr)
											End If
											If JDTHType3=1 Then
												Content=Replace(Content,JDTH3sStr,JDTH3oStr)
											End If
											If GJTHType1=1 Then
												ContentCode1=GetArray(Content,GJTH1sStr,GJTH1oStr,true,true)
												ContentArray1=Split(ContentCode1,"$Array$")
												For i1=0 To Ubound(ContentArray1)
													Content=Replace(Content,ContentArray1(i1),GJTH1cStr)
												Next
												i1=""
											End If
											If GJTHType2=1 Then
												ContentCode2=GetArray(Content,GJTH2sStr,GJTH2oStr,true,true)
												ContentArray2=Split(ContentCode2,"$Array$")
												For i2=0 To Ubound(ContentArray2)
													Content=Replace(Content,ContentArray2(i2),GJTH2cStr)
												Next
												i2=""
											End If
											If GJTHType3=1 Then
												ContentCode3=GetArray(Content,GJTH3sStr,GJTH3oStr,true,true)
												ContentArray3=Split(ContentCode3,"$Array$")
												For i3=0 To Ubound(ContentArray3)
													Content=Replace(Content,ContentArray3(i3),GJTH3cStr)
												Next
												i3=""
											End If
										end if
									else
										Content="内容丢失,请联系管理员!"
									End If
								else
									If ContentCode<>"$False$" Then
										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
										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
											If JDTHType1=1 Then
												Content=Replace(Content,JDTH1sStr,JDTH1oStr)
											End If
											If JDTHType2=1 Then
												Content=Replace(Content,JDTH2sStr,JDTH2oStr)
											End If
											If JDTHType3=1 Then
												Content=Replace(Content,JDTH3sStr,JDTH3oStr)
											End If
											If GJTHType1=1 Then
												ContentCode1=GetArray(Content,GJTH1sStr,GJTH1oStr,true,true)
												ContentArray1=Split(ContentCode1,"$Array$")
												For i1=0 To Ubound(ContentArray1)
													Content=Replace(Content,ContentArray1(i1),GJTH1cStr)
												Next
												i1=""
											End If
											If GJTHType2=1 Then
												ContentCode2=GetArray(Content,GJTH2sStr,GJTH2oStr,true,true)
												ContentArray2=Split(ContentCode2,"$Array$")
												For i2=0 To Ubound(ContentArray2)
													Content=Replace(Content,ContentArray2(i2),GJTH2cStr)
												Next
												i2=""
											End If
											If GJTHType3=1 Then
												ContentCode3=GetArray(Content,GJTH3sStr,GJTH3oStr,true,true)
												ContentArray3=Split(ContentCode3,"$Array$")
												For i3=0 To Ubound(ContentArray3)
													Content=Replace(Content,ContentArray3(i3),GJTH3cStr)
												Next
												i3=""
											End If
										End If
									else
										Content="内容丢失,请联系管理员!"
									End If
								End If
								main2=main2&Content
							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='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

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

				bookfile=server.mappath( ""&viewFolder&"Z"&c_id&"."&htmlphe&"" )

				Set fso = Server.CreateObject("Scripting.FileSystemObject")
					Set fout = fso.Createtextfile(bookfile,true)
						fout.writeline pencat
						pencat=""
					fout.close
				set fso=nothing
				main1=""
				main2=""
				Response.Write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;完成：<font color=#800000>"&list_name&" - "&list_cookname&" 分卷页</font>HTML生成 <br>")
			end if
	end if
rs1.close
set rs1=nothing
pagefile=""
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"

end sub

sub jiepage()
id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
MakeViewHtml(id)
Response.Write ("<p align='center'>完成：<font color=#800000>"&list_name&" "&view_type&"章节页</font>HTML生成</p><br>")
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub

sub look()
MakelookHtml(b_id)
Response.Write ("<p align='center'>完成：<font color=#800000>"&list_name&"资料页</font>HTML生成</p><br>")
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub

sub index()
MakeindexHtml(b_id)
Response.Write ("<p align='center'>完成：<font color=#800000>"&list_name&"目录页</font>HTML生成</p><br>")
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub

sub zhang()
MakezhangHtml(b_id)
response.write "<p align='center'>全部完成【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub

sub page()
MakepageHtml(b_id)
response.write "<p align='center'>全部完成【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub

sub all()
MakeallHtml(b_id)
response.write "<p align='center'>全部完成!!【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub
%>
上一页 12
⌨️ 快捷键说明

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