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

📄 admin_juan.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,Jid
Sid=FY_CLng(trim(request("Sid")))
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="?Sid=<%=Sid%>&Action=Juan_Add">添加书卷</a> | <a href="Admin_Jie.asp?Sid=<%=Sid%>&Action=Jie_Add">添加章节</a> | </td>      
</tr>
</table><br>

<%
Select Case action
Case "Juan_Add"
    Call FY_Juan_Add
Case "Juan_Add_W"
    Call FY_Juan_Add_W
Case "Juan_Del"
    Call FY_Juan_Del
Case Else
    Call FY_Main
End Select
Sub FY_Juan_Del
If Jid<>0 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 编号="&Jid&" And 小说编号="&Sid&"",conn,1,1
If Not(xRs.BOF And xRs.EOF) Then
rs("书卷")=rs("书卷")-1
rs.update
conn.Execute = "update [章节] set 书卷编号=0 where 书卷编号="&Jid&" And 小说编号="&Sid&""
conn.execute("delete from [书卷] where 编号="&Jid&" And 小说编号="&Sid&"")
Else
   Call WriteErrMsg("该小说书卷编号的数据不存在，请不要从其他地方提交信息")
End if
xRs.close
set xRs=nothing
	Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>小说书卷删除成功！</Li><li>相关章节也已经批量转移到无书卷状态</Li>","Admin_juan.asp?Sid="&Sid&"")
Else
   Call WriteErrMsg("该小说编号的数据不存在，请不要从其他地方提交信息")
End if
rs.close
set rs=nothing
Else
   Call WriteErrMsg("该小说书卷编号的数据不存在，请不要从其他地方提交信息")
End if


End Sub
sub FY_Juan_Add_W

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

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 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 编号="&Jid&" Or (书卷名称='"&name&"' And 小说编号="&Sid&")",conn,1,3
If xRs.BOF And xRs.EOF Then
rs("书卷")=rs("书卷")+1
rs.update
xRs.addnew
End if
xRs("排序")=Px
xRs("书卷名称")=name
xRs("小说编号")=Sid
xRs("编辑")=Request.Cookies(FY_cookies)("AdminName")
xRs.update
xRs.close
set xRs=nothing
	Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>小说信息修改(更新)成功！</Li><li>如果需要添加章节，请到返回目录进行添加</Li>","Admin_juan.asp?Sid="&Sid&"")
Else
   Call WriteErrMsg("该小说编号的数据不存在，请不要从其他地方提交信息")
End if
rs.close
set rs=nothing
Else
   Call WriteErrMsg(errmsg)
End if
end sub
sub FY_Juan_Add
Dim name,Px
If Jid<>0 Then
Dim Xrs
set xRs=server.createobject("adodb.recordset")
xRs.open "select * from [书卷] where 编号="&Jid&"",conn,1,1
If Not(xRs.BOF And xRs.EOF) Then
name=xRs("书卷名称")
Px=xRs("排序")
Else
   founderr=true
   Call WriteErrMsg("该小说编号的数据不存在，请不要从其他地方提交信息")
End if
xRs.close
set xRs=nothing
Else
name=""
Px=FY_CLng(conn.execute("select 书卷 from [小说] where 编号="&Sid&"")(0))+1
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=Juan_Add_W&Sid=<%=Sid%>&Jid=<%=Jid%>" onSubmit="return CheckForm();">
          <tr class=KenQiao_Net_ss> 
            <td>添加/修改书卷</td>
          </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='6'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>
          <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>
       </table>
      </td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='6'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>
          <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>
       </table>
      </td>
    </tr>
    
          <tr class=KenQiao_Net_qs> 
            <td align="center">
          <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
Dim Xrs
set rs=server.CreateObject("adodb.Recordset")
sql="Select 书卷名称,编号,排序 from 书卷 where 小说编号="&Sid&" order by 排序 asc,编号 asc"
rs.open sql,conn,1,1
if NoT(rs.BOF And rs.EOF) then
FY_JC_A=0
do while not rs.eof
%>
<table align="center" width="100%" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
                 <tr class=KenQiao_Net_ds> 
                   <td colspan="6"  align="center">书卷：<b><%=Rs(0)%></b>  序号：<b><%=Rs(2)%></b>  [<a href="Admin_Jie.asp?Sid=<%=Sid%>&Action=Jie_Add&Jid=<%=Rs(1)%>"><b>添加章节</b></a>  <a href="?Sid=<%=Sid%>&Action=Juan_Add&Jid=<%=Rs("编号")%>"><b>修改</b></A>  <a href="?Sid=<%=Sid%>&Action=Juan_Del&Jid=<%=Rs("编号")%>" onclick="return confirm('删除章节将会把此书卷下的章节转移到无书卷状态，没有数据将办法恢复！确定要此小说书卷吗？');"><b>删除</b></A>]</td>
                     </tr>
<%
set xRs=server.CreateObject("adodb.Recordset")
sql="Select 排序,章节名称,更新时间,编号 from 章节 where 书卷编号="&Rs(1)&" And 小说编号="&Sid&" order by 排序 asc,编号 asc"
xRs.open sql,conn,1,1
if NoT(xRs.BOF And xRs.EOF) then
response.Write "<tr class=KenQiao_Net_ss> "
response.Write "       <td width=""6%"" height=""24"" align=""center"" bgcolor=""#E1F0FB"" class=""13"">编号</td>"
response.Write "          <td align=""center"" bgcolor=""#E1F0FB"">章节名称</td>"
response.Write "           <td width=""6%"" align=""center"" bgcolor=""#E1F0FB"">排序</td>"
response.Write "           <td width=""23%"" align=""center"" bgcolor=""#E1F0FB"">更新时间</td>"
response.Write "            <td width=""40%"" align=""center"" bgcolor=""#E1F0FB"">操作</td>"
response.Write "         </tr>"
do while not xRs.eof
response.Write " <tr class=KenQiao_Net_ds> "
response.Write "      <td height=""24"" align=""center"">"&xRs(3)&"</td>"
response.Write "      <td height=""24"" align=""center""><a href=""Admin_Jie.asp?Sid="&Sid&"&Action=Jie_Add&Xid="&xRs(3)&""">"&xRs(1)&"</a></td>"
response.Write "      <td height=""24"" align=""center"">"&xRs(0)&"</td>"
response.Write "     <td height=""24"" align=""center"">"&xRs(2)&"</td>"
response.Write "      <td height=""24"" align=""center""><a href=""Admin_Jie.asp?Sid="&Sid&"&Action=Jie_Add&Xid="&xRs(3)&""">修改</a> <a href=""Admin_Jie.asp?Sid="&Sid&"&Action=Jie_Del&Xid="&xRs(3)&""" onclick=""return confirm('删除章节将会把此章节的TXT相关文件删除，没有数据将办法恢复！确定要此小说章节吗？');"">删除</a></td>"
response.Write "       </tr>"                 
xRs.movenext 
loop
Else
response.Write "<tr class=KenQiao_Net_ds>"
response.Write "   <td colspan=""4""  align=""center""><a href=""Admin_Jie.asp?Sid="&Sid&"&Action=Jie_Add&Jid="&Rs(1)&""">此书卷目前还没有任何章节，请添加</a></td>"
response.Write "      </tr>"
End if
xRs.close
Set xRs=nothing
%>
</table>
<br>
<%
rs.movenext 
loop
Else
FY_JC_A=1
End if
rs.close
Set rs=nothing

set xRs=server.CreateObject("adodb.Recordset")
sql="Select 排序,章节名称,更新时间,编号 from 章节 where 书卷编号=0 And 小说编号="&Sid&" order by 排序 asc,编号 asc"
xRs.open sql,conn,1,1
if NoT(xRs.BOF And xRs.EOF) then
response.Write "<table align=""center"" width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=KenQiao_Net_bk style=""border-collapse: collapse""><tr class=KenQiao_Net_ds><td colspan=""6""  align=""center"">不属于任何书卷的章节 [ <a href=""Admin_Jie.asp?Sid="&Sid&"&Action=Jie_Add&Jid=0""><b>添加章节</b></a> ]</td></tr><tr class=KenQiao_Net_ss> "
response.Write "       <td width=""6%"" height=""24"" align=""center"" bgcolor=""#E1F0FB"" class=""13"">编号</td>"
response.Write "          <td align=""center"" bgcolor=""#E1F0FB"">章节名称</td>"
response.Write "           <td width=""6%"" align=""center"" bgcolor=""#E1F0FB"">排序</td>"
response.Write "           <td width=""23%"" align=""center"" bgcolor=""#E1F0FB"">更新时间</td>"
response.Write "            <td width=""40%"" align=""center"" bgcolor=""#E1F0FB"">操作</td>"
response.Write "         </tr>"
do while not xRs.eof
response.Write " <tr class=KenQiao_Net_ds> "
response.Write "      <td height=""24"" align=""center"">"&xRs(3)&"</td>"
response.Write "      <td height=""24"" align=""center""><a href=""Admin_Jie.asp?Sid="&Sid&"&Action=Jie_Add&Xid="&xRs(3)&""">"&xRs(1)&"</a></td>"
response.Write "      <td height=""24"" align=""center"">"&xRs(0)&"</td>"
response.Write "     <td height=""24"" align=""center"">"&xRs(2)&"</td>"
response.Write "      <td height=""24"" align=""center""><a href=""Admin_Jie.asp?Sid="&Sid&"&Action=Jie_Add&Xid="&xRs(3)&""">修改</a> <a href=""Admin_Jie.asp?Sid="&Sid&"&Action=Jie_Del&Xid="&xRs(3)&""" onclick=""return confirm('删除章节将会把此章节的TXT相关文件删除，没有数据将办法恢复！确定要此小说章节吗？');"">删除</a></td>"
response.Write "       </tr>"
                 
xRs.movenext 
loop
response.Write "</table>"
Else
FY_JC_B=1
End if
xRs.close
Set xRs=nothing
If FY_JC_A=1 And FY_JC_B=1 Then%>
<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="4"  align="center">此小说还没有章节和书卷，请点击上面的连接进行添加</td>
                     </tr>
</table>
<%End if
End sub
call admin_footer()
%>
</body>
</html>

⌨️ 快捷键说明

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