<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<%
function chkhtm(stra)
  stra=replace(stra,"<","&lt;")
  stra=replace(stra,">","&gt;")
  stra=replace(stra,"'","")
  stra=replace(stra,"(","（")
  stra=replace(stra,")","）")
  stra=replace(stra,";","；")
  stra=replace(stra,",","，")
  stra=replace(stra,"%","％")
  stra=replace(stra,"+","＋")
  chkhtm=stra
end function
%>
<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>
</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>&nbsp;
			<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
%> 
