📄 admin_class.asp
字号:
rs("目录名称")=ename
rs("排序")=999
rs("文件扩展名")=ClassSC
rs("分类生成模式")=ClassHtml
rs("小说生成模式")=XShtml
rs("章节生成模式")=ZJhtml
rs("分类状态")=SD
rs("保存方式")=ClassTXT
rs("TXT路径")=TXTUrl
rs("链接属性")=ClassDir
rs("打开方式")=OpenType
rs("生成模板")=MB
rs("每页显示小说")=XSFY
rs("description")=description
rs("keywords")=keywords
rs.update
If SD=1 Then
delfolder "../"&ename
Else
conn.execute "UPDATE [系统设置] SET 栏目数量=栏目数量+1"
End if
Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>分类栏目信息添加成功！</Li><li>部分功能修改已经锁定，如果需要修改，请新建立后进行栏目合并</Li><br><li>如果转换成URL转发功能的话，请注意先把小说等信息清除</Li>","Admin_Class.asp")
Else
Call WriteErrMsg("<br>"+"<li>你所添加的分类或者分类英文简称在数据库中已经存在，请不要重复添加</li><li>如果非要添加的话，请修改一个名称，再到修改页面进行修改")
End if
Else
set rs=server.createobject("adodb.recordset")
rs.open "select * from [分类] where 编号="&ClassID&"",conn,1,3
If Not(rs.BOF And rs.EOF) Then
If ClassDir="00" Then
If IsFolder("../"&rs("目录名称"))=True Then
fldrename "../"&rs("目录名称"),"../"&ename
ElseIf IsFolder("../"&ename)=False Then
CreateFolder "../"&ename
End if
End if
rs("分类名称")=Name
rs("目录名称")=ename
rs("文件扩展名")=ClassSC
rs("分类生成模式")=ClassHtml
rs("小说生成模式")=XShtml
rs("章节生成模式")=ZJhtml
rs("分类状态")=SD
rs("保存方式")=ClassTXT
rs("TXT路径")=TXTUrl
rs("链接属性")=ClassDir
rs("打开方式")=OpenType
rs("生成模板")=MB
rs("每页显示小说")=XSFY
rs("description")=description
rs("keywords")=keywords
rs.update
If SD=1 Then
delfolder "../"&ename
conn.execute "UPDATE [系统设置] SET 栏目数量=栏目数量-1"
End if
Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>分类栏目信息更新成功！</Li><li>部分功能修改已经锁定，如果需要修改，请新建立后进行栏目合并</Li><br><li>如果转换成URL转发功能的话，请注意先把小说等信息清除！</Li>","Admin_Class.asp")
Else
Call WriteErrMsg("<br>"+"<li>来源错误，您所修改的栏目，在本数据库中不存在")
End if
End if
rs.close
set rs=nothing
Else
Call WriteErrMsg(errmsg)
End if
End Sub
sub FY_Class_J_editclass
Dim Name,ename,J_Class_Px,Yename
Name=ReplaceBadChar(trim(request("Name")))
ename=ReplaceBadChar(trim(request("ename")))
Yename=ReplaceBadChar(trim(request("Yename")))
J_Class_Px=ReplaceBadChar(trim(request("Px")))
if IsValidStr(ename)=False then
founderr=true
errmsg=errmsg&"<br>"+"<li>分类英文名称不能存在越字母和数字的字符！"
Elseif GetStrLen(ename)<2 Or GetStrLen(ename)>50 then
founderr=true
errmsg=errmsg&"<br>"+"<li>分类英文简称字符过短或过长！[2-50]"
end if
if GetStrLen(Name)<2 Or GetStrLen(Name)>40 then
founderr=true
errmsg=errmsg&"<br>"+"<li>分类名称字符过短或过长！[2-20]"
end if
If IsFolder("../"&ename)=True And Yename<>ename And InStr(UCase(ename),UCase("Html"))=0 Then
founderr=true
errmsg=errmsg&"<br>"+"<li>分类英文名的文件夹名称已经存在，所以不能修改创建！"
End if
If founderr=False Then
If ename<>Yename Then
If IsFolder("../"&Yename)=False Then
CreateFolder "../"&ename
Else
fldrename "../"&Yename,"../"&ename
End if
Set NRs=Conn.execute("select count(*) from [分类] where 目录名称='"&ename&"'")
If FY_CLng(NRs(0))>1 Then
founderr=true
Call WriteErrMsg("<br>"+"<li>分类英文名的文件夹名称与其他分类的名称重复，所以不能修改创建！")
End if
NRs.close
Set NRs = Nothing
End if
If founderr=False Then
conn.execute "UPDATE [分类] SET 目录名称='"&ename&"',分类名称='"&Name&"',排序="&J_Class_Px&" where 编号="&ClassID&""
Call WriteSuccessMsg("<li>目录信息更新成功！</Li><li><br>如果转换成URL转发功能的话，请注意先把小说等信息清除</Li>",Request.ServerVariables("HTTP_REFERER"))
Call FY_Cache.DelAllCache()
End if
Else
Call WriteErrMsg(errmsg)
End if
End Sub
sub FY_Class_CL
set rs=server.createobject("adodb.recordset")
rs.open "select 目录名称,链接属性 from [分类] where 编号="&ClassID&"",conn,1,3
If Not(rs.BOF And rs.EOF) Then
conn.execute "UPDATE [分类] SET "&CLass_LB&"="&ClassGX&" where 编号="&ClassID&""
If action="Sd" And Rs("链接属性")="00" Then
If clng(ClassGX)=1 Then
If IsFolder("../"&Rs("目录名称"))=True Then
delfolder "../"&Rs("目录名称")
End if
conn.execute "UPDATE [系统设置] SET 栏目数量=栏目数量-1"
Else
If IsFolder("../"&Rs("目录名称"))=False Then
CreateFolder "../"&Rs("目录名称")
End if
conn.execute "UPDATE [系统设置] SET 栏目数量=栏目数量+1"
End if
End if
End if
Call FY_Cache.DelAllCache()
rs.close
set rs=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
End Sub
sub FY_Class_Hb%>
<table width=100% align='center' border='1' cellspacing='0' cellpadding='4' class=KenQiao_Net_bk style='border-collapse: collapse'>
<tr class='KenQiao_Net_ss'>
<td height='22' colspan='3' align='center'>小说移动、合并管理</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td height='100'><form name='myform' method='post' action='?action=Hb_W' onSubmit='return ConfirmUnite();'>
将原分类：
<select name='ClassID' id='ClassID'>
<%
sql="select * from 分类 where 链接属性=""00"""
set Rs=conn.execute(sql)
do while not Rs.eof
%>
<option value="<%=Rs("编号")%>"><%=Rs("分类名称")%></option>
<%
Rs.movenext
loop
Rs.close
set Rs=nothing%>
</select>
下的所有小说，移动到：
<select name='TargetClassID' id='TargetClassID'>
<%
sql="select * from 分类 where 链接属性=""00"""
set Rs=conn.execute(sql)
do while not Rs.eof
%>
<option value="<%=Rs("编号")%>"><%=Rs("分类名称")%></option>
<%
Rs.movenext
loop
Rs.close
set Rs=nothing%>
</select>
分类里。<br><br> <input name="DelClassID" type="checkbox" id="DelClassID" value="1" /> 删除原分类
<input type='submit' name='Submit' class='button' value=' 移 动 ' style='cursor:hand;'>
<input name='Cancel' type='button' id='Cancel' class='button' value=' 取 消 ' onClick="window.location.href='Admin_Class.asp'" style='cursor:hand;'>
</form>
</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td height='60'><strong>注意事项：</strong><br>
所有操作不可逆，请慎重操作！！！<br>
不能在同一个栏目内进行操作。<br>
合并后您所指定的栏目所有小说将转移到目标栏目中。</td>
</tr>
</table>
<script language='JavaScript' type='text/JavaScript'>function ConfirmUnite(){ if (document.myform.ClassID.value==document.myform.TargetClassID.value){ alert('请不要在相同栏目内进行操作！'); document.myform.TargetClassID.focus(); return false;}}</script>
<%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">
<td width="5%">ID</td>
<td align="center">分类名称</td>
<td width="60">链接属性</td>
<td width="60">显示状态</td>
<td width="60">打开方式</td>
<td width="60">小说部数</td>
<td width="60">生成相关</td>
<td width="230" align="center">操作选项</td>
</tr><%Dim C_iCount
C_iCount=0
set rs=server.createobject("adodb.recordset")
sql="select * from 分类 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 align="center"><%=rs("编号")%></td>
<td align="center"><%=rs("分类名称")%></td>
<td align="center"><%If rs("链接属性")="00" Then
C_iCount=C_iCount+1%><font color=red>内部栏目</font><%Else%>
<font color=blue>外链栏目</font></font><%End if%></td>
<td align="center"><%If rs("分类状态")=1 Then%><a href='?action=Sd&lbid=<%=rs("编号")%>&G=0'><font color=red title='在前台显示'>锁定</font><%Else%><a href='?action=Sd&lbid=<%=rs("编号")%>&G=1' onclick="return confirm('锁定栏目将把栏目的所有HTML删除！确定要进行此栏目吗？');"><font color=#808080 title='在前台隐藏'>开放</font><%End if%></a></td>
<td align="center"><%If rs("打开方式")=0 Then%><a href='?action=CK&lbid=<%=rs("编号")%>&G=1'><font color=red title='更改为新窗口'>原窗口</font><%Else%><a href='?action=CK&lbid=<%=rs("编号")%>&G=0'><font color=blue title='更改为原窗口'>新窗口</font><%End if%></a>
</td>
<td align="center"><%=Rs("小说数量")%></td>
<td align="center"><%If rs("文件扩展名")<>0 And rs("链接属性")="00" Then%><a href="Admin_Html.asp?lbid=<%=rs("编号")%>&Action=QB&Y=0">生成</a><%Else%>----<%End if%></td>
<td align='center'><%If rs("链接属性")="00" Then%><a href="Admin_Shu.asp?ClassID=<%=rs("编号")%>">全部小说</a> <a href='Admin_Shu.Asp?ClassID=<%=rs("编号")%>&Action=Add'>添加小说</a> <a href='?action=CJ&lbid=<%=rs("编号")%>' onclick="return confirm('重建栏目将把栏目的所有小说删除，不可以恢复！确定要重建此栏目吗？');">重建</a> <a href='?action=QK&lbid=<%=rs("编号")%>' onclick="return confirm('清除HTML将把栏目的所有HTML文件删除，不可以恢复！确定要重建此栏目吗？');">清除HTML</a> <%End if%><a href='?action=edit&lid=<%=rs("编号")%>'>修改</a> <a href='?lbid=<%=rs("编号")%>&Action=Delclass' onclick="return confirm('确定要删除这个栏目吗？会把这个栏目下所以小说都删除！');">删除</a>
</td>
</tr>
<%
rs.MoveNext
loop
If C_iCount<>0 Then
conn.execute "UPDATE [系统设置] SET 栏目数量="&C_iCount&""
End if
end if%>
</table>
<%end sub
sub FY_Class_Add%>
<script language = 'JavaScript'>
function CheckForm(){
if (document.myform.name.value==''){
alert('栏目名称不能为空！');
document.myform.name.focus();
return false;
}
if (document.myform.ename.value==''){
alert('英文简称不能为空！');
document.myform.ename.focus();
return false;
}
if (document.myform.ClassUrl.value==''){
alert('外部链接不能为空！');
document.myform.ClassUrl.focus();
return false;
}
if (document.myform.TXTUrl.value==''){
alert('TXT文件保存目录不能为空！');
document.myform.TXTUrl.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=Add_W&lbid=0" 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="40" value=""></td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -