sub HtmEnd(Msg)
set upload=nothing
response.Write "<br>"&Msg&"[<a href=""javascript:history.back()"">返回</a>]"
response.End
end sub
后半部分把你改了一下:<%
set rs=server.createobject("adodb.recordset")
sqlstr="select count(*) from [order] where ordernum='"&ordernum&"'"
rs.open sqlstr,conn,1,1(这就是出错的行)
if rs(0)>0 then
response.Write("对不起,你的输入的提单编号已经存在,请使用新的提单编号<br><br>")
response.Write("<a href='order_add.asp'>返回重新输入</a>")
rs.close
set rs=nothing
response.End()
end if
%>
欢迎分享,转载请注明来源:优选云