www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/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('ID参数错误或有非法字符或没指定参数.');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 %>