📄 classattribute.asp
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P070103") then Call ReturnError()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回收站-栏目属性</title>
</head>
<link href="../../../CSS/ModeWindow.css" rel="stylesheet">
<body topmargin="0" leftmargin="4">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
dim ClassID,ClassSql,RsClassObj
ClassID = Request("ID")
if ClassID <> "" then
ClassSql = "Select * from FS_NewsClass where ClassID='" & ClassID & "'"
Set RsClassObj = Conn.Execute(ClassSql)
if Not RsClassObj.Eof then
%>
<tr>
<td height="20" colspan="2"></td>
</tr>
<tr>
<td width="28%" rowspan="3"><div align="center"><img src="../../Images/Info.gif" width="34" height="33"></div></td>
<td width="72%" height="22">栏目名称：
<% = RsClassObj("ClassCName") %></td>
</tr>
<tr>
<td height="22">父栏目：
<%
If RsClassObj("ParentID")=0 then
Response.Write("根目录")
else
Dim RsTemp,TempSql
TempSql="Select ClassCName From FS_NewsClass Where ClassID='"&RsClassObj("ParentID")&"'"
Set RsTemp = Conn.Execute(TempSql)
response.write(RsTemp("ClassCName"))
Set RsTemp = Nothing
end if
%></td>
</tr>
<tr>
<td height="22">模板名称：
<% =RsClassObj("ClassTemp") %></td>
</tr>
<tr>
<td height="13" colspan="2"></td>
</tr>
<tr>
<td height="22" colspan="2"> 添加时间：
<% = RsClassObj("AddTime") %></td>
</tr>
<tr>
<td height="22" colspan="2"> 删除时间：
<% = RsClassObj("DelTime") %></td>
</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td height="22" colspan="2"> 新 闻 数：
<%
Set RsTemp = Conn.Execute("Select Count(*) from FS_News where ClassID ='"& RsClassObj("ClassID")&"'")
Response.Write(RsTemp(0))
Set RsTemp = Nothing
%>
</td>
</tr>
<tr>
<td height="22" colspan="2"> 子栏目数： <% = RsClassObj("ChildNum") %></td>
</tr>
<tr>
<td height="22" colspan="2"> 是否允许投稿：
<%
dim Flag
Flag="否"
if RsClassObj("Contribution") = 1 then Flag = "是"
Response.Write(Flag)
%>
</td>
</tr>
<%
else
%>
<tr>
<td height="21" colspan="3"><div align="center">Nothing</div></td>
</tr>
<%
end if
else
%>
<tr>
<td height="50" colspan="3"><div align="center"></div></td>
</tr>
<%
end if
%>
<tr>
<td height="40" colspan="2"></td>
</tr>
<tr>
<td height="30" colspan="3"><div align="center">
<input name="Submitasd" onClick="window.close();" type="button" id="Submitasd" value=" 关 闭 ">
</div></td>
</tr>
</table>
</div>
</body>
</html>
<%
Set RsClassObj = Nothing
Set Conn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -