asp小型新闻发布系统
2007-05-11 09:23
369 查看
自己以前做的一个小型新闻发布系统,把它贴出来,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
%>
这些代码只是脚本部分,自己嵌入页面之中
首先数据库连接,因为数据小,所以选用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
%>
这些代码只是脚本部分,自己嵌入页面之中
相关文章推荐
- ASP.NET新闻发布系统初识
- 新闻发布系统 (Asp.net 三层架构 )
- 用文本+ASP打造新闻发布系统
- asp.net课程设计——新闻发布系统
- 一个小型的新闻发布系统的制作过程及源代
- 用文本+ASP打造新闻发布系统
- asp.net 非常简易的新闻发布系统,结合了ajax,json,Nvelocity模板引擎,只完成了一部分功能,非常适合新手看,我以前是学java方向的,刚接触.net,做的不好的别喷哈
- 2016 java web 期末大作业心得体会 -- 小型的新闻发布系统(承认自己做的很烂)
- asp.net简单新闻发布系统的增删改查
- 雷池新闻发布系统uploadPic.asp漏洞
- 小菜Asp.net第一个班级小组小项目 第一阶段需求的 新闻发布系统 小结
- 用文本+ASP打造新闻发布系统
- 初识ASP.net-牛腩新闻发布系统
- http://www.guaker.cn/jiaocheng/spjiaocheng/jichu/200605/9559.html( 视频asp,net 开发新闻发布系统)
- 【Dongle】【牛腩新闻发布系统】ASP无法识别
- 牛腩新闻发布系统——解惑:VS2012验证码加载不出来
- 牛腩新闻发布系统——你的IE内存需要清理
- JAVA_WEB项目(结合Servlet+jsp+ckEditor编辑器+jquery easyui技术)实现新闻发布管理系统第三篇:新闻发布,新闻修改,新闻删除功能的实现
- 关于新闻发布系统
- 2011-10-11 新闻发布系统制作1