index_diary.asp

ASP源码

<%sub index_diary()
dim totaldiary,Currentpage,totalpages,i
opendiary
sql="select * from diary order by d_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="98%" id="AutoNumber1">
    <tr>
      <td width="100%" style="border-style: none; border-width: medium">
      <p align="center"><img border="0" src="images/pic000/t001.gif"></td>
    </tr>
  </table>
  </center>
</div>
<div align="center">
  <center>
<table width="98%" border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
  <tr> 
    <td height="8"></td>
  </tr>
</table>
  </center>
</div>
<div align="center">
  <center>
<table width="98%" border="0" cellspacing="0" bgcolor="#EFEFEF" background="images/pic000/c001.jpg" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
  <tr> 
    <td width="43%" bgcolor="#FFFFFF" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#808080"><font color="#666666">
    <img src="images/pic000/hengtiaoXT.jpg" width="17" height="17" border="0" align="absbottom"><span style="font-size: 9pt"> 
    : :最新公告: :</span></font></td>
    <td width="57%" class="diaryhead" height="23" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#808080"> 
      <div align="left"><img border="0" src="images/pic000/hengtiao1.jpg"></div>
    </td>
  </tr>
</table>
  </center>
</div>
<div align="center">
  <center>
<table width="98%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF" style="border-collapse: collapse; border-width: 0" bordercolor="#111111">
  <%if not rs.eof then
rs.Movefirst
rs.pagesize=diaryperpage
if trim(request("page"))<>"" then
    currentpage=clng(request("page"))
	if currentpage>rs.pagecount then
	   currentpage=rs.pagecount
	end if
else
    currentpage=1
end if
    totaldiary=rs.recordcount
	if currentpage<>1 then
	   if(currentpage-1)*diaryperpage<totaldiary then
	      rs.move(currentpage-1)*diaryperpage
		  dim bookmark
		  bookmark=rs.bookmark
	   end if
	end if
	if (totaldiary mod diaryperpage)=0 then
	   totalpages=totaldiary\diaryperpage
	else
	   totalpages=totaldiary\diaryperpage+1
	end if
i=0
do while not rs.eof and i<diaryperpage
url="showdiary.asp?id="&rs("d_id")%><font color="#666666"> </font>
  <tr> 
        <td class="chinese" bgcolor="#FFFFFF" align="right" style="border-style: none; border-width: medium">
        <p align="left"><font color="#666666">
          <img border="0" src="images/pic000/zuixingg.gif" align="absmiddle"></font></td>
        <td class="chinese" bgcolor="#FFFFFF" align="right" style="border-style: none; border-width: medium" height="100"><table width="99%" border="0" cellspacing="1" align="center">
            <tr> 
              <td class="chinese"><%=ubb2html(cutstr(formatStr(autourl(rs("d_content"))),700,true,url), true, true)%></td>
            </tr>
          </table> </td>
  </tr>
  <%
i=i+1
rs.movenext
loop
else
If rs.EOF And rs.BOF Then%><font color="#666666"> </font>
  <tr> 
    <td height="30" class="chinese" align="center" bgcolor="#FFFFFF" style="border-style: none; border-width: medium" colspan="2">
    <font color="#666666">目前还没有记录！</font></td>
  </tr>
  <%end if
end if%>
</table>
  </center>
</div>
<div align="center">
  <center>
<table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#293863" background="images/pic000/c002.jpg" style="border-collapse: collapse" bordercolor="#111111">
  <form name="form1" method="post" action="index.asp">
    <tr> 
      <td background="images/dotlineh.gif" height="1"></td>
      <td background="images/dotlineh.gif"></td>
    </tr>
    </form>
</table>
  </center>
</div>

<%
rs.close
set rs=nothing
end sub%>