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

📄 admin_html.asp

📁 1
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
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
set XSRs=server.createobject("adodb.recordset")
XSRs.open sql,conn,1,1
if XSRs.bof and XSRs.eof then 
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
ID_C=1

Call WriteErrMsg("<br>"+"<li>1,您生成的小说不存在<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
ElseIf ClassRs("链接属性")<>"00" Then
ID_C=1
Call WriteErrMsg("<br>"+"<li>2,您生成的小说不存在<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
ElseIf ClassRs("文件扩展名")=0 Then
ID_C=1
Call WriteErrMsg("<br>"+"<li>3,您的栏目文件类型为 ASP 所以系统不能为您生成，请修改后再操作<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
Else
If FY_Cache.CacheIsEmpty("XS_"&ID&"_JS") Then
         Call GetHTML_SiteXS(ClassRs("编号"),1,ClassRs("分类名称"),ClassRs("目录名称"),ClassRs("文件扩展名"),ClassRs("TXT路径"),ClassRs("生成模板"),ClassRs("每页显示小说"),ClassRs("description"),ClassRs("keywords"),ID)
         FY_Cache.SetValue "XS_"&ID&"_JS",strHtml  
Else
  strHtml=FY_Cache.GetValue("XS_"&ID&"_JS")
End if
createhtml FY_Novel_Url(ID,FY_Class_ID),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=XS&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=ZJLB&Y=0")
Else
Call WriteSuccessMsg("<li>"&iCount&"个 全部小说简介生成！</Li><li>提醒，当你要修改栏目的文件类型时，如果不删除原来的HTML，将会导致文件累积，但也有可能利于搜索引擎的收录！</Li>","Admin_HTML.asp")
End if
End if
End if
End if
XSRs.close
set XSRs=nothing
End SUb

Sub FY_FSO_ZJLB
Dim XSRs,FY_Class_ID
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
set XSRs=server.createobject("adodb.recordset")
XSRs.open sql,conn,1,1
if XSRs.bof and XSRs.eof then 
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
ID_C=1
Call WriteErrMsg("<br>"+"<li>1,您生成的小说不存在<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
ElseIf ClassRs("链接属性")<>"00" Then
ID_C=1
Call WriteErrMsg("<br>"+"<li>2,您生成的小说不存在<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
ElseIf ClassRs("文件扩展名")=0 Then
ID_C=1
Call WriteErrMsg("<br>"+"<li>3,您的栏目文件类型为 ASP 所以系统不能为您生成，请修改后再操作<li>如果你从正常操作进行而出现这个界面的话，请到论坛反馈信息！<li>http://bbs.kenqiao.net")
Else
If FY_Cache.CacheIsEmpty("XS_"&ID&"_J_JS") Then
         Call  GetHTML_Contents_List(ClassRs("编号"),1,ClassRs("分类名称"),ClassRs("目录名称"),ClassRs("文件扩展名"),ClassRs("TXT路径"),ClassRs("生成模板"),ClassRs("每页显示小说"),ClassRs("description"),ClassRs("keywords"),ID)
         FY_Cache.SetValue "XS_"&ID&"_J_JS",strHtml 
Else
  strHtml=FY_Cache.GetValue("XS_"&ID&"_J_JS")
End if
createhtml FY_Contents_Url(-1,FY_Class_ID,ID),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=ZJLB&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=ZJ&Y=0")
Else
Call WriteSuccessMsg("<li>"&iCount&"个 全部章节列表生成！</Li><li>提醒，当你要修改栏目的文件类型时，如果不删除原来的HTML，将会导致文件累积，但也有可能利于搜索引擎的收录！</Li>","Admin_HTML.asp")
End if
End if
End if
End if
XSRs.close
set XSRs=nothing
End SUb

Sub FY_FSO_Index
If FY_Config(15)<>0 Then
      If FY_Cache.CacheIsEmpty("Index") Then
         Call GetHTML_SiteIndex
         FY_Cache.SetValue "Index",strHtml 
      Else
      strHtml=FY_Cache.GetValue("Index")
      End if
createhtml InstallDir&"Index."&FY_Html_Name(FY_Config(15)),strHtml
Call WriteSuccessMsg("<li>首页文件生成！</Li><li>提醒，当你要修改栏目的文件类型时，如果不删除原来的HTML，将会导致文件累积，但也有可能利于搜索引擎的收录！</Li>","Admin_HTML.asp")
Else
Call WriteErrMsg("<li>首页文件生成失败！</Li><li>您目前运行的模式是ASP模式，不可以生成相关信息，请更改后再生成")
End if
End SUb
sub FY_Main%>
<table align="center" width="100%" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<tr class=KenQiao_Net_ss align="center">
<th width="5%">ID</td>
<th align="center" width="15%">分类名称</th>
<th width="10%">小说部数</th>
<th width="10%">修改设置</th>
<th align="center">操作选项</th>
</tr><%
              set rs=server.createobject("adodb.recordset")
              sql="select * from 分类 where 链接属性='00' And 文件扩展名<>0 order by 排序 asc,编号 asc"
              rs.open sql,conn,1,1
         If rs.eof and rs.bof then
				 response.write "<tr><td height='30' colspan='7' bgcolor='#F5FBFE'  align='center'>暂时没有分类</td></tr>"
				 else
				 do while not rs.eof%>
<tr class=KenQiao_Net_ds onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td class='TableRow1' align="center"><%=rs("编号")%></td>
<td class='TableRow1' align="center"><%=rs("分类名称")%></td>
<td class='TableRow1' align="center"><%=Rs("小说数量")%></td>
<td class='TableRow1' align="center"><a href='Admin_Class.asp?action=edit&lid=<%=rs("编号")%>'>修改</a></td>
<td class='TableRow1' align='center'><%If rs("分类状态")=0 Then%><a href='?lbid=<%=rs("编号")%>&Action=QB&Y=0'>全部生成</a>
<a href='?lbid=<%=rs("编号")%>&Action=LM&Y=0'>生成栏目页</a> 
<a href='?lbid=<%=rs("编号")%>&Action=XS'>生成小说</a> 
<a href='?lbid=<%=rs("编号")%>&Action=ZJLB&Y=0'>生成章节列表</a> 
<a href='?lbid=<%=rs("编号")%>&Action=ZJ'>生成章节</a>
<a href='?lbid=<%=rs("编号")%>&Action=JT'>生成今日更新</a><%Else%>锁定<%End if%>
</td>
</tr>
                 
                 <%
				 rs.MoveNext
				 loop
				 end if%>
                 
    </table>

<%end sub
%>
<br><table align="center" width="98%" TableBorder="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="TableBorder-collapse: collapse"><tr align="center" class=KenQiao_Net_ds><td colspan="6"><font color=red><b>注意：</b>如果今日更新中存在非生成栏目的信息，将不可以生成，需要各个栏目中分别生成今日更新的信息</font></td></tr></table>
<%
call admin_footer()
%>
</body>
</html>
12

⌨️ 快捷键说明

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