linenum
1. create table tt
2. (
3. id autoIncrement
4. primary key,
5. title varchar(255),
6. content memo,
7. dateandtime date
8. )

linenum
1. parameters spTitle varchar(255),spContent varchar(255);
2. insert into tt(title, content, dateandtime)
3. values([spTitle], [spContent], now())

linenum
1. <%
2. function fCreateCnn(cnn)
3. set cnn=createObject("adodb.connection")
4. end function
5.  
6. function fCloseCnn(cnn)
7. cnn.close
8. set cnn=nothing
9. end function
10. %>
11. 
    3.2 組合使用 fCreateCnn, fCloseCnn, tt_insertParm 添加記錄
     
linenum
12. <%
13. dim title, content
14. title="insert title"
15. content="insert content"
16. dim cnn, rs
17. dim i
18. call fCreateCnn(cnn)
19. cnn.open conn
20. for i=1 to 10
21. cnn.execute("exec tt_insertParm "&title&i&","&content&i)
22. next
23. call fCloseCnn(cnn)
24. if err.number=0 then response.Write "數(shù)據(jù)已添加" else response.Write "發(fā)生錯(cuò)誤, 數(shù)據(jù)未添加"
25. %>

linenum
1. PARAMETERS qId Long;
2. SELECT *
3. FROM tt
4. WHERE id=iif(isNull([qId]),id,[qId])

linenum
1. <%
2. dim qId, fldNum, i
3. qId = 10
4. dim cnn, rs
5. call fCreateCnn(cnn)
6. cnn.open conn
7. set rs = cnn.execute("EXEC tt_selectParm " & qId)
8. 'set rs = cnn.execute("EXEC tt_selectParm null")
9. fldNum=rs.fields.count-1
10. do until rs.eof
11. for i=0 to fldNum
12. response.write rs(i)
13. response.write " "
14. next
15. response.write "<br/>"
16. rs.movenext
17. loop
18. rs.close
19. set rs=nothing
20. call fCloseCnn(cnn)
21. %>

6. 完.

附注: 還有 更新,刪除數(shù)據(jù) 的 存儲過程/視圖 沒有演示, 不過相信你如果看了以上操作, 這個(gè)應(yīng)該不是問題了.