📄 lyview.asp
字号:
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<head>
<!--#include file = language.asp -->
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;}
option {FONT-SIZE: 9pt;}
textarea {FONT-SIZE: 9pt;}
-->
</STYLE>
<title>欢迎访问留言薄</title>
</head>
<body bgcolor="#B2C5D3">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760" id="table1">
<tr>
<td><img border="0" src="images/lyTOPS.gif" width="760" height="89"></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="5" cellspacing="0" width="760" id="table2" bgcolor="#FFFFFF">
<tr>
<td>
<p align="center">
<a href="ly-write.asp">
<img border="0" src="images/lywrite.gif" width="89" height="37"></a>
<a href="ly.asp">
<img border="0" src="images/lyread.gif" width="89" height="37"></a></td>
</tr>
</table>
</div>
<%
id=chkhtm(trim(Request("id")))
if (not isNumeric(id)) then
Response.Write "<Script Language=JavaScript>alert('ＩＤ参数错误或有非法字符或没指定参数.');location.href='/';</Script>"
response.end
end if
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [ly] where id="&id&" and bm<>'1' and sh=1 order by id desc",conn,1,1
if rs.recordcount<>0 then
set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select * from [lylb] where id="&rs("lb")&" order by id desc",conn,1,1
while not rs2.eof
lb=rs2("lb")
rs2.movenext
wend
rs2.close:set rs2=nothing
%>
<div align="center">
<table border="1" cellpadding="5" width="760" id="table3" style="border-collapse: collapse" bordercolor="#C0C0C0" bgcolor="#FFFFFF">
<tr>
<td width="737" align="center" background="images/bg1.gif" colspan="2">
<font color="#FFFFFF"><%=rs("title")%></font><font color="#FFFF00">(<%=lb%>)</font></td>
</tr>
<tr>
<td width="200" align="center" style="line-height: 150%" valign="top"><img border=1 src=<%=rs("tx")%>>
<div align="center">
<table border="0" cellpadding="2" cellspacing="0" width="201">
<tr>
<td width="74" align="right">姓名：</td>
<td width="127"><%=rs("adduser")%></td>
</tr>
<tr>
<td width="74" align="right">来自：</td>
<td width="127"><%=rs("ip")%></td>
</tr>
<tr>
<td width="74" align="right">邮箱：</td>
<td width="127"><a href="mailto:<%=rs("email")%>"><img border="0" src="images/lymail.gif" width="16" height="16"></a></td>
</tr>
<tr>
<td width="74" align="right">时间：</td>
<td width="127"><%=rs("addtime")%></td>
</tr>
</table>
</div>
</td>
<td width="537" valign="top"><%=rs("content")%></td>
</tr>
<%
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select * from [lyhf] where lyid="&rs("id")&" order by id desc",conn,1,1
if rs2.recordcount<>0 then
%>
<tr>
<td width="200" align="center" style="line-height: 150%" valign=top><img border=1 src=images/ly-00.gif>
<div align="center">
<table border="0" cellpadding="2" cellspacing="0" width="201">
<tr>
<td width="74" align="right">姓名：</td>
<td width="127">工作人员</td>
</tr>
<tr>
<td width="74" align="right">时间：</td>
<td width="127"><%=rs2("addtime")%></td>
</tr>
</table>
</div>
</td>
<td width="537" valign="top"><%=rs2("content")%></td>
</tr>
<%
end if
%>
</table>
</div>
<%
else
Response.Write "<center><BR><BR><BR>参数错误，没有找到相关信息<BR><BR><BR>"
end if
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760" height="37" id="table5">
<tr>
<td background="images/lydown.gif"> </td>
</tr>
</table>
</div>
<%
Response.Write an
rs.close:set rs=nothing
conn.close:set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -