asp小型新闻发布系统

 自己以前做的一个小型新闻发布系统,把它贴出来,1.自己熟悉一遍,2,也方便刚初学的有一点提示

首先数据库连接,因为数据小,所以选用access2003

要是你们在access2000能添加上,而在access2003连接不上,就把数据库文件的属性改一下'

现在我们开始写代码,我只写对新闻的添加,删除,查找,显示,其它代码就不写了

(1)先写一个数据连接的代码保存为conn.asp

<%

set conn=server.createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source=" server.mappath("/新闻发布.mdb")

set rs=server.createobject("adodb.recordset")

%>

(2)首页就应显示新闻,因为不知道有多少条新闻记录,所以我们有分页显示

<!--#include file="conn.asp"-->

<%

sql="select * from 新闻发布"

rs.open sql,conn,1,3

rs.pagesize=10

page=request("page")

if page<1 then page=1

if page>rs.pagecount then page=rs.pagecount

%>

<table border=0>

<tr><td>序号</td>

<%

for i=1 to rs.fields.count-1

response.write "<td>" & rs.fields(i).name & :"</td>"

next

%>

</tr>

<%

rs.absolutepage=page

for ipage=1 to rs.pagesize

t=(page-1)*pagesize +ipage

%>

<tr><td><%=t%></td>

 

<%

for i=1 to rs.fileds.count-1

%>

<td><%=rs.fields(i).value%></td>

<%next %>

</tr>

<%

rs.movenext

if rs.eof then exit for

%>

 

</table>

<%

if page<>1 then

response.write "<a href=News.asp?page=1>第一页</a>"

response.write "<a href=News.asp?page=" & (page-1) & ">上一页</a>"

end if

if page <> rs.pagecount then

response.write "<a href=News.asp?page=" & (page+1) &">下一页</a>"

response.write "<a href-=News.asp?page= " & (rs.pagecount) &" >下一页</a>"

end if

rs.close

conn.close

set rs=nothing

%>

保存为News.asp

(3)添加新新闻

<!--#include file="conn.asp"-->

<%

sql="select * from 新闻发布"

rs.open sql,conn,1,3

rs.addnew

rs("title")=title

rs("author")=author

rs("date")=data

rs.update

rs.close

conn.close

set  rs=nothing

%>

title ,author data是HTML表单中提取出来的值,用

title=request.form("文本框名字")

(4)删除新闻

你可以把标题设置为主键,这样,可以限制不能有重复的新闻

title设置为主建键

<!--#include file="conn.asp"-->

<%

 

rs.open "select * form 新闻发布 where title='title' ",conn,1,3

rs.delete

rs.close

conn.close

%>

这些代码只是脚本部分,自己嵌入页面之中