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

📄 admin_html.asp

📁 1
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<!--#include file="../Include/FY.Common.Front.Asp" -->
<%
Call Admin_Check("生成文件","您没有生成文件的权限，请联系管理员添加")
Dim NRs,FSO_XS,LX
Dim action,ClassID,Y,ID,ClassRs
action=request("Action")
ClassID=FY_CLng(trim(request("lbid")))
Y=FY_CLng(trim(request("Y")))
LX=FY_CLng(trim(request("LX")))
FSO_XS=request("FSO_XS")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理中心</title>
<LINK href="../images/admin/Admin.css" type=text/css rel=stylesheet>
</head>
<body>
<table align="center" width="100%" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<tr class=KenQiao_Net_ss> 
<th colspan="6">生成管理首页 [ 只显示赋有生成权限的栏目 ]</th>
</tr>
<tr align="left" class=KenQiao_Net_ds>
<td colspan="6">  管理导航：<a href="?">生成管理首页</a> | <a href="?action=Index">生成网站首页</a> | <a href="?action=JT"><b>生成今日更新</b></a> | <a href="Admin_Class.asp?Action=Add">添加分类</a> | <a href="Admin_Class.asp?Action=Px">排序管理/快速修改</a> | <a href="Admin_Class.asp?Action=Hb">合并分类</a> | </td>      
</tr>
</table><br>

<%
Select Case action
Case "QB"
    session("FY_SHQB")=1
    Call FY_FSO_Class
Case "Index"
    Call FY_FSO_Index
Case "XS","JT"
If action="JT" Then
LX=1
    session("FY_SHQB")=1
End if
    Call FY_FSO_XS
Case "LM"
    Call FY_FSO_Class
Case "Page"
    Call FY_FSO_Page
Case "ZJ"
    Call FY_FSO_ZJ
Case "ZJLB"
    Call FY_FSO_ZJLB
Case Else
    Call FY_Main
End Select

