【正文】 誤信息提示 % （ 2） 學(xué)生登陸界面代碼： if trim(request(yhm1)) and trim(request(mm1)) then ‘ 接收的數(shù)據(jù)不為空，執(zhí)行以下 dim rs,strsql strsql = select * from xxzcb where yhm=39。request(yhm1)amp。 and mm=39。 request(mm1)amp。 ‘ 與數(shù)據(jù)庫(kù)中信息校驗(yàn) set rs =(strsql) if not and not then session(gly_id)=rs(gly_id) ‘ 成功到學(xué)生信息主界面 else ‘ 不成功到學(xué)生登陸主界面 end if end if if trim(request(yhm))= or trim(request(mm))= then end if ‘ 接收信息為空出現(xiàn)錯(cuò)誤信息提示 % ： 1. 學(xué)生信息添加代碼 % option explicit % ‘ 聲名 % if (kh)and (xm) and (xb) and (rxcj) and (jtdz)and (lxdh)and (yxxm)and (szxm)and (sxzy)then 接收數(shù)據(jù)不為空?qǐng)?zhí)行以下 dim db,strcon strcon=driver={Microsoft access driver (*.mdb)}。() set db=() strcon 連接數(shù)據(jù)庫(kù) dim strsql,varkh,varxm,varxb,varrxcj,varjtdz,varlxdh,varyxxm,varszxm,varsxzy,varbz varkh=(kh) varxm=(xm) varxb=(xb) varrxcj=(rxcj) varjtdz=(jtdz) varlxdh=(lxdh) varyxxm=(yxxm) varszxm=(szxm) varsxzy=(sxzy) varbz=(bz) 接收的數(shù)據(jù)賦于自定義變量 strsql=insert into xsxx(kh,xm,xb,rxcj,jtdz,lxdh,yxxm,szxm,sxzy,bz) values(39。clng(varkh)amp。,39。varxmamp。,39。varxbamp。,39。varrxcjamp。,39。varjtdzamp。,39。varlxdhamp。,39。varyxxmamp。,39。varszxmamp。,39。varsxzyamp。,39。varbzamp。) (strsql) 添加數(shù)據(jù)到數(shù)據(jù)庫(kù) 恭喜你 ,注冊(cè)成功 ! a href=39。返回管理頁(yè) /a ‘ 添加鏈接 else 請(qǐng)將信息填寫完整 ,帶 *必填 , a href=39。重新添加 /a end if % 2. 課程信息添加代碼 % option explicit % % if (kcm)and (rkls) and (kksj) and (lszz) and (lxdh)and (rkxm)and (rkbm)then ‘ 接收數(shù)據(jù)不為空，執(zhí)行以下代碼 dim db,strcon strcon=driver={microsoft access driver (*.mdb)}。() set db=() strcon 連接數(shù)據(jù)庫(kù) dim strsql,varkcm,varrkls,varkksj,varlszz,varlxdh,varrkxm,varrkbm,varbeizhu varkcm=(kcm) varrkls=(rkls) varkksj=(kksj) varlszz=(lszz) varlxdh=(lxdh) varrkxm=(rkxm) varrkbm=(rkbm) varbeizhu=(beizhu) 為自定義變量賦值 strsql=insert into kcxx(kcm,rkls,kksj,lszz,lxdh,rkxm,rkbm,beizhu) values(39。varkcmamp。,39。varrklsamp。,39。cdate(varkksj)amp。,39。varlszzamp。,39。varlxdhamp。,39。varrkxmamp。,39。varrkbmamp。,39。varbeizhuamp。) (strsql) ‘ 將課程信息添加到數(shù)據(jù)庫(kù) 恭喜你 ,注冊(cè)成功 ! a href=39。返回管理頁(yè) /a else 請(qǐng)將信息填寫完整 ,帶 *必填 , a href=39。重新添加 /a end if % 3. 成績(jī)信息添加代碼 % option explicit % % if (xh)and (xm) and (xb) and (szxm) and (szbj)and (kcm)and (cj)then dim db,strcon strcon=driver={microsoft access driver (*.mdb)}。() set db=() strcon 連接數(shù)據(jù)庫(kù) dim strsql,varxh,varxm,varxb,varszxm,varszbj,varkcm,varcj,varkcm1,varcj1,varbz varxh=(xh) varxm=(xm) varxb=(xb) varszxm=(szxm) varszbj=(szbj) varkcm=(kcm) varcj=(cj) varkcm1=(kcm1) varcj1=(cj1) varbz=(bz) strsql=insert into cjxx(xh,xm,xb,szxm,szbj,kcm,cj,kcm1,cj1,bz) values(39。clng(varxh)amp。,39。varxmamp。,39。varxbamp。,39。varszxmamp。,39。varszbjamp。,39。varkcmamp。,39。varcjamp。,39。varkcm1amp。,39。varcj1amp。,39。varbzamp。) ‘ 添加成績(jī)信息到數(shù)據(jù)庫(kù) (strsql) 恭喜你 ,注冊(cè)成功 ! a href=39。返回管理頁(yè) /a else 請(qǐng)將信息填寫完整 ,帶 *必填 , a href=39。重新添加 /a end if % 數(shù)據(jù)的瀏覽、修改、刪除模塊代碼： body % dim strsql,rs strsql=select * from xsxx order by xsxx_id desc set rs=(strsql) % 從數(shù)據(jù)庫(kù)中調(diào)出學(xué)生信息 table border=1 align=center 用表格將信息顯示出來(lái) tr td colspan=8div align=center class=style1學(xué)生信息在線 /div/td tda href=返回 上級(jí) /a/td tda href=首頁(yè) /a/td/tr tr tddiv align=center考號(hào) /div/td tddiv align=center姓名 /div/td tddiv align=center性別 /div/td tddiv align=center入學(xué)成績(jī) /div/td tddiv align=center家庭地址 /div/td tddiv align=center聯(lián)系電話 /div/td tddiv align=center原學(xué)校名 /div/td tddiv align=center所在系名 /div/td tddiv align=center所學(xué)專業(yè) /div/td tddiv align=center備注 /div/td/trtr % do while not % ‘ 顯示的不是信息尾 td%=rs(kh)%/td td%=rs(xm)%/td td%=rs(xb)%/td td%=rs(rxcj)%/td td%=rs(jtdz)%/td td%=rs(lxdh)%/td td%=rs(yxxm)%/td td%=rs(szxm)%/td td%=rs(sxzy)%/td td%=rs(bz)%/td /tr % loop % ‘ 繼續(xù)向下移動(dòng) /table /body 課程信息瀏覽設(shè)計(jì)與代碼 : body % dim strsql,rs strsql=select * from kcxx order by kcxx_id desc set rs=(strsql) % table border=1 align=center tr td colspan=6div align=center class=style1課程信息在線/div/td tda href=返回上級(jí) /a/td tda href=首頁(yè) /a/td /tr tr td課程名 /td td任課老師 /td td開課時(shí)間 /td td老師住址 /td td聯(lián)系電話 /td td任課系名 /td td任課班名 /td td備注 /td /tr tr % do while not % td%=rs(kcm)%/td td%=rs(rkls)%/td td%=rs(kksj)%/td td%=rs(lszz)%/td td%=rs(lxdh)%/td td%=rs(rkxm)%/td td%=rs(rkbm)%/td td%=rs(beizhu)%/td /tr % loop % /table /body 成績(jī)信息瀏覽設(shè)計(jì)與代碼 : body % dim strsql,rs strsql=select * from cjxx order by cjxx_id desc set rs=(strsql) % table border=1 align=center cellspacing=1 tr td colspan=4div align=right歡迎管理員的光臨！ /div/td td colspan=5div align=center class=style1成績(jī)信息在線/div div align=center/div/td tda href=返回上一級(jí) /a/td tda href=首頁(yè) /a/td /tr tr tddiv align=center學(xué)號(hào) /div/td tddiv align=center姓名 /div/td tddiv align=center性別 /div/td tddiv align=center所在 系名 /div/td tddiv align=center所在班級(jí) /div/td tddiv align=center課程名 /div/td tddiv align=center成績(jī) /div/td tddiv align=center若有補(bǔ)考科目可填下表 /div/td td課程名 /td tddiv align=center成績(jī) /div/td tddiv align=center備注 /div/td /tr tr % do while not % td%=rs(xh)%/td td%=rs(xm)%/td td%=rs(xb)%/td td%=rs(szxm)%/td td%=rs(szbj)%/td td%=rs(kcm)%/td td%=rs(cj)%/td td colspan=2 %=rs(kcm1)%/td td%=rs(cj1)%/td td%=rs(bz)%/td /tr % loop % /table /body 學(xué)生信息修改設(shè)計(jì)與代碼 （ 1） 學(xué)生信息修改先接收數(shù)據(jù)庫(kù)信息再修改 接收數(shù)據(jù)庫(kù)信息設(shè)計(jì)與代碼如下： body % Dim varid varid=(xsxx_id) Session(xsxx_id)=varid ‘ 用接收的 ID 進(jìn)行傳值 Dim db Set db=() driver={microsoft access driver (*.mdb)}。() 連接數(shù)據(jù)庫(kù) Dim strSql,rs strSql=Select * From xsxx Where xsxx_id=