教大家如何利用ASP打造網站論壇DIY(2)(3)_ASP教程

推薦：對一些編程初學者的良言警句
我始終認為，對一個初學者來說，IT界的技術風潮是不可以追趕的，而且也沒有能力去追趕。我時常看 見自己的DDMM們把課本扔了，去賣些價格不菲的諸如C#, VB.Net 這樣的大部頭，這讓我感到非常痛心

注：在這個表中，除了可以由連接來顯示看板主題的內容，還有一個斑竹查詢部分和板務處理部分，版主查詢可以是通過qAuthor.asp來實現的，它只是簡單的從數據庫中取出作者訊息，并顯示出來，這兒就不多說了。而板務處理是由managerlogin.asp頁面來處理的。這屬于文章審閱模塊，我在后面再詳說。

以下為引用的內容： rs.movenext loop until rs.eof %＞

注：通過一個do … loop循環，把紀錄集中所有的訊息都顯示了出來。

以下為引用的內容： ＜ /table＞ ＜ div align="center"＞＜br＞

點擊看板名稱可以得到主題列表，點擊板主名稱可以察看板主訊息

以下為引用的內容： ＜ /div＞ ＜ /body＞ ＜ /html＞ ＜ % set rs=nothing conn.close set conn=nothing %＞

（3）打造qBaord.asp頁面：

以下為引用的內容： ＜ % boardid=request("boardid") '取出由上個頁面傳遞過來的看板ID號 Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb") Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = conn cmd.CommandText = "主題列表" ReDim param(0) //注：聲明參數數組 param(0) = CLng(boardid)//注：CLng 不可忽略 Set rs = cmd.Execute( ,param ) %＞ ＜ html＞ ＜ head＞ ＜ title＞主題列表＜ /title＞ ＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞ ＜ /head＞ ＜ body bgcolor="#FFFFFF"＞ ＜ h1 align="center"＞＜%=rs("看板名")%＞板主題列表 ＜/h1＞ ＜ table width="80%" border="0"cellspacing="0" cellpadding="0"align="center"＞ ＜ tr bgcolor="#FFFFCC"＞ ＜ td width="89%" height="21"＞主題＜/td＞ ＜ td width="11%" height="21"＞文章數＜/td＞ ＜ /tr＞ ＜ % do topicid=rs("id") topicname=rs("標題") sum=rs("文章數") response.write "＜ tr＞＜ td＞＜a href=qtopic.asp?topicid=" & topicid& "&boardname=" & boardname& "＞" & topicname &"＜ /a＞＜ /td＞" response.write "＜ td＞" &sum & "＜ /td＞＜ /tr＞" rs.movenext loop until rs.eof %＞ ＜ /table＞ ＜ /body＞ ＜ /html＞

注：qBoard.asp列出了某個版面下的所有的主題，在點擊了主題名稱后就會進入相應的主題文章列表。這個列表的是由qTopic.asp這個ASP腳本來實現的。Qtopic.asp的程序代碼在本質上幾乎和qBoard.asp沒有區別，只是在各自的細節上有所區別，這兒也不打算再多講了。

（4）在點擊了文章列表中的文章標題后，會進入文章內容瀏覽頁article.asp：

以下為引用的內容： ＜ % articleid=request("articleid") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft AccessDriver(*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb") Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = conn cmd.CommandText = "按id查詢文章" ReDim param(0) ' 聲明 param(0) = CLng(articleid) ' Cint 不可忽略 Set rs = cmd.Execute( ,param ) author=rs("作者id") title=rs("標題") data=rs("日期") rate=rs("推薦度") boardid=rs("看板id") topicid=rs("主題id") boardname=rs("看板名") topicname=rs("主題名") content=rs("內容") content=replace(content,vbCrlf,"＜/p＞＜ p＞") content="＜ p＞" & content& "＜ /p＞"

注：這是一個要注意的地方，在內容字段中包含的是備忘類型的文本，其中可以包含換行字符。在HTML的顯示中，必須要把換行字符（也就是vbCrlf常數）換成HTML的段落符號。這樣在段落與段落的銜接處，就不會打亂原來輸入時的格式。如果要設計的更好些，可以通過CSS來復位義＜ P＞標簽，設定其test-indent屬性，就可以實現每段開頭空格了。

（5）把點擊次數加一

以下為引用的內容： sql="Update 內容表 Set 點擊次數=點擊次數 1Where ID=" & articleid conn.execute sql

注：這兒有一個SQL語句，沒當頁面被顯示的時候，會把相應的表中點擊次數字段加一，這樣就能夠對文章瀏覽的次數做出統計，并可按順序排名。在執行條語句的時候，我發現：本來在SQL語句中，嵌入的變量名應該加上單引號以與區別，但在這兒的articleid變量上我并沒有加單引號，居然也能夠通過，而我以前這樣寫從來都是會引發錯誤的，不知是不是由于新版本的ADO的緣故。

以下為引用的內容： set cmd=nothing %＞ ＜ html＞ ＜ head＞ ＜ title＞Untitled Document＜ /title＞ ＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞ ＜ /head＞ ＜ body bgcolor="#E9E9E4"＞ ＜ table width="89%" border="0"cellspacing="0" cellpadding="0"align="center"＞ ＜ tr bgcolor="#CCCCCC"＞ ＜ td＞作者：＜ font color="#FF3366"＞＜a href="qauthor.asp?author=＜ %=author%＞"＞＜ %=author%＞ ＜ /a＞＜ /font＞發表日期：＜ font color="#FF3333"＞＜%=data%＞＜ /font＞ 看板：＜ font color="#FF3333"＞＜a href="qboard.asp?boardid=＜ %=boardid%＞"＞＜ %=boardname%＞＜ /a＞＜ /font＞板主推薦：＜ font color="#FF3333"＞#rate#＜/font＞＜ /td＞ ＜ /tr＞ ＜ tr bgcolor="#CCCCCC"＞ ＜ td＞標題：＜ font color="#FF3333"＞＜%=title%＞ 主題：＜ a href="qtopic.asp?topicid=＜%=topicid%＞"＞ ＜ %=topicname%＞＜ /a＞ ＜ /font＞＜ /td＞ ＜ /tr＞ ＜ tr valign="top"＞ ＜ td＞ ＜ hr＞ ＜ font color="#FF3366"＞文章內容：＜ /font＞＜ br＞ ＜ br＞ ＜ font color=blue＞＜ %response.writecontent%＞＜ /font＞ ＜ br＞ ＜ br＞ ＜ /td＞ ＜ /tr＞ ＜ tr valign="top"＞ ＜ td height="18"＞ ＜ table width="50%" border="0"cellspacing="0" cellpadding="0"align="right" bgcolor="#CCCCCC"＞ ＜ tr＞ ＜ td width="0%"＞ ＜ /td＞ ＜td width="65%"＞關于此話題＜a href="submit.asp?topicid=＜ %=topicid%＞&boardid=＜%=boardid%＞"＞發表評論＜ /a＞＜/td＞

分享：ASP教程：學習ASP應用Cookies的技巧
什么是 Cookie？Cookie 其實是一個標簽，經常可能聽到的中文翻譯：小舔餅。當你訪問一個需要唯一標識你的站址的 WEB 站點時，它會在你的硬盤上留下一個標記，下一次你訪問同一個站點時，站點的