classinfo.asp
来自「top-cms内容管理系统」· ASP 代码 · 共 136 行
ASP
136 行
<%
'###########################################################################################
'* 程序名称: 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";
}
}
</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">
<%
Set objCMS = Server.CreateObject("TopCMS.ClassInfo")
if objCMS.ChkAdminPower then
cID=objCMS.ChkString(Request("cID"),"N")
iID=objCMS.ChkString(replace(Request("iID")," ",""),"U")
P=objCMS.ChkString(Request("P"),"U")
t=objCMS.ChkString(Request("t"),"U")
if cID="" then
objCMS.OutInfo "对不起，参数传递错误",""
response.end
end if
SystemI_Init
objCMS.OpenDB()
If Not objCMS.CheckAdminField("Class") Then
objCMS.OutInfo "对不起，你不具备管理专题的权限", ""
response.end
End If
if UCase(t)="DEL" and iID<>"" then objCMS.DelInfo cID,iID
dbSql = "Select c.cName,i.iID,i.iTitle,i.iLink from db_Class c left join db_Information i on i.iClass=c.cID where c.cID=" & CInt(cID)
set dbRs=objCMS.MyRs(dbSql,1,1,0)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
<form name="myform" method="post" action="classinfo.asp?cID=<%=cID%>&t=del&P=<%=P%>">
<tr>
<td width="93%" background="../Images/default_nav.gif"><font color="#FFFFFF">专题信息</font><font color="#F5F5F5">（专题名称：<%=dbRs("cName")%>）</font> </td>
<td width="7%" align="center" background="../Images/default_nav.gif"><img src="../images/del.gif" hspace=2 border=0 alt="删除所选专题信息" onclick="if (confirm('你确定要删除所选的专题信息吗？')){myform.submit();}" style="cursor:hand;" align="absmiddle"></td>
</tr>
<%
If dbRs.EOF or IsNull(dbRs("iID")) 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"
iID=Trim(dbRs("iID"))
iLink=Trim(dbRs("iLink"))
iTitle=Trim(dbRs("iTitle"))
%>
<tr bgcolor="<%= nBGcolor %>">
<td colspan="2">
<input type="checkbox" name="iID" value="<%=iID%>">
<a href="<%=AbsWebPath & iLink%>" target="_blank"><%= iTitle %></a>
</td>
</tr>
<%
dbRs.MoveNext
nPage=nPage-1
Loop
end if
dbRs.close
set dbRs=nothing
%>
<tr>
<td colspan="2" height="1" bgcolor="#CCCCCC"></td>
</tr>
</form>
</table>
<div align="right">
<%objCMS.DisplayNavigation("cID=" & cID & "&")%>
</div>
<%
objCMS.CloseDB
else
objCMS.OutInfo "对不起，您还没有登录，请先登录","Login"
end if
set objCMS=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?