📄 admin_mail.asp
字号:
<HTML>
<HEAD>
<!--#include file="Admin_top.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width=210 bgColor=#f3f3f3>
<div align="center">
<!--#include file="Admin_left.asp"-->
</div>
</TD>
<TD width=1 bgColor=#0033CC></TD>
<TD width="1047" valign="top">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE width="98%" height=30 border=0 cellPadding=0 cellSpacing=0 bgcolor="#0033CC">
<TBODY>
<TR>
<TD> <strong><font color="#FFFFFF">邮件反馈信息</font></strong></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<div align="center">
<TABLE width=98% border=1 cellPadding=5 bordercolor="#0033CC" cellspacing=""bgColor=#cdcdcd>
<TBODY>
<TR bgColor=#fafafa>
<TD height=80>
<div align=center>
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<%
Set rs1 = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from Config"
rs1.Open sql,conn,1,1
dim listtype,listtt
listtype=rs1("listtype")
listtt=rs1("listtt")
rs1.close
Set rs1=Nothing
%>
<table border="0" width="100%" id="table4" height="94">
<tr>
<td bgcolor="#F0F0F0" align="center" height="30" colspan="7">
<p align="right">请选择相应的分类:
<select size="1" name="D1" onChange="MM_jumpMenu('parent',this,0)">
<option>请选择</option>
<option value="Admin_Mail.asp?TypeClass=All">所有信息</option>
<%
dim tp
tp="type"+listtype
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from "&tp&""
Rs.Open sql,conn,1,1
If not rs.eof then
Count = rs.recordcount
For i = 1 to count
response.write "<option value='Admin_Mail.asp?TypeClass="&rs("Type_Value")&"'>"&rs("Type_Value")&"</option>"
rs.movenext
Next
End if
rs.close
Set rs=Nothing
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#CDCDCD" align="center" width="5%" height="19">
<b>序号</b></td>
<td bgcolor="#CDCDCD" align="center" height="19">
<b>主题(点击可查看)</b></td>
<td bgcolor="#CDCDCD" align="center" width="15%" height="19">
<b>类型</b></td>
<td bgcolor="#CDCDCD" align="center" width="15%" height="19">
<b>反馈日期</b></td>
<td bgcolor="#CDCDCD" align="center" width="15%" height="19">
<b>IP</b></td>
<td bgcolor="#CDCDCD" align="center" width="5%" height="19">
<b>状态</b></td>
<td bgcolor="#CDCDCD" align="center" height="19" width="5%">
<b>操作</b></td>
</tr>
<%
dim Feedback_Type
Feedback_Type="Feedback"+listtype
TypeClass = Request("TypeClass")
Set rs = Server.CreateObject("ADODB.RecordSet")
If TypeClass = "" or TypeClass = "All" Then
Sql = "select * from Feedback where Feedback_fs = 'mail' order by Feedback_id desc"
Else
Sql = "select * from Feedback where Feedback_fs = 'mail' and "&Feedback_Type&" = '"& TypeClass &"' order by Feedback_id desc"
End If
Rs.Open sql,conn,1,3
If not rs.eof then
If not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
dim ett,emailtt,fdk
ett="Feedback"+listtt
fdk="Feedback"+listtype
Rs.pagesize=15
Rs.AbsolutePage=pagecount
do while not Rs.eof
j=j+1
%>
<tr>
<td bgcolor="#F0F0F0" align="center" height="22"><%=Rs("Feedback_id")%></td>
<td bgcolor="#F0F0F0" align="center" height="22"><a href="Admin_Msg_View.asp?id=<%=Rs("Feedback_id")%>"><u>
<% emailtt=Rs(ett)%> <%if listtt="21" then emailtt=Rs("Title") end if %><% If Len(emailtt)>=10 Then Response.write left(emailtt,10)+"..." Else Response.write emailtt End if%></u></a></td>
<td bgcolor="#F0F0F0" align="center" height="22">
<font color="#FF0000"><%=Rs(fdk)%></font></td>
<td bgcolor="#F0F0F0" align="center" height="22"><%=Rs("Feedback_datetime")%></td>
<td bgcolor="#F0F0F0" align="center" height="22"><%=Rs("Feedback_ip")%></td>
<td bgcolor="#F0F0F0" align="center" height="22"><% Select Case Rs("Feedback_zt")
Case 0
response.write "<font color=#FF0000><b>未读</b></font>"
Case 1
response.write "<b>已读</b>"
End Select%></td>
<td bgcolor="#F0F0F0" align="center" height="22">
<a href="Admin_Action.asp?Action=1&id=<%=Rs("Feedback_id")%><% If Rs("Feedback_zt") = 0 Then Response.write "&zt=w" End if%>">删</a></td>
</tr>
<%
If j>=Rs.pagesize Then exit do
Rs.movenext
loop
Else
%>
<tr>
<td bgcolor="#F0F0F0" align="center" colspan="7" height="23">暂无记录</td>
</tr>
<%
End If
%>
<tr>
<td bgcolor="#E3E3E3" align="center" colspan="6" height="20">
<p>每页显示 <font color="#FF0000"><b><%=Rs.pagesize%></b></font> 条纪录 共有 <font color="#FF0000"><b><%=Rs.recordcount%></b></font> 条纪录 目前在第 <font color="#FF0000"><b><%=CINT(pagecount)%></b></font> 页
<% if pagecount=1 and Rs.pagecount<>pagecount and Rs.pagecount<>0 then%>
<a href="?page=<%=cstr(pagecount+1)%>&TypeClass=<%=TypeClass%>">下一页</a>
<% end if %>
<% if Rs.pagecount>1 and Rs.pagecount=pagecount then %>
<a href="?page=<%=cstr(pagecount-1)%>&TypeClass=<%=TypeClass%>">上一页</a>
<%end if%>
<% if pagecount<>1 and Rs.pagecount<>pagecount then%>
<a href="?page=<%=cstr(pagecount-1)%>&TypeClass=<%=TypeClass%>">上一页</a> <a href="?page=<%=cstr(pagecount+1)%>&TypeClass=<%=TypeClass%>">下一页</a>
<% end if %>
</td>
<td bgcolor="#E3E3E3" align="center" height="20" width="5%">
<font color="#800000"><b>
<a href="Admin_Action.asp?Action=6">
清空</a></b></font></td>
</tr>
</table>
</div>
</TD>
</TR>
<TR bgColor=#fafafa>
<TD bgColor=#f0f0f0 height=24>
<DIV align=center>©2008-2009 CopyRight <strong>IssTech.Co., Ltd</strong> All Rights Reserved</DIV></TD></TR></TBODY></TABLE></div>
<BR></DIV></TD></TR></TBODY></TABLE>
</BODY></HTML>
<%
Rs.close
Set rs = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -