news.asp

旅游路线管理 比较方便的旅游路线管理

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<!--#include file="conn.asp"-->
<!--#include file="news_inc.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script>
function scolor(dd){dd.style.backgroundColor='#ffffff';}
function rcolor(tt){tt.style.backgroundColor='';}
</script>
<%pagestart
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="255" height="159" valign="top" bgcolor="<%=c4%>">
<%
call nnews
call ddnews
call clicknews
set rs=server.CreateObject("ADODB.Recordset")
sql="select ntitle,ntop,nclick,id,ndt from news order by ntop desc,id desc"
rs.open sql,conn,1,2
rs.pagesize=17
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
%>
  </td>
    <td width="500" valign="top"><table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="25" align="center" bgcolor="<%=c2%>">记录数<%=rs.recordcount%>  　页数：<%=pagec%>　
          <%
		response.write ("<a href=?page=1>首页</a>　")
		if page>1 then
		response.write ("<a href=?page="&page-1&">上一页</a>　")
		else
		response.write("上一页　")
		end if
		if page<pagec then
		response.write("<a href=?page="&page+1&">下一页</a>　")
		else
		response.write("下一页　")
		end if
		response.write ("<a href=?page="&pagec&">尾页</a>　")
		response.write ("当前："&page&"/"&pagec&"")
		%></td>
      </tr>
    </table>
      <table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="1" bgcolor="<%=c1%>"></td>
        </tr>
      </table>
      <table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
<%
a=0
do while not rs.eof and a<rs.pagesize%>
		<tr onMouseOver="scolor(this);" onMouseOut="rcolor(this);"  bgcolor="<%=c4%>">
          <td width="18" height="22" align="center"><%if trim(rs("ntop"))=1 then response.write("<a title=""置顶新闻"">↑</a>") else response.write("<a title=""普通新闻"">·</a>") end if%></td>
          <td width="372" height="22"><a href=listnews.asp?id=<%=rs("id")%>><%=mfkiqpl(rs("ntitle"))%></a>　　</td>
          <td width="100"><%=formatdatetime(rs("ndt"),2)%></td>
		</tr>
<%rs.movenext
a=a+1
loop
%>
      </table>
      <table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="1" bgcolor="<%=c1%>"></td>
        </tr>
      </table>
      <table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="25" align="right" bgcolor="<%=c2%>"><%
		response.write ("<a href=?page=1>首页</a>　")
		if page>1 then
		response.write ("<a href=?page="&page-1&">上一页</a>　")
		else
		response.write("上一页　")
		end if
		if page<pagec then
		response.write("<a href=?page="&page+1&">下一页</a>　")
		else
		response.write("下一页　")
		end if
		response.write ("<a href=?page="&pagec&">尾页</a>　")
		response.write ("当前："&page&"/"&pagec&"")
		%></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<%
closers(rs)
pageend
%>