news_list_ad.asp

新闻管理系统,管理员登陆后能够实现对新闻的添加,删除以及更新等功能,操作比较简单,但是很方便

<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<!--#include file="header.inc"-->
<%
'#####################################################
'## Copyright (C) 2003, Patron Saint Studio
'## For support, please visit http://3gu.tea8.com
'## Script Edit:y3gu
'#####################################################
dim id,TitleX,DateX,I,I_X,fenpageV
dim totalRecs
dim startRec
dim startRecx
if session("status")="login" then
SysX(0) = Clng(SysX(0))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "select id,TitleX,DateX 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)
%>
<table width="470" cellspacing=1 cellpadding=0 align=center class=tableBorder1>
    <tr> 
      <th colspan="4" align="CENTER" height=25>公告管理</th>
    </tr>
    <tr> 
      <td Class="TableTitle2" align="CENTER" height=25 width="25">ID</td>
      <td Class="TableTitle2" align="CENTER" height=25 width="300">标题</td>
	  <td Class="TableTitle2" align="CENTER" height=25 width="55">日期</td>
	  <td Class="TableTitle2" align="CENTER" height=25 width="90">操作</td>
    </tr>

      

<%
Rs.move startRecx
Do While NOT rs.EOF
     If rs.absoluteposition <= startRec*SysX(0) Then
     id=rs("id")
	 TitleX=rs("TitleX")
	 DateX=month(rs("DateX"))&"-"&day(rs("DateX"))
            If rs.absoluteposition/2 <> CInt(rs.absoluteposition/2) Then
            %>
    <tr> 
      <td Class="TableBody1" align="CENTER" height=25 width="25"><%=id%></td>
      <td Class="TableBody1" height=25 width="300">&nbsp;<A HREF="show.asp?id=<%=id%>" target="_blank"><%=TitleX%></A></td>
	  <td Class="TableBody1" align="CENTER" height=25 width="55"><%=DateX%></td>
	  <td Class="TableBody1" align="CENTER" height=25 width="90"><A HREF="data_del_ad.asp?id=<%=id%>">Del</A>&nbsp;<A HREF="data_edit_ad.asp?id=<%=id%>">Edit</A></td>
    </tr>
			<%
	        Else
            %>
    <tr> 
      <td Class="TableBody2" align="CENTER" height=25 width="25"><%=id%></td>
      <td Class="TableBody2" height=25 width="300">&nbsp;<A HREF="show.asp?id=<%=id%>" target="_blank"><%=TitleX%></A></td>
	  <td Class="TableBody2" align="CENTER" height=25 width="55"><%=DateX%></td>
	  <td Class="TableBody2" align="CENTER" height=25 width="90"><A HREF="data_del_ad.asp?id=<%=id%>">Del</A>&nbsp;<A HREF="data_edit_ad.asp?id=<%=id%>">Edit</A></td>
    </tr>
			<%
	        End If


	 Else
       Exit do
	 End If
     rs.MoveNext
	 Loop
%>

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

dim url,widthX
widthX=470
url = "news_List_ad.asp?page="
fenpageV=fenpage(totalRecs,startRec,url,widthX)
Response.Write fenpageV
Else
Response.Redirect "INDEX.asp"
End If
%>
<!--#include file="footer.inc"-->