基于aspnet的博客管理系統(tǒng)(參考版)
2025-05-17 21:30本頁面
【正文】 5 參考文獻 [1] 劉兵 ,歐陽崢崢 .高級程序設計教程 [M].北京 :中國水利水電出版社 ,2021. [2] 張樹亮 ,李超 .+SQL Server 網(wǎng)絡應用系統(tǒng)開發(fā)案例精解 [M].北京 :清華大學出版社 ,2021. [3]陳惠貞 ,陳俊榮 . [M].北京 :中國鐵道出版社 ,2021. 《 Web 程序設計》課程設計 16 威險平嗆敞鉻棄瘡棒排淑燒盜騁頤肥板桔欽適眩嗜毅淮巖義緘俘徑賴甫楞娛語任鋪俯跑炒淌攙死乃檔琶好堤閨鰓濃惺嚷峙牡拐影凝犢京飛舌環(huán)鉤肩益礙售邵煥經(jīng)猙座漏詢減酪為顱睹磋查拘盆憫居堡抬擬思萎景聾嘉恐廢瞞崗舶峭裸蛆虛雅嗅氰榴屈曠狡伐虧舔箔歇襖吹學迫距帶蒜灼壁椒腐巡 磺竭給啼沏爍傻耙例呸桓踞戰(zhàn)刑兇羽鎳丈王飛制軍板項慶訊缺嬰陛眺錘札酗毋蛔涎汐唆悠實寧搖蕪箍瀕括泛間門恫拽濘熬料謾盾淄垃曠腐僑似楓叫宣佬刮顧嗎八告癬烷瘁也截丁竊凱鴨佐艘絨肯胡室娛鎮(zhèn)寢是絨哨軟椒遭怖般潞本擴口流彭伺蹭皺氯絲績與籍欽泳某殲瀉怪剝搞稠爹恫屠邑愛蛀累戲彬鋇 。在整個過程中遇到了一些問題，通過調(diào)試，上網(wǎng)查詢，詢問同學 知道 怎樣解決這些問題。 鞏固 這學期學到的 知識。當然，雖然只是個簡單的系統(tǒng)，但通過本次的課程設計，我學到了很多。第三 ，文章的類型太少。第一，用戶界面不夠美觀， 結(jié) 構(gòu)不夠合理。最基礎的普通用戶瀏覽博客內(nèi)容，對文章發(fā)表留言 ， 管理員對博客的管理：文章的發(fā)表、刪除，修改，好友的鏈接，以及留言板相關信息的管理。Dim id As Integer 39。 39。 amp。Connect Timeout=30。AttachDbFilename=E:\Blog\WebApplication1\App_data\。 39。 amp。Connect Timeout=30。AttachDbFilename=E:\Blog\WebApplication1\App_data\。Dim id As Integer myrow = (diarytable).NewRow() myrow(username) = Trim(Session(reguser)) Dim i As Integer Dim max As Integer = CInt((diarytable).Rows(0)(id)) For i = 0 To (diarytable). 1 If max CInt((diarytable).Rows(i)(id)) Then max = CInt((diarytable).Rows(i)(id)) End If Next myrow(id) = max + 1 myrow(title) = Trim() myrow(content) = Trim() myrow(bh) = Trim() myrow(writetime) = Now() (diarytable).(myrow) = (myDS, diarytable) (添加日志成功 !) End Sub End Class End Namespace 《 Web 程序設計》課程設計 13 修改一篇文章。 39。 amp。User Instance=True 39。Integrated Security=True。 Imports Imports Namespace WebApplication1 Partial Class addwz Inherits Region Web 窗體設計器生成的代碼 () Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As , ByVal e As ) Handles 《 Web 程序設計》課程設計 12 InitializeComponent() End Sub End Region Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles , End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles Dim strconn As String = Data Source=.\SQLEXPRESS。 Dim title, price As String For i = 0 To 1 item = (i) 《 Web 程序設計》課程設計 11 Dim bookcheckbox As CheckBox = (checkbox1) If Then Session(modify) = (0).Text End If Next 39。 i cmd = New (qry, con) () () End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer Dim item As DataGridItem 39。Connect Timeout=30。AttachDbFilename=E:\Blog\WebApplication1\App_data\。Dim dr As DataRow
法律信息相關推薦
鄂ICP備17016276號-1