📄 admin_msg_view.asp
字号:
<html>
<head>
<!--#include file="Admin_top.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><body topmargin="1" leftmargin="1" rightmargin="1" bottommargin="1" marginwidth="1" marginheight="1">
<div align=center>
<%
id = request("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from Feedback Where Feedback_id ="&id
Rs.Open sql,conn,1,3
If rs.eof and rs.bof Then
Response.write ("没有你要找的记录")
Else
If Rs("Feedback_zt") <> 1 Then
Rs("Feedback_zt") = 1
End if
Rs.update
Rs.close
Set rs = nothing
End If
%>
<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 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"> 详细信息查看<strong><font color="#FFFFFF"></font></strong></font></strong></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<%
id = request("id")
Set rsfk = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from Feedback Where Feedback_id ="&id
Rsfk.Open sql,conn,1,3
If not rsfk.eof then
%>
<TABLE width=98% border=1 cellPadding=5 cellSpacing=0 bordercolor="#0033CC"
bgColor=#C0C0C0>
<TBODY>
<TR bgColor=#fafafa>
<TD height=284>
<div align=center>
<table border="0" width="100%" id="table4">
<tr>
<td bgcolor="#CDCDCD" align="right" width="18%">
<p align="right"><b>序号:</b></td>
<td width="30%" height="22" align="left" bgcolor="#F0F0F0"><%=Rsfk("Feedback_id")%></td>
<td width="12%" align="left" bgcolor="#F0F0F0"><div align="right"><font color="#0000FF">最新回复邮件：</font></div></td>
<td bgcolor="#F0F0F0" align="left"><% Set rsmail = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from mailsend Where emailid ="&id
rsmail.Open sql,conn,1,3
If not rsmail.eof then
%><a href="Admin_send_view.asp?ID=<%=rsmail("email_id")%>"><%=rsmail("Mail_Title")%></a><%else%>没有最新回复<%end if%></td>
</tr>
<tr>
<td width="18%" bgcolor="#CDCDCD" align="right"> <b>来源页面标题:</b></td>
<td height="10" colspan="3" align="left" bgcolor="#F0F0F0"><%=Rsfk("Title")%></td>
</tr>
<tr>
<td width="18%" bgcolor="#CDCDCD" align="right"> <b>来源页面网址:</b></td>
<td height="10" colspan="3" align="left" bgcolor="#F0F0F0"><%=Rsfk("refererulr")%></td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from list where listuse=True order by listorder"
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
Rs.pagesize=20
Rs.AbsolutePage=pagecount
do while not Rs.eof
j=j+1
%>
<%
dim i,fk
i=trim(Rs("listid"))
fk="Feedback"+i
%>
<tr>
<td width="18%" bgcolor="#CDCDCD" align="right"> <b><%=Rs("listtitle") %></b></td>
<td height="22" colspan="3" align="left" bgcolor="#F0F0F0"> <font color="#FF0000"><%=Rsfk(fk)%></font></td>
</tr>
<tr>
<% If j>=Rs.pagesize Then exit do
Rs.movenext
loop
Else
%>
<%End If%>
<%
Rs.close
Set rs = nothing
%>
<td width="18%" bgcolor="#CDCDCD" align="right"> <b>反馈日期:</b></td>
<td height="21" colspan="3" align="left" bgcolor="#F0F0F0"><%=Rsfk("Feedback_datetime")%></td>
</tr>
<tr>
<td width="18%" bgcolor="#CDCDCD" align="right"> <b>反馈IP:</b></td>
<td height="21" colspan="3" align="left" bgcolor="#F0F0F0"><%=Rsfk("Feedback_ip")%></td>
</tr>
<tr>
<td width="18%" bgcolor="#CDCDCD" align="right"> <b>当前状态:</b></td>
<td height="10" colspan="3" align="left" bgcolor="#F0F0F0"><% Select Case Rsfk("Feedback_zt")
Case 0
response.write "<font color=#FF0000><b>未读</b></font>"
Case 1
response.write "<b>已读</b>"
End Select%></td>
</tr>
<tr>
<td bgcolor="#E6E6E6" align="right" height="28" colspan="4">
<p align="center" class="style1"><font style="color:#FF0000 "><a href="Admin_Msg_Feed.asp?ID=<%=Rsfk("Feedback_id")%>">回复邮件</a></font></td>
</tr>
<%
Else
%>
<tr>
<td bgcolor="#E6E6E6" align="right" height="26" colspan="4">
<p align="center"><font color="#FF0000"><b>对不起,没有找到您需要的记录</b></font></td>
</tr>
<%
End if
%>
</table>
<%
Rsfk.close
Set rsfk = nothing
%>
</div></TD>
</TR>
<TR bgColor=#fafafa>
<TD bgColor=#f0f0f0 height=26>
<DIV align=center>©2008-2009 CopyRight <strong>IssTech.Co., Ltd</strong> All Rights Reserved</DIV></TD>
</TR>
</TBODY>
</TABLE>
</DIV></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"></div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -