教師信息管理系統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