📄 admin_class_article.asp
字号:
<%
RsClass.MoveNext
Loop
Rsclass.Close
Set RsClass=Nothing
%>
</select>
<%
else
response.write "作为一级栏目"
%>
<%end if%>
</td>
</tr>
<tr>
<td width="40%" height="37"><strong> 栏目名称：<font color="#FF0000">(*)</font></strong></td>
<td width="60%" height="37"> <input type="text" name="Classname" size="20" style="width: 301; height: 18"></td>
</tr>
<tr>
<td width="40%" height="37"> <strong>栏目<span lang="zh-cn">链接地址</span>：<font color="#FF0000">(*)</font></strong></td>
<td width="60%" height="37"> <input type="text" name="Classlink" size="20" style="width: 301; height: 18"> <span lang="zh-cn">填相对地址</span></td>
</tr>
<tr>
<td width="40%" height="68"> <strong>栏目名称说明：</strong></td>
<td width="60%" height="68"> <textarea rows="3" name="Classnamed" cols="48"></textarea></td>
</tr>
<tr>
<td width="100%" height="37" colspan="2">
<p align="center"><input type="button" value=" 添 加" name="B1" onclick="chat()">
<input type="reset" value=" 取 消" name="B2"></p>
</td>
</tr>
</table>
</div>
</form>
</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="edit" then
Classid_1=Request.QueryString("classid")
Set rs=Server.CreateObject("Adodb.Recordset")
Sql="Select Classname,Classnamed,Classlink from ArticleClass Where class_id="&Classid_1
rs.open sql,conn,1,1
Classname=rs(0)
Classnamed=rs(1)
Classlink=rs(2)
rs.close
set rs=nothing
%>
<div align="center">
<center>
<script language="vbscript">
sub chat()
if form2.Classname.value="" then
msgbox "请输入栏目名称！",48,"注意！"
form2.Classname.focus()
exit sub
end if
if len(form2.Classname.value )<2 or len(form2.Classname.value )>12 then
msgbox "栏目名称长度要大于1小于12",48,"注意！"
form2.Classname.focus()
exit sub
end if
form2.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=edit&classid_1=<%=request.querystring("classid")%>" name="form2">
<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
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
%>
<%
RsClass.MoveNext
Loop
Rsclass.Close
Set RsClass=Nothing
%>
</select>
<%
else
response.write "作为一级栏目"
%>
<%end if%>
</td>
</tr>
<tr>
<td width="40%" height="37"><strong> 栏目名称：<font color="#FF0000">(*)</font></strong></td>
<td width="60%" height="37"> <input type="text" name="Classname" size="20" style="width: 301; height: 18" value="<%=Classname%>"></td>
</tr>
<tr>
<td width="40%" height="37"> <strong>栏目<span lang="zh-cn">链接地址</span>：<font color="#FF0000">(*)</font></strong></td>
<td width="60%" height="37"> <input type="text" name="Classlink" size="20" style="width: 301; height: 18" value="<%=Classlink%>"> </td>
</tr>
<tr>
<td width="40%" height="68"> <strong>栏目名称说明：</strong></td>
<td width="60%" height="68"> <textarea rows="3" name="Classnamed" cols="48"><%=Classnamed%></textarea></td>
</tr>
<tr>
<td width="100%" height="37" colspan="2">
<p align="center">
<input type="button" value=" 修 改" name="B1" onclick="chat()">
<input type="reset" value=" 取 消" name="B2"></p>
</td>
</tr>
</table>
</div>
</form>
</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%>
<%
call conn.close()
%>
</body>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -