📄 news.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>cm新闻发布系统V1.0</title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</htead>
<style type="text/css">
<!--
body {
background-image: url(images/bg.gif);
}
-->
</style><body>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" background="images/top-back.gif">
<tr>
<td height="91" align="center"><img src="images/top.gif" width="778" height="91"></td>
</tr>
</table>
<table width="778" border="1" cellspacing="0" cellpadding="0" bgcolor="#7894AF" align="center">
<tr bgcolor="#eeeeee">
<td height="25" >
<table width="778"><tr><td><%=why%> 欢迎来到 <%=bb%><%
RESPONSE.Write "CM提醒你---你来访的时间是: " & YEAR(date()) & "年" & MONTH(date()) & "月" & DAY(date()) & "日"
%></td>
<td align="right"><a href="cn86login.asp">管理</a></td>
</tr></table></td>
</tr>
</table>
<%id=request.querystring("id")
if id="" then%>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="776"><IMG src="images/arrom.gif" width="12" height="11"></span></TD>
<TD width="45%"><span class="style1">您现在的位置： CM新闻发布系统><font color="#E3E9F1" size="6" face="华文行楷"><%=bb%></font>> 公告：</span></TD>
<TD align=right width="50%"><span class="style1">
<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1
scrollDelay=4 width=400 align="left">
<span class="style1">
<!--#include file="conn_db.asp"-->
</span>
<table width="222" height="21" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse">
<%
dim sql,rs
' 因为要分页显示查询结果，因此要创建一个recordset对象
' 按文章发表时间降序查询显示文章信息
sql="select * from article where layer=1 order by submit_date desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1 ' 因为要分页，必须用键盘指针类型打开记录集
if not rs.bof and not rs.eof then ' 判断记集录是否为空
' 设置分页显示
dim page_size ' 定义每页多少条记录变量
dim page_no ' 定义当前是第几页变量
dim page_total ' 定义总页数变量
page_size=6 ' 设置每页显示6条记录
' 如果第一次打开，则page_no为1，否则，由传回的参数决定
if Request("page_no")="" then
page_no=1
else
page_no=Request("page_no")
end if
session("page_no")=page_no ' 将page_no存入session，以备其他页调用
rs.pagesize=page_size ' 设置每页多少条记录
page_total=rs.pagecount ' 返回总页数
rs.absolutepage=page_no ' 设置当前显示第几页
' 显示当前页的所有记录
dim i,j
i=0 ' 该变量用来输出序号
j=page_size ' 该变量用来控制显示当前页记录
do while not rs.eof and j>0 ' 循环检测该页结束或整个数据库文件结尾
i=i+1
j=j-1
%>
<tr align="center">
<td width="75" height="21"><span class="style1"><a href="hit_num.asp?id=<%=rs("id")%>"><%=rs("title")%></a> </span></td>
<td width="58"><span class="style1"><%=rs("name")%> </span></td>
<td width="89"><span class="style1"><%=rs("submit_date")%> </span></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table> </td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0066FF">
<tr>
<td>dddddd</td>
<td>sssss</td>
<td>sss</td>
<td>ssss</td>
<td>sss</td>
</tr>
</table>
<br>
<table border="0" align="center" cellpadding="1" cellspacing="1" width="778" height="200">
<%set rs1=server.createobject("adodb.recordset")
exec="select * from type order by id desc"
rs1.open exec,conn,1,1
for j=1 to int(rs1.recordcount/2)+1%>
<tr>
<%for i=1 to 2
if rs1.eof then exit for%>
<td valign="top">
<table border="0" width="380" cellpadding="0" cellspacing="1">
<tr bgcolor="#CCD8E6" height="20"><td align="center" background="images/rm.gif" bgcolor="#FFFFFF"><%=rs1("lx")%></td>
</tr>
<%set rs=server.createobject("adodb.recordset")
exec="select top 6 * from news where lx='"+rs1("lx")+"' order by id desc"
rs.open exec,conn,1,1
do while not rs.eof
zt=rs("zt")
zt=xszh(zt)
if len(zt)>40 then zt=left(zt,40)+".."
zt=replace(zt,cxzt,"<font color='#FF0000'>"+cxzt+"</font>")%>
<tr bgcolor="#E3E9F1" height="18"><td><a href="news.asp?id=<%=rs("id")%>"><%=zt%> <%=rs("sj")%></a></td></tr>
<%rs.movenext
loop%>
</table>
<p> </p></td>
<%rs1.movenext
next%>
</tr>
<%next%>
</table>
<%else
exec="select * from news where id="+id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if not rs.eof then%>
<table border="0" cellpadding="0" cellspacing="1" width="778" align="center">
<tr bgcolor="#CCD8E6" height="25"><td align="center"><%=xszh(rs("zt"))%></td></tr>
<tr bgcolor="#E3E9F1" height="25"><td><%=xszh(rs("nr"))%></td></tr>
<tr bgcolor="#CCD8E6" height="25"><td><%=rs("sj")%></td></tr>
</table>
<p>
<%end if
end if
conn.close
set conn=nothing%>
</p>
<p align="center"> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p align="center">Copyright 2006-2008 http://cm86.vicp.net All Rights Reserved </p>
<p align="center"><font color="#E3E9F1" size="6" face="华文行楷">CM 新 闻 发 布 系 统 V 1。0</font> </p>
</body>
</htm>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -