基于aspnet留言版系統(tǒng)課程設計(編輯修改稿)
2024-12-12 00:32 本頁面
【文章內(nèi)容簡介】 序和數(shù)據(jù)庫連接起來，以后就可以連接到數(shù)據(jù)庫、在 ASP 中顯示數(shù)據(jù)庫中的數(shù)據(jù)以及更復雜的插入、修改和刪除。 制作留言 板 首頁 制作添加留言頁面，實現(xiàn)留言功能 編寫留言板功能代碼。 創(chuàng)建數(shù)據(jù)庫。 連 接數(shù)據(jù)庫 。 制作留言 板 首頁 。 8 制作添加留言頁面，實現(xiàn)留言功能 。 編寫留言板功能代碼： 、 、 、 、 、 、 、 、 登錄服務器運行測試。 、留言板功能實現(xiàn)簡述（核心代碼及注釋） html head meta equiv=ContentType content=text/html。 charset=gb2312 title留言板 /title /head body bgcolor=FFCOCB text=A52A2A form method=post action= table width=600 border=1 align=center tr td colspan=2用戶發(fā)表留言 /td /tr tr td姓名： /td tdinput name=name type=text id=name size=30 maxlength=30/td /tr tr td留言： /td tdtextarea name=content cols=30 rows=3 id=content/textarea/td /tr tr tdinput type=submit name=Submit value=發(fā)表留言 /td tdinput type=reset name=Submit2 value=重置 /td /tr /table /form /body /html 9 %dim conn39。定義一個全局變量 sub opendb() On Error Resume Next 39。建立 Connection 對象 Set conn = () Provider = Provider=。 DBpath = Data Source= amp。 (data/) 39。連接數(shù)據(jù)庫 Provider amp。 DBpath if 0 then set conn = nothing 數(shù)據(jù)庫連接錯誤 ,請檢查連接字串。 end if end sub sub closedb() set conn=nothing end sub % %@LANGUAGE=VBSCRIPT% !include file= % sql=select * from GuestBook order by id desc39。最新留言顯示在最前面 call opendb() 39。建立 RecordSet 對象 Set rs = () 39。打開數(shù)據(jù)庫表 sql, conn,3,2 If rs Is Nothing Then Recordset 調(diào)用失敗 ! End If % html head title留言板 /title /head 10 H2 ALIGN=CENTER留言板 HR/H2 body bgcolor=FF00FF DIV ALIGN=right a href=發(fā)表留言 /a a href=admin/管理員入口 /a/DIV % if not Then Myself = (PATH_INFO) = 3 39。指定每頁要顯示的留言數(shù)量 Page = CLng(Request(Page)) If Page 1 Then Page = 1 If Page Then Page = = Page39。指定要顯示的頁數(shù) For iPage = 1 To % table width=700 border=5 align=center tr td bgcolor=green發(fā)言人： /td td bgcolor=green%=rs(Name)%/td td bgcolor=CC99FF發(fā)言時間： /td td%=rs(Time)%/td tda href=admin\?id=%=rs(id)%[ 回復留言 ]/a/td /tr tr td bgcolor=FF6600留言內(nèi)容： /td td colspan=4%=rs(Content)%/td /tr tr td站長回復： /td td colspan=3%=rs(Reply)%/td tda href=admin\?action=del_contentamp。id=%=rs(id)%[ 刪除留言 ]/a/td /trp p p /table % 39。 移到下一項 If Then Exit For 11 Next % DIV ALIGN=right FORM Action=%=Myself% Method=GET %If Page 1 Then 39。 如果不是位于第一頁 % A HREF=%=Myself%?Page=1第一頁 /A A HREF=%=Myself%?Page=%=(Page1)%上一頁 /A %End If If Page Then 39。 如果不是位于最后一頁 % A HREF=%=Myself%?Page=%=(Page+1)%下一頁 /A A HREF=%=Myself%?Page=%=%最后一頁 /A %End If% 輸入頁次 :INPUT TYPE=TEXT Name=Page SIZE=3 INPUT TYPE=submit value =提交 頁次 :FONT COLOR=black%=Page%/%=%/FONT /FORM /DIV % else call closedb() 目前還沒有留言 end if % /body /html 4. %@LANGUAGE=VBSCRIPT% !include file=admin/ !include file= % =now()1 = nocache name=Trim(request(name)) content=Trim(request(content)) if name= or co
公司管理相關(guān)推薦
鄂ICP備17016276號-1