Sub FY_FSO_Page
Dim pageid,TypeName,PageRs,SC,TS
pageid=FY_CLng(trim(request("pageid")))
If pageid=-1 Then
SC="1=1"
Else
SC="PageID="&pageid&""
End if
Call Plus_Conn_F()
set PageRs=server.createobject("adodb.recordset")
sql="select * from 自定义页面 where "&SC&""
PageRs.open sql,Plus_Conn,1,1
if PageRs.eof and PageRs.bof then
founderr=true
Call WriteErrMsg("<br>"+"<li>您生成的自定义页面不存在<li>如果你确定此提示信息是错误提示的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
Else
TS=""
do while not PageRs.eof

if PageRs("PageType")=0 then
TypeName=".Html"
elseif PageRs("PageType")=1 then
TypeName=".Htm"
elseif PageRs("PageType")=2 then
TypeName=".SHtml"
else
TypeName=".SHtm"
end if
FY_Web_R="&nbsp;<a class='LinkPath' href='"&InstallDir&"" & "'>" & FY_Config(0) & "</a>&nbsp;>>&nbsp;" &PageRs("PageName")
strHtml=FY_Mb_GO(PageRs("PageContent"),0,0,0,0)
createhtml InstallDir&""&PageRs("PageUrl")&"/"&PageRs("PageFileName")&""&TypeName,strHtml
TS=TS&"<li>自定义页面 "&PageRs("PageUrl")&"/"&PageRs("PageFileName")&""&TypeName&" 生成成功！</Li>"
PageRs.movenext
loop
End if
If founderr<>true Then
Call WriteSuccessMsg(""&TS&"<br><li>提醒，当你要修改栏目的文件类型时，如果不删除原来的HTML，将会导致文件累积，但也有可能利于搜索引擎的收录！</Li>","Admin_Page.asp")
End if
PageRs.close
set PageRs=nothing
Call ClosePlus_Conn
End Sub


Sub FY_FSO_Class
If Y=0 Then
Y=1
End if
Dim Page
ID=ClassID
Page=Y
set ClassRs=server.createobject("adodb.recordset")
sql="select * from [分类] where 编号="&ClassID&""
ClassRs.open sql,conn,1,1
if ClassRs.eof and ClassRs.bof then
founderr=true
Call WriteErrMsg("<br>"+"<li>1，该目录下目前还不存在任何小说章节<li>如果你确定此提示信息是错误提示的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
ElseIf ClassRs("链接属性")<>"00" Then
founderr=true
Call WriteErrMsg("<br>"+"<li>2，该目录下目前还不存在任何小说章节<li>如果你确定此提示信息是错误提示的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
ElseIf ClassRs("文件扩展名")=0 Then
founderr=true
Call WriteErrMsg("<br>"+"<li>3，该目录下目前还不存在任何小说章节<li>如果你确定此提示信息是错误提示的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
Else
      If FY_Cache.CacheIsEmpty("Class_"&ID&"_"&Y&"") Then
         Call GetHTML_SiteClass(ID,Y,ClassRs("分类名称"),ClassRs("目录名称"),ClassRs("文件扩展名"),ClassRs("TXT路径"),ClassRs("生成模板"),ClassRs("每页显示小说"),ClassRs("description"),ClassRs("keywords"))
         FY_Cache.SetValue "Class_"&ID&"_"&Y&"",strHtml 
      Else
      strHtml=FY_Cache.GetValue("Class_"&ID&"_"&Y&"")
      End if
    createhtml FY_Class_Url(ID,Y),strHtml '生成
End if
ClassRs.close
set ClassRs=nothing

If founderr<>true Then
If session("FY_ZGYS")>Page Then
Call WriteSuccessMsg("<li>第 "&Page&" 页小说分类文件生成！[共需要生成 "&session("FY_ZGYS")&"页]</Li><li>现在转入第 "&Page+1&" 页继续生成，您无需进行任何操作</Li>","Admin_HTML.asp?lbid="&ClassID&"&LX="&LX&"&FSO_XS="&FSO_XS&"&Action=LM&Y="&Page+1&"")
Else
If session("FY_SHQB")=1 Then
Call WriteSuccessMsg("<li>全部小说分类生成！</Li><li>系统转入到下一个内容进行生成，您无需进行操作！</Li>","Admin_HTML.asp?lbid="&ClassID&"&LX="&LX&"&FSO_XS="&FSO_XS&"&Action=XS")
Else
session("FY_SHQB")=0
Call WriteSuccessMsg("<li>全部小说分类生成！</Li><li>提醒，当你要修改栏目的文件类型时，如果不删除原来的HTML，将会导致文件累积，但也有可能利于搜索引擎的收录！</Li>","Admin_HTML.asp")
End if
End if

End if
session("FY_ZGYS")=0
End SUb

Sub FY_FSO_ZJ
Dim XSRs,FY_Class_ID
set XSRs=server.createobject("adodb.recordset")
If FSO_XS<>"" And ClassID<>0 Then
sql="select * from 章节 where 类别="&ClassID&" And 小说编号 in ("&FSO_XS&") order by 更新时间 desc,编号 desc"
ElseIf FSO_XS<>"" Then
sql="select * from 章节 where 小说编号 in ("&FSO_XS&") order by 更新时间 desc,编号 desc"
ElseIf LX=1 And ClassID<>0 Then
sql="select * from 章节 where day(更新时间)=day(Now()) And 类别="&ClassID&" order by 更新时间 desc,编号 desc"
ElseIf LX=1 Then
sql="select * from 章节 where day(更新时间)=day(Now()) order by 更新时间 desc,编号 desc"
Else
sql="select * from 章节 where 类别="&ClassID&" order by 更新时间 desc,编号 desc"
End if
XSRs.open sql,conn,1,1
if XSRs.bof and XSRs.eof then 
founderr=true
Call WriteErrMsg("<br>"+"<li>该没有找到相关的小说章节<li>如果你确定此提示信息是错误提示的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
Else
Dim iCount,iPageSize,maxpage,page,x,i,J
	XSRs.PageSize =20 '每页生成条数
	iCount=XSRs.RecordCount '记录总数
	iPageSize=XSRs.PageSize
	maxpage=XSRs.PageCount 
	page=request("Y")
	If Not IsNumeric(page) or page="" then
	page=1
    Else
	page=cint(page)
    End If
	If page<1 then
		page=1
		ElseIf  page>maxpage then
		page=maxpage
	End If
	XSRs.AbsolutePage=Page
	If page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	Else
		x=iPageSize
	End If
Dim ID_C
i=1
ID_C=0
For j=1 to XSRs.pagesize
i=i+1
ID=XSRs("编号")
FY_Class_ID=XSRs("类别")
set ClassRs=server.createobject("adodb.recordset")
sql="select * from [分类] where 编号="&FY_Class_ID&""
ClassRs.open sql,conn,1,1
if ClassRs.eof and ClassRs.bof then
founderr=true
ID_C=1
Call WriteErrMsg("<br>"+"<li>1,您生成的章节不存在<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
ElseIf ClassRs("链接属性")<>"00" Then
founderr=true
ID_C=1
Call WriteErrMsg("<br>"+"<li>2,您生成的章节不存在<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
ElseIf ClassRs("文件扩展名")=0 Then
founderr=true
ID_C=1
Call WriteErrMsg("<br>"+"<li>3,您的栏目文件类型为 ASP 所以系统不能为您章节，请修改后再操作<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
Else
If FY_Cache.CacheIsEmpty("Contents_"&ID&"_JS") Then
strHtml=""
         Call GetHTML_SiteZJ(ClassRs("编号"),1,ClassRs("分类名称"),ClassRs("目录名称"),ClassRs("文件扩展名"),ClassRs("TXT路径"),ClassRs("生成模板"),ClassRs("每页显示小说"),ClassRs("description"),ClassRs("keywords"),XSRs("小说编号"),ID)
         FY_Cache.SetValue "Contents_"&ID&"_JS",strHtml 
Else
  strHtml=FY_Cache.GetValue("Contents_"&ID&"_JS")
End if
createhtml FY_Contents_Url(ID,ClassRs("编号"),XSRs("小说编号")),strHtml '生成
End if
ClassRs.close
set ClassRs=nothing

XSRs.movenext
If XSRs.eof then exit for
next
If ID_C=0 Then
If maxpage>Page Then
Call WriteSuccessMsg("<li>第 "&Page&" 页小说章节文件生成！[共需要生成 "&maxpage&"页,"&iCount&"个小说章节,每页生成 "&iPageSize&"个]</Li><li>现在转入第 "&Page+1&" 页继续生成，您无需进行任何操作</Li>","Admin_HTML.asp?lbid="&ClassID&"&LX="&LX&"&FSO_XS="&FSO_XS&"&Action=ZJ&Y="&Page+1&"")
Else
Call WriteSuccessMsg("<li>"&iCount&"个 全部小说章节生成！</Li><li>提醒，当你要修改栏目的文件类型时，如果不删除原来的HTML，将会导致文件累积，但也有可能利于搜索引擎的收录！</Li>","Admin_HTML.asp")
End if
End if
End if
XSRs.close
set XSRs=nothing
End SUb

Sub FY_FSO_XS
Dim XSRs,FY_Class_ID
12

⌨️ 快捷键说明

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