📄 newsmanage.asp

📁 ASP编写的一个公司网站的源程序
💻 ASP
字号:
<%@ Language=VBScript %>

<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#Include virtual="/include/PageNavigator.asp"-->


<html>
<head>
<title><%=Application("Site_Name")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content=" ">
<link rel="stylesheet" href="../Css/Css.css" type="text/css">

<script language="Javascript" src="/JS/CheckInput.js"></script>
<script language="javascript">
<!--
function deleted(DoType,url) {
var Content=DoType;
var truthBeTold =window.confirm("你确定要"+Content+"?");
if (truthBeTold) {
window.location = ( url )
} 
else
{
	return false;
}
}
-->
</script>
</head>
<body>

<!--#include file="Menu.asp"-->

<%
If Request("opr")<>"" then
	If Request("opr")="set" then
		If Request("state")<>"" and Request("ID")<>"" then
			Conn.Execute "Update News Set state="&Request("state")&" where News_ID="&Request("ID")&""
		End IF
	ElseIF Request("opr")="del" then
		if Request("ID")<>"" then
			Conn.Execute "delete * from News where News_ID="&Request("ID")&""
		End IF	
	End IF	
End IF
'----查询条件Start----------------------------
Dim SearchItem
If UCASE(Trim(Request("WhereItem"))) = "TRUE" then	'保留 Session("WhereString")的值
	
Else	'不保留 Session("WhereString") 的值
	Dim key,years,months,days,News_Title,newsdate,state
	key = ModifyInput(Request("key"))
	News_Title = ModifyInput(Request("News_Title"))
	years = ModifyInput(trim(Request("years")))
	months = ModifyInput(trim(Request("months")))
	days = ModifyInput(trim(Request("days")))
	newsdate = years & "-" & months & "-" & days
	
	state = ModifyInput(trim(Request("state")))
	
	Session("WhereString") = " WHERE 1=1 and CatID="&Session("CatID")&" "

	If News_Title <> "" Then	
		Session("WhereString") = Session("WhereString") & " AND News_Title='"& News_Title &"' "
	END If	
	If key <> "" Then	
		Session("WhereString") = Session("WhereString") & " AND News_Title like '%"& key &"%' or News_Content like '%"&key&"%' "
	END If	
	If newsdate <> "" Then	
	IF state<>"" then
		IF state=1 then
			Session("WhereString") = Session("WhereString") & " AND DateDiff('d','"&newsdate&"',News_Pubdate)=0 "
		Else
			Session("WhereString") = Session("WhereString") & " AND (DateDiff('d','"&newsdate&"',News_Pubdate)<0 or DateDiff('d','"&newsdate&"',News_Pubdate)=0) "
		End IF
	End IF	
	END If

	
End If
%>
<!--------Center Start ----------------->

<!--列出Users-->
<!--注意事项-->

<!-- 以下代码由程序自动生成 -->
<form method="POST" name="frmUsersList" action="DeleteNews.asp" ID="Form1">
	<table border=0 cellspacing=1 cellpadding=2  class=list width=98% ID="Table1">
	<tr class=header>
<td>自动ID</td>
<td>标题</td>
<td>来源</td>
<td colspan=2>操作</td>

    </tr>

<%
	'Dim WOA
	'Set WOA = Server.CreateObject("Com.Char")

	Dim strSQL
	strSQL = "SELECT * FROM news "
	
	StrSQL = StrSQL & Session("WhereString")
	
	strSQL = strSQL & " Order by orderline asc,Createtime desc"	'加上排序条件
	'Response.Write strsql	' 用于测试
	'On Error Resume Next
	
	'打开数据链接
	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open strSQL, Conn, adOpenKeyset ,adLockReadOnly 
	
	' 如果没有数据，则结束网页
	If rs.EOF Then
		Response.Write "<Font Color=Red>没有找到记录！</Font><br>"
		Response.Write "<input type=""button"" name=""btnAdd"" value=""添加"" onclick=""window.location.href='AddNews.asp'"">"
		Response.End 
	End If
	
	' 否则初始化页
	Call InitRS( rs, 15 )	' 默认每页 20 行
	
	Dim i
	For i = 1 To PageSize
%>
    <tr>
      <td class=list><%= rs("News_ID") %></td>
<td class=list><%= rs("News_Title")%></td>
<td class=list><%=rs("News_Source")%></td>
<td class=list colspan=2 width=180 nowrap>	<%
			If rs("state") = 0 Then
					Response.Write "<a href='NewsManage.asp?opr=set&state=1&ID="&rs("News_ID")&"&WhereItem=True' title='点击信息被开放' onclick='return deleted(""开放信息"",this.href);'><u>[开放]</u></a>"
				Else
					Response.Write "<a href='NewsManage.asp?opr=set&state=0&ID="&rs("News_ID")&"&WhereItem=True' title='点击信息被关闭' onclick='return deleted(""关闭信息"",this.href);'><font color=red><u>[关闭]</u></font></a>"
				End If	
				 %>
				 &nbsp;&nbsp;&nbsp;<a href="EditNews.asp?News_ID=<%= rs("News_ID")%>"><u>[修改]</u></a> 
				 &nbsp;&nbsp;&nbsp;<a href="NewsManage.asp?opr=del&ID=<%=rs("News_ID")%>&WhereItem=True" title='点击信息被删除' onclick="return deleted('删除信息',this.href);"><u>[删除]</u></a> 
</td>

    </tr>
<%
		rs.MoveNext 
		
		If rs.EOF Then Exit For
	Next
	
	rs.Close
	Set rs = Nothing

	'关闭数据链接
%>
  </table>

<table width="98%" border="0" cellspacing="0" cellpadding="0" ID="Table2">
  <tr>
    <td width="50%">
	<!--<input type="button" name="btnAdd" value="添加" onclick="window.location.href='AddNews.asp'">-->
    </td>
    <td width="50%" align=right>
<% 'Call ShowPageNavigator( Request.ServerVariables("SCRIPT_NAME") & "?WhereItem=True&OrderItem=" & Trim(Request.QueryString("OrderItem")) & "&SortItem=" & Trim(Request.QueryString("SortItem")) , 1 ) %>
</td>
  </tr>
</table>

</form>
<!-- 代码结束 -->
<!------------------------->
<!--#include virtual="/Include/DBClose.asp"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -