📄 display.asp

📁 新闻管理系统,管理员登陆后能够实现对新闻的添加,删除以及更新等功能,操作比较简单,但是很方便
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<!--#include file="header.inc"-->
<body topmargin=0 leftmargin=0>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td width="26%" height="42" rowspan="2"><A HREF="http://3gu.tea8.com"><IMG SRC="Images/logo.gif" WIDTH="299" HEIGHT="65" BORDER=0 ALT="<%=homename%>"></A></td>
<td width="74%"><div align="right"><PRE CLass="BigText">Patron Saint News</PRE></div></td></tr>
<tr><td><div align="right"><A HREF="<%=HomePageX%>"><%=HomeNameX%></A> | <A HREF="http://3gu.tea8.com">版本检查</A> | <A HREF="http://3gu.tea8.com/Forum/list.asp?boardid=14">技术支持</A> | <A HREF="login.asp">管理</A></div></td></tr></table><BR>
<table width="95%" cellspacing=1 cellpadding=0 align=center class=tableBorder1>
<tr><th colspan="4" align="left" height=25>Index</th>
</tr><tr> 
<td Class="TableTitle2" align="CENTER" height=25 width="5%">ID</td>
<td Class="TableTitle2" align="CENTER" height=25 width="70%">标题</td>
<td Class="TableTitle2" align="CENTER" height=25 width="10%">点击</td>
<td Class="TableTitle2" align="CENTER" height=25 width="15%">日期</td></tr>
<%

dim id,TitleX,DateX,I,I_X,fenpageV,readess
dim totalRecs
dim startRec
dim startRecx
SysX(0) = Clng(SysX(0))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "select id,TitleX,DateX,readX from NewsData order by id desc"
rs.open sql, conn,1,1
if rs.bof and rs.bof then
       errorstr="暂时没有公告"
       errorbox(errorstr)
End If
totalRecs = rs.RecordCount
   If Not IsEmpty(Request.QueryString("page")) Then
   startRec = Request.QueryString("page")
   Else
   startRec = 1
   End If
   if startRec=0 Then
   errorstr="url参数非法"
   errorbox(errorstr)
   End If
   startRecx=startRec*SysX(0)-SysX(0)+1
   If totalRecs-startRecx <0 Then
errorstr="url参数非法"
errorbox(errorstr)
End If
startRecx=startRec*SysX(0)-SysX(0)
Rs.move startRecx
Do While NOT rs.EOF
     If rs.absoluteposition <= startRec*SysX(0) Then
     id=rs("id")
	 TitleX=rs("TitleX")
	 DateX=rs("DateX")
	 readess=rs("readX")
            If rs.absoluteposition/2 <> CInt(rs.absoluteposition/2) Then
            %>
    <tr> 
      <td Class="TableBody1" align="CENTER" height=25 width="5%"><%=id%></td>
      <td Class="TableBody1" height=25 width="70%">&nbsp;<A HREF="show.asp?id=<%=id%>"><%=TitleX%></A></td>
	  <td Class="TableBody1" align="CENTER" height=25 width="10%"><%=readess%></td>
	  <td Class="TableBody1" align="CENTER" height=25 width="15%"><font Class="SmallFont"><%=DateX%></font></td>
    </tr>
			<%
	        Else
            %>
<tr> 
      <td Class="TableBody2" align="CENTER" height=25 width="5%"><%=id%></td>
      <td Class="TableBody2" height=25 width="70%">&nbsp;<A HREF="show.asp?id=<%=id%>"><%=TitleX%></A></td>
	  <td Class="TableBody2" align="CENTER" height=25 width="10%"><%=readess%></td>
	  <td Class="TableBody2" align="CENTER" height=25 width="15%"><font Class="SmallFont"><%=DateX%></font></td>
    </tr>
			<%
	        End If
	 Else
       Exit do
	 End If
     rs.MoveNext
	 Loop
%>

  </table>
<%
rs.close
set rs=nothing

dim url,widthX
widthX="95%"
url = "display.asp?page="
fenpageV=fenpage(totalRecs,startRec,url,widthX)
Response.Write fenpageV

%>
<!--#include file="footer.inc"-->
⌨️ 快捷键说明

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