計(jì)算機(jī)及軟件技術(shù)專業(yè)畢業(yè)論文--個(gè)人網(wǎng)站畢業(yè)設(shè)計(jì)-展示頁(yè)
2024-12-13 19:57本頁(yè)面
【正文】 raName 必須為數(shù)字型請(qǐng)正確操作 Responseend End if Else ParaValue replace ParaValue End if SafeRequest ParaValue End function Function FormatSQL strChar if IsNull strChar Or IsEmpty strChar then FormatSQL else FormatSQL replace strChar FormatSQL replace FormatSQL FormatSQL replace FormatSQL FormatSQL replace FormatSQL FormatSQL replace FormatSQL FormatSQL replace FormatSQL ＜ FormatSQL replace FormatSQL ＞ FormatSQL replace FormatSQL FormatSQL replace FormatSQL FormatSQL replace FormatSQL ＝ FormatSQL replace FormatSQL％ FormatSQL replace FormatSQL※ end if End Function dim conn dim connstr db Databasedatamdb connstr DBQ servermappath db DefaultDir DRIVER Microsoft Access Driver mdb set conn servercreateobject ADODBCONNECTION if errnumber 0 then errclear set conn nothing responsewrite 數(shù)據(jù)庫(kù)連接出錯(cuò) ResponseEnd else connopen connstr if err then errclear set conn nothing responsewrite 數(shù)據(jù)庫(kù)連接出錯(cuò) ResponseEnd end if end if 三分頁(yè)功能模塊代碼 分頁(yè)功能代碼塊可獨(dú)立使用 if not rseof then rsMoveFirst 注意放到前面來(lái)否則到任何頁(yè)總是在第一個(gè)記錄上 end if rspagesize PerPage 設(shè)置每頁(yè)最多顯示多少條記錄 If trim Request Page then 如果請(qǐng)求的頁(yè)次不為空 CurrentPage CLng request Page clng 是轉(zhuǎn)換成長(zhǎng)整型數(shù)據(jù)類型并賦值到當(dāng)前頁(yè)次上 If CurrentPage rsPageCount then 如果當(dāng)前頁(yè)次大于總頁(yè)數(shù)則將最大頁(yè)次賦值到當(dāng)前頁(yè)次上 CurrentPage rsPageCount End If Else CurrentPage 1 一切條件不成立將當(dāng)前頁(yè)設(shè)為第一頁(yè) End If totalPut rsrecordcount 將總記錄賦值于 TOTALPUT if CurrentPage 1 then 如果當(dāng)前頁(yè)數(shù)不等于第一頁(yè) if currentPage1 PerPage totalPut then 如果當(dāng)前頁(yè)減一乘以每頁(yè)最大的記錄數(shù)小于總記錄的話 rsmove currentPage1 PerPage 相對(duì)當(dāng)前記錄數(shù)向后移動(dòng) dim bookmark 定義書(shū)簽變量 bookmark rsbookmark 將當(dāng)前記錄的標(biāo)簽賦于變量 BOOKMARK 上 end if end if dim nk if totalPut mod PerPage 0 then 總記錄數(shù)與每頁(yè)最大記錄數(shù)求余的結(jié)果為零時(shí)則 N 返回整數(shù)頁(yè)次否則再加一 n totalPut \ PerPage else n totalPut \ PerPage 1 end if 四圖片顯示功能模塊代碼 table border 0 cellspacing 0 cellpadding 0 cid request id if cid then sql select from HN_pro order by id desc else sql select from HN_pro where cstr class cid order by id desc end if set rsnews servercreateobject adodbrecordset rsnewsopen sqlconn11 if rsnewseof then ResponseWrite end if IF Not rsnewseof Then proCount rsnewsrecordcount rsnewsPageSize 24 定義顯示數(shù)目 if not IsEmpty Request ToPage then ToPage CInt Request ToPage if ToPage rsnewsPageCount then rsnewsAbsolutePage rsnewsPageCount intCurPage rsnewsPageCount elseif ToPage 0 then rsnewsAbsolutePage 1 intCurPage 1 else rsnewsAbsolutePage ToPage intCurPage ToPage end if else rsnewsAbsolutePage 1 intCurPage 1 end if intCurPage CInt intCurPage k 1 do while Not rsnewseof and k 6 for n 1 to 6 table width 69 height 68 border 0 cellpadding 0 cellspacing 0 align center
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1