<%@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
%>
为什么该添加信息程序,直接运行后显示是“数据库中暂无资料”,而没有中间具体的添加过程啊,谢谢指教!
<%
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
%>
为什么该添加信息程序,直接运行后显示是“数据库中暂无资料”,而没有中间具体的添加过程啊,谢谢指教!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货