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)