asp执行带参数的sql语句实例

varconn=Server.CreateObject("ADODB.Connection");
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+Server.MapPath("Test.mdb");
conn.Open();
varcmd=Server.CreateObject("ADODB.Command");
cmd.ActiveConnection=conn;
cmd.CommandType=1;
cmd.CommandText="SELECTTOP1*FROM[User]WHEREUserName=?ANDPassword=?";
cmd.Parameters.Append(cmd.CreateParameter("@UserName",200,1,20,"user01"));
cmd.Parameters.Append(cmd.CreateParameter("@Password",200,1,16,"123456"));
varrs=cmd.Execute();
Response.Write(rs("UserId").value);
rs.Close();
conn.Close();