计算机应用技术毕业论文.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用户登陆）   用户登陆  用户名 密码      验证码: input name=code type=text id=code value= size=10 maxlength=4 /                      六.（saveedit.asp 保存修改 ）七.（checklogin.asp登陆验证）%Function CheckPermission()If Session(user) then checkPermission=TRUEElsecheckPermission=FALSEEnd ifEnd FunctionDim TmpadminTmpadmin = CheckPermission()If Tmpadmin TRUE thenresponse.redirect login.aspEnd if%八.（Sessionck.asp登陆权限）九（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或密码有误！请您进行正确输入!);history.go(-1);response.endend ifif cstr(session(getcode)cstr(trim(request(code) thenresponse.Write alert(请输入正确的验证码！);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(系统无此用户请重新登陆！);window.location.href=login.asp;Elsesession(username)=rs(username)session(password)=rs(password)response.Redirect(index.asp)end ifrs.closeset rs=nothing%十.(conn.asp驱动)十一.（adminlogin.asp 留言薄）function 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= / 留言内容 留言时间 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:   新闻内容：                   0 then% 当前页/   首 页| a href=my.asp?page= class=a上页| a href=my.asp?page= class=a下页 | a href=my.asp?page= class=a尾 页 | 转到第 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= / 留言内容:                    留言时间： input name=addtime type=text id=addtime value= / 十八.(huifu.asp)form id=form1 name=form1 method=post action=savehuifu.asp?id= 回复人: input name=username type=text id=username value= / 回复内容: 回复时间: 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