📄 viewdetail.asp
字号:
<% @language="vbscript" %>
<% if session("sysop")<>True then
response.write "您无权查看该信息！"
response.redirect "view.asp"
end if
%>
<%
response.buffer=true
Response.Expires=0
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data/feedback.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM feedbackinfo where ID=" & request("info_id")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 出现错误：该信息可能已经被删除！</p>"
else
%>
<html>
<title>详细信息</title>
<style type="text/css">
<!--
.p9 { font-size: 9pt; line-height: 16pt}
-->
</style>
<body bgcolor="#FFFFFF" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<table width="420" border="0" cellspacing="1" cellpadding="1" class="p9" bgcolor="666666" align="center">
<tr>
<td width="72" bgcolor="ffffec">信息编号</td>
<td width="348" bgcolor="ffffec"><% =rs("ID") %> </td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">单位名称</td>
<td width="348" bgcolor="ffffec"><font color=blue><% =rs("title") %> </font></td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">类 型</td>
<td width="348" bgcolor="ffffec"><font color=red><%
select case rs("leixing")
case "A1"
Response.Write "简单的留言 "
case "A2"
Response.Write "对网站的意见 "
case "A3"
Response.Write "给公司的建议 "
case "A4"
Response.Write "购买及合作意向 "
case "A5"
Response.Write "产品投诉 "
case "A6"
Response.Write "服务投诉 "
End select
%> </font></td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">产系人</td>
<td width="348" bgcolor="ffffec"><% =rs("name") %> </td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">E-mail</td>
<td width="348" bgcolor="ffffec"><% =rs("email") %> </td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">公司地址</td>
<td width="348" bgcolor="ffffec"><% =rs("area") %> </td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">借鉴站点心</td>
<td width="348" bgcolor="ffffec"><% =rs("address") %> </td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">电 话</td>
<td width="348" bgcolor="ffffec"><% =rs("phone") %> </td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">具体信息</td>
<td width="348" bgcolor="ffffec"><font color=green><% =rs("comment") %> </font></td>
</tr>
<tr>
<td width="72" bgcolor="ffffec">反馈时间</td>
<td width="348" bgcolor="ffffec"><% =rs("mess_time") %> <% =rs("mess_date") %></td>
</tr>
</table>
<%
end if
set rs=nothing
conn.close
set conn=nothing
%>
<div align="right"><span class="p9"><a href="#" onclick="javascript:window.close();">==关闭窗口==</a></span>
<br>
<font face="Arial, Helvetica, sans-serif"></font></div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -