admin_bookhtmlmake.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">
<%
Server.ScriptTimeOut=48000 '设定操作超时的时间（因为程序运行速度慢啊）
b_id=CheckSql(request.querystring("b_id"))
CheckSqlnum(b_id)
b_id=int(b_id)
Select Case request.querystring("info")
	Case "allpage"
		Call allpage()
	Case "look"
		Call look()
	Case "index"
		Call index()
	Case "zhang"
		Call zhang()
	Case "all"
		Call all()
	Case "page"
		Call page()
	Case "zhangpage"
		Call zhangpage()
	Case "jiepage"
		Call jiepage()
end select

sub allpage()
	response.Write "生成作品资料页...<br>"
	MakelookHtml(b_id)
	response.Write "完成<br><br>"
	response.Write "生成作品目录页...<br>"
	MakeindexHtml(b_id)
	response.Write "完成<br><br>"
	response.Write "生成作品章节页...<br>"
	MakepageHtml(b_id)
	response.Write "完成<br><br>"
	response.Write "生成作品分卷页...<br>"
	MakezhangHtml(b_id)
	response.Write "完成<br><br>"
	response.Write "生成作品全文页...<br>"
	MakeallHtml(b_id)
	response.Write "完成<br><br>"
	response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#0650D2 bordercolordark=#FFFFFF>"
	response.write "<tr><td height=25 align=center>	完成所有静态页面生成!</td></tr></table>"
response.write "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】</p>"
end sub

sub zhangpage()
c_id=CheckSql(request.querystring("c_id"))
CheckSqlnum(c_id)
c_id=int(c_id)
set rsbo=server.createobject("adodb.recordset")
sql="select list_name,list_user,list_lei,list_date from list_book where id="&b_id&""
rsbo.open sql,conn,1,1
if rsbo.eof and rsbo.bof then
	response.write "<script language=javascript>alert('错误! \n\n 作品不存在!');history.back(-1);</script>"
	response.end 
else
	list_name=rsbo("list_name")
	list_user=rsbo("list_user")
	list_classid=rsbo("list_lei")
	list_date=formatdatetime(rsbo("list_date"),2)
end if
rsbo.close
set rsbo=nothing
	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
	pagefile=sitehead&Top&okfile0&Foot
	set rs9=server.CreateObject("ADODB.Recordset")
	sql9="select list_classname from list_class where list_classid="&list_classid&""
	rs9.open sql9,conn,1,1
	if not(rs9.eof and rs9.bof) then
		list_classname=rs9("list_classname")
	else
		list_cookname="正文"
	end if
	rs9.close
	set rs9=nothing
	
	set rs1=server.CreateObject("ADODB.recordset")
	sql1="select list_cookid,list_cookname from list_cook where list_cookid="&c_id
	rs1.open sql1,conn,1,1
	if rs1.eof and rs1.bof then
		response.write "<script language=javascript>alert('错误! \n\n 作品没有分卷!');history.back(-1);</script>"
		response.end 
	else
			c_id=rs1("list_cookid")
			list_cookname=rs1("list_cookname")

			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
				mzpvi=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 mzpvi mod 3=0 then main1=main1&"</tr><tr height=26>"
					mzpvi=mzpvi+1
				rs4.movenext
				loop
			rs4.close
			set rs4=nothing
			main1=main1&"</tr></table>" 
			main2=""

			viewFolder=""&SiteSystemPath&"HTML/"&b_id&"/" 'HTML存放目录

			Set bv_rs=server.CreateObject("adodb.recordset")
			Best_Sql="select id,list_cookid,view_type,view_date,view_get,view_size,view_ok,view_ok2,view_SaveToTXT,ItemID,view_showid,view_lock 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,JDTHType1,JDTHType2,JDTHType3,JDTH1sStr,JDTH2sStr,JDTH3sStr,JDTH1oStr,JDTH2oStr,JDTH3oStr,GJTHType1,GJTHType2,GJTHType3,GJTH1sStr,GJTH2sStr,GJTH3sStr,GJTH1oStr,GJTH2oStr,GJTH3oStr,GJTH1cStr,GJTH2cStr,GJTH3cStr 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")
							JDTHType1=RsItem("JDTHType1")
							JDTHType2=RsItem("JDTHType2")
							JDTHType3=RsItem("JDTHType3")
							JDTH1sStr=RsItem("JDTH1sStr")
							JDTH1oStr=RsItem("JDTH1oStr")
							JDTH2sStr=RsItem("JDTH2sStr")
							JDTH2oStr=RsItem("JDTH2oStr")
							JDTH3sStr=RsItem("JDTH3sStr")
							JDTH3oStr=RsItem("JDTH3oStr")
							GJTHType1=RsItem("GJTHType1")
							GJTHType2=RsItem("GJTHType2")
							GJTHType3=RsItem("GJTHType3")
							GJTH1sStr=RsItem("GJTH1sStr")
							GJTH1oStr=RsItem("GJTH1oStr")
							GJTH1cStr=RsItem("GJTH1cStr")
							GJTH2sStr=RsItem("GJTH2sStr")
							GJTH2oStr=RsItem("GJTH2oStr")
							GJTH2cStr=RsItem("GJTH2cStr")
							GJTH3sStr=RsItem("GJTH3sStr")
							GJTH3oStr=RsItem("GJTH3oStr")
							GJTH3cStr=RsItem("GJTH3cStr")
							if readtype=1 and readtype1=1 then
								main2=main2="章节内容丢失,无法恢复需要重新添加!"
							Else
								ContentCode=GetHttpPage(ViewUrl,EquivType)
								If ContType2=2 Then
									If ContentCode<>"$False$" Then
										if CsType2=1 then
											CsType2=true
										elseif CsType2=0 then
											CsType2=False
										end if
										if CoType2=1 then
											CoType2=true
										elseif CoType2=0 then
											CoType2=False
										end if
										Content=GetBody(ContentCode,CsString2,CoString2,CsType2,CoType2)
										If Content="$False$" Then
											Content="内容丢失,请联系管理员!"
										Else
											If ContType2=3 Then
											   	Content="<IMG src="&Content&">"