www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/ly.asp
<!--#include file = admin_conn.asp --> <!--#include file = titleb.asp --> <head> <title>欢迎访问留言薄</title> <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> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta http-equiv="Content-Language" content="zh-cn"> </head> <% er=trim(Request("er")) if er="0" then Response.Write "<script>alert('你所发表的信息不会立即显示出来,将会等待管理员进行审核!');</script>" end if %> <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> <div align="center"> <table border="1" cellpadding="5" width="760" id="table3" style="border-collapse: collapse" bordercolor="#C0C0C0" bgcolor="#FFFFFF"> <tr> <td width="30" align="center" background="images/bg1.gif"> <font color="#FFFFFF"><b>状态</b></font></td> <td width="400" align="center" background="images/bg1.gif"> <font color="#FFFFFF"><b>标 题</b></font></td> <td width="146" align="center" background="images/bg1.gif"> <font color="#FFFFFF"><b>发 表 人</b></font></td> <td width="146" align="center" background="images/bg1.gif"> <font color="#FFFFFF"><b>发 表 时 间</b></font></td> </tr> <% Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select id,adduser,addtime,title,bm,sh from [ly] where bm='0' and sh=1 order by id desc , hftime desc",conn,1,1 if rs.recordcount<>0 then page=int(request("page")) rs.PageSize=20 pagecount=rs.pagesize if page<=0 then page=1 if request("page")="" then page=1 rs.AbsolutePage=page for i=1 to pagecount %> <tr> <td width="30" align="center"> <img border="0" src="images/lyistop.gif" width="18" height="12"></td> <td width="400"> <% Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open "select id,lyid from [lyhf] where lyid="&rs("id")&" ",conn,1,1 if rs2.recordcount<>0 then Response.Write "<img src=images/nofollow2.gif>" else Response.Write "<img src=images/nofollow.gif>" end if Response.Write "<a href=lyview.asp?id="&rs("id")&" title='"&rs("title")&"'>"&titleb(rs("title"),30)&"</a>" %> </td> <td width="146" align=center><%=rs("adduser")%></td> <td width="146" align=center><%=rs("addtime")%></td> </tr> <% rs.movenext if rs.eof then exit for next else Response.Write "<tr><td colspan=4>暂无信息</td></tr>" end if %> </table> </div> <div align="center"> <table border="1" cellpadding="5" width="760" id="table4" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr> <td> <center> <%if rs.recordcount<>0 then if page>1 then response.write "<a href="&request.servervariables("URL")&"?page=1&lm="&trim(request("lm"))&"&lb="&trim(request("lb"))&"&word="&trim(request("word"))&">首页</a> " response.write "<a href="&request.servervariables("URL")&"?page="&page-1&"&lm="&trim(request("lm"))&"&lb="&trim(request("lb"))&"&word="&trim(request("word"))&">上一页</a> " end if if page<rs.pagecount then response.write "<a href="&request.servervariables("URL")&"?page="&page+1&"&lm="&trim(request("lm"))&"&lb="&trim(request("lb"))&"&word="&trim(request("word"))&">下一页</a> " response.write "<a href="&request.servervariables("URL")&"?page="&rs.pagecount&"&lm="&trim(request("lm"))&"&lb="&trim(request("lb"))&"&word="&trim(request("word"))&">尾页</a> " end if response.write "共"&rs.recordcount&"条 每页显示"&pagecount&"条 共"&rs.pagecount&"页 " %> <script language="JavaScript"> <!-- function FP_jumpMenu(el,frm,sel) {//v1.0 var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0; if('_new'==frm) open(href); else eval(frm+".location='"+href+"'"); } // --> </script> <select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px"> <%for i=1 to rs.pagecount%> <option value="<%=request.servervariables("URL")%>?page=<%=i%>&lm=<%=trim(request("lm"))%>&lb=<%=trim(request("lb"))%>&word=<%=trim(request("word"))%>" <%if page=i then response.write "selected"%> style="font-size: 9pt">第<%=i%>页</option> <%next%> </select> <%end if%> </td> </tr> </table> </div> <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 %>