ASP編程進行參數化查新實例代碼

　　< %
’ ************ 定義常量 ******************* 
’  ParameterDirectionEnum Values  
Const adParamUnknown = & H
Const adParamInput = & H
Const adParamOutput = & H
Const adParamInputOutput = & H
Const adParamReturnValue = & H

’  CommandTypeEnum Values  
Const adCmdUnknown = & H
Const adCmdText = & H
Const adCmdTable = & H
Const adCmdStoredProc = & H
Const adCmdFile = & H
Const adCmdTableDirect = & H

’  DataTypeEnum Values  
Const adEmpty =  
Const adTinyInt =  
Const adSmallInt =  
Const adInteger =  
Const adBigInt =  
Const adUnsignedTinyInt =  
Const adUnsignedSmallInt =  
Const adUnsignedInt =  
Const adUnsignedBigInt =  
Const adSingle =  
Const adDouble =  
Const adCurrency =  
Const adDecimal =  
Const adNumeric =  
Const adBoolean =  
Const adError =  
Const adUserDefined =  
Const adVariant =  
Const adIDispatch =  
Const adIUnknown =  
Const adGUID =  
Const adDate =  
Const adDBDate =  
Const adDBTime =  
Const adDBTimeStamp =  
Const adBSTR =  
Const adChar =  
Const adVarChar =  
Const adLongVarChar =  
Const adWChar =  
Const adVarWChar =  
Const adLongVarWChar =  
Const adBinary =  
Const adVarBinary =  
Const adLongVarBinary =  
Const adChapter =  
Const adFileTime =  
Const adPropVariant =  
Const adVarNumeric =  
Const adArray = & H

Dim rs cmd cn
Set cmd = ServerCreateObject( " ADODBCommand " )
Set cn = ServerCreateObject( " ADODBConnection " )
’ 此處連接的是SQL Server 數據庫其他數據庫修改連接字符串 
cnOpen " Provider=SQLNCLI;Server=(local);Database=數據庫名稱;Uid=數據庫登錄名;Pwd=密碼; " 
With cmd
    ActiveConnection = cn
    CommandType = adCmdText
    CommandText = " Select * From BaseObject Where parentname LIKE ? And contentclass=? " 
    Prepared = True 
    ParametersAppend CreateParameter( " parentname " adVarCharadParamInput   " %/ItemImage/% " )
    ParametersAppend CreateParameter( " mengxianhui " adVarCharadParamInput   " urn:schemasmengxianhuicomcn:basedocument " )
     Set rs = Execute
End With 
While Not rsEOF
  ResponseWrite " <li> " & rs( " displayname " )
  rsMoveNext
Wend 
Set cmd = Nothing 
Set rs = Nothing 
Set cn = Nothing 
% > 

 也可以寫出下面的格式 
Dim rs cmd cn
Set cmd = ServerCreateObject( " ADODBCommand " )
Set cn = ServerCreateObject( " ADODBConnection " )
’ 此處連接的是SQL Server 數據庫其他數據庫修改連接字符串 
cnOpen " Provider=SQLNCLI;Server=(local);Database=數據庫名稱;Uid=數據庫登錄名;Pwd=密碼; " 
With cmd
    ActiveConnection = cn
    CommandType = adCmdText
    CommandText = " Select * From BaseObject Where parentname LIKE ? And contentclass=? " 
    Prepared = True 
    Parameters(  )Value = " %/ItemImage/% " 
    Parameters(  )Value = " urn:schemas mengxianhui comcn:basedocument " 
     Set rs = Execute
End With 
While Not rsEOF
  ResponseWrite " <li> " & rs( " displayname " )
  rsMoveNext
Wend 

From:http://tw.wingwit.com/Article/program/net/201311/14253.html