<html>
<head>
 <title>利用Command的多参数进行数据库操作</title>
</head>
<body>
 <form name="form1" method="post" action="">
 学号：<input type="text" name="stuID" size="6">
 专业：<input type="text" name="subname" size="8">
 <input type="submit" value="申请">
 </form>
<%
 if request.Form("stuID")<>"" and request.Form("subname")<>"" then
  parastuID=request.Form("stuID")
  parasubname=request.Form("subname")
  '建立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对象
   '查询记录
    Dim rs1,strSql1
	strSql1="select * from xsxx where 学号='"&parastuID&"'"
	comm.CommandText= strSql1 '设置命令文本字符串
	comm.CommandType=1       '指定命令类型
	Set rs1=comm.Execute      '返回记录集
	if rs1.Eof and rs1.bof then
		Response.Write "学号有误，重新输入"
		rs1.close
		response.End()
	end if
   '更新记录
  Dim rs,strSql
  strSql="update xsxx set 专业=? where 学号=?" '带参数查询的SQL语句
  comm.CommandText= strSql                     '设置命令文本字符串
  comm.CommandType=1                           '指定命令类型
  '建立参数对象
  set prmsubname=comm.createparameter("专业",200,3,20,parasubname)
  comm.parameters.append prmsubname
  set prmstuid=comm.createparameter("学号",200,3,20,parastuID)
  comm.parameters.append prmstuid
  comm.Execute
%>
<p>
学号为【<%=prmstuid.value%>】的同学：<br>
成功申请【<%=prmsubname.value%>】专业。
</p>
<%end if%>
</body>
</html>