学生管理系统
登 陆 ID:
登陆密码:
输入用户名密码后，将用户名密码传入identity.asp，连接数据库，查找该用户名密码，如不符，给出错误提示，返回登陆界面。如相符则保存登陆信息，进入系统。注：在这里我将存储用户名信息的数据库文件更名为 amn.asp，实际修改时，需要将扩展名该为.mdb，这样来增加系统的安全性。
identity.asp 设计代码：
<%
set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "Driver={Microsoft Access Driver (*.mdb)}; " & _
"dbq=" & Server.MapPath("amn.asp")
username=request.form("user_name")
userpass=request.form("user_pwd")
sqlstr = "select * from user where name='" & username & "'"
set rs = adocon.Execute(sqlstr)
if not rs.eof then
if rs("password")<>userpass then
message="密码或账号不对想混呀!!"
response.redirect "enter.asp?message="&message
end if
session("yule_user")=username
session("yule_pass")=userpass
response.redirect "6-0.asp"
end if
if rs.eof then
ASP学生管理系统
message="密码或账号不对想混呀!"
response.redirect "enter.asp?message="&message
end if
%>
3.2.2.2学生查找模块的设计与实现
若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn
6-0为显示页面 输入信息后点击开始查找 转到6-01页进行处理并显示
设计代码如下：
<%
set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "Driver={Microsoft Access Driver (*.mdb)}; " & _
="0" width="100%" cellspacing="0" bordercolor="#0000FF" class="unnamed1" align="center">
<%
i = 1
While Not rs.EOF
if i=1 then
%>
| 序号 | <% For j = 0 to rs.Fields.Count -1 %>
<% =rs(j).Name %>
| <% Next %>
<% end if %>
| <% = i %> |
<% = rs("ID") %> | <% = rs("班级") %>
| <% = rs("姓名") %> |
<% = rs("体重") %> | <% = rs("性别") %>
| <% = rs("家庭住址") %> |
<% = rs("年龄") %> | <% = rs("宿舍") %>
| <% = rs("学生证号") %> |
<% = rs("学籍编号") %> |
<%
i = i + 1
rs.Movenext
Wend
rs.Close: Set rs = Nothing
adocon.Close: Set adocon = Nothing
3.2.2.3显示添加学生模块的设计与实现
若图片无法显示请联系QQ3710167,本论文免费,转发请注明源于www.lwfree.cn
增加添加学生模块，对当前数据库信息进行更新，
具体代码如下：
添加成功 继续添加 返回查询
<%
set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "Driver={Microsoft Access Driver (*.mdb)}; " & _
"dbq=" & Server.MapPath("database.mdb")
set rs = Server.CreateObject("ADODB.recordset")
rs.open "user",adocon,1,3
rs.addnew
rs("班级").value = request.form("1q")
rs("姓名").value = request.form("2q")
rs("体重").value = request.form("3q")
rs("性别").value = request.form("4q")
rs("家庭住址").value = request.form("5q")
rs("年龄").value = request.form("6q")
rs("宿舍").value = request.form("7q")
rs("学生证号").value = request.form("8q")
rs("学籍编号").value = request.form("9q")
rs.update
rs.Close: Set rs = Nothing
adocon.Close: Set adocon = Nothing
%>
3.2.2.4删除学生模块的实现
ASP学生管理系统
增加删除模块，对已经毕业的学生信息 进行删除。
具体代码如下：
<%if request.form("nu")="" then
o="请输入ID!"
response.redirect "reg2.asp?message=" & o & ""
else
end if
%>
<%
dim num
num=request.form("nu")
set rs = Server.CreateObject("ADODB.recordset")
rs1 = "select * from user where id="&num
rs.open rs1,adocon,1,3
if not rs.eof then
rs.delete
rs.update
rs.close
set rs=nothing
set conn=nothing
response.write("删除成功")
else
rs.close
set rs=nothing
set conn=nothing
response.write("删除失败")
end if
%>
删除成功
第四章学生管理系统的运行说明
4.1运行环境
Windows XP iis5.5 IE6.0
4.2运行说明：
将所有文件拷贝到IIS目录，打开IE，在地址栏输入127.0.0.1即可登陆主界面，登陆用户名为：peixiaofeng 密码为：peixiaofeng
由于设计能力有限，未做完善系统，添加或修改学生信息是尽量将所有信息填写完整，否则可能造成查找时出现错误的情况。
第五章设计心得
设计过程中，最主要的难题就是数据库的连接，信息的增加，删除，修改等语句，通过参考书籍，在网络上查找相关信息，对这些语句进行理解，根据实际情况应用。
致谢
感谢班主任老师以及所有教过我知识得老师对我的教导，帮助我能讲书本上的理论知识应用到实际当中，并在我遇到困难时，耐心帮助解决困难。
参考文献
《ASP网络编程从入门到精通》清华大学出版社, 2006
ASP动态网站开发毕业设计指导及实例 机械工业出版社 2006
