利用Asp.net和Sql Server實現留言板功能

本教程設及到：使用SQL Server查詢分析器建立數據庫；SQL查詢語句經常使用的一些屬性值；觸發器建立和使用；存儲過程的建立，ASP使用存儲過程。

正文:

1、建立數據庫:

建立一個feedback數據庫，該數據庫的主數據文件的邏輯名稱是feedback，操做系統文件是feedback.mdf

 

Create Database feedback --建立數據庫feedback

 

On {語法錯誤？}

 

Primary (

Name=feedback,

Filename='d:\feedback.mdf',   --數據庫操做系統文件的目錄和名稱

Size=15MB,

Maxsize=30MB,

Filegrowth=20%)

 

Log On

 

(Name=feedback_log,

Filename='d:\feedback.ldf',

Size=3MB,

Maxsize=10MB,

FileGrowth=1MB)

 

USE feedback   --打開數據庫

2、建立兩個表，一個用來做留言，一個做留言的回覆！

 

一、建立第一個表：Feedback存放留言的記錄！

 

Drop Table Feedback  --若是已經有此表將其刪除,第一次建立，不用這句！

 

GO

 

Create Table Feedback --建立表FeedBack

(

 Feedback_ID  int  Primary Key Identity (1, 1) Not Null,   

--字段Feedback_ID ,主關鍵字，自動累加，初值爲1，自動加1，不能爲空--逗號可不加

 

 Title nvarchar(256) Not Null, --字段Title 留言標題，類型nvarchar 大小256，不能爲空

 Content text Not Null, --字段Content  --留言內容，類型文本字段，不能爲空

 subFeedback_count  int default 0 --字段subFeedback_count 回覆的條數！默認值0

)

 

二、插入一條新記錄，並顯示出來

 

Insert into Feedback

(Title,Content)

values

('here is Title','This is a test')

 

GO

 

select * from Feedback

 

 

三、建立第二表：subFeedback存放留言的回覆

 

Create Table subFeedback

(

 subFeedback_ID int Primary Key identity(1,1) Not Null,

 Feedback_ID int Foreign key references Feedback(Feedback_ID),

 --定義外鍵關聯到表Feedback的主鍵Feedback_ID

 Content text Not Null

)

 3、建立兩個觸發器

 

一、第一個觸發器(級聯刪除觸發器)：

當刪除Feedback表中的記錄時，自動刪除subFeedback中外鍵對應相同的全部記錄 Create Trigger Trigger_delete_Feedback

ON Feedback

--在表feedback上建觸發器Trigger_delete_Feedback

Instead OF  Delete        

--INSTEAD OF 觸發器表示並不執行其所定義的

操做（INSERT、 UPDATE、 DELETE），而僅是執行觸發器自己

--或者說發生Delete事件時執行,該觸發器AS後語名會替換過delete語句的執行

 

AS

Delete From subFeedback where Feedback_ID in(select Feedback_ID from deleted)

--刪除表subFeedback外鍵與刪除feedback主鍵相同的值

Delete From Feedback where Feedback_ID in(select Feedback_ID from deleted)

 

 

 

二、第二個觸發器：

當subFeedback有新增記錄時，Feedback.subFeedback_count字段記數增長！ Create Trigger Trigger_update_subFeedback

ON subFeedback

For insert   

--注間和Instead OF的區別，For是當insert語句執行完後再執行解發器AS後的語句

 

AS

update Feedback set subFeedback_count=subFeedback_count+1 where Feedback_ID in(select Feedback_ID from inserted)

 

 

    另外：若是考慮的較周全點，當subFeedback中的記錄刪除時，Feedback_subFeedback_count字段還要減1，觸發器的寫法和上面一類似，爲減短教程，就不在增長！

 

4、創建兩個存儲過程用來保存增長的Feedback和subFeedback記錄 

 

Create Procedure proc_insert_Feedback --建立存儲過程proc_insert_Feedback

@Title nvarChar(256),@Content text  --定義參數變量

AS

Insert into Feedback (Title,Content) values(@Title,@Content) --執行語句

 

GO

 

Create Procedure proc_insert_subFeedback

@Feedback_ID int,@Content text

AS

Insert into subFeedback (Feedback_ID,Content) values(@Feedback_ID,@Content)

 

 

5、創建asp文件，完成留言板製做！

 

一、建立conn.asp文件，與數據庫鏈接。

 <%

dim conn

set conn=Server.createobject("ADODB.CONNECTION")      '建立鏈接對象

 

conn.open="Provider=SQLOLEDB; Data Source=127.0.0.1;" & _

"Initial Catalog=Feedback; User ID=sa; password=sa;"      

'打開鏈接。換成你的server-IP（若是也是本機不用修改），數據庫用戶名，密碼！

%>

 

二、建立List.asp顯示留言，內容。

這裏我把增長的 Form 也加到了文件底部，減小文件的個數。 <!--#include file="conn.asp"--><!--用include file包含數據庫鏈接文件。-->

 

<%

SQL="select * from Feedback"

Set rs=Server.CreateObject("ADODB.Recordset")      '建立數據集rs

rs.open SQL,conn,1,3   '打開

 

if not rs.eof then

 

 output=""   '定義字符串變量output，輸出

 do while not rs.eof           '外循環開始

 

 output=output&rs("title")

 output=output&"--<a href=Feedback.asp?feedback_ID="&rs("feedback_ID")&"&title="&rs("title")&">回覆該留言</a>["&cstr(rs("subFeedback_count"))&"]<hr>"

'創建回覆留言的連接，並把要回復的留言的記錄Feedback_ID和Title傳給Feedback.asp

'Feedback用來標誌是回覆了哪條記錄，增長數據庫用！Title用來顯示回覆的哪條記錄，給回覆者看

 

 output=output&rs("content")

 output=output&"<br><br>"

 

  sqlsub="select * from subFeedback where Feedback_ID="&rs("Feedback_ID")

  Set rsSub=Server.CreateObject("ADODB.Recordset")

  rsSub.open sqlSub,conn,1,3

  if not rsSub.eof then

  

    j=1   '爲for語句定義變理

    do while not rsSub.eof

  

     for k=1 to j            '貼子縮進,貼子越靠後，縮進量越大

      output=output&"  "

     next

   

    output=output&"["&j&"]樓<span style='word-wrap: break-word;'>"

    output=output&rsSub("content")

    output=output&"</span><br>"

    j=j+1

    rsSub.movenext

    loop

   end if

 output=output&"<br>"

 rs.movenext

 loop

response.write output

else

response.write "無記錄！"

end if

rs.close

set rs=nothing

%>

 

 

<script>

 

 

function chkform(){

//這個函數用來判斷輸入是否爲空

//固然這裏的判斷還遠遠不夠，比仿說還要判斷字符的多少，是否有非法字符等

if (document.add.title.value==""|| document.add.content.value==""){

alert("標題或內容不能爲空，請輸入！");

return;

}

document.add.action="add.asp";

document.add.submit;

}

</script>

 

<form name="add" method="post" action="javascript:chkfrom();">

標題<input type=text size="50" name=title><br>

內容<textarea name="content" cols="50" rows="8"></textarea><br>　　

<input type="hidden" value="Feedback" name="table">

<!--上面是一個隱藏域，傳遞一個名爲table,值爲Feedback變量，讓add.asp知道是編輯的Feedback表-->

<input type="submit" name=submit value="   提   交   ">

</form>

 

    經過上面的list.asp文件，這時若是數據庫有有數據，那麼網頁中就能夠顯示數據了，若是沒有內容網頁顯示「無記錄」，下邊顯示增長表單。

 

三、建立Feedback.asp文件，用來填寫留言的回覆！

回覆：<%=request("title")%>

<form name="add" method="post" action="add.asp">

內容<textarea name="content" cols="50" rows="8"></textarea><br>

<input type="hidden" name="table" value="subFeedback">　　

<input type="hidden" name="Feedback_ID" value='<%=request.QueryString("Feedback_ID")%>'>

<input type="submit" name=submit value="   提   交   ">

</form>

 

 

四、建立add.asp文件，用來分別保存時Feedback,subFeedback的兩個表的增長記錄！

這裏請注意ASP調用SQL SERVER的存儲過程的方法，會讓程序變的很簡潔！ <!--#include file="conn.asp"-->

<%

table=request.form("table")  '用來判斷是編輯的哪一個表

if table="Feedback" then

      title=cstr(trim(request.form("title")))

      content=cstr(trim(request.form("content")))

      'trim去掉字符串先後的空格，cstr數據類型轉爲字符型

 

             if title<>"" and content<>"" then

                     Conn.Execute "proc_insert_Feedback '"&title&"','"&content&"'"

             else

                     response.write "<script>alert('所需數據爲空，請填寫')</script>"

                     response.write"<script>history.go(-1)</script>"

                     response.end

             end if

elseif table="subFeedback" then

 

       Feedback_ID=trim(request.form("feedback_ID"))

       content=cstr(trim(request.form("content")))

 

             if Feedback_ID<>"" and content<>"" then

                Conn.Execute "proc_insert_subFeedback "&Feedback_ID&",'"&content&"'"

             else

                     response.write "<script>alert('所需數據爲空，請填寫')</script>"

                     response.write"<script>history.go(-1)</script>"

           end if

end if

response.redirect("List.asp")

%>

 

下載這四個ASP文件。

 

 

轉載於:baisichen

https://me.csdn.net/baisichen