1. أبسط واحد هو كما يلي
Dimobjconn
setObjConn = server.createBject ("adobd.connection")
objconn.openapplication ("connection_string")
'callthesterprocedureToincrementAcounteronThePage
objconn.execute "execsp_addhit"
لا توجد معلمات ، لا عودة ، لا معالجة خطأ ، هذا كل شيء
2. مكالمة مع المعلمات
objconn.execute "execsp_addhit ، 'http: //www.asp001.net'،1"
يرجى ملاحظة أنه لا يتم إرجاع معلمات الانقسام إلى السجلات.
3. العودة إلى السجل
Dimobjconn
dimobjrs
setObjConn = server.createBject ("adobd.connection")
setObjrs = server.createBject ("adobd.recordset")
objconn.openapplication ("connection_string")
'callthesterprocedureToincrementAcounteronThePage
objrs.openobjconn ، "execsp_listarticles'1/15/2001 '' '
'loopthroughRecordSetAndDisplayeachArticle
4 ....
Dimobjconn
dimobjcmd
'instantiateObjects
setObjConn = server.createObject ("adodb.connection")
setObJCMD = server.createBject ("adodb.command")
conn.openapplication ("connectionstring")
withobjcmd
.activeconnection = conn'youcanalsojustspecifyAconnectionStringhe
.CommandText = "sp_insertarticle"
.CommandType = ADCMDStoredProc'requirestheadovbs.incfileortypelibmetatag
'addinputparameters
.parameters.append.createparameter ("@columber_id" ، addouble ، adparaminput ،، columiater_id)
.parameters.append.createparameter ("@url" ، advarchar ، adparaminput ، 255 ، url)
.parameters.append.createparameter ("@title" ، advarchar ، adparaminput ، 99 ، url)