我要对数据库中的内容进行更新,但前提是我要把不更新的给显示到文本框中,代码是这样的,希望大家给些意见,

<% 
dim number
number=request.Form("number")
            
dim conn
 set conn=server.createobject("adodb.Connection")
 conn.connectionString="Dbq=C:\Inetpub\wwwroot\canting.mdb;Driver={Microsoft Access Driver (*.mdb)}"
 conn.connectiontimeout=30
  conn.mode=0
  conn.open

dim comm
set comm=server.CreateObject("adodb.Command")
comm.ActiveConnection=conn
comm.commandtype=1
dim sqlstr
sqlstr="Select * from caipu where name='"&number&"'"
comm.commandtext=sqlstr
set rs=comm.execute
if not rs.eof and not rs.bof then
%>
<form class="STYLE1" action="modify1.asp" method="post">

  <p>请修改以下信息：</p>
  <table width="200" border="1" align="center">
  
    <tr>
      <td width="109"><div align="center">编号</div></td>
      <td width="190"><label>
        <input name="number" type="text" id="number" size="16" value="<%=rs("number")%>" readonly="yes"/>
      </label></td>
    </tr>
    <tr>
      <td><div align="center">菜名</div></td>
      <td><label>
        <input name="name" type="text" id="name" size="16" value="<%=rs("name")%>" readonly="yes"/>
      </label></td>
    </tr>
    <tr>
      <td><label>
        <div align="center">价格</div>
      </label></td>
      <td><input name="price" type="text" id="price" size="16" value="<%=rs("price")%>" /></td>
    </tr>
    <tr>
      <td height="31" colspan="2"><table width="200" border="0">
        <tr>
          <td>&nbsp;</td>
          <td><label>
            <input name="modify" type="submit" id="modify" value="修改" />
          </label></td>
          <td>&nbsp;</td>
        </tr>
      </table></td>
    </tr>
  </table>
  <p>&nbsp;  </p>
</form>
<%  end if

conn.close
set conn=nothing
%>