【文章內(nèi)容簡介】 9。 amp。 smm amp。 39。) 39。 strsql (strsql) else 請把信息填寫完整 161。 重新填寫 end if % 4． 1． 2 用戶登錄 模塊詳細(xì)設(shè)計(jì) 1. 登錄名稱：用戶登錄 模塊標(biāo)識(shí)： 模塊功能：通過表單將輸入的用戶名和密碼加入到用戶數(shù)據(jù)庫（ ）表中（ yhxx）表的用戶名不能為空；登錄成功后回到首頁 (). 編程語言： VBScript 2 模塊接口： 調(diào)用模塊名： 被調(diào)用的模塊名： 輸入的文件： 輸出的文件： (yhxx) 使用的文件或數(shù)據(jù)庫標(biāo)識(shí)： 使用主要內(nèi)存變量的名稱與類型： yhm,mm 3 處理概要 ： 通過 中的表單輸入數(shù)據(jù)，若其中的 用戶 內(nèi)容、 用戶 不為空，建立記錄集對象，指定相關(guān)屬性，打開記錄集，通過記錄集對象的記錄和數(shù)據(jù)庫表中條件比較，然后返回 。 : % dim db,strsql,rs,strsql1,rs1 set db=() driver={microsoft Access driver (*.mdb)}。dbq= amp。() if trim(request(yhm1)) and trim(request(mm1)) then strsql1=select * from yhxx where yhm=39。amp。request(yhm1)amp。39。 and mm=39。amp。request(mm1)amp。39。 set rs1=(strsql1) if not and not then session(id)=rs1(id) else 對不起，密碼不正確，請重新輸入 end if end if % tr th width=164 height=204 align=left valign=top scope=colform action= method=post name=bd id=bd table width=96% height=153 border=1 align=center cellpadding=0 cellspacing=0 bordercolor=0084A5 bgcolor=F4F4F4 tr bordercolor=F4F4F4 td colspan=2div align=center class=style1 style1 style31 style19用戶登錄/div/td /tr tr bordercolor=F4F4F4 td width=34%div align=right class=style32姓名： /div/td td width=66%input name=yhm1 type=text id=yhm1 size=12/td /tr tr bordercolor=F4F4F4 tddiv align=right class=style32密碼： /div/td tdinput name=mm1 type=password id=mm1 size=12/td /tr tr bordercolor=F4F4F4 td colspan=2div align=right /div div align=center input name=tj2 type=submit id=tj22 value=提交 input name=ct2 type=reset id=ct22 value=重填 /div/td /tr /table /form /th 4． 1． 3 管理員登錄 模塊 模塊詳細(xì)設(shè)計(jì) 1 登錄名稱：管理員登錄 模塊標(biāo)識(shí) ： 模塊功能：通過表單將輸入的用戶名和密碼加入到管理員數(shù)據(jù)庫（ ）表中（ gly）表的用戶名不能為空；登錄成功后回到管理員頁(). 編程語言： VBScript 2 模塊接口： 調(diào)用模塊名： 被調(diào)用的模塊名： ( , 輸入的文件： 輸出的文件： ( (gly) 使用的文件或數(shù)據(jù)庫標(biāo)識(shí)： 使用主要內(nèi)存變量的名稱與類型： yhm,mm ： 4 處理概要 ： 通過 中的表單輸入數(shù)據(jù)，若其中的 用戶 內(nèi)容、 密碼 不為空，建立記錄集對象，指定相關(guān)屬性，打開記錄集，通過記錄集對象的記錄和數(shù)據(jù)庫表中條件比較，然后返回 。 : % dim db,strsql,rs set db=() driver={microsoft Access driver (*.mdb)}。dbq= amp。() if trim(request(yhm)) and trim(request(mm)) then strsql=select * from kly where yhm=39。amp。request(yhm)amp。39。 and mm=39。amp。request(mm)amp。39。 set rs=(strsql) if not and not then session(id)=rs(id) else 對不起，密碼不正確，請重新輸入 end if end if form action= method=post name=bd id=bd table width=71% height=160 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=4AB6F0 tr td colspan=2div align=center class=style1 style1管理員登 錄 /div/td /tr tr td width=34%div align=right class=style2姓名： /div/td td width=66%input name=yhm type=text id=yhm2 size=12/td /tr tr tddiv align=right class=style2密碼： /div/td tdinput name=mm type=password id=mm2 size=12/td /tr tr td colspan=2div align=right /div div align=center input name=tj type=submit id=tj2 value=提交 input name=ct type=reset id=ct3 value=重填 a href= class=style2取消 /a/div/td /tr /table /form /div/th /tr /table /td 4． 1． 4 學(xué)生信息系統(tǒng)編輯 模塊 模塊詳細(xì)設(shè)計(jì) 主要代碼： % dim db set db=() driver={microsoft Access driver (*.mdb)}。dbq= amp。() dim strsql,rs strsql=select * from xsxx set rs=(strsql) % /tr tr tddiv align=center class=style17學(xué)號(hào) /div/td tddiv align=center class=style17姓名 /div/td tddiv align=center class=style17性別 /div/td tddiv align=center class=style17出生日期 /div/td tddiv align=center class=style17班級(jí) /div/td tddiv align=center class=style17民族 /div/td tddiv align=center class=style17政治面貌 /div/td tddiv align=center class=style17家庭地址 /div/td tddiv align=center class=style17電話 /div/td tddiv align=center class=style17簡介 /div/td tddiv align=center class=style17刪除 /div/td tddiv align=center class=style17修改 /div/td /tr % do while not % tr td height=18div align=center class=style17%=rs(xh)%/div/td tddiv align=center class=style17%=rs(xm)%/div/td tddiv align=center class=style17%=rs(xb)%/div/td tddiv align=center class=style17%=rs(born)%/div/td tddiv align=center class=style17%=rs(bh)%/div/td tddiv align=center class=style17%=rs(mz)%/div/td tddiv align=center class=style17%=rs(zzmm)%/div/td tddiv align=center class=style17%=rs(jd)%/div/td tddiv align=center class=style17%=rs(dh)%/div/td tddiv align=center class=style17%=rs(jl)%/div/td tddiv align=center class=style17a href=刪除 /a/div/td tddiv align=center class=style17a href=修改 /a/div/td /tr % loop % 4． 1． 5 學(xué)生信息系統(tǒng)添加 模塊 模塊詳細(xì)設(shè)計(jì) 1. 添加名稱：學(xué)生信息添加 模塊標(biāo)識(shí)： 模塊功能：通過表單將添加的學(xué)生信息加入到學(xué)生信息數(shù)據(jù)庫（ ）表中（ xsxx）表的用戶名不能為空；添加成功后回到學(xué)生信息頁 (). 編程語言： VBScript 2 模塊接口： 調(diào)用模塊名： 被調(diào)用的模塊名： 輸入的文件： 輸出的文件： (xsxx) 使用的文件或數(shù)據(jù)庫標(biāo)識(shí)： 使 用 主 要 內(nèi) 存 變 量 的 名 稱 與 類 型 ：xh,xm,xb,born,zy,zzmm,mz,jd,dh,jl,mm 3 處理概要 ： 通過 中的表單輸入數(shù)據(jù)，若其中的姓名、性別、出生日期、學(xué)號(hào)、家庭地址、專業(yè)、班級(jí)、電話、政治面貌、個(gè)人簡介、密碼都不為空，建立記錄集對象，指定相關(guān)屬性，打 開記錄集，通過記錄集對象的添加記錄到數(shù)據(jù)庫表中，然后返回 。 ： % option explicit % html head % if (xh) and (xm) and (xb) and (born) and (bh) and (mz) and (zzmm) and (jd)then dim db set db=() driver={microsoft access driver (*.mdb)}。dbq= amp。() dim sbh,sxb,sxh,sxm,smz,sborn,szzmm,sjd,sdh,sjl,strsql sxh=trim((xh)) sxm=trim((xm)) sbh=trim((bh)) sxb=trim((xb)) sborn=trim((born)) smz=trim((mz)) szzmm=trim((zzmm)) sjd=trim((jd)) sdh=trim((dh)) sjl=trim((jl)) strsql=insert into xsxx(xh,xm,xb,born,bh,mz,zzmm,jd,dh,jl) values(39。 amp。 sxhamp。 39。,39。 amp。 sxm amp。 39。,39。 amp。 sxb amp。 39。, 39。amp。sbornamp。39。 ,39。 amp。 sbh amp。 39。,39。 amp。 smz amp。 39。,39。 amp。 szzmm amp。 39。,39。 amp。 sjd amp。 39。,39。 amp。 sdh amp。 39。,39。 amp。 sjl amp。 39。) 39。 strsql (strsql) else 19