【文章內(nèi)容簡介】 =%sql=select * from user where 用戶名=39。amp。unmamp。39。 and 密碼=39。amp。pwdamp。39。set user1=(sql) if not then session(userlabel)=1 session(user)=unm session(name)=user1(真實(shí)姓名) else eter賬號或密碼錯誤br/center centera href=39。39。返回/a/center end ifelse eter輸入不能為空br a href=39。39。返回/a/center end if%2，登錄處理頁面%session(userlabel)=0session(user)=guestunm=(user)pwd=(pwd)if (lb)=1 then end ifif unm and pwd then%!include file =%sql=select * from user where 用戶名=39。amp。unmamp。39。 and 密碼=39。amp。pwdamp。39。set user1=(sql)if not thensession(userlabel)=1session(user)=unmsession(name)=user1(真實(shí)姓名) else eter賬號或密碼錯誤br/center13 centera href=39。39。返回/a/centerend ifelse eter輸入不能為空br a href=39。39。返回/a/centerend if%3，管理員登錄頁面：《》 如圖：623 所示%if session(userlabel)=2 then else%form action= method=post table align=center background=../image/ width=825 height=426trtd height=237 align=center /td/trtrtd height=46align=leftinput type=text size=17 name=user/input/td/trtrtd height=31 align=leftinput type=password size=17name=pwd/inputinput type=submit value=39。確認(rèn)39。/inputa href=../font size=1返回首頁/font/a/td/trtr td height=100 align=center/td/tr/table/form%end if%4，管理員登錄頁面處理：《》%session(userlabel)=0session(user)=guestunm=(user)pwd=(pwd)if unm and pwd then%!include file =14%sql=select * from admin where 用戶=39。amp。unmamp。39。 and 密碼=39。amp。pwdamp。39。set user1=(sql)if not thensession(userlabel)=2session(user)=unmsession(name)=user1(真實(shí)姓名) 登陸成功br a href=39。39。進(jìn)入管理頁面/abr a href=39。../39。返回首頁/aelse39。判別登陸的用戶密碼錯誤 用戶名或密碼錯誤br a href=39。39。返回重新登陸/a a href=39。../39。返回首頁/aend ifelse eter輸入不能為空br a href=39。39。返回/a/centerend if%5，系統(tǒng)注冊頁面的效果；如圖 624 所示圖 624 系統(tǒng)注冊頁面運(yùn)行效果用戶注冊頁面是用于普通用戶的注冊，因?yàn)楸拘侣勏到y(tǒng)注冊用戶可以發(fā)布新聞，這樣可以減輕網(wǎng)站管理員的發(fā)表新聞的負(fù)擔(dān)。15所涉及到的程序代碼如下：：《zhuce/》form action= method=post table align=center width=630tr align=centertd hrb用戶注冊 /bhr/td/trtr td align=center用戶名:input type=text name=user/input*/td/trtr td align=center密碼：input type=password name=pwd1/input*/td/trtrtd align=center重復(fù)密碼：input type=password name=pwd2/input*/td/trtrtd align=center昵稱：input type=text name=nichen/input*/td/trtrtd align=center出生日期：input type=text name=shengri/input*/td/trtrtd align=center性別：input type=radio name=xb value=男 checked=checked男/inputinput type=radio name=xb value=女女/input*/td/trtrtd align=center所在地址：國家：select name=dizhioption value=中國 selected=selected中國/option/select省份：select name=shengfenoption value=北京北京/optionoption value=上海上海/optionoption value=貴州selected=selected貴州/optionoption value=廣東廣東/optionoption value=河北河北/optionoption value=山西山西/optionoption value=陜西陜西/optionoption value=安徽安徽/optionoption value=福建福建/optionoption value=江西江西/option/select*/td/trtrtd align=center b個人愛好：/bbrtextarea rows=10 cols=60 name=aihao/textarea/td/trtr align=centertd 驗(yàn)證碼:%randomize()a=int(Rnd()*10)b=int(Rnd()*10)c=int(Rnd()*10)d=int(Rnd()*10)%img src=../image/%=a%.GIF/img16img src=../image/%=b%.GIF/imgimg src=../image/%=c%.GIF/imgimg src=../image/%=d%.GIF/img/td/trtr align=centertd align=center輸入驗(yàn)證碼 input type=text name=yanzhengma/input*/td/trtr align=centertd align=centerinput type=submit value=提交 name=tijiao input type=reset value=重置/td/trtrtd height=500/td/tr/table/form/body: 《zhuce/》%If (user)= or (pwd1)= or (nichen)= or (shengri)= then center輸入不能為空！a href=39。39。返回重新填寫!/abrcenterend ifif (user) and (pwd1) and (nichen) and (shengri) thenset n=()sqrn=Dbq=amp。 (../)amp。Driver={Microsoft Access Driver (*.mdb)} sqrndim gn,sqlsql=select * from user where 用戶名=39。amp。 trim((user)) amp。39。set gn=(sql)if thensql=insert into user(用戶名,密碼,昵稱,出生日期 ,性別,所在地址,個人愛好) values(39。amp。(user)amp。39。,39。amp。(pwd1)amp。39。,39。amp。(nichen)amp。39。,39。amp。(shengri)amp。39。,39。amp。(xb)amp。39。,39。amp。(dizhi)amp。amp。(shengfen)amp。39。,39。amp。(aihao)amp。39。) sql center注冊成功！a href=39。../39。點(diǎn)擊返回首頁 /a/centerelse center該用戶名已經(jīng)被注冊！a href=39。39。返回重新注冊！/a/centerend ifend if%174. 用戶信息修改表單主要用于或得用戶信息，然后方便用戶更改相關(guān)信息，該頁面主要用到了注冊頁面的代碼，不同的就是多了個查詢用戶的相關(guān)信息操作。 頁面代碼：《zhuce\》%set n=()sqrn=Dbq=amp。 (../)amp。Driver={Microsoft Access Driver (*.mdb)} sqrndim gn,sqlsql=select * from user where 用戶名=39。amp。 (username) amp。39。set gn=(sql)% 上面是查詢得到的結(jié)果 然后通過%=gn(用戶名)%方式顯示在表單里面，這樣用戶就可以根據(jù)以前的相關(guān)信息更改。5. 用戶信息修改處理頁面代碼：《zhuce\》說明：該頁面最開始的想法是用更新的方法及 recodeset 方法完成，但不知道數(shù)據(jù)庫的什么原因所以 就 用把原來用戶的記錄刪除掉，然后重新插入，主要 SQL 語句如下。set n=()sqrn=Dbq=amp。 (../)amp。Driver={Microsoft Access Driver (*.mdb)} sqrndim gn,sqlsql=select * from user where 用戶名=39。amp。 trim((user)) amp。39。set gn=(sql)if thensql=insert into user(用戶名,密碼,昵稱,出生日期,性別,所在地址,個人愛好) values(39。amp。(user)amp。39。,39。amp。(pwd1)amp。39。,39。amp。(nichen)amp。39。,39。amp。(shengri)amp。39。,39。amp。(xb)amp。39。,39。amp。rm(dizhi)amp。amp。(shengfen)amp。39。,39。amp。(aihao)amp。39。) sql center注冊成功！a href=39。../39。點(diǎn)擊返回首頁/a/centerelsesql=delete * from user where 用戶名=39。amp。 trim((user)) amp。39。(sql)sql=insert into user(用戶名,密碼,昵稱,出生日期,性別,所在地址,個人愛好) values(39。amp。(user)amp。39。,39。amp。(pwd1)amp。39。,39。amp。(nichen)amp。39。,39。amp。(shengri)amp。39。,39。amp。(xb)amp。39。,39。amp。rm(dizhi)amp。amp。(shengfen)amp。39。,39。amp。(aihao)amp。39。) sql center修改成功！a href=39。../39。點(diǎn)擊返回首頁/a/centerend if18end if%% n=nothing%