📄 newsall.asp

📁 以前企业建网站
💻 ASP
字号:
<!--#include file="top.asp"-->
<body style="text-align: center" bgcolor="#FFFFFF">

<div align="center">
	<table border="0" width="780" cellspacing="0" cellpadding="0" id="table1" height="352" bgcolor="#FFFFFF">
		<tr>
			<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>></td>

			<td width="146" valign="top" bgcolor="#F7F7F7"><!--#include file="newleft.asp"--></td>
	<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>></td>

			<td valign="top">
			<table border="0" width="450" cellspacing="0" cellpadding="5" bgcolor="#FFFFFF">
<tr> 
<form method="POST" action="newssearch.asp">
<td align="center" colspan="2">
<p align="left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 查询商城动态: <input type="text" name="keyword" size="20" class=ipt> <input type="image" border="0" name="b12" src="images/search.jpg" width="81" height="20"<br></td></form></tr>
<%
  page=request.querystring("page")
  if page="" then page=1
  if not(isnumeric(page)) then page=1
  if page<1 then page=1
  page=int(page)
  
  sql="select * from news order by news_id desc"
  rs.open sql,conn,3,3
  if rs.eof then
      response.write "暂且没有新闻资料"
      response.end
  else
      rs.pagesize=20
      totalrec=rs.recordcount
      totalpage=rs.pagecount
      if page>totalpage then page=totalpage
      rs.absolutepage=page
      'rs.absolutepage=page
      i=0
      dim news_id(),news_title(),news_date()
      do while not rs.eof and (i<rs.pagesize)
      i=i+1
      redim preserve news_id(i),news_title(i),news_date(i)
      news_id(i)=rs("news_id")
      news_title(i)=rs("news_title")
      news_date(i)=rs("news_date")
      rs.movenext
      loop
  end if
  rs.close
  %>
  <%for i = 1 to ubound(news_id)%>
  
    <td width="88%"> 
    <p align="left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
    [<img border="0" src="images/001.gif" width="11" height="10">] <a href="newsweb.asp?idd=<%=news_id(i)%>" target="_blank"><%=news_title(i)%></a><font color=000000>[<%=news_date(i)%>]</td>         
    <td width="1%"> 
    　</td>         
  </tr>
  <tr>
    <td width="93%" colspan="2"></td>
  </tr>
  <%next%>
<tr>         
<td align="right" colspan="2">        
<p align="center">共<font color=red><%=totalpage%></font>页 第<%=page%>页               
<font color=666666><%if page-1>0 then%><a href="newsall.asp?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>　<%if page+1<=totalpage then%><a href="newsall.asp?page=<%=page+1%>">下一页</a><%else%>下一页<%end if%></font>    
</td>     
</tr>  
</table>
　</td>
			<td width="167" valign="top">
			<p align="center">
			<img border="0" src="images/E1148.gif" width="167" height="359"></td>
			<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>></td>
		</tr>
	</table>


<!--#include file="copy.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -