📄 newsall.asp
字号:
<!--#include file="Check_Login.asp"-->
<!--#include file="Conn.asp"-->
<%
Sub ListSubPower(id)
'打开隶属于上层 powerid 的所有子层数据信息
set rs_sub=Server.CreateObject("ADODB.Recordset")
rs_sub.Open "select * from newtree where Pid=" &id& " order by id",conn,1,3
'列子层数据
do while not rs_sub.eof
'层次数表态变量递进累加
format_i=format_i+1
'循环缩进格式控制，因为顶层与二层不需要缩进，所以从第三层开始引用此程序段
for i=format_i to 2 step -1
response.write " ┈"
next
'打印子层数据信息
response.write "├"
response.write ""&rs_sub("content")&" ┈<a href='NewsAll.asp?SelfID="&rs_sub("id")&"&Mname="&rs_sub("content")&"&Operation=IDOIT'>修改</a> ┈<a href='javascript:ConfirmDelTree("&rs_sub("id")&")'>删除</a>"
response.write "<br>"
'递归调用子程序本身，对子层数据进行逐渐处理
ListSubPower(rs_sub("id"))
rs_sub.movenext
format_i=format_i-1
loop
'层次数表态变量递退累减
'关闭子层数据集
rs_sub.close
set rs_sub=nothing
End Sub
'===================================
'树目录结构完成
'=========================================
%>
<%
Operation=trim(Request.QueryString("Operation"))
select case Operation
%>
<%
case "addfirst"
'===================================
'添加一级目录newsoption=addfirst
'===================================
ComName=trim(request.Form("NameClass"))
set rsw=Server.CreateObject("Adodb.Recordset")
sqlw="Select id,content From newtree where (id is null)"
rsw.open sqlw,conn,1,3
rsw.addnew
rsw("content")=ComName
rsw.update
rsw.close
set rsw=nothing
'response.Redirect"NewsAll.asp"
case "IDOUpdate"
'===================================
'修改一级目录newsoption=addfirst
'===================================
ComName=trim(request.Form("NameClass2"))
ID=trim(request.Form("VID"))
set rsm=Server.CreateObject("Adodb.Recordset")
sqlm="Select id,content From newtree where ID="&ID&""
rsm.open sqlm,conn,1,3
rsm("content")=ComName
rsm.update
rsm.close
set rsm=nothing
'response.Redirect"NewsAll.asp"
case "IDELLIT"
'================================
'删除目录
'================================
ID=trim(Request.QueryString("DELID"))
set rsm=Server.CreateObject("Adodb.Recordset")
sqlm="Select id,Pid,content From newtree where ID="&ID&""
rsm.open sqlm,conn,1,3
if not rsm.eof then
PID=rsm("ID")
set rss=Server.CreateObject("adodb.recordset")
rss.source="select * from newtree where Pid="&PID '找二级目录
rss.open rss.source,conn,1,1
if not rss.eof then
while not rss.eof
conn.execute("Delete From newtree where Pid="&PID&"") '删二级目录
rss.movenext
wend
end if
rss.Close
set rss=nothing
conn.execute("Delete From newtree where id="&ID&"") '删一级目录
conn.execute("Delete From news where TreeID like '%"&ID&"%'") '删一级目录下的新闻
rsm.Close
set rsm=nothing
end if
'response.Redirect"NewsAll.asp"
case "adder"
'=================================
'添加二级目录
'=====================================
ComName=trim(request.Form("NameClass2"))
ID=trim(request.Form("DID"))
set rsm=Server.CreateObject("Adodb.Recordset")
sqlm="Select id,content,Pid From newtree where (id is null)"
rsm.open sqlm,conn,1,3
rsm.addnew
rsm("content")=ComName
rsm("Pid")=ID
rsm.update
rsm.close
set rsm=nothing
'response.Redirect"NewsAll.asp"
%>
<% end select %>
<HTML>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop04.asp"-->
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" style='BORDER-BOTTOM:#666666 1px solid; BORDER-LEFT:#CECFCE 1px solid; BORDER-RIGHT:#CECFCE 1px solid; BORDER-TOP: #666666 0px solid;'>
<tr>
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="20" bgcolor="#F2F2F2" ><p> </p></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '><strong> 栏目结构：</strong><a href="NewsAll.asp">首页</a> <a href="NewsAll.asp?Operation=addfirst2"><b>添加一级目录</b></a> </td>
</tr>
<tr>
<td height="57" valign="top" bgcolor="#F1F1F1">
<% newsoption=trim(request.QueryString("Operation"))
if newsoption="addSub" then
SelfID=trim(request.QueryString("SelfID")) %>
<table width="100%" border="0" bgcolor="#CCCCCC">
<tr>
<form name="formaddnew" method="post" onSubmit="return checkdataB()" action="NewsAll.asp?Operation=adder" >
<td width="18%"> 添加二级栏目：</td>
<td width="21%">
<input name="NameClass2" type="text" style='BORDER-TOP-WIDTH:1px;BORDER-LEFT-WIDTH:1px;FONT-SIZE:9pt;BORDER-BOTTOM-WIDTH:2px;FONT-FAMILY:"宋体";BORDER-RIGHT-WIDTH:2px'>
<input name="DID" type="hidden" value="<%=SelfID%>">
</td>
<td width="61%"><input type="submit" name="Submit" value="提 交" class="btnadd_1"></td>
</form>
</tr>
</table>
<% end if
newsoption=trim(request.QueryString("Operation"))
if newsoption="addfirst2" then %>
<table width="100%" border="0" bgcolor="#CCCCCC">
<tr>
<form name="formaddnew" method="post" onSubmit="return checkdataA()" action="NewsAll.asp?Operation=addfirst" >
<td width="18%"> 添加一级栏目：</td>
<td width="21%">
<input name="NameClass" type="text" style='BORDER-TOP-WIDTH:1px;BORDER-LEFT-WIDTH:1px;FONT-SIZE:9pt;BORDER-BOTTOM-WIDTH:2px;FONT-FAMILY:"宋体";BORDER-RIGHT-WIDTH:2px'>
</td>
<td width="61%"><input type="submit" name="Submit" value="提 交" class="btnadd_1"></td>
</form>
</tr>
</table>
<% end if
newsoptionM=trim(request.QueryString("Operation"))
if newsoptionM="IDOIT" then
SelfID=trim(request.QueryString("SelfID"))
Mname=trim(request.QueryString("Mname")) %>
<table width="100%" border="0" bgcolor="#CCCCCC">
<tr>
<form name="formaddnew" method="post" onSubmit="return checkdataB()" action="NewsAll.asp?Operation=IDOUpdate&ID="&SelfID&"" >
<td width="18%"> 修改栏目：</td>
<td width="21%">
<input name="NameClass2" type="text" style='BORDER-TOP-WIDTH:1px;BORDER-LEFT-WIDTH:1px;FONT-SIZE:9pt;BORDER-BOTTOM-WIDTH:2px;FONT-FAMILY:"宋体";BORDER-RIGHT-WIDTH:2px' value="<%=Mname%>">
<input name="VID" type="hidden" value="<%=SelfID%>">
</td>
<td width="61%"><input type="submit" name="Submit" value="提 交" class="btnadd_1"></td>
</form>
</tr>
</table>
<% end if %>
<table width="98%" border="0" align="center">
<tr>
<td valign="top">
<table width="100%" border="0" bgcolor="#CCCCCC">
<tr>
<td> 新闻模块默认支持二级目录分类，请自行设好栏目。</td>
</tr>
</table><hr size="1">
<%
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from newtree where Pid=0 order by id",conn,1,3
if rs.EOF then
response.write "<tr><td colspan='7' width='100%' height='50'' align='center'>无相关内容!</td>"
end if
'层次数表态变量赋初值
format_i=1
'列表主程序段
do while not rs.eof
'打印父层数据信息
response.write "┣ "&rs("content")&" ┈<a href='NewsAll.asp?SelfID="&rs("id")&"&Mname="&rs("content")&"&Operation=IDOIT'>修改</a> ┈<a href='javascript:ConfirmDelTree("&rs("id")&")'>删除</a> ┈<a href='NewsAll.asp?SelfID="&rs("id")&"&Operation=addSub'>添加二级目录</a>"
response.write "<br>"
Call ListSubPower(rs("id"))
rs.movenext
loop
'关闭父层数据集
rs.close
set rs=nothing
%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -