利用Command的参数进行数据库操作

请输入查询的课程代号： <% if request.Form("couID")<>"" then paravalue=request.Form("couID") '建立Connection对象 Dim cnn, strConn strConn="dbq=" & Server.Mappath("jxgl.mdb") & _ ";Driver={Microsoft Access Driver (*.mdb)}" Set cnn=Server.CreateObject("ADOdb.Connection") cnn.Open strConn '建立Command对象 Dim comm Set comm= Server.CreateObject("ADOdb.Command") comm.ActiveConnection=cnn '关联Connection对象 '建立参数对象 set para=comm.createparameter("课程代号",200,3,20,paravalue) 'para.appendchunk"2" '追加数据到parameter对象的末尾 comm.parameters.append para '将对象添加到parameters数据集合 '查询记录 Dim rs,strSql strSql="select 课程名称 from kc where 课程代号=?" '带参数查询的SQL语句 comm.CommandText= strSql '设置命令文本字符串 comm.CommandType=1 '指定命令类型 Set rs=comm.Execute do while not rs.eof response.Write"课程名称是："&(rs(0)) rs.movenext loop end if %>