asp无存储过程参数化查询

'Set ps = CreateObject("Scripting.Dictionary")
'ps.add "cmember_eduflag", 1     'æ·»å� é�®å��项ç�®

Function  ExecCommand(sql,ps)
 set cmd = server.CreateObject("adodb.command")
 cmd.activeconnection=conn
 cmd.commandtext=sql
 dim values
  values = ps.items              'è�·å��é�®

 For i=0 to ps.count-1
 
    cmd.parameters("Param" & cstr(i 1))= values(i)
   'p.value=ps(kName)
  i=i 1
   Next
 dim obj
 set obj=cmd.execute
 if isobject(obj) then
 set ExecCommand=obj
 else
  ExecCommand=obj
 end if
 
End Function