"打開數據庫連接文件 <!--#include file="conn.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>
"假如從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>
