ASP进阶之文章在线管理更新(13)

　2000-08-04 10:52:21　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣椤愯姤鎱ㄥ鍡楀幊缂傚倹姘ㄩ幉绋款吋閸澀缃曢梻鍌欑濠€閬嶆惞鎼淬劌绐楅柡宥庡亞娑撳秵銇勯弽顐沪闁绘挶鍎甸弻锝夊即閻愭祴鍋撻崷顓涘亾濮樼偓瀚�

闂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣捣閻棗銆掑锝呬壕濡ょ姷鍋涢ˇ鐢稿极閹剧粯鍋愰柟缁樺笧閳ь剦鍙冨鍝勑ч崶褏浠奸梺璇茬箲閼归箖鎮鹃悜钘夎摕闁靛濡囬崢鐢告⒑鐟欏嫷鍟忛柛鐘崇墵閵嗗倹绺介崨濠勫幈闁硅壈鎻槐鏇熺墡闂備線娼уú銈団偓姘嵆閻涱噣骞掑Δ鈧粻锝嗙節闂堟稑鏆欏ù婊堢畺閺岋綁濮€閳惰泛婀辨竟鏇熺節濮橆厾鍘甸梺缁樺姦閸撴岸鎮樻潏銊ょ箚闁圭粯甯炴晶娑氱磼缂佹ḿ娲寸€规洖宕灃闁告劕鍟犻崜婵堟崲濞戞ḿ鏆嗗┑鐘辫兌閺佹牜绱撴担浠嬪摵闁圭懓娲ら悾鐑藉箳閹搭厽鍍甸梺鐟板悁閻掞箓鎮楅幖浣光拻濞达絿鍎ら崵鈧梺鎼炲€栭悧鐘荤嵁韫囨稒鏅搁柨鐕傛嫹

婵犵數濮烽弫鍛婃叏閻戣棄鏋侀柛娑橈攻閸欏繑銇勯幘鍗炵仼缂佺媭鍨堕弻娑㈠箛闂堟稒鐏堥悗鐟版啞缁诲啴濡甸崟顖氱閻庨潧鎽滈悾濂告⒑绾拋娼愭繛鑼枎椤繒绱掑Ο鑲╂嚌闂侀€炲苯澧畝锝堝劵椤︽煡鎮￠妶澶嬬厪闁割偅绻冮崑顏呯箾瀹割喕绨婚幆鐔兼⒑鐎圭姵銆冮柤鍐茬埣瀹曟繈鏁冮埀顒勨€旈崘顔嘉ч柛鈩冾殘閻熸劙姊洪悡搴℃毐闁绘牕銈稿畷鐑樼節閸パ冨祮闂侀潧楠忕槐鏇㈠储椤忓牊鈷戦柟鑲╁仜閸旀鏌￠崨顔锯姇缂佸倹甯熼ˇ瀵哥磼鏉堛劌绗氭繛鐓庣箻閸┾剝鎷呴柨瀣垫綗闂傚倷娴囧銊╂倿閿曞倸绠查柛銉墮閺嬩線鏌熼崜褏甯涢柡鍛倐閺屻劑鎮ら崒娑橆伓闂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣椤愯姤鎱ㄥ鍡楀幊缂傚倹姘ㄩ幉绋款吋閸澀缃曢梻鍌欑濠€閬嶆惞鎼淬劌绐楅柡宥庡亞娑撳秵銇勯弽顐沪闁绘挶鍎甸弻锝夊即閻愭祴鍋撻崷顓涘亾濮樼偓瀚�　　闂傚倸鍊搁崐鎼佸磹閹间礁纾归柣鎴ｅГ閸ゅ嫰鏌ら崫銉︽毄濞寸姵姘ㄧ槐鎾诲磼濞嗘帒鍘＄紓渚囧櫘閸ㄥ爼濡撮崘顔煎窛闁哄鍨归崢娲倵楠炲灝鍔氭い锔诲灦瀹曪繝骞庨懞銉у帾闂婎偄娲﹀ú鏍ㄧ墡闂備浇顕х€垫帡宕滈悢濂夋綎闁惧繐婀辩壕鍏间繆椤栨碍鎯堟い顐㈢Т椤啴濡堕崱妤€顫庨梺鍛婎焼閸パ呭弨婵犮垼娉涜癌闁绘柨鍚嬮悡銉╂倵閿濆骸鍘撮柛瀣尰缁绘繂顫濋娑欏闁荤喐绮庢晶妤冩暜閹烘挾顩插ù鐓庣摠閻撴洟鏌熼幆褜鍤熼柍钘夘樀閺屽秶绱掑Ο鑽ゅ弳濡炪値鍋呯换鍫ュ箠濠婂懎鏋堟俊顖濐嚙椤忓綊姊婚崒娆戭槮闁硅绱曠划娆撳箣閿斿搫浜奸梺鍝勵槹閸ㄧ喖寮搁弮鍫熺厸闁告劧绲芥禍鍓х磽娴ｈ櫣甯涚紒瀣尰缁傛帡鏁冮崒姘憋紲濠殿喗锕╅崜锕傛倵閹惰姤鈷掑ù锝呮憸閿涘秶绱掗鍛仸妤犵偞鍨垮畷鍫曨敆閸屾氨銈﹂梺璇插嚱缂嶅棙绂嶉弽顓炵哗濞寸姴顑嗛悡娆撴⒑椤撱劎鐣卞褜鍨遍妵鍕棘閸喒鍋撶憴鍕攳濠电姴娲﹂崐閿嬨亜韫囨挸顏ら柛瀣崌瀵€燁檨婵炲吋鐗曢埞鎴︽偐鐎圭姴顥濋梺绋胯閸斿酣骞夊宀€鐤€婵炴垶岣块悿鍛存⒑閸︻叀妾搁柛鐘愁殜瀵煡骞栨担鍦弳闂佺粯娲栭崐鍦偓姘炬嫹

核心提示：asp进阶之文章在线管理更新--管理员&栏目管理篇作者：沙滩小子前面的章节已经基本实现了文章管理系统的大部分功能，但是在本系统中，ASP进阶之文章在线管理更新(13)，管理员姓名和密码以及栏目的更新都要自己在数据库中操作，这样并没有完全实现系统的完全在线管理更新，关于怎样利用ASP做文章的在线更新管理系统到这里就全部完

asp进阶之文章在线管理更新--管理员&栏目管理篇

作者：沙滩小子

　　前面的章节已经基本实现了文章管理系统的大部分功能，但是在本系统中，管理员姓名和密码以及栏目的更新都要自己在数据库中操作，这样并没有完全实现系统的完全在线管理更新，所以我最近对管理系统进行了进一步的完善，对其增加了相关功能，实现的真正意义上的文章管理系统在线管理更新！

　　实现这些功能也是通过对数据库的更新甚至新增内容来实现的，在这里活用数据库操作命令updata和addnew是关键，那些地方该用UPDATA，那些地方该用ADDNEW在这里都可以体现出来，下面就为大家介绍其详细的实现过程！

　　文件changepass.asp

　　"打开数据库连接文件

<%
　　"限制管理用户才能进入
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>动网文章管理管理员页面</font>
<table border="1" width="80%" bordercolorlight="#000000" cellspacing="0" cellpadding="0"
bordercolordark="#FFFFFF">
<%
dim rs,tsql
dim rst
　　"打开记录集ADMIN,并显示其内容
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">* 如点击修改后仍显示原来密码不用理会，密码已经按照您输入的修改，您可以用新密码登陆看看，或者点刷新选择重试，这时显示将正常！　</td>
　</tr>
　<tr>
　　<td width="50%" align="center">
<INPUT TYPE="hidden" name=method value="chan">

　　"在输入栏内显示原来的管理员名称和密码,可以在这里直接输入新的用户名和密码
<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则提示为修改密码,可以进行数据库更新,否则将不执行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%>

　　"依次显示文章的栏目,并可通过点击删除,修改进行相关操作
<%=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则提示用户点击了删除连接,那么将对数据库指定记录集进行删除操作
<%
　if request("name")="del" then
rst.open "delete * from type where typeid="+request("typeid"),conn,1
rst.close
　end if
%>

　 "假如返回的NAME为EDIT则提示用户点击了修改按钮,这时候会利用返回的栏目ID(TYPEID)显示相关栏目的操作信息,并可在里面填写你想要修改的栏目名称
<%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

　　"当显示了相关栏目信息后,利用已经在修改的from里面定义的method和changetype判定用户是否点击了修改按钮,并利用UPDATA对数据库进行更新
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>
　　
　　"在输入栏内输入想要新增的栏目名称
<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>
*在增加栏目以后必须刷新才能出现新增的栏目，但是刷新了以后要是选择重试就会重新增加一个栏目，所以建议大家这时候点击别的地方连接，比如修改栏目里面的修改，这样新增的栏目就会出来了！

　　"假如从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>

　　好了，关于怎样利用ASP做文章的在线更新管理系统到这里就全部完成了，相信你看到这里一定可以感觉到它的易用性和功能的强大性，那么怎么还不赶快自己回去研究研究，自己弄一个来看看：）