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

📄 admin_jie.asp

📁 1
💻 ASP
字号:
🔍 
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/md5.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check(0,"您的登陆状态错误，请重新登录后再进行操作")
Dim action,Sid,FY_JC_A,FY_JC_B,Xid,Jid
Sid=FY_CLng(trim(request("Sid")))
Xid=FY_CLng(trim(request("Xid")))
Jid=FY_CLng(trim(request("Jid")))
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_Juan.asp?Sid=<%=Sid%>">小说管理首页</a> | <a href="Admin_Juan.asp?Sid=<%=Sid%>&Action=Juan_Add">添加书卷</a> | <a href="?Sid=<%=Sid%>&Action=Jie_Add">添加章节</a> | </td>      
</tr>
</table><br>

<%
Select Case action
Case "Jie_Add"
    Call FY_Jie_Add
Case "Jie_Add_W"
    Call FY_Jie_Add_W
Case "Jie_Del"
    Call FY_Jie_Del
Case Else
    Call FY_Jie_Add
End Select

sub FY_Jie_Del
Dim FY_JZ_xx(3),Class_Rs
Dim Class_SC_A,Class_SC_B,Class_SC_C,Class_SC_D
Dim Xrs,FY_ZJID
If Xid=0 Then
   Call WriteErrMsg("该小说章节编号的数据不存在，请不要从其他地方提交信息")
Else
set rs=server.createobject("adodb.recordset")
rs.open "select 章节,更新时间,前言,类别,编号 from [小说] where 编号="&Sid&"",conn,1,3
If Not(rs.BOF And rs.EOF) Then
set Class_Rs=server.CreateObject("adodb.recordset")
sql="select 分类生成模式,小说生成模式,章节生成模式,文件扩展名 from 分类 where 编号="&rs("类别")&""
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 xRs=server.createobject("adodb.recordset")
xRs.open "select * from [章节] where 编号="&Xid&" And 小说编号="&Sid&"",conn,1,1
If Not(xRs.BOF And xRs.EOF) Then
rs(0)=rs(0)-1
rs(1)=Now()
rs.update
If xRS("书卷编号")<>0 Then
conn.execute "UPDATE [书卷] SET 章节=章节-1 where 编号="&xRS("书卷编号")&""
End if
If Class_SC_D<>0 And LCase(Class_SC_C)<>LCase("Asp") Then
delfile FY_Contents_Url(xRS("编号"),rs(3),Sid)
End if
conn.execute("delete from [章节] where 编号="&Xid&" And 小说编号="&Sid&"")
	Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>章节信息删除成功！</Li><li>请记得定时清理上传文件以及章节文件</Li>",Request.ServerVariables("HTTP_REFERER"))
Else
   Call WriteErrMsg("该小说章节编号的数据不存在，请不要从其他地方提交信息")
End if
xRs.close
set xRs=nothing
Else
   Call WriteErrMsg("该小说编号的数据不存在，请不要从其他地方提交信息")
End if

rs.close
set rs=nothing
End if
End Sub
sub FY_Jie_Add_W

Dim name,Px,content,TXT
Px=FY_CLng(trim(request("Px")))
name=ReplaceBadChar(trim(request("name")))
content=trim(request("content"))

if GetStrLen(name)<2 Or GetStrLen(name)>40 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>章节名称字符过短或过长！[2-20]"
end if
if Px<1 then
	founderr=true
  errmsg=errmsg&"<br>"+"<li>章节序号不能小于1"
end if
  if GetStrLen(content)<2 Or GetStrLen(content)>120000 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>章节字符过短或过长！[2-120000]"
  end if
  
If founderr=False Then
set rs=server.createobject("adodb.recordset")
rs.open "select 章节,更新时间,前言,类别 from [小说] where 编号="&Sid&"",conn,1,3
If Not(rs.BOF And rs.EOF) Then
Dim Xrs
set xRs=server.createobject("adodb.recordset")
xRs.open "select * from [章节] where 编号="&Xid&" Or (章节名称='"&name&"' And 小说编号="&Sid&")",conn,1,3
If xRs.BOF And xRs.EOF Then
rs(0)=rs(0)+1
rs(1)=Now()
rs.update
If Jid<>0 Then
conn.execute "UPDATE [书卷] SET 章节=章节+1 where 编号="&Jid&""
End if
xRs.addnew
End if
TXT=content
xRs("小说编号")=Sid
xRs("书卷编号")=Jid
xRs("章节名称")=name
xRs("排序")=Px
xRs("章节内容")=content
xRs("类别")=Rs(3)
xRs("编辑")=Request.Cookies(FY_cookies)("AdminName")
xRs("更新时间")=Now()
xRs.update
conn.execute "UPDATE [小说] SET 最新章节="&xRs("编号")&",更新时间='"&Now()&"' where 编号="&Sid&""
xRs.close
set xRs=nothing
	Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>章节信息修改(更新)成功！</Li><li>系统自动跳转回章节添加页面，您无需进行任何操作</Li>",Request.ServerVariables("HTTP_REFERER"))
