动感首页更新实现之二 ------ 首页保存篇

savearticle.asp
@#同上这也是安全的保证！
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<%
@#判断字符段是否为空!如果不加判断会对保存数据库造成影响！
if request.form("txttitle")="" then
response.write "错误提示:未输入标题!"
@#显示问题，强制暂停 response.end就是这个用处！
@#大家可从中慢慢体会！
response.end
end if
@#同上
if request.form("txtcontent")="" then
response.write "错误提示:未输入内容!"
response.end
end if
%>
@#articleconn.asp是数据库连接位置，分开放是因为数据库是可下载的！
@#以后用户改数据库名可保正不被人看到
<!--#include file="articleconn.asp"-->
@#这是自动换行的标识判断程序！
@#大家可下载动感首页更新看到，慢慢研究！
<!--#include file="inc/articlechar.inc"-->
<%
@#dim定义变量，VB爱好者的当然相当熟悉了（注意：不可重复定义）
dim listname
dim url
dim title
dim content
dim sql
dim rs
dim filename
dim articleid
dim outfile

@#htmlencode2看了articlechar.inc进行过滤
@#注意：txttitle,txtcontent,txturl的变化（几乎所有的ASP程序的关键）
@#阿喔认为，动感万不变，只有字符段变化，这是方便更新的关键！
@#
title=htmlencode2(request.form("txttitle"))
content=htmlencode2(request.form("txtcontent"))
url=htmlencode2(request.form("txturl"))

@#链接数据库articleconn.asp以帮你作了！
@#现在知道include的妙用了吧！
@#阿喔的http://asp.on.net.cn/都使用了include其方便更新帮了阿喔
@#一个大忙！
set rs=server.createobject("adodb.recordset")
sql="select * from learning where (articleid is null)"

@#打开数据库 conn,1,3中3是关键，写的意思可别少了！
rs.open sql,conn,1,3
@#添加新的数据
rs.addnew
@#大家看三个字符右出现了RS("title")表示数据库中项的名称
@#大家打开new.dmb就知道了！三个变量赋予数据库
rs("title")=title
rs("content")=content
rs("url")=url
rs("dateandtime")=date()
rs.update
@#ID为自动添加！
articleid=rs("articleid")

关闭数据库是一个习惯，要不然会影响服务器速度，造成系统崩溃！
rs.close
set rs=noting
conn.close
set conn=nothing

@#完成页面添加后制动进入index.asp页
response.redirect "index.asp"
%>

大家注意的是两点：
1.判断句数据是否为空是必要的，要不然会造成数据无法添加
2.Txttitle,txtil和txtcontent文字段，如何提交的数据库是关键

作者：阿喔 出处：<ASP动感在线> http://asp.on.net.cn/

(待续）

原文转自：http://www.ltesting.net