📄 admin_shu.asp

📁 1
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/md5.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check(0,"您的登陆状态错误，请重新登录后再进行操作")
Dim action,ClassID,Shu_G,Shu_LX,Sid
ClassId=FY_CLng(trim(request("ClassId")))
Shu_G=FY_CLng(trim(request("G")))
Sid=FY_CLng(trim(request("Sid")))
action=request("Action")
%>
<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_Shu.asp">小说管理首页</a> | <a href="?ClassID=<%=ClassId%>&Action=Add">添加小说</a> | <a href="Admin_Class.asp?Action=Hb">合并分类</a> | </td>      
</tr>
</table><br>
<script type="text/javascript" src="../images/popup.js"></script>

<%
Select Case action
Case "Edit"
    Call FY_Shu_edit
Case "Del"
    Call FY_Shu_Del
Case "Add"
    Call FY_Shu_Add
Case "Add_W","Edit_W"
    Call FY_Shu_Add_W
Case "TJ","ZT"
    If action="TJ" Then
    Shu_LX="推荐"
    Else
    Shu_LX="状态"
    End if
    If Sid<>0 And Shu_LX<>"" Then
          conn.execute "UPDATE [小说] SET "&Shu_LX&"="&Shu_G&" where 编号="&Sid&""
    End if
          response.redirect Request.ServerVariables("HTTP_REFERER")
Case Else
    Call FY_Main
End Select
Sub FY_Shu_Del
Dim Xsid,Class_Rs
Dim Class_SC_A,Class_SC_B,Class_SC_C,Class_SC_D
Xsid =ReplaceBadChar(request("id"))

set Rs=server.CreateObject("adodb.recordset")
sql="select 章节,更新时间,前言,类别,编号,图片 from 小说 where 编号 in ("&Xsid&") order by 编号 desc"
Rs.open sql,conn,1,1
do while not Rs.eof

set Class_Rs=server.CreateObject("adodb.recordset")
sql="select 分类生成模式,小说生成模式,章节生成模式,文件扩展名 from 分类 where 编号="&rs(3)&""
Class_Rs.open sql,conn,1,1
Class_SC_A=Class_Rs(0)
Class_SC_B=Class_Rs(1)
Class_SC_C=Class_Rs(2)
Class_SC_D=Class_Rs(3)
Class_Rs.close
set Class_Rs=nothing

set res=server.CreateObject("adodb.recordset")
sql="select * from 章节 where 小说编号="&Rs(4)&" order by 编号 desc"
res.open sql,conn,1,1
do while not res.eof
If Class_SC_D<>0 And LCase(Class_SC_C)<>LCase("Asp") Then
delfile FY_Contents_Url(res("编号"),rs(3),rs(4))
End if
conn.execute "delete * from 章节 where 编号 ="&res("编号")&""
res.movenext
loop
If Class_SC_D<>0 And LCase(Class_SC_C)<>LCase("Asp") Then
delfile FY_Contents_Url(-1,rs(3),rs(4))
End if
If Class_SC_D<>0 And LCase(Class_SC_B)<>LCase("Asp") Then
delfile FY_Novel_Url(rs(4),rs(3))
End if
conn.execute "delete from 书卷 where 小说编号="&Rs(4)&""
conn.execute "UPDATE [分类] SET 小说数量=小说数量-1 where 编号="&Rs(3)&""
conn.execute "UPDATE [系统设置] SET 小说数量=小说数量-1"
conn.execute "delete from 小说 where 编号="&Rs(4)&""
Rs.movenext
loop
	Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>小说批量删除成功！</Li><li>相关文件，书卷，章节，等信息都已经完全清理！</Li>",Request.ServerVariables("HTTP_REFERER"))
End Sub
sub FY_Shu_Add_W

Dim name,bz,ClassId_Add,zz,click,sj,pic,content,GJC,TXT,Shu_zt,tj,YTXT,YClass
name=Jencode(ReplaceBadChar(trim(request("name"))))
bz=ReplaceBadChar(trim(request("bz")))
ClassId_Add=ReplaceBadChar(trim(request("ClassId_Add")))
zz=Jencode(ReplaceBadChar(trim(request("zz"))))
Shu_zt=ReplaceBadChar(trim(request("Shu_zt")))
tj=ReplaceBadChar(trim(request("tj")))
click=ReplaceBadChar(trim(request("click")))
sj=ReplaceBadChar(trim(request("sj")))
pic=nohtml(trim(request("pic")))
content=trim(request("content"))
GJC=trim(request("GJC"))
TXT=trim(request("TXT"))
YClass=FY_CLng(trim(request("YClass")))
YTXT=trim(request("YTXT"))

  if GetStrLen(name)<2 Or GetStrLen(name)>120 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说名称字符过短或过长！[2-60]"
  end if
  if GetStrLen(bz)>200 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>备注名称字符过短或过长！[100]"
  end if
  if GetStrLen(GJC)>200 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说关键词字符过长！[100]"
  end if
  If ClassId_Add="" Then
        founderr=true
  errmsg=errmsg&"<br>"+"<li>请选择小说的类别栏目！"
  end if
  if GetStrLen(zz)>40 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说作者名字字符过长！[20]"
  end if
  if GetStrLen(pic)>255 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说封面图片地址字符过短或过长！[126]"
  end if
  if GetStrLen(content)<2 Or GetStrLen(content)>40000 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>小说前言字符过短或过长！[2-40000]"
  end if
  
  If founderr=False Then
  If sj="" Then sj=0
  If click="" Then click=0
  If Action="Add_W" Then
        set rs=server.createobject("adodb.recordset")
	     	rs.open "select * from [小说] where 书名='"&Name&"' And 类别="&ClassId_Add&"",conn,1,3
	 		  If rs.BOF And rs.EOF Then
				rs.addnew
				rs("书名")=name
				rs("备注名")=bz
				rs("关键词")=GJC
				rs("类别")=Cint(ClassId_Add)
				rs("作者")=zz
				rs("状态")=Cint(Shu_zt)
				rs("书卷")=0
				rs("图片")=pic
				rs("前言")=content
				rs("推荐")=Cint(tj)
				rs("点击")=click
				rs("添加时间")=Now()
				rs("更新时间")=Now()
				rs("编辑")=Request.Cookies(FY_cookies)("AdminName")
				rs.update
					Call FY_Cache.DelAllCache()
				Call WriteSuccessMsg("<li>小说信息添加成功！</Li><li>如果需要添加书卷章节，请到小说的目录下添加</Li>",Request.ServerVariables("HTTP_REFERER"))
				Else
				founderr=true
				Call WriteErrMsg("<br>"+"<li>你所添加的小说在数据库中已经存在同分类栏目的数据，请不要重复添加</li>")
				End if
	Else
		  set rs=server.createobject("adodb.recordset")
		  rs.open "select * from [小说] where 编号="&Sid&"",conn,1,3
			  If Not(rs.BOF And rs.EOF) Then
				rs("书名")=name
				rs("备注名")=bz
				rs("关键词")=GJC
				rs("类别")=Cint(ClassId_Add)
				rs("作者")=zz
				rs("状态")=Cint(Shu_zt)
				rs("图片")=pic
				rs("前言")=content
				rs("推荐")=Cint(tj)
				rs("点击")=click
				rs("更新时间")=Now()
				rs("编辑")=Request.Cookies(FY_cookies)("AdminName")
				rs.update
					Call FY_Cache.DelAllCache()
				Call WriteSuccessMsg("<li>小说信息修改成功！</Li><li>如果需要添加书卷章节，请到小说的目录下添加</Li>",Request.ServerVariables("HTTP_REFERER"))
				Else
				founderr=true
				Call WriteErrMsg("<br>"+"<li>系统没有找到该编号的书籍数据，请不要从站外提交信息</li>")
				End if
	End if
	  If founderr=False Then
			Dim Classrs
			  If YClass<>ClassId_Add Then
			  conn.execute "UPDATE [章节] SET 类别="&ClassId_Add&" where 类别="&YClass&""
			  set Classrs=server.createobject("adodb.recordset")
				Classrs.open "select 小说数量,保存方式,TXT路径 from [分类] where 编号="&YClass&"",conn,1,3
					If Not(Classrs.BOF And Classrs.EOF) Then
					Classrs(0)=Classrs(0)-1
				  Classrs.update
          End if
				  Classrs.close
		     	set Classrs=nothing
		    End if
				set Classrs=server.createobject("adodb.recordset")
				Classrs.open "select 小说数量,保存方式,TXT路径 from [分类] where 编号="&ClassId_Add&"",conn,1,3
					If Not(Classrs.BOF And Classrs.EOF) Then
					Classrs(0)=Classrs(0)+1
				  Classrs.update
          End if
				  Classrs.close
		     	set Classrs=nothing
		  End if
		  rs.close
			set rs=nothing
	 Else
	    Call WriteErrMsg(errmsg)
   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"><form method="POST" action="Admin_shu.asp" name="myform">
                 <tr class=KenQiao_Net_ds> 
                   <td colspan="8" align="left">
                   <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                     <tr class=KenQiao_Net_ds> 
                       <td width="24%"><input type="text" name="key" id="key" /></td>
                       <td width="10%"><input type="submit" name="button" id="button" value=" 搜索 " /></td>
                       <td width="66%">&nbsp;</td>
                     </tr>
                   </table></td>
                   </tr></form>
                 <form method="POST" action="?Action=Del" name="myform">
                 <tr class=KenQiao_Net_ss> 
                   <td width="6%" height="24" align="center" bgcolor="#E1F0FB" class="13">ID</td>
                   <td width="9%" align="center" bgcolor="#E1F0FB">小说分类</td>
                   <td align="center" bgcolor="#E1F0FB">小说名称</td>
                   <td width="13%" align="center" bgcolor="#E1F0FB">作者</td>
                   <td width="9%" align="center" bgcolor="#E1F0FB">推荐</td>
                   <td width="9%" align="center" bgcolor="#E1F0FB">状态</td>
                   <td width="7%" align="center" bgcolor="#E1F0FB">操作</td>
                   <td width="6%" align="center" bgcolor="#E1F0FB">删除</td>
                 </tr><%
                
dim LN(1),key
key=ReplaceBadChar(trim(request("key")))
if ClassId<>0 then LN(0)="where 类别="&ClassId&""
if key<>"" then  LN(1)=" where 书名 like '%"&key&"%' or 作者 like '%"&key&"%'"
set rs=server.createobject("adodb.recordset")
sql="select * from 小说 "&LN(0)&" "&LN(1)&" order by 更新时间 desc,添加时间 desc"
rs.open sql,conn,1,1%><%
if rs.bof and rs.eof then 
response.write"<tr class=KenQiao_Net_ds> <td height=24 colspan=8 align=center>暂无记录</td></tr>"
Else
Dim iCount,iPageSize,maxpage,page,x,i,J
	rs.PageSize =30'每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
	maxpage=rs.PageCount 
	page=request("page")
	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
	rs.AbsolutePage=Page
	If page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	Else
		x=iPageSize
	End If

i=1
For j=1 to rs.pagesize
i=i+1
%>
                 <tr class=KenQiao_Net_ds> 
                   <td height="24" align="center"><%=rs("编号")%></td>
                   <td height="24" align="center"><%Dim Class_Rs
                   set Class_Rs=server.createobject("adodb.recordset")
sql="select 编号,分类名称 from 分类 where 编号="&rs("类别")&""
Class_Rs.open sql,conn,1,1
if not Class_Rs.eof then
response.write"<a href=""?ClassId="&Class_Rs(0)&""">"&Class_Rs(1)&"</a>"
end if
12 下一页
⌨️ 快捷键说明

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