savearticle.asp
'同上這也是安全的保證！
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<%
'判斷字符段是否為空!如果不加判斷會對保存數(shù)據(jù)庫造成影響！
if request.form("txttitle")="" then
response.write "錯誤提示:未輸入標題!"
'顯示問題，強制暫停 response.end就是這個用處！
'大家可從中慢慢體會！
response.end
end if
'同上
if request.form("txtcontent")="" then
response.write "錯誤提示:未輸入內(nèi)容!"
response.end
end if
%>
'articleconn.asp是數(shù)據(jù)庫連接位置，分開放是因為數(shù)據(jù)庫是可下載的！
'以后用戶改數(shù)據(jù)庫名可保正不被人看到
<!--#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程序的關(guān)鍵）
'阿喔認為，動感萬不變，只有字符段變化，這是方便更新的關(guān)鍵！
'
title=htmlencode2(request.form("txttitle"))
content=htmlencode2(request.form("txtcontent"))
url=htmlencode2(request.form("txturl"))

'鏈接數(shù)據(jù)庫articleconn.asp以幫你作了！
'現(xiàn)在知道include的妙用了吧！
'阿喔的http://asp.on.net.cn/都使用了include其方便更新幫了阿喔
'一個大忙！
set rs=server.createobject("adodb.recordset")
sql="select * from learning where (articleid is null)"

'打開數(shù)據(jù)庫 conn,1,3中3是關(guān)鍵，寫的意思可別少了！
rs.open sql,conn,1,3
'添加新的數(shù)據(jù)
rs.addnew
'大家看三個字符右出現(xiàn)了RS("title")表示數(shù)據(jù)庫中項的名稱
'大家打開new.dmb就知道了！三個變量賦予數(shù)據(jù)庫
rs("title")=title
rs("content")=content
rs("url")=url
rs("dateandtime")=date()
rs.update
'ID為自動添加！
articleid=rs("articleid")

關(guān)閉數(shù)據(jù)庫是一個習慣，要不然會影響服務器速度，造成系統(tǒng)崩潰！
rs.close
set rs=noting
conn.close
set conn=nothing

'完成頁面添加后制動進入index.asp頁
response.redirect "index.asp"
%>

大家注意的是兩點：
1.判斷句數(shù)據(jù)是否為空是必要的，要不然會造成數(shù)據(jù)無法添加
2.Txttitle,txtil和txtcontent文字段，如何提交的數(shù)據(jù)庫是關(guān)鍵

（出處：熱點網(wǎng)絡）