【文章內(nèi)容簡介】
發(fā)的艱辛及問題解決后的喜悅,它培養(yǎng)我們獨(dú)立思考問題的能力,同時(shí)也增強(qiáng)了我的動(dòng)手能力,為以后自己在所要從事工作奠定了基礎(chǔ)。 此軟件用網(wǎng)絡(luò)編程語言 編成。具備一定的實(shí)用功能,但還是有很多的不足之出。在編寫過程中也遇到了很多的困難,老師在百忙之中抽出時(shí)間幫我解決很多困難。 在這里我衷心的感謝我的指導(dǎo)老師對(duì)我的指導(dǎo)和啟發(fā)。沒有您的指導(dǎo)和幫助,我不可能順利圓滿地完成論文的工作。在這里學(xué)生董晶對(duì)您說聲:“謝謝老師,您辛苦了?!? 天津大學(xué)網(wǎng)絡(luò)學(xué)院專科畢業(yè)設(shè)計(jì)論文 第 10 頁 /共 18 頁 參考文獻(xiàn) [1] 魏海 . 職業(yè)技能培訓(xùn)教程(高級(jí)管理員級(jí)) [M]. 北京:北京希望電子出版社 . [2] 張登輝 ,劉益紅 . ASP 編程基礎(chǔ)及應(yīng)用 [M]. 北京:機(jī)械工業(yè)出版社 . [3] 劉瑞新 ,張兵義 ,常永英 . ASP 動(dòng)態(tài)網(wǎng)站開發(fā)畢業(yè)設(shè)計(jì)指導(dǎo)及實(shí)例 [M] 北京:機(jī)械工業(yè)出版社, [4] 楊冬青 ,唐世渭 . 數(shù)據(jù)庫系統(tǒng)概念 [M] . 北京 :機(jī)械工業(yè)出版社 , [5] 薩師煊 ,王 珊 . 數(shù)據(jù)庫系統(tǒng)概論 [M] . 北京 :高等教育出版社 , 天津大學(xué)網(wǎng)絡(luò)學(xué)院??飘厴I(yè)設(shè)計(jì)論文 第 11 頁 /共 18 頁 附錄 部分源代碼 主窗體的程序代碼 Public Class WebForm1 Inherits Region Web 窗體設(shè)計(jì)器生成的代碼 39。該 調(diào)用是 Web 窗體設(shè)計(jì)器所必需的。 () Private Sub InitializeComponent() End Sub Protected WithEvents Label2 As Protected WithEvents Postnew As Protected WithEvents TextBox1 As k Protected WithEvents HyperLink3 As Protected WithEvents HyperLink4 As Protected WithEvents sel As 39。注意 : 以下占位符聲明是 Web 窗體設(shè)計(jì)器所必需的。 39。不要?jiǎng)h除或移動(dòng)它。 Private designerPlaceholderDeclaration As Private Sub Page_Init(ByVal sender As , ByVal e As ) Handles 39。CODEGEN: 此方法調(diào)用是 Web 窗體設(shè)計(jì)器所必需的 39。不要使用代碼編輯器修改它。 InitializeComponent() End Sub End Region 39。定義每一頁顯示的記錄數(shù) Public Record_Per_Page As Short = 10 Private Script_Name As String 39。頁面加載 Public Sub Page_Load(ByVal Source As , ByVal e As ) Handles 天津大學(xué)網(wǎng)絡(luò)學(xué)院??飘厴I(yè)設(shè)計(jì)論文 第 12 頁 /共 18 頁 Script_Name = GetPageName() 39。第一種方式來分頁顯示數(shù)據(jù) ShowRecords() End Sub 39。得到起始瀏覽超鏈接字符串 Function GetPageName() As String Dim Str As String Dim Pos As Short Str = (Script_Name).Trim() Pos = (/) If Pos = 0 Then Return (Pos + 1) Else Return Str End If End Function 39。此函數(shù)的功能是分頁顯示數(shù)據(jù)庫中的記錄 Private Sub ShowRecords() Dim strConn As String 39。定義數(shù)據(jù)連接字符串 Dim SQL As String 39。定義 SQL語句 Dim odConn As Dim odAdapt As Dim DS As DataSet 39。創(chuàng)建 DataSet對(duì)象 Dim DT As DataTable 39。創(chuàng)建 DataTable對(duì)象 Dim nRecCount As Integer 39。保存記錄總數(shù) Dim nPageCount As Integer 39。保存總共的數(shù)據(jù)頁面數(shù)目 Dim nPage As Integer 39。存放要瀏覽當(dāng)前數(shù)據(jù)頁面號(hào)