📄 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
%>
<html>
<head>
<title>详细信息</title>
<style type="text/css">
<!--
.p9 { font-size: 9pt; line-height: 16pt}
a { text-decoration: none }
a:hover { text-decoration: underline }
-->
</style>
</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="72" bgcolor="#FFB895" valign="middle" align="right">信息编号： </td>
<td width="348" bgcolor="#FFE1D2">
<% =rs("ID") %>
</td>
</tr>
<tr>
<td width="72" bgcolor="#FFB895" valign="middle" align="right">公司名称： </td>
<td width="348" bgcolor="#FFE1D2"><font color=blue>
<% =rs("title") %>
</font></td>
</tr>
<tr>
<td width="72" bgcolor="#FFB895" valign="middle" align="right">类 型： </td>
<td width="348" bgcolor="#FFE1D2"><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="#FFB895" valign="middle" align="right">联系人： </td>
<td width="348" bgcolor="#FFE1D2">
<% =rs("name") %>
</td>
</tr>
<tr>
<td width="72" bgcolor="#FFB895" valign="middle" align="right">E-mail： </td>
<td width="348" bgcolor="#FFE1D2"><a href="mailto:<% =rs("email") %>">
<% =rs("email") %>
</a> </td>
</tr>
<tr>
<td width="72" bgcolor="#FFB895" valign="middle" align="right">来 自： </td>
<td width="348" bgcolor="#FFE1D2">
<% =rs("area") %>
</td>
</tr>
<tr>
<td width="72" bgcolor="#FFB895" valign="middle" align="right">地 址： </td>
<td width="348" bgcolor="#FFE1D2">
<% =rs("address") %>
</td>
</tr>
<tr>
<td width="72" bgcolor="#FFB895" valign="middle" align="right">电 话： </td>
<td width="348" bgcolor="#FFE1D2">
<% =rs("phone") %>
</td>
</tr>
<tr>
<td width="72" bgcolor="#FFB895" valign="middle" align="right">补充信息： </td>
<td width="348" bgcolor="#FFE1D2"><font color=green>
<% =rs("comment") %>
</font></td>
</tr>
<tr>
<td width="72" bgcolor="#FFB895" valign="middle" align="right">登记时间： </td>
<td width="348" bgcolor="#FFE1D2">
<% =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>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -