网站在线人说统计与网站被访问量和学生信息管理系统网站.doc

试验一采用ASP技术实现如下功能1 统计某个站点的在线人数2统计某个站点的被访问人数本次试验利用了Global,asa文件与application对象配合制作的，其中Global,asa文件用到了Application_OnStart事件Session_OnStart事件，Session_OnEnd事件，利用application功能将其显示，由于任何网站当你访问时都会自动启动搜索Global.asa文件，在线统计就好做了。界面代码如下：实验二设计实现学生信息的管理功能设置管理员有管理员完成学生信息的增加，删除，修改，查询学生信息包括姓名，年龄，籍贯，性别，班级，学号，照片本次试验用的是accesss做的学生信息数据库学生信息存放在主机的数据表中，可以对表进行查询，修改，删除，添加功能。本次实验的设计思想如下：首先设计学生的信息数据库，学号设为主键；随后设计个人信息数据库设计好了就需要用代码对数据库进行连接以实现需要的功能通过Set db=Server.CreateObject(ADODB.Connection) db.Open Dbq=&Server.MapPath(李旭.mdb)&;Driver=Microsoft Access Driver (*.mdb)完成与数据库的连接该界面为主界面，为了实现界面的功能性，与系统功能的方便性，该界面将实现所需要的功能以方便用户查找提高系统效率，删除功能，修改功能，添加功能，都将会以*的方法与所要实现的的功能模块进行联通，只要点击超链接字符就可以触发相应的模块的程序启动界面完成所要实现的功能；分为1主模块显示显示数据库记录功能的asp文件2插入功能模块3修改模块4删除模块插入功能通过htm文件显示在页面上，可以对其进行操作，提交表单时将会触发添加模块的ASP程序，进一步与数据库就行交流，已达到数据表的更新。删除与插入类似，但是不需要通过表单的形式了可以直接与数据库进行连接。但是修改模块就需要分两步进行较好，一步是与数据库连接，打开数据库，对其进行修改，然后提交你修改的内容，从而触发提交事件的ASP程序文件，该文件完成与数据库的交流更新，从而做到修改是实际看到的，而更新是提交后自动完成的，达到理想效果。一学生信息添加记录 学号 姓名 年龄 籍贯 性别 班级 图片 删除 修改 A Href=lixudelete.asp?bh=删除 A Href=update_form.asp?bh=修改 二添加个人信息学号姓名年龄籍贯性别班级图片 三% If Request.Form(xh) And Request.Form(xm) And Request.Form(nl) And Request.Form(jg) And Request.Form(xb) And Request.Form(bj) And Request.Form(tp) ThenDim db Set db=Server.CreateObject(ADODB.Connection) db.Open &dbq=&server.MapPath(李旭.mdb)&;Driver=Microsoft Access Driver (*.mdb); Dim strSql,varxh,varxm,varnl,varjg,varxb,varbj,vartp varxh=Request.Form(xh) varxm=Request.Form(xm) varnl=Request.Form(nl) varjg=Request.Form(jg) varxb=Request.Form(xb) varbj=Request.Form(bj) vartp=Request.Form(tp) strSql=Insert Into 李旭(xh,xm,nl,jg,xb,bj,tp) Values( & varxh & , & varxm & , & varnl & , & varjg & , & varxb & , & varbj & , & vartp & ) db.Execute(strSql) Response.Redirect lixuindex.asp ElseResponse.Write 不符合要求请从填Response.Write 再次添加End If%四学生信息学号Input Type=Text Name=xh Value=姓名Input Type=Text Name=xm Size=20 Value=年龄Input Type=Text Name=nl Size=20 Value=籍贯Input Type=Text Name=jg Size=20 Value=性别Input Type=Text Name=xb Size=20 Value=班级Input Type=Text Name=bj Size=20 Value=图片Input Type=Text Name=tp Size=20 Value= 五% Set db=Server.CreateObject(ADODB.Connection) db.Open Dbq=&Server.MapPath(李旭.mdb)&;Driver=Microsoft Access Driver (*.mdb) If Request.Form(xh) And Request.Form(xm) And Request.Form(nl) And Request.Form(jg) And Request.Form(xb) And Request.Form(bj) And Request.Form(tp) ThenDim strSql1,varxh1,varxm,varnl,varjg,varxb,varbj,vartp varxh1=Request.Form(xh) varxm=Request.Form(xm) varnl=Request.Form(nl) varjg=Request.Form(jg) varxb=Request.Form(xb) varbj=Request.Form(bj) vartp=Request.Form(tp)strSql1=update 李旭 set xm= & varxm & ,nl= & varnl & ,