replyfeedback.asp
来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 163 行
ASP
163 行
<%@ Language=VBScript %>
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content=" ">
<meta name="description" content=" ">
<meta name="keywords" content=" ">
<link rel="stylesheet" href="../Css/css.css" type="text/css">
<script language="Javascript" src="/JS/CheckInput.js"></script>
</head>
<script language="javascript">
function formCheck() {
if (document.frmReFeedback.Email.value=="") {
alert("请输入Email地址");
document.frmReFeedback.Email.focus();
return false;
}
if (document.frmReFeedback.Replytitle.value=="") {
alert("请输入主题");
document.frmReFeedback.Replytitle.focus();
return false;
}
if (document.frmReFeedback.ReplyContent.value=="") {
alert("请输入回复内容");
document.frmReFeedback.ReplyContent.focus();
return false;
}
return true;
}
</script>
<body>
<!-- #include file = "Menu.asp" -->
<b>客户反馈详情</b>
<p>
<table border="0" width="98%" ID="Table1">
<%'=======变量定义============================================================
Dim strSQL
strSQL = "SELECT * FROM Feedback WHERE "
strSQL = strSQL & " ID = " & Request.QueryString("ID")
'========显示反馈内容=======================================================
Dim rsFeedback
Set rsFeedback = Server.CreateObject("ADODB.Recordset")
rsFeedback.Open strSQL, conn
%>
<tr>
<td width="20%">反馈ID</td>
<td width="80%">
<%
response.Write rsFeedback("ID")
if Cint( rsFeedback("ReplyState") ) = 1 then
response.Write "<font color=red> [＠已回复]</font>"
end if
%></td>
</tr>
<tr>
<td>姓名</td>
<td><%= rsFeedback("Name") %></td>
</tr>
<tr>
<td>主题</td>
<td><%= rsFeedback("title") %></td>
</tr>
<tr>
<td>Email</td>
<td><%= rsFeedback("email") %></td>
</tr>
<%IF rsFeedback("tel")<>"" then%>
<tr>
<td>联系电话</td>
<td><%= rsFeedback("tel") %></td>
</tr>
<%End IF%>
<%IF rsFeedback("company_name")<>"" then%>
<tr>
<td>单位名称</td>
<td><%= rsFeedback("Company_Name") %></td>
</tr>
<%End IF%>
<tr>
<td>内容</td>
<td><%= rsFeedback("Content") %></td>
</tr>
<tr>
<td>提交时间</td>
<td><%= rsFeedback("CreateTime") %></td>
</tr>
<tr>
<td>IP地址</td>
<td><%= rsFeedback("IP") %></td>
</tr>
</table>
<p>
<%
'=====取得下一条记录==========================================================
'Dim rs,NextInfoID,PrevInfoID
'Set rs = Server.CreateObject("ADODB.Recordset")
'strSQL = "SELECT ID from Feedback WHERE "
'strSQL = strSQL & "ID< " & Request.QueryString("ID") &" order by id desc"
'rs.Open strSQL, conn
'if not rs.EOF then
' NextInfoID=rs("id")
'end if
'rs.Close
'Set rs = Nothing
'=====取得上一条记录==========================================================
'Set rs = Server.CreateObject("ADODB.Recordset")
'strSQL = "SELECT ID from Feedback WHERE "
'strSQL = strSQL & "ID> " & Request.QueryString("ID") &" order by id "
'rs.Open strSQL, conn
'if not rs.EOF then
' PrevInfoID=rs("id")
'end if
'rs.Close
'Set rs = Nothing
%>
<p>
<input type="button" name="btnBack" value="返回" LANGUAGE=javascript onclick="window.history.go(-1);" ID="Button1">
<hr>
<b>回复客户</b>
<p><form method="POST" name="frmReFeedback" action="SendEmail.asp" ID="Form1" onsubmit="return formCheck()">
<input type="hidden" value="<%= rsFeedback("ID") %>" name="ID" ID="Hidden1">
<table border="0" width="98%" ID="Table2">
<tr>
<td>Email</td>
<td><input type="text" value="<%= rsFeedback("Email") %>" name="Email" ID="Text2"></td>
</tr>
<tr>
<td>主题</td>
<td><input type="text" value="Re：<%= rsFeedback("title") %>" name="Replytitle" size=50</td ID="Text3">
</tr>
<tr>
<td>内容</td>
<td><TEXTAREA name="ReplyContent" rows=10 cols=50 ID="Textarea1"><%= DeModifyInput(rsFeedback("ReplyContent")) %></TEXTAREA></td>
</tr>
</table>
<input type="submit" value="回 复" name="btnSubmit" ID="Submit1">
</form>
</body>
</html>
<%
rsFeedback.Close
Set rsFeedback = Nothing
%>
<!--#include virtual="/Include/DBClose.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?