?? admin_makehtmlzhang.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> © 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%'> <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'>[ <a href=#top>置 頂 返回目錄</a> ] </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 + -