信息查詢系統(tǒng)—免費(fèi)計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文(編輯修改稿)

　

【文章內(nèi)容簡(jiǎn)介】 圖為管理員登陸錄成功后所看到的頁(yè)面效果。 2． 頁(yè)面中需要用戶添寫(xiě) HTML 的表單元素 此頁(yè)面無(wú)需填寫(xiě) HTML 表單元素 3． 頁(yè)面所涉及的數(shù)據(jù)庫(kù)表信息 此頁(yè)使用了系統(tǒng)中的信息記錄表 learning. % if (adminok)= then end if % !include file= html head meta equiv=ContentType content=text/html。 charset=gb2312 title管理文件 /title meta name=GENERATOR content=Microsoft FrontPage link rel=stylesheet href=css/ /head % const MaxPerPage=20 dim totalPut dim CurrentPage dim TotalPages dim i,j if not isempty(request(page)) then currentPage=cint(request(page)) else currentPage=1 end if % body bgcolor=FFFFFF p /p table width=700 border=1 cellspacing=0 cellpadding=0 align=center bordercolorlight=000000 bordercolordark=FFFFFF tr bgcolor=99CCFF td height=10 bgcolor=3399cc div align=centerb管 理 界 面 /b/div /td /tr tr td height=49% dim sql dim rs sql=select * from learning order by articleid desc Set rs= () sql,conn,1,1 if and then p align=39。center39。 還 沒(méi) 有 任 何 信 息 /p else totalPut= totalPut= if currentpage1 then currentpage=1 end if if (currentpage1)*MaxPerPagetotalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpages showContent showpages else if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark= showpages showContent showpages else currentPage=1 showpages showContent showpages end if end if end if set rs=nothing set conn=nothing sub showContent dim i i=0 % table border=1 cellspacing=0 width=90% bgcolor=F0F8FF bordercolorlight=000000 bordercolordark=FFFFFF align=center tr td width=12% align=centerstrongID 號(hào) /strong/td td width=13% align=centerb類 型 /b/td td width=47% align=centerstrong 信 息 名 稱/strong/td td width=14% align=centerstrong修 改 /strong/td td width=14% align=centerstrong刪 除 /strong/td /tr %do while not % tr td width=12% height=7 p align=center%=rs(articleid)% /td td width=13% height=7 div align=center%=rs(type)%/div /td td width=47% height=7a href=?id=%=rs(articleid)%%=rs(title)%/a/td td width=14% align=center height=7a href=?id=%=rs(articleid)%修 改 /a/td td width=14% align=center height=7a href=?id=%=rs(articleid)%刪 除 /a/td /tr % i=i+1 if i=MaxPerPage then exit do loop % /table p% end sub sub showpages() dim n if (totalPut mod MaxPerPage)=0 then n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if if n=1 then p align=39。left39。a href=添加信息 /a /p exit sub end if dim k p align=39。left39。 信息分頁(yè) for k=1 to n if k=currentPage then [b+Cstr(k)+/b] else [b+a href=39。?page=+cstr(k)+39。+Cstr(k)+/a/b] end if next a href=創(chuàng)建信息 /a /p end sub %/p /td /tr /table div align=center center /center /div /body /html 添加信息頁(yè) 1． 頁(yè)面示例 圖為添加信息所看到的頁(yè)面效果。 1． 頁(yè)面中需要用戶填寫(xiě) HTML 的表單元素 ? 該頁(yè)面中共有 8個(gè)表單元素，如下表所示 名稱 表單元素類型 含義 最大長(zhǎng)度 txttitle text 信息名稱 70 txturl text 連接地址 70 typename list 信息類型 txtcontent textarae 信息說(shuō)明 350 big text 信息大小 10 vote radio 信息評(píng)價(jià) from text 相關(guān)主頁(yè) 10 fromurl text 相關(guān)地址 70 2． 頁(yè)面所涉及的數(shù)據(jù)庫(kù)表信息 此頁(yè)僅向系統(tǒng)提交信息記錄，并沒(méi)有涉及到數(shù)據(jù)庫(kù)表的操作。 3． 頁(yè)面代碼分析 % if (adminok)= then end if % html head meta equiv=ContentType content=text/html。 charset=gb2312 meta name=GENERATOR content=Microsoft FrontPage title信息查詢系統(tǒng)信息添加界面 /title script LANGUAGE=javascript ! function FrmAddLink_onsubmit() { if (==) { alert(Sorry，信息名稱沒(méi)有輸入！ ) () return false } else if(== || ()== { alert(Sorry，鏈接地址沒(méi)有輸入！ ) () return false } else if(==) { alert(Sorry，信息簡(jiǎn)介沒(méi)有輸入！ ) () return false } else if(==) { alert(Sorry，信息大小沒(méi)有輸入！ ) () return false } else if(==) { alert(Sorry，信息來(lái)源沒(méi)有輸入！ ) () return false } else if(==) { alert(Sorry，信息來(lái)源地址沒(méi)有輸入！ ) () return false } } // /script link rel=stylesheet href=../css/ /head body bgcolor=FFFFFF form align=center method=post name=FrmAddLink LANGUAGE=javascript onsubmit=return FrmAddLink_onsubmit() action= div align=centercenter table border=1 cellspacing=0 width=700 bordercolorlight=000000 bordercolordark=FFFFFF tr bgcolor=0099CC td width=100% height=20 bgcolor=3399cc p align=centerbfont color=FFFFFF添 加 信 息 /font/b /td /tr tr align=center td width=100% height=206 table border=0 cellspacing=1 width=93% tr td width=15% align=right height=9