news.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="top.asp" -->
<%
dim strFileName
strFileName="news.asp"
pageno=20
%>
<table width="100%"  cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="801" align="right" cellpadding="0"  cellspacing="0">
      <tr>
        <td width="181" rowspan="2" valign="top"><!--#include file="left.asp" --></td>
        <td width="1" bgcolor="#D7D7D7"></td>
        <td valign="top"><!--#include file="body.asp" --></td>
        </tr>
      <tr>
        <td bgcolor="#D7D7D7"></td>
        <td height="630" valign="top"><table width="618"  cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="images/tt_news.gif" width="618" height="35"></td>
          </tr>
          <tr>
            <td align="center"><table width="96%"  border="0" align="center" cellpadding="1" cellspacing="1">
              <%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where listid=1 and isview=1 order by istop,id desc"
rs.open sql,conn,1,1
rscount=rs.recordcount
if  rscount<1 then
%>
<table width="96%"  border="0" align="center" cellpadding="1" cellspacing="1"><tr><td> ?Y?T?ˉì?D???...</td></tr></table>
<%
else
call showsql(pageno)
rs.move(rsno)
for i=1 to loopno
%>
              <tr>
                <td height="23">&nbsp;<img src="images/dot_n.gif" width="9" height="7">&nbsp;<a href="javascript:openwin('shownews.asp?id=<%=rs("id")%>')"><font color="<%=rs("titlecolor")%>"><%=rs("title")%></font></a>&nbsp;[<%=rs("addtime")%>] (<font color="#FF0000"><%=rs("hits")%></font>) &nbsp;<%if rs("istop")=1 then%><img src="images/new.gif"><%end if%></td>
              </tr>
              <tr>
                <td height="1" background="images/1.gif" class="newbody"></td>
              </tr>
              <%
rs.movenext
next
%>
            </table>
              <table width="96%" border="0" align="center" cellpadding="1" cellspacing="1">
                <tr>
                  <td align="right"  class="tablebody" colspan="2"><%call showpage(strFileName,rscount,pageno,false,true,"条新闻")%></td>
              </table>
              <%
end if
rs.close
set rs=nothing
%></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
    <td width="1" bgcolor="#D7D7D7"></td>
    <td width="206" background="images/right_bg2.gif">&nbsp;</td>
  </tr>
</table>
<!--#include file="end.asp" -->
<!--#include file="ad.asp" -->