Microsoft VBScript 运行时错误错误 '800a0005' 无效的过程调用或参数: 'Mid'

qq_21116511 2020-09-29 09:09:34

<%

Response.write "<?xml version=""1.0"" encoding=""UTF-8""?>"
Response.write "<!DOCTYPE html PUBLIC ""-//WAPFORUM//DTD XHTML Mobile 1.0//EN"" ""http://www.wapforum.org/DTD/xhtml-mobile10.dtd"">"
Response.write "<html xmlns=""http://www.w3.org/1999/xhtml"">"
Response.write "<head>"
Response.write "<link rel= ""stylesheet "" href= ""css/css.css "" type= ""text/css "" />"
Response.write "<link rel= ""stylesheet "" href= ""css/yinhang.css "" type= ""text/css "" />"

Response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8""/>"
Response.write "<meta name=""MobileOptimized"" content=""240""/>"
Response.write "<title>"&yhname&"</title>"

Response.write "</head>"
Response.write "<body>"

%>

<%
yi=Request.Querystring("yi")

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * from wap_user where id="&uid,Conn
muuiyh=rs("muuiyh")
Rs.Close

if IsNull(muuiyh) or muuiyh="0" then

Response.Redirect "bank_add.asp?Sid="&Sid
Response.end
End if

dim objgbrs
Set objgbrs=Server.CreateObject("ADODB.Recordset")
objgbrs.open "select * from wap_muui_yh where uid=" & uid,conn,1,1
zdai=objgbrs("zdli")
zcai=objgbrs("zcli")
Rs.open "select * from wap_user where id=" & uid,conn,1,1
Dim cunyrank,RankId,RankCount
cunyrank=objgbrs("zcli")

RankId=Rank_Id(cunyrank)
RankCount=Rank_Count(RankId+1)
response.write "<div class=""main"">"
response.write "<div class=""middle_content"">"
if yi="" then

interest=ccur(objgbrs("bank"))*int(datediff("d",cdate(objgbrs("banktime")),cdate(now())))*cstr(cunli)

subinterest=ccur(objgbrs("subbank"))*int(datediff("d",cdate(objgbrs("banktime")),cdate(now())))*cstr(daili)
If interest<>0 or subinterest<>0 then
conn.execute("update wap_muui_yh set bank=bank+" & interest & ",subbank=subbank+" & subinterest & ",banktime='"&now()&"' Where uid=" & uid)

conn.execute("update wap_muui_yh set cli=" & interest & ",dli=" & subinterest & ",banktime='"&now()&"' Where uid=" & uid)
if IsNull(zcai) or IsNull(zdai) then
conn.execute("update wap_muui_yh set zcli=0,zdli=0 Where uid=" & uid)
End if
conn.execute("update wap_muui_yh set zcli=zcli+" & interest & ",zdli=zdli+" & subinterest & ",banktime='"&now()&"' Where uid=" & uid)
End If

response.write "<div class=""top_bank"">"
response.write "<a href=""javascript:window.history.back();"" class=""back_bar""><img src=""image/fanhui2@2x.png"" alt=""""/></a><h3>社区财政银行</h3>"
if uid=10000 or uid=int(guanli) then
response.write "<a href=""admin.asp?sid=" & sid & """ class=""set_top""><img src=""image/set.png"" alt=""""/></a>"
End If
response.write "</div>"

response.write "<div class=""card_bank"">"
response.write "<p>"
response.write ""&myname&"("&uid&")<img src=""image/rank/"&RankId&".gif"" alt=""""/>"
if objgbrs("dj")<>0 then
response.write "<img src=""image/dj/c"&objgbrs("dj")&".png"" alt=""""/>"
end if
if objgbrs("dj2")<>0 then
response.write "<img src=""image/dj/d"&objgbrs("dj2")&".png"" alt=""""/>"
end if
response.write "<a href=""/home/money/money_log.aspx"" class=""record_bank"">个人收支记录</a></p>"
response.write "<ul class=""num_lecoin"">"
response.write "<li>"
response.write "<p>存款金额</p><h5>"&objgbrs("bank")&"</h5></li>"
response.write "<li>"
response.write "<p>个人"&moneyname&"</p><h5>"&money&"</h5></li></br>"
response.write "</ul>"
response.write "<ul class=""num_lecoin"">"
response.write "<li>"
response.write "<p>贷款额度</p><h5>"&objgbrs("edu")&"</h5></li>"
response.write "<li>"
response.write "<p>贷款金额</p><h5>"&objgbrs("subbank")&"</h5></li>"
response.write "</ul>"
response.write "</div>"

%>
<ul class="lb_list">
<li>
<img alt="" src="http://clubc.lexun.com/addedservice/images/hot.gif"><a href="xiu.asp" >个人收支记录错误修复通道</a></li></ul>
<%
Response.write "<ul class=""chaxun_list""><li style=""width: 25%""><a href=""index.asp?yi=2&Sid="&Sid&""" style=""color: #996699""><i class=""iconfont cx-ico icon-card""></i>存款窗口</a></li><li style=""width: 25%""> <a href=""index.asp?yi=3&Sid="&Sid&""" style=""color: #FF6666""><i class=""iconfont cx-ico icon-zijinlicai""></i>取款窗口</a></li><li style=""width: 25%""> <a href=""index.asp?yi=4&Sid="&Sid&""" style=""color: #0099CC""><i class=""iconfont cx-ico icon-weibiaoti5""></i>贷款办理</a></li><li style=""width: 25%""> <a href=""index.asp?yi=5&Sid="&Sid&""" style=""color: #99CC33""><i class=""iconfont cx-ico icon-dkw_daikuan""></i>立即还款</a></li></ul>"

Response.write "<ul class=""chaxun_list""><li style=""width: 50%""><a href=""repas.asp?Sid="&Sid&""" style=""color: #003366""><i class=""iconfont cx-ico icon-mima1""></i>修改银行密码</a></li><li style=""width: 50%""> <a href=""puspass.asp?Sid="&Sid&""" style=""color: #999999""><i class=""iconfont cx-ico icon-mima""></i>找回银行密码</a></li></ul>"

Response.write "<ul class=""chaxun_list""><li style=""width: 33.33%""><a href=""rank.asp?Sid="&Sid&""" style=""color: #993333""><i class=""iconfont cx-ico icon-paihang""></i>利息排行</a></li><li style=""width: 33.33%""> <a href=""renwu.asp?Sid="&Sid&""" style=""color: #FFCC00""><i class=""iconfont cx-ico icon-renwu""></i>银行任务</a></li><li style=""width: 33.33%""> <a href=""lixi.asp?Sid="&Sid&""" style=""color: #009966""><i class=""iconfont cx-ico icon-zijinchilixifenpeichaxun""></i>利息记录</a></li></ul>"

response.write "<div class=""tips_bank"">"
response.write "<p>温馨提示</p><p>1：会员基本额度为1500金币，额度增加详情可去<a href=""/wml/bbs/forum.aspx?id="&bbs&""" style=""color: #5CAAF6;"">财政论坛</a>了解</p><p>2：银行利息在你点进银行的同时系统自动给你加进了你的银行账户。</p><p>3：当前银行存款利率为："&cunli&"</p><p>4：当前银行贷款利率为："&daili&"</p><p>5：最近交易时间:"&objgbrs("banktime")&"</p></div>"
response.write "</div>"

'response.write "<div class=""bottom_input_coin"">"
'response.write "<a href=""javascript:window.history.back();"" class=""get_lecoin left_get"">取消</a><input name=""ok"" type=""hidden"" value=""1"" emptyok=""true"" /><input name=""subDeposit"" type=""submit"" value=""确定"" class=""get_lecoin right_get"" emptyok=""true"" /></div>"
end If
if yi="2" then

response.write "<div class=""top_bank"">"
response.write "<a href=""index.asp?sid="&sid&""" class=""back_bar""><img src=""image/fanhui2@2x.png"" alt=""""/></a><h3>银行存"&moneyname&"</h3></div>"

response.write "<ul class=""list_getcoin"">"
response.write "<li>"
response.write "<b class=""name_list_getcoin"">"&myname&"("&uid&")</b></li>"
response.write "<li>"
response.write "<span>身上"&moneyname&"</span><b>"&money&"</b></li>"
response.write "</ul>"

response.write "<form name=""form_18"" method=""post"" action=""Bank_cz.asp?sid=" & sid & """>"
response.write "<ul class=""input_coin"">"
response.write "<li>"
response.write "<p>输入存款金额" & moneyname & "</p><div class=""choose_input"">"

response.write "<input type=""text"" name=""input"" placeholder=""请输入" & moneyname & "数量"" /></div>"
response.write "</li>"
response.write "</ul>"

response.write "<div class=""bottom_input_coin"">"
response.write "<a href=""index.asp?sid="&sid&""" class=""get_lecoin left_get"">取消</a><input name=""ok"" type=""hidden"" value=""1"" emptyok=""true"" /><input name=""submit"" type=""submit"" value=""确定"" class=""get_lecoin right_get"" emptyok=""true"" /></div>"
response.write "</form>"

elseif yi="3" then

response.write "<div class=""top_bank"">"
response.write "<a href=""index.asp?sid="&sid&""" class=""back_bar""><img src=""image/fanhui2@2x.png"" alt=""""/></a><h3>银行取"&moneyname&"</h3></div>"

response.write "<ul class=""list_getcoin"">"
response.write "<li>"
response.write "<b class=""name_list_getcoin"">"&myname&"("&uid&")</b></li>"
response.write "<li>"
response.write "<span>现有存款:</span><b>"&objgbrs("bank")&"</b></li>"
response.write "</ul>"

response.write "<form name=""form"" method=""post"" action=""Bank_cz.asp?yi=q&sid=" & sid & """>"
response.write "<ul class=""input_coin"">"
response.write "<li>"
response.write "<p>输入取款金额" & moneyname & "</p><div class=""choose_input"">"
response.write "<input type=""text"" name=""input"" placeholder=""请输入" & moneyname & "数量"" /></div>"
response.write "</li>"
response.write "<li>"
response.write "<p>输入银行密码<a href=""puspass.asp?sid="&sid&""">忘记密码?</a></p><input type=""password"" name=""pass"" class=""text_box""><br/>"
response.write "</li> "
response.write "</ul>"
response.write "<div class=""bottom_input_coin"">"
response.write "<a href=""index.asp?sid="&sid&""" class=""get_lecoin left_get"">取消</a><input name=""ok"" type=""hidden"" value=""1"" emptyok=""true"" /><input name=""submit"" type=""submit"" value=""确定"" class=""get_lecoin right_get"" emptyok=""true"" /></div>"
response.write "</form>"
elseif yi="4" then

response.write "<div class=""top_bank"">"
response.write "<a href=""index.asp?sid="&sid&""" class=""back_bar""><img src=""image/fanhui2@2x.png"" alt=""""/></a><h3>银行贷款</h3></div>"

response.write "<ul class=""list_getcoin"">"
response.write "<li>"
response.write "<b class=""name_list_getcoin"">"&myname&"("&uid&")</b></li>"
response.write "<li>"
response.write "<span>您的额度:</span><b>"&objgbrs("edu")&"</b></li>"
response.write "<li>"
response.write "<span>您已贷款:</span><b>"&objgbrs("subbank")&"</b></li>"
response.write "</ul>"

response.write "<form name=""form_18"" method=""post"" action=""Bank_cz.asp?yi=d&sid=" & sid & """>"
response.write "<ul class=""input_coin"">"
response.write "<li>"
response.write "<p>输入贷款金额" & moneyname & "</p><div class=""choose_input"">"

response.write "<input type=""text"" name=""input"" placeholder=""请输入" & moneyname & "数量"" /></div>"
response.write "</li>"
response.write "</ul>"

哪位老师，给个提示为什么一运行到这就提示
icrosoft VBScript 运行时错误错误 '800a0005'

无效的过程调用或参数: 'Mid'

D:\WEB\xxxxxxx\BANK\../../asp/conn.asp，行 28
该怎么改呢，谢谢了

...全文