本文为：匆匆一笑 原创，需要转载请保持文章完整性

今天教大家做一个首页更新程序，即使大家是第一次接触ＡＳＰ，匆匆相信你都会很快明白，因为程序就是几句很简单的代码构成，没有任何高级手法，不信就接着往下看吧：

1、所需要文件列表：
#ccong .mdb　ACCESS数据库，当然你可以随便取名字了
show.asp     显示内容，并给出添加数据的表单
add.asp      执行添加数据文件
del.asp      删除数据
edit.asp     编辑旧数据
save.asp     保存编辑过数据

其实你可以把这几个文件整和在一个文件中，但是此处为了简单明了，我们就分开写了。

2、文件源代码：
（1）#ccong .mdb

使用微软ACCESS建立数据库，同时建立表：CcongData，库中字段：
CcongId      自动编号，储存信息顺序
CcongContent 备注，储存信息内容

（2）show.asp

<%

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''通常包含在conn.asp

On Error Resume Next '忽略错误，做高手一定要使用此句，防止程序发生错误时，黑客偷窥重要信息，调试程序时候，建议关闭
db="#ccong .mdb"  '连接数据库加#加空格，保护数据库非法下载
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr '打开数据库

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''通常包含在conn.asp

dim rs_ccong '自定义RS对象，高手都要自己定义方便程序阅读
set rs_ccong=server.createobject("adodb.recordset")
rs_ccong.open "select * from CcongData order by CcongId desc",conn,1,1   '只读方式从表打开记录
if rs_ccong.eof or rs_ccong.bof then  ' 指针是顶部或者底部，当然没有数据了
response.write"没有记录"
else

do while not rs_ccong.eof ' 指针不是顶部也不是底部，当然就有数据了
dim k '自定义变量
for k=1 to 1
response.write "<a href=del.asp?id="&rs_ccong("CcongId")&">ID</a>："&rs_ccong("CcongId")&"<a href=edit.asp?id="&rs_ccong("CcongId")&">内容</a>："&rs_ccong("CcongContent")&"   "  '用空格把结果分开
rs_ccong.movenext '继续往下移动指针
Next
response.write"<br>" '每行满3条信息自动加<br>--换行的方法
loop

end if
rs_ccong.close '关闭指针，节约资源
set rs_ccong= nothing
%>

<form name="CcongForm" action="add.asp" method="post">
<input type="text" name="CcongContent" size="20">
<input type="submit" name="submit" value="确定">
</form>

（3）add.asp
<%

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''通常包含在conn.asp

On Error Resume Next '忽略错误，做高手一定要使用此句，防止程序发生错误时，黑客偷窥重要信息，调试程序时候，建议关闭
db="#ccong .mdb"  '连接数据库加#加空格，保护数据库非法下载
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") '打开数据库

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''通常包含在conn.asp

dim rs_ccong '自定义RS对象，高手都要自己定义方便程序阅读

CcongContent=trim(request.form("CcongContent")) '注意区别del.asp
if CcongContent="" then
response.write "内容为空"
response.end '强制结束
end if
set rs_ccong=server.createobject("adodb.recordset")
rs_ccong.o

[1] [2] [3] 下一页

在google里搜索更多匆匆教你5分钟学会ASP一

	Web www.51ec.org