new.asp

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

<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<%
Dim displayX_Y,title,datexxx
SysX(1)=clng(SysX(1))
SysX(2)=clng(SysX(2))
displayX_Y=displayX_Y & ""
set rs=server.createobject("adodb.recordset")
sql = "select top "&SysX(1)&" * from NewsData order by id desc"
rs.open sql,conn,1,1
        if not rs.eof then
        rs.movefirst
        End If
                do while not rs.eof
                        if strLength(rs("TitleX"))>SysX(2) then
                        title=gotTopic(rs("TitleX"),SysX(2))
                        else
                        title=rs("TitleX")
                        end if
                datexxx=month(rs("DateX")) & "-" & day(rs("DateX"))
                displayX_Y=displayX_Y &"<img src="&SysPathX&"/images/br_dot.gif><a href="&SysPathX&"/show.asp?id=" & rs("id") & ">"&title&"</a>&nbsp;<font size=1>["&datexxx&"]</font><br>"
                rs.movenext
                loop
                 displayX_Y=displayX_Y &"<a href="&SysPathX&"/display.asp>More</A>"
rs.close
conn.close
set rs=nothing
set conn=nothing
displayX_Y="document.write('"&displayX_Y&"');"
response.write displayX_Y
%>