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>&nbsp;
			<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
%>