【導(dǎo)讀】本系統(tǒng)分為前臺系統(tǒng)和后臺系統(tǒng)兩個部分。用戶通過前臺系統(tǒng)搜索和查看公司新聞等信。息，管理員通過后臺系統(tǒng)對網(wǎng)站進(jìn)行維護(hù)管理。在首頁點擊“注冊”超鏈接就進(jìn)入用戶注冊頁面。用戶填寫注冊信息并提交，系統(tǒng)將用。戶的注冊信息插入數(shù)據(jù)庫，提示注冊成功。用戶名、密碼、確認(rèn)密碼、昵稱、性別、E-mail和出生日期。在頁面顯示等待用戶輸入的表單中，用戶填寫相應(yīng)的。資料，點擊“提交”按鈕，數(shù)據(jù)被提交給頁面并傳遞參數(shù)msg=add。根據(jù)參數(shù)msg的值判斷當(dāng)前為添加數(shù)據(jù)操作，讀取。調(diào)用中的過程dbOpen建立數(shù)據(jù)庫連接，將用戶填寫的資。實現(xiàn)本模塊功能的頁面是，如圖7-3-1所示。------------------------------javascript判斷用戶輸入是否正確------------------------------->. alert("密碼必須是6-20位字母或數(shù)字！------------------------------------用戶注冊表單----------------------------------------->

　　

【正文】 pen 39。調(diào)用過程建立數(shù)據(jù)庫連接 39。 查找所有一級 分類為 ac1 的文章 22 39。在表 Class2 中查詢所有 Class1 為 ac1 的文章 Select * From Class2 Where class1Name=39。 amp。 ac1 amp。 39。,conn,1,1 39。如果記錄集不為空則開始循環(huán) if not( and ) then 39。循環(huán)知道記錄指針移到末尾即 do while not % tr td height=25 align=center bgcolor=eeeeee onMouseOver==39。FFFFFF39。 onMouseOut==39。eeeeee39。 a href=?ac1=%=ac1%amp。ac2=%=rs(class2Name)%font size=2b%=rs(class2Name)%/b/font/a /td /tr % 39。將記錄集指針下移一位 loop else 39。記錄集為空，可能是數(shù)據(jù)庫連接錯誤或者是記錄集為空 (錯誤：數(shù)據(jù)庫連接錯誤或者是數(shù)據(jù)庫中沒有記錄！ ) end if 39。調(diào)用過程關(guān)閉數(shù)據(jù)庫連接 call dbClose % /table /td td width=78% align=center valign=top bgcolor=FFFFFF table width=95% border=0 cellpadding=0 cellspacing=0 % call dbOpen 39。調(diào)用過程建立數(shù)據(jù)庫連接 39。 查找所有一級分類為 ac1 且二級分類為 ac2 的文章 39。如果 ac1 和 ac2 都不為空則查詢同時滿足 ac1 和 ac2 的文章 if ac1 and ac2 then 39。在 Articles 表中查詢 Class1Name 等于 ac1 并且 Class2Name 等于 ac2 的所有文章并按其 id 降序排列 strSQL = select * from Articles where class1Name=39。amp。ac1amp。39。 and class2Name=39。amp。ac2amp。39。 order by id desc 39。否則那么 ac1 或 ac2 之一為空或全為空 39。如果 ac1 不為空則 39。在 Articles 表中查詢 Class1Name 等于 ac1 的所有文章并按其 id 降序排列 elseif ac1 then strSQL=select * from Articles where class1Name=39。amp。ac1amp。39。 order by id desc else 39。如果 ac1 為空則顯示錯誤信息 (參數(shù)錯誤！ ) 23 39。結(jié)束網(wǎng)頁顯示 () 39。if 語句結(jié)束 end if 39。執(zhí)行查詢 strSQL,conn,1,1 % tr td width=2% height=30 rowspan=2 /td td width=98% height=44 valign=middle class=titstrong%=ac2%/strong/td /tr tr td height=2 colspan=2 bgcolor=6699cc /td /tr % 39。判斷記錄集是否為空 if and then % tr td height=24 colspan=2 style=BORDERbottom: 999999 1px dotted font color=999999 % 39。如果記錄集為空則顯示信息 : 暫時沒有記錄 (暫時沒有記錄 ) % /font /td /tr % 39。 分頁顯示查找結(jié)果 else 39。分頁顯示數(shù)據(jù)庫中的內(nèi)容 dim currentPage, pageNum, i 39。取得客戶端傳來的 page 變量值， currentPage 為記錄集的當(dāng)前頁 39。clng 函數(shù)可以將任何類型變量轉(zhuǎn)換為變體型變量 currentPage = clng(request(page)) 39。設(shè)置記錄集每頁最多記錄數(shù)為 20 = 20 39。設(shè)置從第一頁開始顯示 if currentPage = or currentPage = 0 then currentPage = 1 39。 表示記錄集所包含的頁數(shù)，用 pageNum 記錄 rs 記錄集所包含的頁數(shù) pageNum = 39。防止當(dāng)前頁大于總頁數(shù) if currentPage pageNum then currentPage = pageNum 24 39。設(shè)置記錄集當(dāng)前頁為 currentPage = currentPage 39。循環(huán)顯示一頁的所有記錄， 為一頁所包含的記錄數(shù) for i = 1 to % tr td height=24 align=center span class=STYLE2■ /span/td td height=24 colspan=2 style=BORDERbottom: 999999 1px dotted a href=?id=%=rs(id) % target=_blank%=rs(TITLE) %/a font color=999999[%=rs(updateTime) %]( 點擊 font color=ff0000%= rs(hits) %/font次 )/font /td /tr % 39。將記錄集指針下移一條 39。如果到了記錄集末尾則退出循環(huán) if then exit for next % tr valign=bottom td height=50 colspan=3 align=center form method=Post action=?ac1=%= ac1 %amp。ac2=%= ac2 % div align=right % 39。如果當(dāng)前頁數(shù)小于 2（不包含 2）則什么也不做 if currentPage 2 then 39。否則顯示“首頁”和“上一頁”鏈接 else a href=?ac1=amp。ac1amp。amp。ac2=amp。ac2amp。amp。page=1首頁 /a a href=?ac1=amp。ac1amp。amp。ac2=amp。ac2amp。amp。page= amp。 currentPage1 amp。 上一頁 /a end if 39。如果 = currentPage 則表示當(dāng)前頁為記錄集的最后一頁 if currentPage = then 39。否則顯示“下一頁”和“最后一頁”的鏈接 else a href=?ac1=amp。ac1amp。amp。ac2=amp。ac2amp。amp。page=amp。 (currentPage+1) amp。 下一頁 /a a href=?ac1=amp。ac1amp。amp。ac2=amp。ac2amp。amp。page=amp。amp。最后一頁 /a end if 39。顯示 當(dāng)前頁 /總頁數(shù) 頁次 ： strongfont color=redamp。currentPageamp。/font/amp。amp。/strong頁 25 39。顯示 共 條記錄 條記錄 /頁 39。 表示 rs 記錄集中全部記錄數(shù)， 表示一頁中的記錄數(shù)。詳見 Recordset 對象的屬性集合 共 bfont color=39。FF000039。amp。amp。/font/b 條記錄 bamp。amp。/b條記錄 /頁 % input name=39。page39。 type=39。text39。 class=input value=39。%=currentPage%39。 size=4 maxlength=10 input class=input type=39。submit39。 value=39。 Goto 39。 name=39。dok39。 /div /form /td /tr % end if 39。調(diào)用過程關(guān)閉數(shù)據(jù)庫連接 call dbClose % /table /td /tr /table !include file= /body /html 3． 的程序代碼 根據(jù)相應(yīng)的文章 id 顯示文章的標(biāo)題和內(nèi)容等信息，程序代碼內(nèi)容如下： %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=/ % dim id, title 39。用 request 對象取得瀏覽器傳入的參數(shù) id 值 id=request(id) % html head % 39。調(diào)用過程建立數(shù)據(jù)庫連接 call dbOpen 39。更新數(shù)據(jù)庫中點擊數(shù) hits 的值 26 strSQL = update Articles set hits=hits+1 where id=39。 amp。idamp。 39。 strSQL 39。查詢數(shù)據(jù)庫中 id 號 等于傳入 id 的記錄 strSQL = select * from Articles where id=39。 amp。idamp。 39。 39。執(zhí)行查詢 strSQL,conn,1,1 39。判斷查詢結(jié)果是否為空 if and then (數(shù)據(jù)庫查詢出錯！ ) else 39。將文件名賦值給 title title=rs(title) % meta equiv=ContentType content=text/html。 charset=gb2312 title%= title%/title !include file= /head body table width=90% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=F3F3F3 tr td width=100% height=92 align=center valign=toptable width=95% height=125 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=F3F3F3 tr td height=25 align=center class=head2%=rs(title)%/td /tr tr td height=30 style=bordertop: 1 solid 666666 div alig