《数据库设计以及源代码.docx》由会员分享，可在线阅读，更多相关《数据库设计以及源代码.docx（13页珍藏版）》请在三一办公上搜索。
1、系统建立详细设计1数据库设计管理员用户表信息:字段名称类型大小字段描述管理员ID自动编号长整型管理员身份识别管理员名称文本50管理员登陆名称密码文本50管理员登陆的密码身份文本50有别于学生登陆界面学生用户表:字段名称类型大小字段描述学生ID自动编号长整型学生学号学生名称文本50学生名称密码文本50学生登陆的密码身份文本50有别于管理员登陆界面学生信息表:字段名称类型大小字段描述学生ID自动编号长整型学生学号学生名称文本50学生名称电子文本50学生的电子备注/学生的其他信息性别文本50性别入学时间文本50学生入学的时间班级文本50所在班级专业文本50所学专业2系统程序文件设计与编写与数据库连接
2、的代码:yjiicrosoft Access顼IW 蹲也)痣JUd) 10：踞IMi：i Wi)吾虻IIkeniarieIr：e03：1iu赫8.花己zzfliucnjyBluia. c 磁f!ara-s-9IIeO3：:信息舞自瞬:敷罪库（Access ?000文件格式:db=message.mdb set Conn=server.createobject(adodb.Connection)conn.openProvider二Microsoft.Jet.OLEDB.4.0;DataSource=&server.mappath(db)%登陆界面代码: |翻：I：邑理朋燧:胜代码为: %if r
3、equest(Submit) thenset rs=server.createobject(adodb.recordset)sql=SELECT username,password from users whereusername=&request(username)&rs.open sql,conn,1,3if rs.bof and rs.eof thenmsg=错误：用户名不存在”elseif rs(password)=request(password) thenSession(admin)=trueresponse.redirect index.aspusers=admin”elsems
4、g=错误：密码不正确”end ifend ifrs.closeset rs=nothingConn.closeSet conn = Nothingend if% 管理员 学生 信息管 理系统管理员：密码： 用户类型: 管理员 学生 显示信息:F LJ LZJ V? | /g3 A 3 * yJj勺泗留XAHElUEUI1DiaO3ffiW WHaiElXJISP.h 配 m. :npmry 土由有R I奇切诿和说H】I混出I脚赔J9帔Wt：:MtMT聃:igl-mil :C3 nUEn&7ll? CM EL1*山如g险哉跳瞄二玄m-Bfintc：t：b司二SWS-irfil：1-siil：ii
5、ryyri峪j源.侦脚IE倒；址AWfl :30CS-I EI3Wffi： iyuiywfl;E-*nL ；j顾 Ir4lrciat杵糅季垣就皆国珀况切I：技代码为：!-#include file= conn.inc”%if Session(admin)true and Session(student )true thenResponse.Redirect “student_login.asp”end if% 学生信息 学 生信息 管理系统 v / span /center vb 首页 v/b v/aVa href=search.asp 查询添加管理退出 %users = Request( u
6、sers)If request PageNo )= thenPageNo=lElsePageNo =int(request( PageNo)End Ifsql= SELECT * from liuyan order by ID desc set rs=server.createobject( adodb.recordset)rs.open sql,conn,1,3if not(rs.eof and rs.bof) thenrs.Pagesize=3r s. ab s olutep age=PageN ox = 0For x = 1 to rs. Page sizeif x mod 2 then
7、tr_color= #EBEBEBelsetr_color= #ffffffend ifIf rs.eof thenExit ForElseif isNull(Rs(Dateandtime ) thenstrDateandtime = elsestrDateandtime = Cstr(Rs(Dateandtime )end ifUsername,Email,Content,Sex,DateandtimeResponse.Write Response.Write Response.Write : Response.Write +Rs(Username) + “修改删除if users = “a
8、dmin thenResponse.Write “ +“Va href=postaspusers= + users +&id= + cstr(Rs( ID ) +“vfont color=blue修改v/font vfont color二blue删除 + “v/tdelseResponse.Write “Vtd width二20% class=Tab end ifResponse.Write ( Response.Write aResponse.Write vtd性别：v/tdResponse.Write “Vtd colspan=2 + Rs( Sex ) + v/tdResponse.Wr
9、ite aResponse.Write aResponse.Write vtd班级：v/tdResponse.Write “vtd colspan二2 + Rs( Class ) + v/tdResponse.Write ( Response.Write aResponse.Write vtd专业：v/tdResponse.Write “vtd colspan=2 + Rs( Major )+u Response.Write ( Response.Write aResponse.Write vtd入学 时间：v/td+ strDateandtimeResponse.Write “vtd col
10、span=2 ”u Response.Write ( Response.Write affResponse.Write vtd评语：“v/tdffResponse.Write “vtd colspan=2ff+ Rs( aContentffResponse.Write ( Response.Write aResponse.Write vtd: ffResponse.Write “vtd colspan=2+ Rs( a EmailffResponse.Write “ v/tr Response.Write ( Response.Write “table border二0 align二cente
11、r广 ffif users = admin thenResponse.Write a“VaResponse.Write “Vtd align 二 right bgcolor= + tr_color+ href=delete.aspusers= + users + &id二 + cstr(Rs( ID” ) + vfont color=red 删除 v / font Response.Write “v/tr end ifResponse.WriteResponse.Write“ Response.WriteResponse.Write“v/tablers.MoveNextEnd IfNexten
12、d ifif rs.recordcount 0 then共有 条学生信息 条/ 页 ;共 页 分页：%for i=1 to rs.pagecountif pageno I thenResponse.Write &i& elseResponse.Write “ & I & end ifnext% Else目前，没有任何学生信息！ End if%rs.closeset rs=nothingConn.closeSet conn = Nothing%4、查询信息页面显示：代码为：%if Session(admin)true and Session(student)true thenResponse.Redirect student_login.asp”end if%if studentid 0 thensql=SELECT * from liuyan where ID=&studentidset rs=server.createobject(adodb.recordset)rs.open sql,conn,1,3
