📄 feedbackview.asp
字号:
<!--#include file="SiteInfo.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ 万博中小企业网站管理系统(NWEB) ☆
'★ ★
'☆ 版权所有 Nweb.cn ☆
'★ ★
'☆ 程序制作 万博工作室 ☆
'★ Add:四川省彭州市西大街228号/611930 ★
'☆ Tel:028-88079088 Fax:83708850 ☆
'★ E-m:duolaimi-123@163.com ★
'☆ Q Q:59309100 ☆
'★ ★
'☆ 相关网址 [产品介绍]http://www.Nweb.cn ☆
'★ [支持论坛]http://www.Nweb.cn/bbs ★
'☆ ☆
'★ 演示网址 http://www.Nweb.cn ★
'☆ ☆
'★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
%>
<HTML>
<HEAD>
<TITLE>首页-留言反馈|<%=SiteName%></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="copyright" CONTENT="Copyright 2004-2005 - NWEB.CN-STUDIO-多来米">
<META NAME="Author" CONTENT="万博网络技术工作室,www.Nweb.cn">
<META NAME="Robots" CONTENT="all">
<META NAME="Keywords" CONTENT="<%=Keywords%>">
<META NAME="Description" CONTENT="<%=Description%>">
<link href="Images/CSS.css" type=text/css rel=stylesheet>
</HEAD>
<BODY >
<!--#include file="Top.asp" -->
<table width="868" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="190" height="96" valign="top" bgcolor="#F2F2F2" ><!--#include file="LeftNav.asp" -->
<!--#include file="FeedbackLeft.asp" --></td>
<td width="5"></td>
<td width="673" valign="top" class="Index-Center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td height="180" colspan="2" bgcolor="#FFFFFF"><img src="Images/Banner_01.jpg" alt="万博中小企业网站系统" width="499" height="180"></td>
<td width="172" align="right" bgcolor="#FFFFFF"><img src="Images/Banner_02.jpg" alt="万博中小企业网站系统" width="171" height="180"></td>
</tr>
<tr>
<td width="93" height="5" bgcolor="#FFFFFF"></td>
<td width="408" bgcolor="#FFFFFF"></td>
<td bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#F2F2F2"><strong><font color="#1c529b"><img src="Images/Arrow-locality.gif" width="14" height="12" align="absmiddle"> 当前位置：</font></strong></td>
<td colspan="2" bgcolor="#F2F2F2" class="locality"><a href="index.asp">首 页</a> >> <a href="FeedbackList.asp">留言反馈</a> >> 信息内容</td>
</tr>
<tr>
<td height="5" align="center" bgcolor="#FFFFFF"></td>
<td colspan="2" align="center" bgcolor="#FFFFFF"></td>
</tr>
</table>
<%
ID=trim(request.querystring("id"))
set Rs=server.createobject("adodb.recordset")
SQL="select * from Feedback where id="&id
Rs.open SQL,conn,1,3
if Rs.eof or Rs.bof then
response.Write"<script language=javascript> alert('数据库异常错误！');history.back(-1);</script>"
response.end
end if
%> <table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="12"> </td>
<td></td>
<td></td>
</tr>
<tr>
<td width="20" height="30"> </td>
<td align="center">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" >
<tr bgcolor="#DFDFDF">
<td width="17%" height="22" align="right" bgcolor="#DFDFDF" class="News-05"> 主 题： </td>
<td colspan="5" bgcolor="#DFDFDF" class="News-05" > <font color="#990000"><%=rs("title")%></font></td>
</tr>
<tr bgcolor="#DFDFDF">
<td height="22" align="right" bgcolor="#DFDFDF" class="News-05"> 反馈内容： </td>
<td colspan="5" align="center" bgcolor="#DFDFDF" class="News-05"><table width="97%" border="0" cellpadding="0" cellspacing="0" class="ABOUT_01">
<tr>
<td height="4"></td>
</tr>
<tr>
<td height="40" class="News-05">
<% if rs("ss")=true then
if session("My_Login")="My_Login_Succeed" and session("Uname")<>"" then
set rsU=Server.CreateObject("Adodb.Recordset")
sql = "select * from UserInfo where Uname='"&session("Uname")&"'"
rsU.open sql,conn,1,1
if rsU.recordcount>0 then
Uid=rsU("id")
rsU.close
set rsU=nothing
end if
if rs("Uid")=Uid then
comtont=rs("comtont")
response.write ""&comtont&""
else
response.write "******** 悄悄话不可查看"
end if
else
response.write "******** 悄悄话不可查看"
end if
else
comtont=rs("comtont")
response.write ""&comtont&""
end if %></td>
</tr>
<tr>
<td height="4"></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#DFDFDF">
<td height="22" align="right" bgcolor="#DFDFDF" class="News-05"> 留言者： </td>
<td width="22%" bgcolor="#DFDFDF" class="News-05"> <%=rs("linkman")%>
<% if rs("Uid")=0 then
response.write "<font color='#ff6600'> 非会员</font>"
else
response.write "<font color='#ff6600'> 会员</font>"
end if %> </td>
<td width="12%" align="right" bgcolor="#DFDFDF" class="News-05">留言时间：</td>
<td width="17%" bgcolor="#DFDFDF" class="News-05"> <%=rs("addtime")%></td>
<td width="12%" align="right" bgcolor="#DFDFDF" class="News-05">回复时间：</td>
<td width="20%" bgcolor="#DFDFDF" class="News-05">
<% if rs("re")="NoRe" then
response.write "未回复"
else
ret=rs("retime")
response.write ""&ret&""
end if%>
</td>
</tr>
<tr bgcolor="#DFDFDF">
<td height="22" align="right" bgcolor="#DFDFDF" class="News-05"> 管理员回复： </td>
<td colspan="5" align="center" bgcolor="#DFDFDF" class="News-05"><table width="97%" border="0" cellpadding="0" cellspacing="0" class="ABOUT_01">
<tr>
<td height="4"></td>
</tr>
<tr>
<td height="40" class="News-05">
<%if rs("re")="NoRe" then
response.write "未回复"
else
if rs("ss")=true then
if session("My_Login")="My_Login_Succeed" and session("Uname")<>"" then
set rsU=Server.CreateObject("Adodb.Recordset")
sql = "select * from UserInfo where Uname='"&session("Uname")&"'"
rsU.open sql,conn,1,1
if rsU.recordcount>0 then
Uid=rsU("id")
rsU.close
set rsU=nothing
end if
if rs("Uid")=Uid then
Re=rs("Re")
response.write ""&Re&""
else
response.write "悄悄话回复,留言者本人登录后才能查看"
end if
else
response.write "悄悄话回复,留言者本人登录后才能查看"
end if
else
Re=rs("Re")
response.write ""&Re&""
end if
end if
%></td>
</tr>
<tr>
<td height="4"></td>
</tr>
</table></td>
</tr>
<tr valign="top" bgcolor="#F7F7F7">
<td height="12" colspan="6" class="News-05"><img src="images/Feedback_Center_01.gif" width="96" height="10"></td>
</tr>
</table>
</td>
<td width="20"></td>
</tr>
<tr>
<td height="30"> </td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Bot.asp" -->
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -