教师信息管理系统1—毕业设计论文

教师信息管理系统1—毕业设计论文内容摘要：

If I=page_no Then I amp。 amp。 nbsp Else a href=39。 ?page_no= amp。 I amp。 39。 amp。 I amp。 /aamp。 nbsp End If Next 39。 Else 该记录集为空 End If End if end if % /table /center /div /body /html 普通 管理员 后台 : 超级管理员后台 页面代 码 : %@LANGUAGE=VBSCRIPT CODEPAGE=936% %=True% !Include file= html head meta equiv=ContentType content=text/html。 charset=gb2312 / title超级管理员后台控制面板 /title style type=text/css ! .z { fontsize: 12px。 color: 000000。 } .x { bordertopwidth:。 borderrightwidth:。 borderbottomwidth:。 borderleftwidth:。 bordertopstyle: solid。 borderrightstyle: solid。 borderbottomstyle: solid。 borderleftstyle: solid。 fontsize: 12px。 color: 000000。 } a:link { color: 000000。 fontsize: 12px。 textdecoration: none。 } .color {color: 000000。 fontsize: 12px。 lineheight: normal。 } .z1 { fontsize: 12px。 color: 000000。 bordertopwidth:。 borderrightwidth:。 borderbottomwidth:。 borderleftwidth:。 bordertopstyle: solid。 borderrightstyle: solid。 borderbottomstyle: solid。 borderleftstyle: solid。 } .STYLE1 {color: FF0000} .z11 {fontsize: 12px。 color: 000000。 } .z11 {fontsize: 12px。 color: 000000。 bordertopwidth:。 borderrightwidth:。 borderbottomwidth:。 borderleftwidth:。 bordertopstyle: solid。 borderrightstyle: solid。 borderbottomstyle: solid。 borderleftstyle: solid。 } /style /head body topmargin=0 rightmargin=0 leftmargin=0 table width=750 height=150 border=0 align=center cellpadding=0 cellspacing=0 tr tdimg src=img/ alt= 设计者 : 张荣 width=750 height=150/td /tr /table table width=750 height=25 border=1 align=center cellpadding=0 cellspacing=1 bordercolor=CCCCCC class=z11 tr td width=50% align=center valign=middlespan class=color欢迎%=session(user_name)%进入 span class=STYLE1超级管理 员后台 /span控制面板 /span/td td width=50% align=center valign=bottomtable width=100% height=20 border=0 cellpadding=0 cellspacing=0 tr td width=70% align=center valign=middlespan class=color登陆时间： %=now()%/span/td td align=centera href= class=z11退出登陆 /a/td /tr /table/td /tr /table table width=750 height=25 border=1 align=center cellpadding=0 cellspacing=1 bordercolor=CCCCCC class=x tr td width=80 align=center valign=bottoma href= 首页/a/td td width=80 align=center valign=bottoma href=用户管理/a/td td width=80 align=center valign=bottoma href=留言管理/a/td td width=80 align=center valign=bottoma href=录入信息/a/td td width=120 align=center valign=bottoma href=按学号查询信息 /a/td td width=120 align=center valign=bottoma href=按姓名查询信息 /a/td td width=120 align=center valign=bottoma href=按班级查询信息 /a/td td width=120 align=center valign=bottoma href=按课程查询信息 /a/td td width=120 align=center valign=bottoma href=按专业查询信息 /a/td /tr /table div align=center class=z % Dim rs,strSql Set rs=() strSql=Select * From xs order by id desc strSql,db,1 If =0 Then 对不起 ，没有找到信息 Else 共找到 amp。 amp。 条记录 % % If Not And Not Then Dim page_no If (page_no)= Then page_no=1 Else page_no=Cint( (page_no)) 39。 用 Cint 将字符串变为整数 End If % center table width=750 border=1 align=center cellspacing=1 bordercolor=CCCCCC class=x tr td width=100 height=25 align=center bgcolor=CCCCCC教师编号 /td td width=100 align=center教师姓名 /td td width=100 align=center教师姓别 /td td width=100 align=center所教班级 /td td width=100 align=center所教专业 /td td width=100 align=center bgcolor=CCCCCC所教课程 /td td width=100 align=center录入 /td td width=100 align=center删除 /td td width=100 align=center修改 /td /tr tr % =10 =page_no Dim I I= Do While Not And I0 I=I1 % td height=25 align=center bgcolor=CCCCCC%=rs(xh)%/td td align=center%=rs(xm)%/td td align=center%=rs(xb)%/td td align=center%=rs(bj)%/td td align=center%=rs(zy)%/td td align=center bgcolor=CCCCCC%=rs(kc)%/td td align=centera href=?id=%=rs(id)%录入 /a/td td align=centera onClick=return confirm(39。 确 定 删 除。 39。 ) href=?id=%=rs(id)%删除 /a/td td align=centera href=?id=%=rs(id)%修改 /a/td /tr % Loop 请选择页数 : For I=1 To If I=page_no Then I amp。 amp。 nbsp Else a href=39。 ?page_no= amp。 I amp。 39。 amp。 I amp。 /aamp。 nbsp End If Next 39。 Else 该记录集为空 End If End if % /table /center /div /body /html 其它关键页面代码 : 注册页面 title教师信息管理系统 /title%option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。 (data/)amp。 driver={microsoft access driver (*.mdb)}。 dim strsql,user_name ,Password ,realname ,mobi,,name name=(user_name) strSql=select * from user Where user_name=39。 amp。 (user_name) amp。 39。 Set rs=(strSql) If not then 对不起，用户名已被注册，请 a href=39。 39。 重新注册/a。