ASP調用存講過程總結

1,執行帶參數的sql語句,返回集沒有pagecount,recordcount,pagesize等屬性.

sql="select * from table where UserName=? and UserPwd=?"
set conn=opendb()
Set cmd=Server.CreateObject("ADODB.Command")
with cmd
    .CommandTimeout   = 1800
    .ActiveConnection = conn              'conn是聯接數據庫字符串
    .CommandText      = sql               '存儲過程名稱
    .CommandType      = 1                 '說明類型
    .Prepared         = true              '要求要命預編譯
    .Parameters.append .CreateParameter("@UserName",200,1,20,user_name)
    .Parameters.append .CreateParameter("@UserPwd",200,1,20,user_pwd)
    Set rs=.Execute
end with
if not rs.eof then
  session("user_name")=user_name
  rdr="url.asp"
else
  rdr="login.asp"
  msg="使用者帳號或密碼錯誤！"
end if
set cmd=nothing
rs.close():set rs=nothing
conn.close():set conn=nothing
'這种執行方式是帶參數的執行方式,返回的結果集是只向前的
',沒有recordcount,pagesize,pagecount屬性.
'
'

2,執行帶參數的sql語句,返回集有recordcount,pagecount,pagesize等屬性. 

<%
sql="Select * from table WHERE answertime is not null and QA_ClassDetail_ID=?"&_
        " ORDER BY AnswerTime desc,QALookNum"
this_pagesize=page_qaNum
'建立物件
Set cmd=Server.CreateObject("ADODB.Command")
set conn=opendb()
with cmd
    .CommandTimeout   = 1800
    .ActiveConnection = conn              'conn是聯接數據庫字符串
    .CommandText      = sql               '存儲過程名稱
    .CommandType      = 1                 '說明類型
    .Prepared         = true              '要求要命預編譯
    .Parameters.append .CreateParameter("@QA_ClassDetail_ID",3,1,4,id)
end with
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open cmd,,3
if not rs.eof then 
    rs.pagesize=20
    allpage=rs.pagecount
    '對pagenum進行分析
    p=request("p")
    if IsNumeric(p) then
        p=cint(p)
        if p>allpage then p=allpage
        if p<=0 then p=1
    else
        p=1
    end if
    if p>0 then rs.absolutepage=p
    for j=1 to this_pagesize
%>
<a href="javascript:opencenterwin1('ViewAsk.asp?id=<%=rs("id")%>','VIEW',700,500);" title="<%=rs("qatitle")%>"><%=rs("qatitle")%></a>[<%=rs("qalookNum")%>]&nbsp;&nbsp;&nbsp;&nbsp;[回復日期:<%=Formatdatetime(rs("AnswerTime"),2)%>]<br>
<%   
        rs.movenext
        if rs.eof then exit for
    next
%>
<!-- #include file="inc_page.asp"-->
<%
ELSE
%>
<span style="text-align:center; width:100%;">抱歉,暫無資料.</span>
<%
END IF

set cmd=nothing
rs.close():set rs=nothing

conn.close():set conn=nothing
%>

3,執行帶參數的sql語句進行新增/編輯/刪除

sql="delete from table where id=?"
set conn=opendb()
Set cmd=Server.CreateObject("ADODB.Command")
with cmd
    .CommandTimeout   = 1800
    .ActiveConnection = conn              'conn是聯接數據庫字符串
    .CommandText      = sql               '存儲過程名稱
    .CommandType      = 1                 '說明類型
    .Prepared         = true              '要求要命預編譯
    .Parameters.append .CreateParameter("@id",3,1,4,id)
    .Execute
end with
set cmd=nothing
conn.close():set conn=nothing

http://www.cnblogs.com/Athrun/archive/2007/08/13/854494.html