ASP進階之文章在線管理更新（十二）

發(fā)布時間：2008-07-10 閱讀數(shù)：次來源：網(wǎng)樂原科技

ASP進階之文章在線管理更新--管理員&欄目管理篇

作者：沙灘小子

前面的章節(jié)已經(jīng)基本實現(xiàn)了文章管理系統(tǒng)的大部分功能，但是在本系統(tǒng)中，管理員姓名和密碼以及欄目的更新都要自己在數(shù)據(jù)庫中操作，這樣并沒有完全實現(xiàn)系統(tǒng)的完全在線管理更新，所以我最近對管理系統(tǒng)進行了進一步的完善，對其增加了相關(guān)功能，實現(xiàn)的真正意義上的文章管理系統(tǒng)在線管理更新！

實現(xiàn)這些功能也是通過對數(shù)據(jù)庫的更新甚至新增內(nèi)容來實現(xiàn)的，在這里活用數(shù)據(jù)庫操作命令updata和addnew是關(guān)鍵，那些地方該用UPDATA，那些地方該用ADDNEW在這里都可以體現(xiàn)出來，下面就為大家介紹其詳細的實現(xiàn)過程！

文件changepass.asp

"打開數(shù)據(jù)庫連接文件

<%
"限制管理用戶才能進入
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改密碼欄目信息</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<div align="center"><center>
<font face=楷體_gb2312 size=4>動網(wǎng)文章管理管理員頁面</font>
<table border="1" width="80%" bordercolorlight="#000000" cellspacing="0" cellpadding="0"
bordercolordark="#FFFFFF">
<%
dim rs,tsql
dim rst
"打開記錄集ADMIN,并顯示其內(nèi)容
set rs=server.CreateObject("ADODB.RecordSet")
set rst=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin",conn,1
%>
<tr>
<td width="50%" align=center><form name=pass method="post" action="changepass.asp">
<font color=red>修改管理員信息</font></td>
<td width="50%" rowspan="4">* 如點擊修改后仍顯示原來密碼不用理會，密碼已經(jīng)按照您輸入的修改，您可以用新密碼登陸看看，或者點刷新選擇重試，這時顯示將正常！　</td>
</tr>
<tr>
<td width="50%" align="center">
<INPUT TYPE="hidden" name=method value="chan">

"在輸入欄內(nèi)顯示原來的管理員名稱和密碼,可以在這里直接輸入新的用戶名和密碼
<INPUT TYPE="hidden" name=id value="<%=rs("id")%>">
名字：<INPUT TYPE="text" size=10 NAME="name" value="<%=rs("username")%>">
　</td>
</tr>
<tr>
<td width="50%" align="center">密碼：<INPUT TYPE="text" size=10 NAME="pass" value="<%=rs("password")%>">
　</td>
</tr>
<tr>
<td width="50%" align="center"><INPUT name="change" class=buttonface value="修改" type='submit'>
　</td>
</tr>
</form>
"當返回的method值為提示修改密碼的chan,chan在填寫管理員名稱和密碼的from里面用value定義,所以當返回的是chan則提示為修改密碼,可以進行數(shù)據(jù)庫更新,否則將不執(zhí)行UPDATA命令
<%
rs.close
if request("method")="chan" then
if request("change")="修改" then
rs.open "select * from admin where id="+request("id"),conn,1,3
"利用返回的管理員ID指定記錄集中的記錄并對其進行更新
rs("username")=request("name")
rs("password")=request("pass")
rs.Update
end if
end if
rs.close
%>
<tr>
<td width="50%" valign="top">
<%
"打開顯示文章欄目記錄集
rst.open "select * from type",conn,1
if rst.EOF then
response.write "沒有欄目：（"
else
%><br>
<form name=edittype method="post" action="changepass.asp">
<p align=center><font color=red>文章欄目管理</font><br>
<%do while NOT rst.EOF%>

"依次顯示文章的欄目,并可通過點擊刪除,修改進行相關(guān)操作
<%=rst("type")%>
<a href="changepass.asp?typeid=<%=rst("typeid")%>&name=del">刪除</a>
<a href="changepass.asp?typeid=<%=rst("typeid")%>&name=edit">修改</a>
<br>
<%
rst.MoveNext
loop
end if
rst.close
%>
</form>
"假如返回的NAME為DEL則提示用戶點擊了刪除連接,那么將對數(shù)據(jù)庫指定記錄集進行刪除操作
<%
if request("name")="del" then
rst.open "delete * from type where typeid="+request("typeid"),conn,1
rst.close
end if
%>

"假如返回的NAME為EDIT則提示用戶點擊了修改按鈕,這時候會利用返回的欄目ID(TYPEID)顯示相關(guān)欄目的操作信息,并可在里面填寫你想要修改的欄目名稱
<%if request("name")="edit" then
rst.open "select * from type where typeid="+request("typeid"),conn,1
%>
<form name=ctype method="post" action="changepass.asp">
<INPUT TYPE="hidden" name=method value="modified">
<INPUT TYPE="hidden" name=typeid value="<%=request("typeid")%>">
<INPUT TYPE="text" size=10 NAME="typename" value="<%=rst("type")%>">
<INPUT name="changetype" class=buttonface value="修改" type='submit'>
</form>
<%
end if
rst.close

"當顯示了相關(guān)欄目信息后,利用已經(jīng)在修改的from里面定義的method和changetype判定用戶是否點擊了修改按鈕,并利用UPDATA對數(shù)據(jù)庫進行更新
if request("method")="modified" then
if request("changetype")="修改" then
rst.open "select * from type where typeid="+request("typeid"),conn,1,3
rst("type")=request("typename")
rst.Update
end if
end if
rst.close
%>
　</td>
<td width="50%" valign="top"><br><p align=center><font color=red>增加欄目</font><br>

"在輸入欄內(nèi)輸入想要新增的欄目名稱
<form name=add method="post" action="changepass.asp">
<INPUT TYPE="hidden" name=method value="added">
<INPUT TYPE="text" size=10 NAME="addtype">
<INPUT name="way" class=buttonface value="增加" type='submit'>
</form><br>
*在增加欄目以后必須刷新才能出現(xiàn)新增的欄目，但是刷新了以后要是選擇重試就會重新增加一個欄目，所以建議大家這時候點擊別的地方連接，比如修改欄目里面的修改，這樣新增的欄目就會出來了！

"假如從from傳來的信息method為added,則對指定記錄集進行新增記錄操作,欄目名稱為從增加欄目的FROM處返回的addtype
<% if request("method")="added" then
rst.open "select * from type",conn,3,2
rst.addnew
rst("type")=request("addtype")
rst.update
rst.close
end if %>
</td>
</tr>
</table>
</center></div>
</body>
</html>

好了，關(guān)于怎樣利用ASP做文章的在線更新管理系統(tǒng)到這里就全部完成了，相信你看到這里一定可以感覺到它的易用性和功能的強大性，那么怎么還不趕快自己回去研究研究，自己弄一個來看看：）關(guān)于本系統(tǒng)的具體實例可以去http://asky.on.net.cn/article看看，由于本人水平有限，要有什么BUG還請告訴我哦，有什么問題可以與我連系：wodeail@etang.com。

轉(zhuǎn)載請注明出處http://asky.on.net.cn