📄 admin_class_article.asp
字号:
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="7">
<tr>
<td width="1%" height="12"></td>
<td width="99%" height="12" colspan="2"> </td>
</tr>
<tr>
<td width="1%" height="27"></td>
<td width="98%" bgcolor="#F7F7F7" height="27" style="border: 1 solid #C0C0C0" valign="top">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#000000" bordercolordark="#F7F7F7">
<%
Set Rsc=server.createobject("Adodb.recordset")
Sql="Select ScClassid,XcClassid,ClassName,Classlink,Class_id,Delbz,Class_sx from ArticleClass where ScClassid=0 and Delbz=0 order by class_sx asc"
Rsc.open sql,conn,1,1
%>
<tr height="25">
<td width="49%" background="images/admin_top_bg.jpg"> 栏目名称<span lang="en-us">
-- </span>排序</td>
<td width="26%" background="images/admin_top_bg.jpg"> 链接地址</td>
<td width="25%" background="images/admin_top_bg.jpg"> 操作选项</td>
</tr>
<%do while not rsc.eof %>
<tr height="25" class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<%
response.write "<form action=Admin_Class_Article.asp?zt=UpOrder method=post>"
response.write "<td width='49%'>"
response.write " <img src=images/tree_folder4.gif valign=abvmiddle><a href=Admin_Class_Article.asp?flag=edit&xclass="&rsc(1)&"&classid="&rsc(4)&"><font color=red>"&rsc(2)&"</font></a> "
response.write "<input type=text name=yjsx size=4>"
response.write "</select>"
response.write "<input type=hidden name=Class_ID value="&rsc(4)&"> <input type=submit name=Submit value=修改> 当前排序号为：<font color=red>"&rsc(6)&"</font>"
response.write "</td>"
response.write "</form>"
%>
<td width="26%"> <%=rsc(3)%> </td>
<td width="25%"> <a href="Admin_Class_Article.asp?flag=add&xclass=<%=rsc(1)%>">添加子栏目
</a> | <a href="Admin_Class_Article.asp?flag=edit&xclass=<%=rsc(1)%>&classid=<%=rsc(4)%>"> 修改</a> |
<a href="Admin_Class_Article.asp?zt=del&classid=<%=rsc(4)%>">
删除</a> </td>
</tr>
<%
Set Rscx=server.createobject("Adodb.recordset")
Sql="Select ScClassid,XcClassid,ClassName,Classlink,Class_id,Delbz,class_sx from ArticleClass where ScClassid="&rsc(1)&" and Delbz=0 order by class_sx asc"
Rscx.open sql,conn,1,1
do while not rscx.eof
%>
<tr height="25" class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<%
response.write "<form action=Admin_Class_Article.asp?zt=UpOrder1 method=post>"
response.write "<td width='49%'> <font color=#0000FF>|--</font><img src=images/tree_folder3.gif valign=abvmiddle width=15 height=15>"
response.write " <a href=Admin_Class_Article.asp?flag=edit&xclass="&rscx(1)&"&classid="&rscx(4)&"><font color=#0000FF>"&rscx(2)&"</font></a> "
response.write "<input type=text name=yjsx1 size=4 style='background-color: #F5F7FE'>"
response.write "</select>"
response.write "<input type=hidden name=Class_ID1 value="&rscx(4)&"> <input type=submit name=Submit value=修改> 二级栏目排序号为："&rscx(6)
response.write "</td>"
response.write "</form>"
%>
<td width="26%"> <%=rscx(3)%></td>
<td width="25%"> <a href="Admin_Class_Article.asp?flag=add&xclass=<%=rscx(1)%>">添加子栏目</a> |
<a href="Admin_Class_Article.asp?flag=edit&xclass=<%=rscx(1)%>&classid=<%=rscx(4)%>"> 修改</a> |
<a href="Admin_Class_Article.asp?zt=del&classid=<%=rscx(4)%>">
删除</a></td>
</tr>
<%
Set Rscxx=server.createobject("Adodb.recordset")
Sql="Select ScClassid,XcClassid,ClassName,Classlink,Class_id,Delbz,class_sx from ArticleClass where ScClassid="&rscx(1)&" and Delbz=0 order by class_sx asc"
Rscxx.open sql,conn,1,1
do while not rscxx.eof
%>
<tr height="25" class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<%
response.write "<form action=Admin_Class_Article.asp?zt=UpOrder2 method=post>"
response.write "<td width='49%'> <font color=#008000>|-></font>"
response.write " <a href=Admin_Class_Article.asp?flag=edit&xclass="&rscxx(1)&"&classid="&rscxx(4)&"><font color=#008000>"&rscxx(2)&"</font></a> "
response.write "<input type=text name=yjsx2 size=4 style='background-color: #F5F7FE'>"
response.write "</select>"
response.write "<input type=hidden name=Class_ID2 value="&rscxx(4)&"> <input type=submit name=Submit value=修改> <font color=#008000>三级栏目排序号为："&rscxx(6)&"</font>"
response.write "</td>"
response.write "</form>"
%>
<td width="26%"> <%=rscxx(3)%></td>
<td width="25%">
<a href="Admin_Class_Article.asp?flag=edit&xclass=<%=rscxx(1)%>&classid=<%=rscxx(4)%>"> 修改</a> |
<a href="Admin_Class_Article.asp?zt=del&classid=<%=rscxx(4)%>">
删除</a></td>
</tr>
<%
RsCxx.MoveNext
Loop
RsCxx.Close
%>
<%
RsCx.MoveNext
Loop
RsCx.Close
%>
<%
rsc.movenext
loop
rsc.close
set rsc=nothing
%>
</table>
</div>
</td>
<td width="1%" height="27" style="border: 0 solid #C0C0C0">
</td>
</tr>
<tr>
<td width="1%" height="1"></td>
<td width="1%" height="1" style="border-left: 0 solid #C0C0C0; border-right: 0 solid #C0C0C0; border-bottom: 0 solid #C0C0C0">
</td>
</tr>
<tr>
<td width="1%" height="14"></td>
<td width="98%" height="14"> </td>
<td width="1%" height="14"></td>
</tr>
<tr>
<td width="1%" height="14"></td>
<td width="98%" height="14">
<p align="center"> </td>
<td width="1%" height="14">
</td>
</tr>
</table>
</center>
</div>
<%end if%>
<%
If Flag="add" then
%>
<div align="center">
<center>
<script language="vbscript">
sub chat()
if form1.Classname.value="" then
msgbox "请输入栏目名称！",48,"注意！"
form1.Classname.focus()
exit sub
end if
if len(form1.Classname.value )<2 or len(form1.Classname.value )>12 then
msgbox "栏目名称长度要大于1小于12",48,"注意！"
form1.Classname.focus()
exit sub
end if
form1.submit()
end sub
-->
</script>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="7">
<tr>
<td width="1%" height="12"></td>
<td width="99%" height="12" colspan="2"> </td>
</tr>
<tr>
<td width="1%" height="27"></td>
<td width="98%" height="27" style="border-left: 1 solid #C0C0C0; border-right: 1 solid #C0C0C0; border-top: 1 solid #C0C0C0" background="images/admin_top_bg.jpg">
<p align="center"><b> 添 加 文 章 栏 目</b>
</td>
<td width="1%" height="27" style="border: 0 solid #C0C0C0">
</td>
</tr>
<tr>
<td width="1%" height="27"></td>
<td width="98%" bgcolor="#F7F7F7" height="27" style="border: 1 solid #C0C0C0" valign="top">
<form method="POST" action="Admin_Class_Article.asp?zt=save" name="form1">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#484848" bordercolordark="#E3E3E3" height="227">
<tr>
<td width="40%" height="38"> <strong>所属栏目：</strong><br>
<%
Set Rsclass=server.createobject("Adodb.recordset")
Sql="Select ScClassid,XcClassid,ClassName from ArticleClass where ScClassid=0 and Delbz=0"
Rsclass.open sql,conn,1,1
'response.write rsclass.recordcount
Xclass1=Trim(Request.QueryString("Xclass"))
If Xclass1="" then
Xclass=0
else
Xclass=int(Xclass1)
end if
%>
不能指定为外部栏目</td>
<td width="60%" height="38">
<%If rsclass.recordcount<>0 then%>
<select size="1" name="ClassID">
<option value="0">◎作为一级栏目</option>
<%
Do While not rsclass.eof
%>
<option value="<%=rsclass(1)%>" <%if rsclass(1)=xclass then response.write "selected"%>>◎<%=rsclass(2)%></option>
<%
Set Rsclassx=server.createobject("Adodb.recordset")
Sql="Select ScClassid,XcClassid,ClassName from ArticleClass where ScClassid="&rsclass(1)&" and Delbz=0"
Rsclassx.open sql,conn,1,1
do while not rsclassx.eof
%>
<option value="<%=rsclassx(1)%>" <%if rsclassx(1)=xclass then response.write "selected"%>>☆<%=rsclassx(2)%></option>
<%
Set Rsclassx1=server.createobject("Adodb.recordset")
Sql="Select ScClassid,XcClassid,ClassName from ArticleClass where ScClassid="&rsclassx(1)&" and Delbz=0"
Rsclassx1.open sql,conn,1,1
do while not rsclassx1.eof
%>
<option value="<%=rsclassx1(1)%>" <%if rsclassx1(1)=xclass then response.write "selected"%>> ◇ <%=rsclassx1(2)%></option>
<%
RsClassx1.MoveNext
Loop
RsClassx1.Close
%>
<%
RsClassx.MoveNext
Loop
RsClassx.Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -