news.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="inc/syscode.asp"-->
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=178 background=images/leftftbg.gif>
      <DIV align=center>
      <TABLE cellSpacing=0 cellPadding=0 width=178 border=0>
        <TBODY>
        <TR>
          <TD width=178><!--#include file="index_ywjs.asp"--></TD>
        </TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 作品列表 --><!--#include file="L_product.asp"--></TD></TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 站内调查 --><!-- #include file="L_vote.asp" --></TD></TR>
        <TR>
          <TD background=images/leftbg.gif height=5></TD></TR>
</TBODY></TABLE>
    </TD>
<!--********************左栏部分结束**********************-->
    <TD  bgcolor="#FFFFFF" valign=top>
<%
flag="尚未处理"
set rs=server.createobject("adodb.recordset")
sqltext="select * from news Order BY id desc"
rs.open sqltext,conn,1,1
dim PerPage
PerPage=20
'假如没有数据时
If rs.eof and rs.bof then
call showpages
response.write "<p align='center'><font color='#ff0000'>还没任何新闻</font></p>"
response.end
End if
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
text="0123456789"
Rs.PageSize=PerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

call showpages
call list

If Rs.recordcount > PerPage then
call showpages
end if

'显示帖子的子程序
Sub list()
%>

				
				<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
					<tr> 
						
            <td height="24"><font size="2"><strong>最新信息:</strong></font>(共有:<FONT COLOR=RED><%=(Cstr(Rs.RecordCount))%></FONT>条简讯)</td>
					</tr>
					<tr> 
						<td height="1" bgcolor=#c0c0c0></td>
					</tr>
<%
if not rs.eof then
do while not rs.eof
%>
					<tr> 
						<td>&nbsp;&nbsp;※&nbsp;<a href="NewsInfo.asp?id=<%=rs("id")%>"><%=rs("title")%></a>&nbsp;&nbsp;<font color="#0066CC" face="Arial"><%=rs("time")%></font>&nbsp; <%if rs("time")=date() then%> <strong><font color="#FF0000" face="Arial">New</font></strong><%end if%></td>
					</tr>
<%
i=i+1
if i >= Perpage then exit do
rs.movenext
loop
end if
%>
					<tr> 
						<td height="8"></td>
					</tr>
				</table>
				<table width="98%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
					<tr> 
						<td height="1" bgcolor="#c0c0c0"></td>
					</tr>					
                                        <tr> 
						<td width="100%" height=30 align=right> 
<%
Response.write "<font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font>&nbsp;"
If currentpage > 1 Then
response.write "<a href='News.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='News.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font>"
Else
Response.write "<font color='#000000'>上一页 </font>"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='News.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='News.asp?page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong>&nbsp;&nbsp;"
Else
Response.write ""
Response.write "<font color='#000000'>下一页</font>&nbsp;&nbsp;"
End if
'response.write "</td><td align='right'>"
'response.write "<font color='#000000' >转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&">&nbsp;"
'response.write "<input class=buttonface type='submit'  value='Go'  name='cndok'>&nbsp;&nbsp;"
%> 
						</td>
					</tr>

				</table>
<%
End sub
rs.close
%> 
    </TD>
 </tr>
</table>
<!-- 底部信息部分 --><!-- #include file="foot.asp" -->