<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
dim ID
dim rs
 dim sql
 dim Conn
 ConnStr="driver={sql server};server=127.0.0.1;database=tire;uid=sa;pwd=111111"
 set Conn=server.createobject("adodb.connection")
  Conn.Open ConnStr
  ID=request("产品编号")
 Set rs=server.CreateObject("ADODB.recordset")
 sql="select * from chanpin3 where 产品编号='"& ID &"'"
 rs.Open sql,Conn,1,1
 if  rs.EOF or rs.BOF then
  Response.Write("<hr>数据库中暂无资料!")
  Else
  do while  not rs.EOF or rs.BOF
 %>
<%
rs.movenext
loop 
end if 
set rs=nothing
set Conn=nothing
%>
为什么该添加信息程序,直接运行后显示是“数据库中暂无资料”,而没有中间具体的添加过程啊,谢谢指教!