category.asp
来自「top-cms内容管理系统」· ASP 代码 · 共 396 行 · 第 1/2 页
ASP
396 行
<%
'###########################################################################################
'* 程序名称: Top-CMS
'*---------------------------------------------------------------------------------------
'* 系统版本: 1.0 0215
'* 版权所有: www.Net-Develop.com
'* 程序设计: 江南行客
'* 联系方式:
'* OICQ：2503086
'* EMAIL：net-oa@sohu.com
'* 网站地址:
'* http://www.net-develop.com
'* http://www.top-cms.com
'*---------------------------------------------------------------------------------------
'* Copyright 2004 www.net-develop.com - All Rights Reserved.
'###########################################################################################
%>
<!--#include file="../common/common.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/style.css">
<script language="JavaScript">
var vT;
vT="cat";
function MM_Change2(selObj){
if (selObj.options[selObj.selectedIndex].value=="CAT"){
vT="cat";
cat1.className="";
sub1.className="hidden";
}else{
vT="sub"
cat1.className="hidden";
sub1.className="";
}
}
function ChangeDisplay(V,H){
var aChildren = eval(H);
for(i=0; i < aChildren.length; i++) {
aChildren[i].className = "hidden"
}
var aChildren1 = eval(V);
for(i=0; i < aChildren1.length; i++) {
aChildren1[i].className = "";
}
}
function MM_Change(selObj){
if (selObj==1){
ChangeDisplay(sub,s2);
ChangeDisplay(cat,s1);
a1.className="active";
b1.className="unactive";
}else{
ChangeDisplay(s2,sub);
ChangeDisplay(s1,cat);
a1.className="unactive";
b1.className="active";
}
}
function MM_TempValue(from,to) {
var tempValue;
tempValue="";
for (var i=0; i<from.options.length; i++) {
var o = from.options[i];
if (o.selected) {
tempValue=tempValue + o.value + ",";
}
}
to.value=tempValue;
}
function vSet(v){
var vv;
var vvv;
vv="";
vvv=parseInt(form1.vNum.value);
vvv=vvv+parseInt(v);
if (vvv<0){vvv=0;}
form1.vNum.value=vvv;
for (var i=1; i<=vvv; i++) {
vv+='变量名称:<input type="text" name="v' + i + '" size="15" maxlength="50" class="o"> ';
vv+='输入形式:<select name="in'+i+'" ><option value="0">单行文本框<option value="1">多行文本框</option></select><br>';
}
if (vv!=""){vv+='<font color="#666666">(注：变量名与模板配合使用，否则无效，建议使用中文，不能为空)</font>';}
vName.innerHTML=vv;
}
</script>
<style type="text/css">
<!--
.active { font-weight: bold;cursor:default;color:#F5F5F5;}
.unactive { color: #dddddd; text-decoration: underline;cursor:hand;}
.uuu{position:relative; width:100%; height:expression(body.offsetHeight-t1.offsetHeight-2); z-index:1; left: 0px; top: 0px; overflow-x:hidden;overflow-y:scroll;}
.uuuu{position:relative; width:100%; height:expression(body.offsetHeight-t1.offsetHeight-2); z-index:1; left: 0px; top: 0px; scroll:no}
.o {
border: 1px solid #999999;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set objCMS = Server.CreateObject("TopCMS.Category")
if objCMS.ChkAdminPower then
SystemI_Init
objCMS.OpenDB()
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
objCMS.SaveCategory()
else
cID=objCMS.ChkString(Request.Querystring("cID"),"N")
t=objCMS.ChkString(Request.Querystring("t"),"U")
objCMS.EditCategory t,cID
%>
<form name="form1" method="post" action="" enctype="multipart/form-data">
<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#999999">
<tr>
<td colspan="2" background="../Images/default_nav.gif">
<%if objCMS.L="0" then%>
<font color="#FFFFFF">首页属性</font>
<%else%>
<span onClick="MM_Change(1);" id="a1" class="active">栏目属性</span>
| <span onClick="MM_Change(2);" id="b1" class="unactive">生成参数</span></td>
<%end if%>
</tr>
<tr>
<td width="200" align="right" bgcolor="#EEEEEE">当前类别:</td>
<td bgcolor="#EEEEEE">
<%if t<>"add" then response.write objCMS.cName else response.write objCMS.scName%>
</td>
</tr>
<%if t="add" then %>
<tr>
<td width="200" align="right"><font color="#FF0000">添加下级:</font></td>
<td>
<select name="AddType" style="background-color:#EEEEEE" onChange="MM_Change2(this);">
<option value="CAT">栏目</option>
<%if Len(objCMS.L)>1 then
response.write "<option value=""SUB"">类别</option>"
end if
%>
</select>
</td>
</tr>
<%end if%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="sub1" class="hidden">
<tr>
<td>
<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#999999">
<tr id="sub">
<td width="200" align="right" bgcolor="#EEEEEE">所属栏目:</td>
<td bgcolor="#EEEEEE"> <span disabled>[<%=objCMS.scName%>]</span> <input type="hidden" name="subcID" value="<%= objCMS.subcID %>">
</td>
</tr>
<tr id="sub">
<td width="200" align="right" height="23">类别页套用模板:</td>
<td height="23"> <%objCMS.SubTemplate()%> </td>
</tr>
<tr id="sub">
<td width="200" align="right" bgcolor="#EEEEEE">类别信息套用模板:</td>
<td bgcolor="#EEEEEE"> <%objCMS.ShtmlTemplate()%> </td>
</tr>
<tr id="sub">
<td width="200" align="right">类别名称:</td>
<td> <input type="text" name="sName" size="15" maxlength="100"> </td>
</tr>
<tr id="sub">
<td align="right" bgcolor="#EEEEEE">类别图:</td>
<td bgcolor="#EEEEEE"> <input type="file" name="sImg"> </td>
</tr>
<tr id="sub">
<td width="200" align="right">保存文件夹:</td>
<td> <input type="text" name="sFolder" size="15" maxlength="50">
</td>
</tr>
<tr id="sub" bgcolor="#EEEEEE">
<td width="200" align="right"><strong><em>自定义变量</em></strong>:</td>
<td> 变量总数: <a href="javascript:vSet(-1);"><img src="../IMAGES/leftArrow.gif" alt="减少变量数" width="7" height="12" border="0" align="absmiddle"></a>
<input name="vNum" type="text" class="o" value="0" size="2" maxlength="2" readonly>
<a href="javascript:vSet(1);"><img src="../IMAGES/rightArrow.gif" alt="增加变量数" width="8" height="12" border="0" align="absmiddle"></a>
<br>
<span id="vName"></span>
</td>
</tr>
<tr id="s2" class="hidden">
<td align="right" bgcolor="#EEEEEE"><font color="#0000FF">该类页面信息生成</font></td>
<td bgcolor="#EEEEEE"><font color="#666666">生成页数
<input type="text" name="sOption0" size="2" maxlength="2" value="5">
（填数字）</font> <font color="#666666"><br>
每页显示
<input type="text" name="sOption1" size="2" maxlength="2" value="20">
（填数字）</font> <font color="#666666"><br>
标题长度
<input type="text" name="sOption2" size="2" maxlength="2" value="20">
（填数字）</font> <font color="#666666"> </font><font color="#666666"> </font></td>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?