Else
   Call WriteErrMsg("该小说编号的数据不存在，请不要从其他地方提交信息")
End if
rs.close
set rs=nothing
Else
   Call WriteErrMsg(errmsg)
End if
end sub


sub FY_Jie_Add
Dim name,Px,content
If Xid<>0 Then
Dim Xrs
set xRs=server.createobject("adodb.recordset")
xRs.open "select * from [章节] where 编号="&Xid&"",conn,1,1
If Not(xRs.BOF And xRs.EOF) Then
name=xRs("章节名称")
Px=xRs("排序")
content=xRs("章节内容")
Jid=xRs("书卷编号")
Else
   founderr=true
   Call WriteErrMsg("该小说章节编号的数据不存在，请不要从其他地方提交信息")
End if
xRs.close
set xRs=nothing
Else
name=""
If Jid<>0 Then
Px=FY_CLng(conn.execute("select 章节 from [书卷] where 编号="&Jid&"")(0))+1
Else
Px=999
End if
End if
If founderr=False Then
%>
<script language = 'JavaScript'>
function CheckForm(){
  if (document.myform.name.value==''){
     alert('章节名称不能为空！');
     document.myform.name.focus();
     return false;
  }
  if (document.myform.Px.value==''){
     alert('章节序号不能为空！');
     document.myform.Px.focus();
     return false;
  }
}
</script>
<table align="center" width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
        <form name="myform" method="post" action="?action=Jie_Add_W&Sid=<%=Sid%>&Xid=<%=Xid%>" onSubmit="return CheckForm();">
          <tr class=KenQiao_Net_ss> 
            <td colspan='3'>添加/修改小说章节</td>
          </tr>
    <tr class='KenQiao_Net_ds'>
          <td width='100' align='center'><strong>章节名称：</strong></td>
          <td><input name="name" maxlength="20" type="text" class="textarea" id="name" size="20" value="<%=Name%>"></td>
    </tr>
    <tr class='KenQiao_Net_ds'>
          <td width='100' align='center'><strong>所属书卷：</strong></td>
          <td><select name="Jid" id="Jid">
                     <option value="">不属于书卷</option>
                            <%
							set Rs=server.createobject("adodb.recordset") 
   sql="select * from 书卷 where 小说编号="&Sid&" order by 排序 desc,编号 desc"
   Rs.open sql,conn,1,1
   If Not(Rs.BOF And Rs.EOF) Then
   do while not Rs.eof
%>                            <option value="<%=Rs("编号")%>"<%If FY_CLng(Jid)=clng(rs("编号")) Then response.Write" selected" %>><%=Rs("书卷名称")%></option>
                            <% 
   Rs.movenext
   loop
   End if
   Rs.close
   set Rs=nothing
%></select></td>
    </tr>
    <tr class='KenQiao_Net_ds'>
          <td width='100' align='center'><strong>章节序号：</strong></td>
          <td><input name="Px" maxlength="3" type="text" class="textarea" id="Px" size="4" value="<%=Px%>">  说明：根据序号来断定排序，号码越小将会显示越前</td>
    </tr>
    <tr class='KenQiao_Net_ds'>
                   <td align="right">内容：</td>
                   <td align="left"><textarea name="content" id="content" style="display:none"><%=content%></textarea><iframe src="../editor/editor.htm?id=content&ReadCookie=0" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No" width="663" height="459"></iframe></td>
                   </tr>
          <tr class='KenQiao_Net_ds'> 
            <td align="center" colspan='2'>
          <input name="Submit" type="submit" class="button" id="Submit" value="确定"> 
              <input name="Reset" type="reset" class="button" id="Reset" value="重填"> </td>
          </tr>
        </form>
      </table>


<%
End if
end sub
sub  FY_Main

End sub
call admin_footer()
%>
</body>
</html>

⌨️ 快捷键说明

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