📄 newsattribute.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()
Dim RsNewsObj,NewsSql,NewsID
NewsID = Request("ID")
%>
<!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="14">
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
if NewsID <> "" then
NewsSql = "Select * from FS_News where NewsID='" & NewsID & "'"
Set RsNewsObj = Conn.Execute(NewsSql)
if Not RsNewsObj.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="27">新闻标题：
<% = RsNewsObj("Title") %></td>
</tr>
<tr>
<td height="28">副 标 题：
<% = RsNewsObj("SubTitle") %></td>
</tr>
<tr>
<td height="27">新闻类型：
<%
Dim NewsType
NewsType="文字新闻"
if RsNewsObj("HeadNewsTF") = 1 then NewsType="标题新闻"
if RsNewsObj("PicNewsTF") = 1 then NewsType="图片新闻"
Response.Write(NewsType)
%></td>
</tr>
<tr><td height="27" colspan="2"></td>
<tr>
<td height="27" colspan="2" > 所属栏目：
<%
Dim RsTemp
Set RsTemp = Conn.Execute("Select ClassCName From FS_NewsClass Where ClassID= '"&RsNewsObj("ClassID")&"'")
Response.Write(RsTemp("ClassCName"))
%>
</td>
</tr>
<tr height="2">
<td height="25" colspan="2"> 添加日期： <% = RsNewsObj("AddDate") %></td>
</tr>
<tr>
<td height="28" colspan="2"> 删除日期: <% = RsNewsObj("DelTime") %></td>
</tr>
<tr>
<td height="30" colspan="2"> </td>
</tr>
<%
else
%>
<tr>
<td colspan="3"> <div align="center">新闻不存在</div></td>
</tr>
<%
end if
else
%>
<tr>
<td colspan="3"> <div align="center">参数传递错误</div></td>
</tr>
<%
end if
%>
<tr>
<td height="50" colspan="3"> <div align="center">
<input name="Submitasd" onClick="window.close();" type="button" id="Submitasd" value=" 关 闭 ">
</div></td>
</tr>
</table>
</div>
</body>
</html>
<%
Set RsTemp = Nothing
Set RsNewsObj = Nothing
Set Conn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -