editclass.asp
来自「top-cms内容管理系统」· ASP 代码 · 共 260 行
ASP
260 行
<%
'###########################################################################################
'* 程序名称: 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>:::WWW.NET-DEVELOP.COM:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/style.css">
<script language="JavaScript">
<!--
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(a,b);
a1.className="active";
b1.className="unactive";
}else{
ChangeDisplay(b,a);
a1.className="unactive";
b1.className="active";
}
}
function MM_goToURL(ActionUrl) {
myform.action=ActionUrl;
myform.submit();
}
function CheckForm() {
var errorMsg = "";
if (document.myForm.cName.value==""){
errorMsg += "\n专题名称 \t- 专题名称不能为空";
}
if ((document.myForm.ReUP.checked==true) && (document.myForm.cImg.value=="")){
errorMsg += "\n专题图片 \t- 请选择你要上传的专题图片";
}
if (document.myForm.cFolder.value==""){
errorMsg += "\n保存文件夹 \t- 保存文件夹不能为空";
}
if ((document.myForm.cOption0.value=="") || (isNaN(document.myForm.cOption0.value))){
errorMsg += "\n每页信息数 \t- 每页信息数不能为空且必须为数字";
}
if ((document.myForm.cOption1.value=="") || (isNaN(document.myForm.cOption1.value))){
errorMsg += "\n生成总页数 \t- 生成总页数不能为空且必须为数字";
}
if (errorMsg != ""){
msg = "----------------------------------------------------------\n";
msg += "此信息不能提交.\n";
msg += "请按要求把内容填完再提交.\n";
msg += "----------------------------------------------------------\n\n";
msg += "以下内容要求填写: \n";
alert(msg + errorMsg + "\n");
return false;
}
}
// -->
</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}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Dim cOption(1)
Set objCMS = Server.CreateObject("TopCMS.EditClass")
if objCMS.ChkAdminPower then
cID=objCMS.ChkString(replace(Request("cID")," ",""),"U")
nT=objCMS.ChkString(Request("nT"),"U")
P=objCMS.ChkString(Request("P"),"U")
t=objCMS.ChkString(Request("t"),"U")
X=objCMS.ChkString(Request("X"),"U")
SystemI_Init
objCMS.OpenDB()
If Not objCMS.CheckAdminField("Class") Then
objCMS.OutInfo "对不起，你不具备管理专题的权限", ""
Response.End
End If
if UCase(t)="DEL" and cID<>"" and X="T" then objCMS.DelClass(cID)
If Request.ServerVariables("REQUEST_METHOD")="POST" and X<>"T" Then
objCMS.SaveClass()
else
if nT="" then
%>
<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#999999">
<form name="myform" method="post">
<tr>
<td colspan="2" background="../Images/default_nav.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="88%"><font color="#FFFFFF">专题管理 </font></td>
<td width="12%" align="right"><a href="editclass.asp?nT=ADD"><img src="../images/add.gif" hspace=2 border=0 align="absmiddle" alt="添加新专题"></a><a href="javascript:MM_goToURL('editclass.asp?nT=edit&P=<%=P%>&X=T');"><img src="../images/edit.gif" hspace=2 border=0 alt="编辑所选专题" align="absmiddle"></a><img src="../images/del.gif" hspace=2 border=0 alt="删除所选专题" onClick="if (confirm('你确定要删除所选的专题吗？\n删除后不能恢复！')){MM_goToURL('editclass.asp?t=del&P=<%=P%>&X=T');}" style="cursor:hand;" align="absmiddle">
</td>
</tr>
</table>
</td>
</tr>
<%
dbSql = "SELECT cID,cName,cImg,cComment FROM db_Class Order By cID Desc"
set dbRs=objCMS.MyRs(dbSql,1,1,0)
If dbRs.EOF Then
%>
<tr bgcolor="#EEEEEE">
<td align="center" colspan="2">[目前还没有任何专题]</td>
</tr>
<%
else
objCMS.PagingMain dbRs,16
nPage=objCMS.PNum
Do While not dbRs.eof and nPage>0
if nPage mod 2 =0 then nBGcolor="#EEEEEE" else nBGcolor="#FFFFFF"
cID=Trim(dbRs("cID"))
cName=Trim(dbRs("cName"))
cImg=Trim(dbRs("cImg"))
if cImg="" or isnull(cImg) then cImg="skin/default_class.jpg"
cComment=Trim(dbRs("cComment"))
%>
<tr bgcolor="<%= nBGcolor %>">
<td valign="top" align="center" width="11%"> <a href="classinfo.asp?cID=<%=cID%>"><img src="<%=AbsWebPath & cImg%>" border=0 align="top"></a></td>
<td width="89%" valign="top">
<input type="checkbox" name="cID" value="<%=cID%>">
<a href="classinfo.asp?cID=<%=cID%>"><font color="#FF0000">
<%= cName %></font></a><br>
<font color="#999999"> <%=cComment%></font> </td>
</tr>
<%
dbRs.MoveNext
nPage=nPage-1
Loop
end if
dbRs.close
set dbRs=nothing
%>
</form>
</table>
<div align="right">
<%objCMS.DisplayNavigation("")%>
</div>
<%
else
if UCase(nT)="EDIT" then
if cID="" then
objCMS.OutInfo "请选择你要编辑的专题",""
response.end
elseif instr(cID,",")>0 then
objCMS.OutInfo "一次只能编辑一个专题",""
response.end
end if
objCMS.EditClass(cID)
else
objCMS.cOption0="20"
objCMS.cOption1="1"
end if
%>
<form name="myForm" method="post" action="editclass.asp" enctype="multipart/form-data" onSubmit="return CheckForm();">
<table width="100%" border="1" bordercolor="#999999" cellspacing="0" cellpadding="2" align="center">
<tr>
<td colspan="2" background="../Images/default_nav.gif"><span onClick="MM_Change(1);" id="a1" class="active">专题属性</span>
| <span onClick="MM_Change(2);" id="b1" class="unactive">生成参数</span></td>
</tr>
<tr id="a">
<td width="185" align="right" bgcolor="#EEEEEE">操作模式:</td>
<td bgcolor="#EEEEEE" width="580"> <select name="nT">
<%if UCase(nT)="EDIT" then %>
<option value="EDIT">编辑
<%end if%>
<option value="ADD" <%if UCase(nT)<>"EDIT" then Response.write " selected"%>>添加
</select> </td>
</tr>
<tr id="a">
<td width="185" align="right">专题名称:</td>
<td width="580"> <input type="text" name="cName" maxlength="50" value="<%= objCMS.cName %>">
</td>
</tr>
<tr id="a">
<td align="right" bgcolor="#EEEEEE">套用模板:</td>
<td bgcolor="#EEEEEE"><%objCMS.ListTemplate()%></td>
</tr>
<tr bgcolor="#FFFFFF" id="a">
<td width="185" align="right">专题图片:</td>
<td width="580"> <%if UCase(nT)="EDIT" and objCMS.cImg<>"" and not IsNull(objCMS.cImg) then
text="重新"
%> <img src="<%response.write AbsWebPath & objCMS.cImg%>"> <br>
<%end if%> <input type="checkbox" name="ReUP" value="1" onclick="if (this.checked==true){cImg.className='';}else{cImg.className='hidden';}">
<%=text%>上传
<input type="file" name="cImg" id="cImg" class="hidden"> </td>
</tr>
<tr bgcolor="#EEEEEE" id="a">
<td width="185" align="right">保存文件夹:</td>
<td width="580"> <input type="text" name="cFolder" maxlength="50" value="<%=objCMS.cFolder%>"<%if UCase(nT)="EDIT" then response.write " readonly"%>>
</td>
</tr>
<tr bgcolor="#FFFFFF" id="a">
<td width="185" align="right">专题说明:</td>
<td width="580"> <textarea name="cComment" cols="40" rows="3"><%=objCMS.cComment%></textarea>
</td>
</tr>
<tr id="b" class="hidden" bgcolor="#EEEEEE">
<td align="right">每页显示信息数:</td>
<td> <input type="text" name="cOption0" maxlength="3" value="<%=objCMS.cOption0%>" size="3">
<font color="#666666">（数字）</font></td>
</tr>
<tr id="b" class="hidden" bgcolor="#FFFFFF">
<td width="185" align="right">生成总页数:</td>
<td width="580"> <input type="text" name="cOption1" size="3" value="<%=objCMS.cOption1%>" maxlength="3">
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td align="center" colspan="2"> <input type="hidden" name="cID" value="<%= cID %>">
<input type="hidden" name="P" value="<%= P %>">
<input type="submit" name="S1" value=" 提交 "> <input type="button" name="S2" value=" 取消 " onclick="history.back();">
</td>
</tr>
</table>
</form>
<%
end if
end if
objCMS.CloseDB
else
objCMS.OutInfo "对不起，您还没有登录，请先登录","Login"
end if
set objCMS=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?