📄 admin_class.asp

📁 1
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/md5.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check("分类管理","您的登陆状态错误，请重新登录后再进行操作")
Dim NRs
Dim action,ClassID,ClassGX,CLass_LB,Class_S_Url
action=request("Action")
ClassID=FY_CLng(trim(request("lbid")))
ClassGX=ReplaceBadChar(trim(request("G")))
%>
<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> 
<td colspan="6">分类栏目管理</td>
</tr>
<tr align="left" class=KenQiao_Net_ds>
<td colspan="6">  管理导航：<a href="Admin_Class.asp">分类管理首页</a> | <a href="?Action=Add">添加分类</a> | <a href="?Action=Px">排序管理/快速修改</a> | <a href="?Action=Hb">合并分类</a> | </td>      
</tr>
</table><br>
<script type="text/javascript" src="../images/popup.js"></script>

<%
Select Case action
Case "Px"
    Call FY_Class_Px
Case "J_editclass"
    Call FY_Class_J_editclass
Case "Hb"
    Call FY_Class_Hb
Case "Hb_W"
    Call FY_Class_Hb_W
Case "Add"
    Call FY_Class_Add
Case "Add_W","edit_W"
    Call FY_Class_Add_W
Case "edit"
    Call FY_Class_edit
Case "Delclass","CJ"
    Call FY_Class_Delclass
Case "QK"
    Call FY_Class_QK
Case "Sd","CK"
    If action="Sd" Then
    CLass_LB="分类状态"
    Else
    CLass_LB="打开方式"
    End if
    Call FY_Class_CL
Case Else
    Call FY_Main
End Select

Sub FY_Class_QK
If ClassID=0 Then
Call WriteErrMsg("<br>"+"<li>栏目编号错误，请不要从站外提交信息</li>")
Else
delfolder "../"&conn.execute("select 目录名称 from [分类] where 编号="&ClassID&"")(0)
CreateFolder "../"&conn.execute("select 目录名称 from [分类] where 编号="&ClassID&"")(0)
Call WriteSuccessMsg("<li>Html已经清理，请注意重新生成相关信息！</Li>","Admin_Class.asp")
End if
End SUb

Sub FY_Class_Delclass
If ClassID=0 Then
Call WriteErrMsg("<br>"+"<li>栏目编号错误，请不要从站外提交信息</li>")
Else
CreateFolder "../"&FY_Config(19)
delfolder "../"&conn.execute("select 目录名称 from [分类] where 编号="&ClassID&"")(0)
   set Rs=server.createobject("adodb.recordset") 
   sql="select 编号 from 小说 where 类别="&ClassID&" order by 编号 asc"
   Rs.open sql,conn,1,1
   if Not(rs.bof and rs.eof) then 
   do while not Rs.eof
   conn.execute "delete from [书卷] where 小说编号="&Rs(0)&""
   conn.execute "delete from [章节] where 小说编号="&Rs(0)&""
   conn.execute "delete from [小说] where 编号="&Rs(0)&""
   conn.execute "UPDATE [系统设置] SET 小说数量=小说数量-1"
   Rs.movenext
   loop
   End if
   Rs.close
   set Rs=nothing
IF action<>"CJ" Then
conn.execute "delete from [分类] where 编号="&ClassID&""
conn.execute "UPDATE [系统设置] SET 栏目数量=栏目数量-1"
Call WriteSuccessMsg("<li>分类栏目删除成功，相关文件也已经清理！</Li>","Admin_Class.asp")
Else
CreateFolder "../"&FY_Config(19)
CreateFolder "../"&conn.execute("select 目录名称 from [分类] where 编号="&ClassID&"")(0)
conn.execute "UPDATE [分类] SET 小说数量=0 where 编号="&ClassID&""
Call WriteSuccessMsg("<li>分类栏目重建成功，相关文件也已经清理，同时数据恢复到原始状态！</Li>","Admin_Class.asp")
End if
	Call FY_Cache.DelAllCache()
End if
End SUb

Sub FY_Class_Hb_W
Dim TargetClassID,ClassID,DelClassID
ClassID=FY_CLng(trim(request("ClassID")))
TargetClassID=FY_CLng(trim(request("TargetClassID")))
DelClassID=FY_CLng(trim(request("DelClassID")))
If TargetClassID=0 Or ClassID=0 Or TargetClassID=ClassID Then
Call WriteErrMsg("<br>"+"<li>不能在同一个栏目内进行操作，请不要从站外提交信息</li>")
Else

conn.execute "UPDATE [分类] SET 小说数量=小说数量+"&FY_CLng(conn.execute("select 小说数量 from [分类] where 编号="&ClassID&"")(0))&" where 编号="&TargetClassID&""
conn.execute "UPDATE [小说] SET 类别="&TargetClassID&" where 类别="&ClassID&""
conn.execute "UPDATE [章节] SET 类别="&TargetClassID&" where 类别="&ClassID&""
If DelClassID=1 Then
delfolder "../"&conn.execute("select 目录名称 from [分类] where 编号="&ClassID&"")(0)
conn.execute "delete from [分类] where 编号="&ClassID&""
Call WriteSuccessMsg("<script>window.parent.location.reload(""../"&Admin_InstallDir&"/Admin_Index.asp"");</SCRIPT>","Admin_Class.asp")
Else
	Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>分类栏目合并成功，原栏目由于您没有选择删除，所以现在是保存状态！</Li><li>旧分类栏目的小说以及相关文件已经转移到新的栏目！</Li>","Admin_Class.asp")
End if
End if
End Sub
sub FY_Class_Add_W
Dim Name,ename,SD,OpenType,ClassDir,ZJhtml,XShtml,ClassHtml,ZJhtmlurl,XShtmlurl,ClassHtmlurl,MB,ClassTXT,TXTUrl,ClassSC,ClassUrl,Yename,YTXTUrl,description,keywords,XSFY
Name=ReplaceBadChar(trim(request("Name")))
ename=ReplaceBadChar(trim(request("ename")))
Yename=ReplaceBadChar(trim(request("Yename")))
SD=ReplaceBadChar(trim(request("SD")))
OpenType=ReplaceBadChar(trim(request("OpenType")))
ClassDir=ReplaceBadChar(trim(request("ClassDir")))
ClassTXT=ReplaceBadChar(trim(request("ClassTXT")))
TXTUrl=ReplaceBadChar(trim(request("TXTUrl")))
YTXTUrl=ReplaceBadChar(trim(request("YTXTUrl")))
MB=ReplaceBadChar(trim(request("MB")))
ClassSC=ReplaceBadChar(trim(request("ClassSC")))
ClassHtml=yonghuguolv(trim(request("ClassHtml")))
XShtml=yonghuguolv(trim(request("XShtml")))
ZJhtml=yonghuguolv(trim(request("ZJhtml")))
ClassUrl=yonghuguolv(trim(request("ClassUrl")))
ClassHtmlurl=yonghuguolv(trim(request("ClassHtmlurl")))
XShtmlurl=yonghuguolv(trim(request("XShtmlurl")))
ZJhtmlurl=yonghuguolv(trim(request("ZJhtmlurl")))
description=ReplaceBadChar(trim(request("description")))
keywords=ReplaceBadChar(trim(request("keywords")))
XSFY=FY_CLng(trim(request("XSFY")))
  If IsFolder("../"&FY_Config(19))=False Then
     CreateFolder "../"&FY_Config(19)
  End if

  if IsValidStr(ename)=False then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>分类英文名称不能存在越字母和数字的字符！"
  Elseif Len(ename)<2 Or Len(ename)>50 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>分类英文简称字符过短或过长！[2-50]"
  end if
  if IsValidStr(TXTUrl)=False then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>TXT存放目录不能存在越字母和数字的字符！"
  Elseif Len(TXTUrl)<2 Or Len(TXTUrl)>50 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>TXT存放目录字符过短或过长！[2-50]"
  end if
  if GetStrLen(Name)<2 Or GetStrLen(Name)>40 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>分类名称字符过短或过长！[2-20]"
  end if
  if GetStrLen(ClassUrl)<2 Or GetStrLen(ClassUrl)>200 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>外部链接字符过短或过长！[2-100]"
  end if
  if GetStrLen(description)>200 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>栏目关键词(description)字符过短或过长！[2-100]"
  end if
  if GetStrLen(keywords)>200 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>栏目关键词(keywords)字符过短或过长！[2-100]"
  end if
  
  If ClassDir="B" Then
  ClassDir=ClassUrl
  Else
  ClassDir="00"
  End if 
  If ClassHtml="自定义" Then
  ClassHtml=ClassHtmlurl
  if GetStrLen(ClassHtmlurl)<2 Or GetStrLen(ClassHtmlurl)>255 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>分类页面文件自定义模式字符过短或过长！[2-126]"
  end if
  
  if Mid(ClassHtmlurl,1,1)="/" Or Mid(ClassHtmlurl,len(ClassHtmlurl),1)="/" then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>分类页面文件自定义模式中首位和末尾不能是“/”，否则将会影响生成"
  end if
  
  if InStr(ClassHtmlurl,".")>0 Or InStr(ClassHtmlurl,"\")>0 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>分类页面文件自定义模式中不能含有 “.”和 “\”等其他非法字符，否则将会影响生成"
  end if
  if InStr(ClassHtmlurl,"{$分页编号}")=0 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>分类页面文件自定义模式必须含有 “{$章节编号}”，否则将会影响生成"
  end if
  End if 
  If XShtml="自定义" Then
  XShtml=XShtmlurl
  if GetStrLen(XShtmlurl)<2 Or GetStrLen(XShtmlurl)>255 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说页面文件自定义模式字符过短或过长！[2-126]"
  end if
  if Mid(XShtmlurl,1,1)="/" Or Mid(XShtmlurl,len(XShtmlurl),1)="/" then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说页面文件自定义模式中首位和末尾不能是“/”，否则将会影响生成"
  end if
  if InStr(XShtmlurl,"{$小说编号}")=0 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说页面文件自定义模式必须含有 “{$章节编号}”，否则将会影响生成"
  end if
  if InStr(XShtmlurl,".")>0 Or InStr(XShtmlurl,"\")>0 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说页面文件自定义模式中不能含有 “.”和 “\”等其他非法字符，否则将会影响生成"
  end if
  End if 
  If ZJhtml="自定义" Then
  ZJhtml=ZJhtmlurl
  if GetStrLen(ZJhtmlurl)<2 Or GetStrLen(ZJhtmlurl)>255 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>章节页面文件自定义模式字符过短或过长！[2-126]"
  end if
  if Mid(ZJhtmlurl,1,1)="/" Or Mid(ZJhtmlurl,len(ZJhtmlurl),1)="/" then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>章节页面文件自定义模式中首位和末尾不能是“/”，否则将会影响生成"
  end if
  if InStr(ZJhtmlurl,"{$章节编号}")=0 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>章节页面文件自定义模式必须含有 “{$章节编号}”，否则将会影响生成"
  end if
  if InStr(ZJhtmlurl,".")>0 Or InStr(ZJhtmlurl,"\")>0 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>章节页面文件自定义模式中不能含有 “.”和 “\”等其他非法字符，否则将会影响生成"
  end if
  End if 
  
  If IsFolder("../"&ename)=True And InStr(UCase(ename),UCase("Html"))=0 And UCase(Yename)<>UCase(ename) Then
        founderr=true
  errmsg=errmsg&"<br>"+"<li>分类英文名的文件夹名称已经存在，所以不能修改创建！"
  End if
  
  If IsFolder("../"&FY_Config(19)&"/"&TXTUrl)=True And UCase(YTXTUrl)<>UCase(TXTUrl) Then
        founderr=true
  errmsg=errmsg&"<br>"+"<li>TXT保存文件的文件夹名称已经存在，所以不能修改创建！"
  End if
  
  Set NRs=Conn.execute("select count(*) from [分类] where TXT路径='"&TXTUrl&"'")
  If FY_CLng(NRs(0))>1 Then
  founderr=true
  errmsg=errmsg&"<br>"+"<li>TXT保存文件的文件夹名称与其他分类的名称重复，所以不能修改创建！"
  End if
  NRs.close
  Set NRs = Nothing
  
  If founderr=False Then
  If clng(ClassID)=0 Then
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from [分类] where 分类名称='"&Name&"' Or 目录名称='"&ename&"'",conn,1,3
			If rs.BOF And rs.EOF Then
			    If ClassDir="00" Then
		        If IsFolder("../"&FY_Config(19)&"/"&TXTUrl)=False Then
		          CreateFolder "../"&FY_Config(19)&"/"&TXTUrl 
		        End if
 		        If IsFolder("../"&ename)=False Then
		          CreateFolder "../"&ename 
 		        End if
 		      End if
				rs.addnew
				rs("分类名称")=Name
12 3 4 下一页
⌨️ 快捷键说明

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