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

📄 speciallb.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<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"-->

<table width="98%" 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>①删除分类同时将删除该分类下所有文章！删除分类同时删除下属分类和其中文章！ 操作时请完整填写表单信息。</td>
</tr>
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from Mb where mbtype='3' 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=xoYuStudioSort href=SpecialLB.asp>专题首页</a>"
if request("id")<>"" then
  rs.open "select * from Specialx where id="&request("id"),conn,1,1
    if not rs.EOF then
    sname=rs("sname")
    ts=rs("ts")
    tj=rs("tj")
        TN=split(rs("sname"),"|")
        TI=split(rs("ts"), ",")
          for i = 0 to ubound(TN)-1
            thistype=thistype & ">> <a class=xoYuStudioSort href=SpecialLB.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="special_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>
<table width="98%" cellspacing="1" cellpadding="1" align=center class="tableBorder">
<tr> 
<th width="29%" class="tableHeaderText" height=25>专题名称
</th>
<th width="41%" class="tableHeaderText" height=25>操作
</th>
</tr>
<%
set rs_list=server.CreateObject("ADODB.RecordSet")
if request("id")<>"" then
rs_list.open "select * from Specialx where tn="&request("id")&" order by id",conn,1,1
else
rs_list.open "select * from Specialx 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 rs_list.recordcount
if NOT rs_list.EOF then
TTNN=split(rs_list("sname"),"|")(rs_list("tj")-1) %>
<tr>
<td height="25" width="29%"  class="forumrow">
<img src="images/plus.gif" width="15" height="15"><a href=specialLB.asp?id=<%=rs_list("id")%>><%=TTNN%></a>(专题ID:<%=rs_list("id")%>)
</td>
<td width="71%" align=right class="forumrow"><a href='javascript:deltype(<%=rs_list("id")%>)' title="删除专题"><font color="#000066"><U>删除专题</U></font></a>|<a href="special_type_edit.asp?id=<%=rs_list("id")%>" title="修改专题"><font color="#000066"><U>修改专题</U></font></a>|<a href="Special_makeListall.asp?type=all&ts=<%=ts%><%=rs_list("id")%>," title="生成当前专题及其以下所有专题栏目的HTM页"><font color="#000066"><U>生成文件</U></font></a>|<a href="../Special/List_<%=rs_list("id")%>_1.Html" title="查看专题文章列表页" target="_blank"><font color="#000066"><U>查看文件</U></font></a>|<a href="Special_makeListjs.asp?sid=<%=rs_list("id")%>" title="生成本专题最新文章js代码"><font color="#000066"><U>刷新JS</U></font></a>|<a href="Special_List.asp?id=<%=rs_list("id")%>" title="查看本专题下的文章"><font color="#000066"><U>查看文章</U></font></a>|<a href="html_add.asp?spid=<%=rs_list("id")%>" title="在本专题下添加文章"><font color="#000066"><U>添加文章</U></font></a>&nbsp;</td>
</tr>
<%rs_list.MoveNext                          
end if
next
%>        
<%          
loop          
else          
Response.Write "此专题下没有子类别了"          
end if          
%>          
</tr>
</table><BR>
<table width="98%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr>
    <form name=add method="post" action="special_type_add.asp?id=<%=request("id")%>&sname=<%=sname%>&ts=<%=ts%>&tj=<%=tj%>">
    <input type="hidden" name="chalen" value="<%=chalen%>">
    <input type="hidden" name="TypePicmore" value="<%=TypePicmore%>">
    <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 class="forumrow">
                          <p align="center"><b> 
    名称：<INPUT TYPE="text" size=19 NAME="sname_add">
    捆绑模版：<select name="MbName" size="1">
                        <%if MbName="" then %>
                        <option value="" selected>暂无模版可被捆绑</option>
                        <%else%>
12

⌨️ 快捷键说明

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