1、最简单的如下

DimobjConn

SetobjConn=Server.CreateObject("ADOBD.Connection")

objConn.OpenApplication("Connection_String")

'Callthestoredproceduretoincrementacounteronthepage

objConn.Execute"execsp_AddHit"

没有参数，没有返回，没有错误处理，就是这个了

2、带参数的一种调用

objConn.Execute"execsp_AddHit,'http://www.asp001.net',1"

请注意分割参数，该方法也不返回记录

3、返回记录的

DimobjConn

DimobjRs

SetobjConn=Server.CreateObject("ADOBD.Connection")

SetobjRs=Server.CreateObject("ADOBD.Recordset")

objConn.OpenApplication("Connection_String")

'Callthestoredproceduretoincrementacounteronthepage

objRs.OpenobjConn,"execsp_ListArticles'1/15/2001'"

'Loopthroughrecordsetanddisplayeacharticle

4、……

DimobjConn

DimobjCmd

'Instantiateobjects

SetobjConn=Server.CreateObject("ADODB.Connection")

setobjCmd=Server.CreateObject("ADODB.Command")

conn.OpenApplication("ConnectionString")

WithobjCmd

.ActiveConnection=conn'Youcanalsojustspecifyaconnectionstringhere

.CommandText="sp_InsertArticle"

.CommandType=adCmdStoredProc'Requirestheadovbs.incfileortypelibmetatag

'AddInputParameters

.Parameters.Append.CreateParameter("@columnist_id",adDouble,adParamInput,,columnist_id)

.Parameters.Append.CreateParameter("@url",adVarChar,adParamInput,255,url)

.Parameters.Append.CreateParameter("@title",adVarChar,adParamInput,99,url)

.Parameters.Append.CreateParameter("@description",adLongVarChar,_

adParamInput,2147483647,description)

'AddOutputParameters

.Parameters.Append.CreateParameter("@link_id",adInteger,adParamOutput,,0)

'Executethefunction

'Ifnotreturningarecordset,usetheadExecuteNoRecordsparameteroption

.Execute,,adExecuteNoRecords

link_id=.Parameters("@link_id")

EndWith

5、存储过程的代码

CreatePROCEDUREdbo.sp_InsertArticle

(

@columnist_idint,

@urlvarchar(255),

@titlevarchar(99),

@descriptiontext

@link_idintOUTPUT

)

AS

BEGIN

INSERTINTOdbo.t_link(columnist_id,url,title,description)

VALUES(@columnist_id,@url,@title,@description)

SELECT@link_id=@@IDENTITY

END