一個功能完善的專欄管理的程序->這是asp.net的第二個應(yīng)用(三)

2019-11-18 21:48:02

字體：大中小

供稿：網(wǎng)友

一個功能完善的專欄管理的程序->這是 asp.net的第二個應(yīng)用(三)
/*
豆腐制作，都是精品
http://www.asp888.net 豆腐技術(shù)站
如轉(zhuǎn)載，請保留完整版權(quán)信息
*/
剛才說了一些題外話，現(xiàn)在我們來看看我們?nèi)绾螌⒃赼dd.aspx中輸入的數(shù)據(jù)保存在sql server中

<%
dim conn as SQLConnection
dim sqlRead as SQLDataReader
dim sqlCmd as SQLCommand
'這樣我們通過 func.aspx 文件的使用，對連接代碼等等很多通用的程序進行了同意的管理和調(diào)用
conn=GetConn()
dim strUserName as string
dim strPass as string
dim strSQL as string
strUserName=request.form("txtUserid")
strPass=request.form("txtPass")
strSQL="select UserPassWord from lanmuuser where username='" & replaceSql(strUserName) & "'"

sqlCmd=new SQLCommand(strSQL,conn)
sqlCmd.ActiveConnection.Open()
sqlCmd.Execute(sqlRead)
sqlCmd.ActiveConnection.Close()
'這個部分是對添加文章的用戶進行限制和管理
'在演示的版本中，這段代碼是屏蔽起來的，如果我們需要對用戶進行限制
'簡單的作個lanmuuser 的 table 就可以了
if not sqlRead.Read() then
response.Write("這個用戶不存在")
response.end
end if
if sqlRead(0)<>strPass then
'密碼不正確
response.Write("密碼不正確")
response.end
end if
'校驗合法
dim strClassid as string
strClassid=request.form("selClass")
dim strTitle as string
strTitle=request.form("txtTitle")
dim strContent as string
strContent=request.form("txtContent")
dim strSelFrom as string
strSelFrom=request.form("selFrom")
strSQL="insert into lanmu(classid,title,content,dtime,userid,IsUse,viewnum,selFrom)values("
strSQL=strSQL & "" & strClassId & ",'" & replaceSql(strTitle) & "','" & replaceSql(strContent) & "',"
strSQL=strSQL & "getdate(),'" & replaceSql(strUserName) & "','0',0,'" & strSelFrom & "')"

sqlCmd=new SQLCommand(strSQL,conn)
sqlCmd.ActiveConnection.Open()
'response.write(strSQL)
sqlCmd.execute
response.write("恭喜，恭喜，您的文章已經(jīng)成功的添加到了文章數(shù)據(jù)庫，管理員會在下次更新的時候檢查你的文章，如果沒有什么問題的話，您的文章將會很快出現(xiàn)在我們的欄目中")
response.end
%>

呵呵，是不是很簡單？：）別高興的太早，這個只是把數(shù)據(jù)存入了數(shù)據(jù)庫，下面我們就會在后面的文章中，看到我們是怎么樣把數(shù)據(jù)顯示出來的，畢竟，這個才識主要的：）

上一篇：一個功能完善的專欄管理的程序->這是asp.net的第二個應(yīng)用(四)

下一篇：一個功能完善的專欄管理的程序->這是asp.net的第二個應(yīng)用(二)