index_diary.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>
  </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"><marquee behavior=scroll direction=up width=190 height=160 scrollamount=1 scrolldelay=60 onmouseover='this.stop()' onmouseout='this.start()'>
          <table width="98%" height="190" border="0" align="center" cellspacing="1">
            <tr> 
              <td class="chinese"><%=ubb2html(cutstr(formatStr(autourl(rs("d_content"))),700,true,url), true, true)%></td>
            </tr>
          </table></marquee></td>
  </tr>
</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">
    <tr> 
      <td background="images/dotlineh.gif" height="1"></td>
      <td background="images/dotlineh.gif"></td>
    </tr>
   
</table>
  </center>
</div>

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