計(jì)算機(jī)應(yīng)用技術(shù)畢業(yè)論文.doc

代碼部分：一.（Manager.asp 用戶管理） 用戶添加 用戶管理  id username password 刪除   修改 a href=deluser.asp?id= class=h12刪除a href=edituser.asp?id= class=h12 修改  二.（Adduser.asp 用戶添加）三.（editor.asp用戶修改編輯）form id=form1 name=form1 method=post action=saveedit.asp?id= 用戶名 input name=username type=text id=username value= / 密碼 input name=password type=text id=password value= /                    四.（deluser.asp用戶的刪除）五.（login.asp用戶登陸）   用戶登陸  用戶名 密碼      驗(yàn)證碼: input name=code type=text id=code value= size=10 maxlength=4 /                      六.（saveedit.asp 保存修改 ）七.（checklogin.asp登陸驗(yàn)證）%Function CheckPermission()If Session(user) then checkPermission=TRUEElsecheckPermission=FALSEEnd ifEnd FunctionDim TmpadminTmpadmin = CheckPermission()If Tmpadmin TRUE thenresponse.redirect login.aspEnd if%八.（Sessionck.asp登陸權(quán)限）九（check.asp）%a=trim(request.form(username)b=trim(request.form(password)verifycode=replace(trim(request(code),)if a= or b= thenresponse.Write alert(您的管理ID或密碼有誤！請(qǐng)您進(jìn)行正確輸入!);history.go(-1);response.endend ifif cstr(session(getcode)cstr(trim(request(code) thenresponse.Write alert(請(qǐng)輸入正確的驗(yàn)證碼！);history.go(-1);response.endend ifset rs=server.createobject(adodb.recordset)sql=select * from user where username=&a& and password=&b& rs.open sql,conn,1,3if rs.eof and rs.bof thenresponse.Write alert(系統(tǒng)無此用戶請(qǐng)重新登陸！);window.location.href=login.asp;Elsesession(username)=rs(username)session(password)=rs(password)response.Redirect(index.asp)end ifrs.closeset rs=nothing%十.(conn.asp驅(qū)動(dòng))十一.（adminlogin.asp 留言?。ゝunction checkform() if(form1.username.value=) alert(用戶名不能為空！); return false; if(form1.password.value=) alert(密碼不能為空！); return false; return true; 用戶名    &nbs p; 密  碼                    十二.（admin_index.asp）% set rs = server.CreateObject(adodb.recordset) sql = select * from book order by id desc rs.Open sql,conn,1,1 Do While Not rs.eof response.write (留言者姓名:&rs(username)&) response.write (留言:&rs(content)&) response.write (修改 刪除) rs.movenext Loop rs.close Set rs = Nothing response.write (退出) %十三.(admin_index.asp)% set rs = server.CreateObject(adodb.recordset) sql = select * from book order by id desc rs.Open sql,conn,1,1 Do While Not rs.eof response.write (留言者姓名:&rs(username)&) response.write (留言:&rs(content)&) response.write (修改 刪除) rs.movenext Loop rs.close Set rs = Nothing response.write (退出) %.(useredit.asp) 留言者 input name=username type=text id=username value= / 留言內(nèi)容 留言時(shí)間 input name=addtime type=text id=addtime value= /                        十四.(admin_check.asp)% username = request.form(username) password = request.Form(password) sql=select * from user where username=&username&and password=&password& set rs=server.CreateObject(adodb.recordset) rs.Open sql,conn,1,1 If not(rs.bof and rs.eof) Then session(user)=rs(username) session(pwr)=rs(password) session.Timeout=600 rs.Close set rs=nothing response.redirect(admin_login.asp) else response.write (alert(用戶名或者密碼不正確！);location=index.asp;) End If%十五.(save_admin.asp)十六.(my.asp) Hot  News最新留言信息：                                                             a href=delusernews.asp?newsid= class=h12 刪除.   newsid: title： addtime:   新聞內(nèi)容：                   0 then% 當(dāng)前頁/   首 頁| a href=my.asp?page= class=a上頁| a href=my.asp?page= class=a下頁 | a href=my.asp?page= class=a尾 頁 | 轉(zhuǎn)到第 option value=my.asp?page= selected=selected option value=my.asp?page= 頁     十七.(adminedit.asp)form id=form1 name=form1 method=post action=saveadmin.asp?id= 留言姓名: input name=username type=text id=username value= / 留言內(nèi)容:                    留言時(shí)間： input name=addtime type=text id=addtime value= / 十八.(huifu.asp)form id=form1 name=form1 method=post action=savehuifu.asp?id= 回復(fù)人: input name=username type=text id=username value= / 回復(fù)內(nèi)容: 回復(fù)時(shí)間: input name=Hftime type=text id=Hftime value= /                      十九.（addmessages.asp）% username=trim(Request.Form(username) content=Request.Form(content) addtime=Request.Form(addtime) if username and content then% % set rs=server.Cre