📄 viewdetail.asp
字号:
<% @language="vbscript" %>
<% 'if session("logined")<>"sf32*7$" then
'response.write "您无权查看该信息！"
'response.redirect "view.asp"
'end if
%>
<%
response.buffer=true
Response.Expires=0
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = server.MapPath("websking.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
%>
<!--#include file="config.asp" -->
<html>
<head>
<title><%=title_name%></title>
<LINK href="style.css" type=text/css rel=stylesheet>
</head>
<body bgcolor="#FFFFFF" link="#FF0000" vlink="#FF0000" alink="#FF0000" topmargin="2" leftmargin="0">
<table width="420" border="0" cellspacing="1" cellpadding="1" class="p9" bgcolor="#993300" align="center">
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">信息编号： </td>
<td width="316" bgcolor="#FFE1D2">
<% =rs("ID") %>
</td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">发件人地址： </td>
<td width="316" bgcolor="#FFE1D2"><font color=blue>
<% =rs("title") %>
</font></td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">类 型： </td>
<td width="316" bgcolor="#FFE1D2"><font color=red>
<%
select case rs("leixing")
case "A1"
Response.Write ""&title_1&" "
case "A2"
Response.Write ""&title_2&" "
case "A3"
Response.Write ""&title_3&" "
case "A4"
Response.Write ""&title_4&" "
case "A5"
Response.Write ""&title_5&" "
case "A6"
Response.Write ""&title_6&" "
case "A7"
Response.Write ""&title_7&" "
End select
%>
</font></td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">发件人姓名： </td>
<td width="316" bgcolor="#FFE1D2">
<% =rs("name") %>
</td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">E-mail： </td>
<td width="316" bgcolor="#FFE1D2"><a href="mailto:<% =rs("email") %>">
<% =rs("email") %>
</a> </td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">发件人电话： </td>
<td width="316" bgcolor="#FFE1D2">
<% =rs("area") %>
</td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">收件人地址： </td>
<td width="316" bgcolor="#FFE1D2">
<% =rs("address") %>
</td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">收件人电话： </td>
<td width="316" bgcolor="#FFE1D2">
<% =rs("phone") %>
</td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">补充信息： </td>
<td width="316" bgcolor="#FFE1D2"><font color=green>
<% =rs("comment") %>
</font></td>
</tr>
<tr>
<td width="104" bgcolor="#FFB895" valign="middle" align="right">登记时间： </td>
<td width="316" bgcolor="#FFE1D2">
<% =rs("mess_time") %>
<% =rs("mess_date") %>
</td>
</tr>
</table>
<%
end if
set rs=nothing
conn.close
set conn=nothing
%>
<div align="center"><span class="p9"><a href="#" onclick="javascript:window.close();">==关闭窗口==</a></span>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -