📄 admin_makehtmlpage.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")
id=request.QueryString("id")
Server.ScriptTimeOut=48000 '设定操作超时的时间（因为程序运行速度慢啊）
sql1="select Page_Top,Page_viewbook,Page_Foot from [Template] where ID="&Tempid&""
set rs1=connTemp.execute(sql1)
Top=rs1("Page_Top")
okfile0=rs1("Page_viewbook")
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.JsIce.com"" />"
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.JsIce.com"" />"
SiteCopyright="Powered By <a title='今世小说连载系统' href='http://www.JsIce.com/'>JsIceWeb</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/JsIcewebset.js'></script>"
okfile=pencat0&Top&okfile0&Foot
set rs=server.createobject("ADODB.recordset")
rs.open "select id,view_id,list_cookid,view_type,view_date,view_get,view_size,view_ok,view_ok2,view_SaveToTXT,ItemID,view_showid from list_view where id="&id&" ORDER BY id",conn,1,1
if rs.eof and rs.bof then
response.write "<script language=javascript>alert('错误! \n\n 没有章节,请先添加章节!');history.back(-1);</script>"
response.end
else
cookid=rs("list_cookid")
id1=rs("id")
ItemID=rs("ItemID")
bookid=rs("view_id")
view_showid=rs("view_showid")
view_type=rs("view_type")
view_date=rs("view_date")
view_size=rs("view_size")
view_get=rs("view_get")
view_ok=rs("view_ok2")
view_Content=rs("view_ok")
view_SaveToTXT=rs("view_SaveToTXT")
set rsco=server.createobject("adodb.recordset")
sql="select list_cookname from list_cook where list_cookid="&cookid&""
rsco.open sql,conn,1,1
list_cookname=rsco("list_cookname")
rsco.close
set rsco=nothing
set rsbo=server.createobject("adodb.recordset")
sql="select list_name,list_user from list_book where id="&bookid&""
rsbo.open sql,conn,1,1
list_name=rsbo("list_name")
list_user=rsbo("list_user")
rsbo.close
set rsbo=nothing
viewFolder=""&SiteSystemPath&"HTML/"&bookid&"/" 'HTML存放目录
If Not CreateMultiFolder(viewFolder) Then
Response.Write "<font color='red'><B>HTML存储目录创建失败！！</B></font>"&viewFolder&"<br>"
else
file2=server.mappath( ""&viewFolder&""&id1&"."&htmlphe&"" )
if view_get<>0 then
if view_SaveToTXT=1 then
if TXTToJs=0 Then
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(server.mappath( viewFolder&id1&".TXT")) = True Then '判断文件是否存在
view_ok2=replace(replace(FSOFileRead(viewFolder&id1&".TXT"),"document.write('",""),"');","")
else
view_ok2="内容丢失,请联系管理员!"
end if
Set tfo = nothing
Else
view_ok2=""
view_ok2=view_ok2&"<script src='"
view_ok2=view_ok2&""&id1&".TXT"
view_ok2=view_ok2&"'></script>"
End If
else
if view_ok<>"" then
view_ok2=view_ok
else
view_ok2="内容暂缺"
end if
end if
else
if view_Content<>"" then
Set RsItem=server.CreateObject("adodb.recordset")
SqlItem="Select CsType,CsString,CoType,CoString,CsType1,CsString1,CoType1,CoString1,ContType1,ContType2 from Item Where ItemID=" & 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")
If ContType2=2 Then
view_ok2=""
view_ok2="<script src='"&view_Content&"'></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(view_Content)
If ContentCode<>"$False$" Then
view_ok2=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
view_ok2=GetBody(view_ok2,CsString1,CoString1,CsType1,CoType1)
End If
If view_ok2="$False$" Then
view_ok2="内容丢失,请联系管理员!"
End If
else
view_ok2="内容丢失,请联系管理员!"
End If
End If
else
view_ok2="内容暂缺"
end if
end if
set rs2=server.createobject("ADODB.recordset")
sql2="select top 1 id from [list_view] where list_cookid="&cookid&"and view_showid<"&view_showid&" order by view_showid desc"
rs2.open sql2,conn,1,1
if rs2.eof then
set rsv2=server.createobject("ADODB.recordset")
sqlv2="select top 1 id from [list_view] where view_id="&bookid&"and list_cookid<"&cookid&" order by view_showid desc"
rsv2.open sqlv2,conn,1,1
if rsv2.eof then
syjname="index."&htmlphe&""
else
syjid=rsv2("id")
syjname=""&syjid&"."&htmlphe&""
end if
rsv2.close
set rsv2=nothing
else
syjid=rs2("id")
syjname=""&syjid&"."&htmlphe&""
end if
rs2.close
set rs2=nothing
set rs3=server.createobject("ADODB.recordset")
sql3="select top 1 id from [list_view] where list_cookid="&cookid&" and view_showid>"&view_showid&" order by view_showid"
rs3.open sql3,conn,1,1
if rs3.eof then
set rsv3=server.createobject("ADODB.recordset")
sqlv3="select top 1 id from [list_view] where view_id="&bookid&" and list_cookid>"&cookid&" order by view_showid"
rsv3.open sqlv3,conn,1,1
if rsv3.eof then
xyjname= "index."&htmlphe&""
else
xyjid=rsv3("id")
xyjname= ""&xyjid&"."&htmlphe&""
end if
rsv3.close
set rsv3=nothing
else
xyjid=rs3("id")
xyjname= ""&xyjid&"."&htmlphe&""
end if
rs3.close
set rs3=nothing
okfile = replace(okfile,"{$view_type$}",view_type)
okfile = replace(okfile,"{$view_size$}",view_size)
okfile = replace(okfile,"{$view_date$}",view_date)
okfile = replace(okfile,"{$view_ok2$}",view_ok2)
okfile = replace(okfile,"{$viewid$}",id1)
okfile = replace(okfile,"{$bookid$}",bookid)
okfile = replace(okfile,"{$list_name$}",list_name)
okfile = replace(okfile,"{$list_user$}",list_user)
okfile = replace(okfile,"{$list_cookname$}",list_cookname)
okfile = replace(okfile,"{$SiteName$}",SiteName)
okfile = replace(okfile,"{$PageKeyword$}",keywords)
okfile = replace(okfile,"{$PageDesc$}",Description)
okfile = replace(okfile,"{$Copyright$}",SiteCopyright&Copyright)
okfile = replace(okfile,"{$syjname$}",syjname)
okfile = replace(okfile,"{$xyjname$}",xyjname)
okfile = replace(okfile,"{$Adshead$}",htmllists(Adshead))
okfile = replace(okfile,"{$Adsfoot$}",htmllists(Adsfoot))
okfile = replace(okfile,"{$htmlhz$}",htmlphe)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(file2,true)
fout.writeline okfile
fout.close
set fso=nothing
Response.Write " 完成：<font color='red'> "&view_type&"</font> 的HTML生成"
end if
end if
rs.close
set rs=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -