📄 admin_msg_feed.asp
字号:
<html>
<head>
<!--#include file="Admin_top.asp"-->
<%
ID=trim(request("ID"))
if ID="" then
response.Redirect("Admin_Mail.asp")
end if
Set rs_mail= Server.CreateObject("ADODB.Recordset")
Sql = "select * from Feedback where Feedback_id =" & ID & ""
rs_mail.open sql,conn,1,1
%>
<body topmargin="1" leftmargin="1" rightmargin="1" bottommargin="1" marginwidth="1" marginheight="1">
<div align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width=209 bgColor=#f3f3f3>
<div align="center">
<!--#include file="Admin_left.asp"-->
</div>
</TD>
<TD width=4 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">邮件回复</font></strong></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<%
Set rs1 = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from Config"
rs1.Open sql,conn,1,1
dim fbshou,ett,listtt,emailtt
listtt=rs1("listtt")
emailback=rs1("emailback")
fbshou="Feedback"+emailback
ett="Feedback"+listtt
rs1.close
Set rs1=Nothing
%>
<% emailtt=rs_mail(ett)%> <%if listtt="21" then emailtt=rs_mail("Title") end if %>
<TABLE width=98% height="313" border=1 cellPadding=5 cellSpacing=0 bordercolor="#0033CC"
bgColor=#C0C0C0>
<TBODY>
<TR bgColor=#fafafa>
<TD height=284 valign="top">
<div align=center>
<table height="281" id="table4">
<form method="POST" action="Admin_Action.asp?action=14&M_Title=<%=emailtt%>&emailid=<%=rs_mail("Feedback_id")%>" name="Feedback_Mail">
<tr>
<td width="172" bgcolor="#CDCDCD" align="right" height="23">
<strong>注意事项:</strong></td>
<td width="846" bgcolor="#F0F0F0" align="center" height="23">
<p align="left">
<font color="#FF0000">如服务器不支持Jmail将会发送不成功.</font></td>
</tr>
<tr>
<td width="172" bgcolor="#CDCDCD" align="right" height="23">
<strong>邮件主题:</strong></td>
<td width="846" bgcolor="#F0F0F0" align="center" height="23">
<p align="left">
<input type="text" name="Mail_Title" size="40" value="Re: <%=emailtt%>"></td>
</tr>
<tr>
<td width="172" bgcolor="#CDCDCD" align="right" height="23">
<b>回复邮箱:</b></td>
<td width="846" bgcolor="#F0F0F0" align="left" height="23">
<input type="text" name="Mail_Mail" size="20" value="<%=rs_mail(fbshou)%>"></td>
</tr>
<tr>
<td width="172" bgcolor="#CDCDCD" align="right" height="81" valign="top">
<strong>回复内容:</strong></td>
<td width="846" bgcolor="#F0F0F0" align="left" height="81">
<textarea rows="14" name="Mail_Info" cols="80"></textarea></td>
</tr>
<tr>
<td height="24" colspan="2" align="right" bgcolor="#CDCDCD">
<div align="center">
<input type="submit" value="发送邮件" name="B1">
<input type="reset" value="重新填写" name="B2">
</div></td>
</tr>
<tr>
<td bgcolor="#E6E6E6" align="right" height="28" colspan="2">
<p align="center"><a href="#" onclick="javascript:window.close();">关闭窗口</a></td>
</tr>
</form>
</table>
<%
Rs.close
Set rs = 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 + -