📄 editnewslb.asp
字号:
<html>
<head>
<title>管理中心 -晓宇听幽 网站内容管理系统</title>
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<!--#include file="config.asp"-->
<%
'==========================================
'
' 晓宇听幽网站内容管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽网站内容管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
set rs=server.CreateObject("ADODB.RecordSet")
if xoYuStudioAdminDj=2 and request("id")="" then errmsg=errmsg & "＂您没有进入本页面的权限!＂ \n"
if xoYuStudioAdminDj=2 and request("id")<>"" then
rs.open "select * from infotype where id="&request("id"),conn,1,1
TM=rs("typemaster")
if instr("|"&TM&"|","|"&xoYuStudioAdminName&"|")<1 then errmsg=errmsg & "＂您没有进入本页面的权限!＂ \n"
rs.close
end if
if errmsg<>"" then
response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
else
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th width="100%" class="tableHeaderText" colspan=2 height=25>文章编辑管理
</th>
</tr>
<tr>
<td class="forumrow" colspan=2>
<p><B>注意</B>：<BR>①删除分类同时将删除该分类下所有文章！删除分类同时删除下属分类和其中文章！ 操作时请完整填写表单信息。<BR>②如果选择<B>复位所有版面</B>，则所有版面都将作为一级分类（分类），这时您需要重新对各个版面进行归属的基本设置，<B>不要轻易使用该功能</B>，仅在做出了错误的设置而无法复原版面之间的关系和排序的时候使用
</td>
</tr>
<%
sql="select * from Mb where mbtype='1' order by ID"
rs.Open sql,conn,1,1
if rs.EOF then
choose1=choose1&"<option value=""无"">暂无模版可捆绑</option>"
else
MbName=rs("mbname")
while not rs.EOF
choose1=choose1&"<option value="""&rs("id")&""">"&rs("MbName")&"</option>"
rs.MoveNext
wend
rs.close
end if
thistype=thistype & "<a class=xoYuNewsSort href=editnewsLB.asp>文章首页</a>"
if request("id")<>"" then
rs.open "select * from infotype where id="&request("id"),conn,1,1
if not rs.EOF then
tname=rs("tname")
ts=rs("ts")
tj=rs("tj")
TN=split(rs("tname"),"|")
TI=split(rs("ts"), ",")
for i = 0 to ubound(TN)-1
thistype=thistype & ">> <a class=xoYuStudioSort href=editnewsLB.asp?id="&TI(i)&">"&TN(i)&"</a>"
next
else
response.write "<b>错误：</b>此ID号的类别不存在或已被删除!"
response.end
end if
rs.close
end if
%>
<tr>
<td class="forumrow">
<B>文章栏目位置：</B>
<%=thistype%>
</td>
</tr>
</table>
<script language="javascript">
function deltype(id)
{
if (confirm('\n真的要删除该分类目录及其下面的所有分类和文章吗?'))
if (confirm('\n再次确认!!!\n\n\n真的要删除该分类目录及其下面的所有分类和文章吗!?'))
location="info_type_del.asp?sortid=<%=request("id")%>&id="+id
}
function delcx(id)
{window.open("info_del.asp?id="+id,"","width=150,height=20,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
function xoYuStudioMakeHTML(id)
{window.open("info_makeinfo.asp?type=page&id="+id,"","width=150,height=20,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");}
function xoYuStudio() {
for (var i=0;i<document.xoYuStudioH.xoYuStudioID.length;i++) {
var e=document.xoYuStudioH.xoYuStudioID[i];
e.checked=!e.checked;
}
}
</script>
<div align="center">
<b><a href="html_listLB.asp">编辑所有文章</a></b><div>
<table width="95%" cellspacing="1" cellpadding="1" align=center class="tableBorder">
<tr>
<th width="38%" class="tableHeaderText" height=25>栏目名称
</th>
<th width="32%" class="tableHeaderText" height=25>操作
</th>
</tr>
<%
set rs_list=server.CreateObject("ADODB.RecordSet")
if request("id")<>"" then
rs_list.open "select * from infotype where tn="&request("id")&" order by id",conn,1,1
else
rs_list.open "select * from infotype where tj=1 order by id",conn,1,1
end if
if NOT rs_list.EOF then
do while NOT rs_list.EOF
%>
<%
for t=1 to 4
if NOT rs_list.EOF then
TTNN=split(rs_list("tname"),"|")(rs_list("tj")-1)
%>
<tr>
<td height="25" width="38%" class="forumrow">
<% if rs_list("last")="2" then%>
<img src="images/plus.gif" width="15" height="15">
<% else %>
<img src="images/nofollow.gif" width="15" height="15">
<% end if %>
<a href=editnewsLB.asp?id=<%=rs_list("id")%>><%=TTNN%></a> (栏目ID:<%=rs_list("id")%>)
</td>
<td width="62%" align=right class="forumrow">
<p align="center"> <font color="#000066">
<a title="查看本栏目下的文章" href="html_listLB.asp?id=<%=rs_list("id")%>"><U>编辑此类下的文章</U></a></font></td>
</tr>
<%rs_list.MoveNext
end if
next
%>
<%
loop
else
Response.Write "此目录下没有子类别了"
end if
%>
</tr>
</table><BR><BR>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<form name=add method="post" action="info_type_add.asp?id=<%=request("id")%>&tname=<%=tname%>&ts=<%=ts%>&tj=<%=tj%>">
<input type="hidden" name="MaxPerPage" value="<%=MaxPerPageset%>">
<input type="hidden" name="jschalen" value="<%=jschalen%>">
<input type="hidden" name="toplen" value="<%=topchalen%>">
<input type="hidden" name="chalen" value="<%=chalen%>">
<input type="hidden" name="TypePicmore" value="<%=TypePicmore%>">
<input type="hidden" name="topshu" value="<%=topshu%>">
<input type="hidden" name="jsshu" value="<%=jsshu%>">
<input type="hidden" name="newshuset" value="<%=newshuset%>">
<input type="hidden" name="imagevwid" value="<%=imagevwid%>">
<input type="hidden" name="imagevlen" value="<%=imagevlen%>">
<input type="hidden" name="Imagevshu" value="<%=Imagevshu%>">
<input type="hidden" name="imagewid" value="<%=imagewid%>">
<input type="hidden" name="imagelen" value="<%=imagelen%>">
<input type="hidden" name="imageshu" value="<%=imageshu%>">
<td width="100%" class="forumrow"> <b>
当前栏目下添加栏目</b>：名称：<INPUT TYPE="text" size=45 NAME="tname_add">
捆绑模版：<select name="MbName" size="1">
<%if MbName="" then %>
<option value="" selected>暂无模版可被捆绑</option>
<%else%>
<%=choose1%>
<%end if
%>
</select> <select size="1" name="last">
<option selected value="2">单分类页</option>
<option value="1">终端分类页</option>
</select><INPUT value="新建栏目" type='submit'></td>
</form>
</tr>
</table>
<p></p>
<% end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -