好急啊 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'HtmEnd' adminsave.asp,行 38

好急啊 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'HtmEnd' adminsave.asp,行 38,第1张

你没有定义过程或者函数HtmEnd ,请将这段源代码补上

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

%>


欢迎分享,转载请注明来源:优选云

原文地址:https://54852.com/hy/488049.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-04-02
下一篇2023-04-02

随机推荐

发表评论

登录后才能评论
保存