📄 feedbackall.asp
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<%
Outpub=request.Form("SPutout")
Action=trim(request.QueryString("Action"))
if Action="Setup" then
StrSQL="ALTER TABLE Feedback ALTER COLUMN outpub bit default "&Outpub&""
Conn.execute(StrSQL)
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
<script language="javascript">
function popwindows(id)
{window.open("Feedbackshow.asp?id="+id,"downpin","height=400,width=560,top=5, left=5, resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<%
dim i,intPage,page,pre,last,filepath
set rsp = server.createobject("adodb.recordset")
productsSQL= "select * from Feedback order by id desc "
'rsp.open productsSQL,conn,1,1
rsp.PageSize = 12 '这里设定每页显示的记录数
rsp.CursorLocation = 3
rsp.Open productsSQL,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page)>=rsp.PageCount then
intpage = rsp.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rsp.eof then
rsp.AbsolutePage = intpage
end if
%>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop05.asp"-->
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" style='BORDER-BOTTOM:#666666 1px solid; BORDER-LEFT:#CECFCE 1px solid; BORDER-RIGHT:#CECFCE 1px solid; BORDER-TOP: #666666 0px solid;'>
<tr>
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="26" bgcolor="#F2F2F2" ><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="26" align="center" bgcolor="#F2F2F2" ><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="form1" method="post" action="FeedbackAllSeek.asp">
<td>信息检索：从
<script language=javascript>
var myDate=new dateSelector();
myDate.year--;
myDate.inputName='start_date'; //注意这里设置输入框的name，同一页中日期输入框，不能出现重复的name。
myDate.display();
</script>
到
<script language=javascript>
myDate.year++;
myDate.inputName='end_date'; //注意这里设置输入框的name，同一页中的日期输入框，不能出现重复的name。
myDate.display();
</script>
名称：
<input name="namework" type="text" id="namework" size="10">
<input type="submit" name="Submit2" value="检索" class="btnadd_1">
</td>
</form>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<form name="form3" method="post" action="FeedbackAll.asp?Action=Setup">
<tr>
<td width="64%" bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '><strong>留言信息列表：</strong><a href="FeedbackAll.asp">首页</a> ("<font color="#0000FF"><B>√</B></font>"表示该信息已对外发布；"<font color="#0000FF"><B>×</B></font>"表示该信息已有数据未发布)</td>
<td width="36%" align="right" bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '>设置默认是否审核：
<input name="SPutout" type="radio" value="1">是<input type="radio" name="SPutout" value="0">否
<input name="Ssubmit" type="submit" id="Ssubmit" style=" FONT: 12px;HEIGHT: 18px;WIDTH: 60px;" value=" 更改 "></td>
</tr>
</form>
<tr>
<td colspan="2" bgcolor="#F1F1F1">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form action="Feedback_Del.asp" method="post" name="form2" >
<tr bgcolor="#DEDBDE">
<td width="8%"> 前台显示 </td>
<td width="13%"> 留言者</td>
<td width="32%" bgcolor="#DEDBDE"> 内容主题</td>
<td width="11%"> 是否已回复</td>
<td width="10%"> 日期</td>
<td height="14" colspan="2"> 操作 <input onClick="CheckAll(this.form)" name="All" type="button" value="全选" style=" FONT: 12px;HEIGHT: 18px;WIDTH: 30px;"> <input onClick="CheckOthers(this.form)" name="Others" type="button" value="反选" style=" FONT: 12px;HEIGHT: 18px;WIDTH: 30px;"></td>
</tr>
<%
if rsp.BOF then
response.write "<tr><td colspan='7' width='100%' height='50'' align='center'>无相关内容!</td>"
end if
for i=1 to rsp.PageSize
if rsp.EOF or rsp.BOF then exit for
dim Lpt,Lstr
Lpt=rsp("outpub")
if Lpt=true then
Lstr="<font color='#0000FF'><b>√</b></font>"
else
Lstr="<font color='#0000FF'><b>×</b></font>"
end if
%>
<tr bgcolor="#F2F2F2" onMouseOver = "this.style.backgroundColor = '#EEEEEE'" onMouseOut = "this.style.backgroundColor = ''" style="CURSOR:hand">
<td> <%=Lstr%></td>
<td> <% if rsp("Uid")>0 then response.Write("<font color='#ff9900' >会员</font> ") end if %><%=rsp("linkman")%></td><td> <%=rsp("title")%></td>
<td> <% if rsp("re")<>"NoRe" then response.Write("<font color='#ff9900' >是</font>") else response.Write("<font color='#ff0000' >否</font>") end if %></td><td> <%=rsp("addtime")%></td>
<td width="19%"> <a href="FeedbackUpdate.asp?idd=<%=rsp("id")%>">审核/修改/回复</a> | <a href="javascript:popwindows(<%=rsp("id")%>)">详细</a></td>
<td width="7%"> <input name="selectid" type="checkbox" id="selectid" value="<%=rsp("id")%>"></td>
</tr>
<%
rsp.movenext
next
%>
<tr bgcolor="#F2F2F2" onMouseOver = "this.style.backgroundColor = '#EEEEEE'" onMouseOut = "this.style.backgroundColor = ''" style="CURSOR:hand">
<td height="26" colspan="5"> </td>
<td height="26" colspan="2" align="center"><input name="Submit" type="button" id="Submit" value="删除所选" onClick="javascript:return ConfirmDelFeedback();"></td>
</tr>
</form>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" borderColorLight=#808080 borderColorDark=#ffffff bgcolor="#DEDBDE">
<tr>
<%if rsp.pagecount>0 then%>
<td width="13%" height="23" align="left">当前页<%=intpage%>/<%=rsp.PageCount%> </td>
<%else%>
<td width="15%" height="23" align="left">当前页0/0</td>
<%end if%>
<td width="26%" align="left">|共有<%=rsp.recordcount%>条记录,每页12条记录</td>
<td width="46%" align="right"> <a href="FeedbackAll.asp?page=1">首页</a>|
<%if pre then%>
<a href="FeedbackAll.asp?page=<%=intpage -1%>">上页</a>|
<%end if%>
<%if last then%>
<a href="FeedbackAll.asp?page=<%=intpage +1%>">下页</a>|
<%end if%>
<a href="FeedbackAll.asp?page=<%=rsp.PageCount%>">尾页</a>|转到第
<select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rsp.PageCount
if i = intpage then%>
<option value="FeedbackAll.asp?page=<%=i%>"selected><%=i%></option>
<%else%>
<option value="FeedbackAll.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页</font> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -