📄 feedbackmanage.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 Feedback Set state="&Request("state")&" where ID="&Request("ID")&""
		End IF
	ElseIF Request("opr")="del" then
		if Request("ID")<>"" then
			Conn.Execute "delete * from Feedback where 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 keyname,years,months,days,News_Title,newsdate,datestate,replystate,name
	name = ModifyInput(Request("name"))
	replystate = ModifyInput(Request("replystate"))
	datestate = ModifyInput(Request("datestate"))
	keyname = ModifyInput(Request("keyname"))
	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 "
	
	If name <> "" Then	
		Session("WhereString") = Session("WhereString") & " AND name='"& name &"' "
	END If	
	If replystate <> "" Then	
		Session("WhereString") = Session("WhereString") & " AND replystate="& replystate &" "
	END If	
	If keyname <> "" Then	
		Session("WhereString") = Session("WhereString") & " AND title like '%"& keyname &"%' or Content like '%"&keyname&"%' "
	END If	
	If newsdate <> "" Then	
	IF datestate<>"" then
		IF datestate=1 then
			Session("WhereString") = Session("WhereString") & " AND DateDiff('d','"&newsdate&"',CreateTime)=0 "
		Else
			Session("WhereString") = Session("WhereString") & " AND (DateDiff('d','"&newsdate&"',CreateTime)<0 or DateDiff('d','"&newsdate&"',CreateTime)=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 width=6>ID</td>
<td nowrap>姓名</td>
<td width=100>主题</td>
<td width=120>提交时间</td>
<td width=100 >回复状态</td>
<td colspan=2 width=130>操作</td>

    </tr>

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

	Dim strSQL
	strSQL = "SELECT * FROM Feedback "
	
	StrSQL = StrSQL & Session("WhereString")
	
	strSQL = strSQL & " Order by CreateTime desc"	'加上排序条件
	'Response.Write strsql	' 用于测试
	'Response.End 
	'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("ID") %></td>
<td class=list nowrap><%= rs("Name")%></td>
<td class=list><%IF len(rs("title"))>9 then Response.Write left(rs("title"),9)&".." Else Response.Write rs("title")%></td>
<td class=list><%=rs("createtime")%></td>
<td class=list><%If rs("replystate")=1 then Response.Write "已回复" Else Response.Write "<font color=red>未回复</font>"%></td>
<td class=list colspan=2 width=180 nowrap>	
		<%
			If rs("state") = 0 Then
					Response.Write "<a href='FeedbackManage.asp?opr=set&state=1&ID="&rs("ID")&"&WhereItem=True' title='点击信息被开放' onclick='return deleted(""开放信息"",this.href);'><u>[开放]</u></a>"
			Else
					Response.Write "<a href='FeedbackManage.asp?opr=set&state=0&ID="&rs("ID")&"&WhereItem=True' title='点击信息被关闭' onclick='return deleted(""关闭信息"",this.href);'><font color=red><u>[关闭]</u></font></a>"
			End If	
		%>
&nbsp;&nbsp;&nbsp;<a href="Replyfeedback.asp?ID=<%= rs("ID")%>"><u>[查看]</u></a> 
&nbsp;&nbsp;&nbsp;<a href="FeedbackManage.asp?opr=del&ID=<%=rs("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 + -