计算机系毕业论文样本21-37.doc

石家庄外国语职业学院毕业论文5.3 关键代码设计5.3.1 用户登陆关键代码if (Convert.ToInt32(DBManager.executeGetReturn(strSql) 0) /用户名存在，进行密码验证 strSql = select count(*) from userlogin where username = + loginname + and userpassword = + loginpassword + ; if (Convert.ToInt32(DBManager.executeGetReturn(strSql) 0) /if (Convert.ToInt32(DBManager.executeGetReturn(strSql) 0) /用户密码正确，运行登录 /加入Session strSql = select usertype from userlogin where username = + loginname + and userpassword = + loginpassword + ; string usertype=DBManager.executeGetReturn(strSql); SessionuserName=this.username.Text;/我们将用户名保存入Session中。 Sessionusertype = usertype; Response.Redirect(这里输入你要跳转到的页面譬如“index.aspx”); else /用户名正确，但密码不正确 showlabel.Text = 对不起，你输入的密码不正确; password.Text = ; password.Focus(); else / 用户名不正确, showlabel.Text = 对不起，你所输入的用户名不正确。; username.Text = ; password.Text = ; 图10 登陆界面 5.3.2数据库连接代码页面 conn.asp 5.3.3 login.asp连接文件代码 %checkuser=request(checkuser) if checkuser=登录 then 如果点击了登录按钮那么检索用户 set rs=conn.execute(select fno from user where fno=&request(fno)& and fpass=&request(fpass)&) if rs.bof and rs.eof then response.write(alert(对不起，您输入的用户明或密码有误);history.back(-1);) else session(fno)=request(fno) 比如用户输入的登录名和密码正确，则记录其已经登陆，我用了session方法，当然你也可以使用cookies方法来标记登陆的用户 response.write(alert(您好，&session(fno)&，欢迎您登陆!);location.href=这里写登陆用户要跳到的叶面;) end if end if checkuser= % 登录名: 登陆密码： 好了，到这里数据库的连接、输入登陆者信息、登陆信息的验证以及登陆后叶面的跳转都做好了Top selpage= trim(Request(garden) if selpage= then call abc() else call cde() end if sub abc() 用户名： 密  码： end sub sub cde() dim name,paswd,Messagetext,tmpvar name=trim(Request(username) paswd=trim(Request(userpswd) tmpvar= if name= or paswd= then Messagetext=请输入用户名和密码登录！ Message_Box(Messagetext) end if set conn = Server.CreateObject(ADODB.connection) DBPath=Server.MapPath(agr.mdb) conn.OpenDriver=Microsoft Access Driver (*.mdb);DBQ=&DBPath SQLcmd=Select * From user Where fno=&name& and fpass=&paswd& Set rs = conn.Execute(SQLcmd) if rs.bof() and rs.eof() then Messagetext=用户没注册活密码不对！ Message_Box(Messagetext) else tmpvar=rs(fno) end if if tmpvar= then Messagetext=未知错误！ Message_Box(Messagetext) end if session(ynlogin)= true Messagetext=用户&tmpvar&已经成功登录！ Message_Box(Messagetext) end sub function Message_Box(text) Response.write Response.write alert(&text&); Response.write history.go(-1); Response.write Response.end end function 图11 后台首页界面 图12 login界面 5.3.4页面相同基本信息代码页面 include.asp %set oRs=server.createobject(adodb.recordset)sSql=Select Top 1 * From WebBasicInfooRs.Open sSql,Conn,1,1If Not oRs.Eof ThenW_ID=oRs(W_ID)W_WebsiteAppe=oRs(W_WebsiteAppe)W_SuppExpl=oRs(W_SuppExpl)W_WebSiteName=oRs(W_WebSiteName)W_WebSiteUrl=oRs(W_WebSiteUrl)W_StatMastName=oRs(W_StatMastName)W_StatMastEmail=oars(W_StatMastEmail)W_StatMastQQ=orbs(W_StatMastQQ)W_WebSiteKeyword=oRs(W_WebSiteKeyword)W_WebSiteIntr=oRs(W_WebSiteIntr)W_WebSiteCopyInfo=oRs(W_WebSiteCopyInfo)isBook=oRs(W_DownCataShowClose)End IfoRs.CloseIf W_WebsiteAppe=False ThenResponse.Write Response.Write W_SuppExplResponse.Write Response.EndEnd IfDim WebTitle,WebNameWebName=W_WebSiteName&-&W_WebSiteUrlWebTitle=%5.3.5图片显示功能模块代码 %id=RequestQueryNum(id)If id0 ThenSet rs=conn.execute(Select * From photo Where id=& id &)If rs.bof And rs.eof ThenResponse.Write param error!Response.EndEnd IfIf Not rs.eof ThenstrTitle=rs(title)cid=rs(categoryid)strImg=400) this.height=400;/strContent=rs(content)End IfSet rs=conn.Execute(Select top 1 id from photo Where id & id & and categoryid=& cid & order by id desc)If rs.bof And rs.eof ThenlinkNext=ElselinkNext=End IfSet rs=conn.Execute(Select top 1 id from photo Where id & id & and categoryid=& cid & order by id asc)If rs.bof And rs.eof ThenlinkPre=ElselinkPre=End IfEnd If%作品展示meta name=keywords content=body background: url(images/bg.jpg);top.window.moveTo(0,0);if (document.all) top.window.resizeTo(screen.availWidth,screen.availHeight);else if (document.layers|document.getElementById) if (top.window.outerHeightscreen.availHeight|top.window.outerWidthscreen.availWidth)top.window.outerHeight = screen.availHeight;top.window.outerWidth = screen.availWidth;  writeflashhtml(_swf=images/29.swf, _width=800, _height=600 ,_wmode=transparent); 说明：   a href=photoClass.asp?cid= 图13 图片浏览界面 日志、影音收藏显示模块代码段大致相同。5.3.6发表留言提交内容模块代码在线留言 writeflashhtml(_swf=images/gbook.swf, _width=270, _height=26 ,_wmode=transparent); 图14 留言板界面 5.4 网站管理系统5.4.1完成站长对网站信息管理及更新的系统，包括以下几部分：1管理登陆页面程序文件Index.asp2相册管理页面程序文件Admin_photo.asp3日记管理页面程序文件Admin_notebook.asp4音乐管理页面程序文件Music.asp5留言管理页面程序文件Admin-guestBook.asp5.4.2管理登陆管理系统的登陆页面，主要用于管理登陆和判断用户是否已注册。其中网站登陆的代码为：%If RequestQueryStr(action)=LOGOUT Thensession(admin)=session(role)=Response.Redirect (./index.asp)Call MessageBox(退出成功,./index.asp)End IfDim MyValueRandomize MyValue = Int(9999 - 1000 + 1) * Rnd + 1000)If RequestFormStr(action)=LOGIN thenadmin=RequestFormStr(admin)password=RequestFormStr(password)checkcode=RequestFormNum(checkcode)checkcodeO=RequestFormNum(checkcodeO)If admin= ThenCall MessageBox(用户名不能为空!,)Response.EndEnd IfIf password= ThenCall MessageBox(密码不能为空!,)Response.EndEnd IfIf checkcode checkcodeO ThenCall MessageBox(验证不正确!,)Response.EndEnd IfSet rs=conn.Execute(Select * From admin Where admin=& admin & and password=& md5(password) &)If rs.eof And rs.bof ThenCall MessageBox(用户名或密码不正确!,)Response.EndElsesession(admin)=adminsession(role)=rs(role)session.timeOut=60Response.Redirect(index.asp)End IfEnd If%后门登陆界面input name=checkcodeO type=hidden value= 大门登陆 用户名：   密  码：   附加码：   请在附加码框输入   图15 访问量查看 第6章 网站测试与维护6.1 IIS(Internet 信息服务)测试点击开始管理工具Internet 信息服务(IIS)管理器，打开IIS管理器。在本地计算机 网站默认网站上右键单击，在快捷菜单里选属性(或者直接在操作菜单下选属性)打开网站，默认路径是系统盘:Inetpubwwwroot。在此环境下运行测试网站。6.2 Dream weaver测试站点和用IIS测试本地站点 Dream weaver MX提供了全面检测站点的功能，它比检测链接更全面。全面地检测内部、外部链接、去除错标签、空标签、多余的标签等，它的使用相当简单，使用全面检测站点功能如下： 1、选择菜单中【站点】的【报告】命令，打开一个窗口。 2、选择检测范围，在【报告】选项中有四个内容供选择：Current Document、Entire Local Site、Select Files in site、Folder。 3、对HTML文件的信息做出检查。 把编好的网站文件复制到虚拟目录文件夹中，可以打开浏览器，在地址栏中输入网址就会看见网站了。6.3 维护 网站建成后并不意味着网站建设的结束，网站内容需要不断更新，这样才会不断的吸引更多的浏览者访问，才能成为一个优秀的网站。通过FTP软件将更新过的网页上传到服务器或通过Dream weaver MX来远程管理站点，同时还要认真回复浏览者的电子邮件和留言，做到有问必答。平时多收集资料，定期更新版面，推广站点。 结束语在历时将近三个月的时间里，我的毕业设计是从学习新的知识（ASP语言和HTML语言），到建立个人网站。我遇到了若干的问题和解决了不少的问题，现在还有未知安全性和可靠性的未能发现和解决。从建立自己的虚拟服务器，到网站服务。使我对个人网站认识的无到有，有了具体详细的认识。在我们所建立个人网站的基本原理，里面要涉及到的方方面面的问题我们未曾遇到或现有的条件限制而未能实现。个人网站并不是我们想象的写程序那么简单，她包括了编写程序、数据库设计、网页制作、图象处理、版面设计、数据采集、文本编辑、服务器管理等等，要搞好一个好的，完善的网站需要一个详细的、合理的、可行性的规划设计。在用ASP开发的时候，在程序的调试上出现了很大的问题，要使用浏览器来浏览才能找出错误所在，这一定程度上延长了开发周期。在开始的时候往往要为了找一个小错误花上大半天的时间。经过多写程序，现在一定程度上已经能快效的找出错误，并熟练的操作数据库语言。随着Web技术的进一步发展和Internet的逐渐大众化，基于Internet的电子商务系统无疑比传统商务具有更加广阔的应