📄 default.asp

📁 asp开发 asp开发 asp开发 asp开发
💻 ASP
字号:
<HTML><LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="NEWS.CSS">
<Script language="JavaScript">
//打开新窗口函数NewsWindow
function NewsWindow(id)
{
  window.open('newswind.asp?id='+id,'infoWin', 'height=400,width=600,scrollbars=yes,resizable=yes');
}
</Script>
</HEAD><BODY>
<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ=" & server.mappath("news.mdb") &_
	";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs = server.createobject("ADODB.RECORDSET")
sql = "SELECT * FROM news ORDER BY ID DESC"
rs.open sql,conn,1,1
If rs.eof and rs.bof then
	response.write "<p>还 没 有 任 何 新 闻</p>"
Else
%>
<P><STRONG>全部新闻</STRONG><TABLE BORDER=1 BORDERCOLORDARK=#FFFFEC
BORDERCOLORLIGHT=#5E5E00 CELLPADDING=1 CELLSPACING=0 WIDTH="100%">
<TR BGCOLOR=CCCCCC ALIGN=CENTER><TD>标题</TD><TD>作者</TD><TD>日期</TD></TR>
<%
	cc = 1
    '当前页
	if not isempty(request("page")) then
		pagecount=cint(request("page"))
	else
		pagecount=1
	end if
	rs.PageSize=10
	rs.AbsolutePage=pagecount
For iPage = 1 To rs.PageSize
  If rs.EOF Then Exit For
'不同行之间以不同颜色显示
  if cc mod 2=1 then
  	  Response.Write "<tr bgcolor=#E7E7E7>"
  else
   	  Response.Write "<tr BGCOLOR=#F4F4F4>"
  end if
%>
<td><a href="javascript:NewsWindow(<%=rs("ID")%>)"><u><%=rs("title")%></u></a></td>
<td><%=rs("write")%>　</td><td><%=rs("times")%>
<%
'如果是今天的新闻，加上new标记
if DateDiff("d",rs("times"),date())<1 then Response.Write "<font color=ff0000>new</font>"
	Response.Write "</td></tr>"
	cc = cc + 1
	rs.movenext
Next
Response.Write "</table><p>共"&rs.recordcount&"条新闻"
if rs.PageCount>1 Then
	 If pagecount<>1 Then
	   Response.Write "<A HREF=default.asp?Page=1><img src=/image/first.gif border=0 alt=首页></A>"
	   Response.Write "<A HREF=default.asp?Page="&(pagecount-1)&"><img src=/image/pre.gif border=0 alt=前页></A>"
	 End If
	 If pagecount<>rs.PageCount Then
	   Response.Write "<A HREF=default.asp?Page="&(pagecount+1)&"><img src=/image/next.gif border=0 alt=后页></A>"
	   Response.Write "<A HREF=default.asp?Page="&rs.PageCount&"><img src=/image/last.gif border=0 alt=尾页></A>"
	 End If
End If
end if
rs.close
conn.close
%>
<p align=center><a href="newsedit.asp">编辑新闻</a>
⌨️ 快捷键说明

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