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

DarkNight 2008-03-21 01:25:45
贴出源码给大家看

<%
response.buffer=true

formsize=request.totalbytes

formdata=request.binaryread(formsize)

bncrlf=chrB(13) & chrB(10)

divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)

datastart=instrb(formdata,bncrlf & bncrlf)+4

dataend=instrb(datastart+1,formdata,divider)-datastart

mydata=midb(formdata,datastart,dataend)
%>

<style type="text/css">
<!--
body {
background-color: #E3E3E3;
}
.ziti {
font-size: 13px;
color: #000000;
}
.STYLE1 {
color: #F7F7F7;
font-weight: bold;
}
-->
</style>

<%
name=request("name")
price=request("price")
vip_price=request("vip_price")
'image=request("image")
jianjie=request("jianjie")
show=request("show")
addtime=date()


set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
str="driver={SQL server};server=(local);uid=witer;pwd=witer;database=VIP;"
conn.open str

sqlstr="select * from things"
rs.open sqlstr,conn,3,2
rs.addnew
rs("name")=name
rs("price")=price
rs("vip_price")=vip_price
rs("image").appendchunk mydata
rs("jianjie")=jianjie
rs("show")=show
rs.update
set rs=nothing
set conn=nothing
response.Write"商品添加成功!"
%>

<form name="form1" method="post" action="" enctype="multipart/form-data">
<table width="750" height="219" border="1" cellpadding="0" cellspacing="0" class="ziti">
<tr>
<td align="left" colspan="2" bgcolor="#049CB6"><span class="STYLE1">添加商品</span></td>
<tr>
<td width="108" align="center">商品名称</td>
<td width="636"><input type="text" name="name" title="请输入商品名称,不能为空" onblur="test(this.value)"></td>
</tr>
<tr>
<td align="center">商品价格</td>
<td><input type="text" name="price" title="请输入商品的价格,不能为空"></td>
</tr>
<tr>
<td align="center">商品特价</td>
<td><input type="text" name="vip_price" title="如果商品有特价,请输入,如无特价,请输入普通价格"></td>
</tr>
<tr>
<td align="center">商品简图</td>
<td><input type="file" name="image" title="请给商品选定一个小图"/></td>
</tr>
<tr>
<td align="center">商品简介</td>
<td><input type="text" name="jianjie" title="请输入商品的简单介绍"></td>
</tr>
<tr>
<td align="center">商品介绍</td>
<td><input type="text" name="show" title="请输入商品的简单说明"></td>
</tr>
<tr>
<td height="24" colspan="2"><input name="OK" type="submit" id="OK" title="确认该商品的添加" value="添加完成" onclick="javascript:location.alert='商品添加成功'"></td>
</tr>
</table>
</form>
...全文
768 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
ytmscwh 2009-04-08
  • 打赏
  • 举报
回复
呵呵,这个问题,在这里解决了
hansyang 2008-10-16
  • 打赏
  • 举报
回复
出现这样的错误是因为:你提交表单的页面没有在form中出现:enctype="multipart/form-data
Milanello_tyfor 2008-03-21
  • 打赏
  • 举报
回复
你这段代码要不知道做什么用
首先,会出现错误:无效的过程调用或参数: 'leftB',有可能是因为,网页不是在表单提交时执行
<% response.buffer=true …… mydata=midb(formdata,datastart,dataend) %>这段代码,而是装载页面时就执行,leftB函数里没有有效的二进制字符流,当然会报错,解决的办法是:
<%
if request("actiion")="add" then
response.buffer=true …… mydata=midb(formdata,datastart,dataend)
end if
%>
<form …… action="?action=add">

如果你是通过表单提交上传图片以及将表单内容填入数据库,那么你犯了以下错误
1、enctype="multipart/form-data"定义的表单不能用request获取表单元素内容
2、<% response.buffer=true …… mydata=midb(formdata,datastart,dataend) %>这段代码不能完成读取图片文件并上传到服务器的功能
Love_birds 2008-03-21
  • 打赏
  • 举报
回复
clng(instrb(formdata,bncrlf))-1

这个中的clng取掉或换成:cdbl或Cint试试。

因为LeftB(str,int) 而且instrb()函数本身返回的值就是integer型的。

snlixing 2008-03-21
  • 打赏
  • 举报
回复
要不就换种方式吧,保存路径到数据库
下个无惧无组件上传
DarkNight 2008-03-21
  • 打赏
  • 举报
回复
8楼 还是一样的

错误类型:
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'leftB'
/shopadd.asp, 第 10 行
Love_birds 2008-03-21
  • 打赏
  • 举报
回复
把chrB(13)的“B”取掉试试。
DarkNight 2008-03-21
  • 打赏
  • 举报
回复
不是了,现在问题变了

错误类型:
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/shopadd.asp, line 8, column 15
bncrlf=chrB(13)chrB(10)
--------------^
Love_birds 2008-03-21
  • 打赏
  • 举报
回复
bncrlf=chrB(13) & chrB(10)

改成:bncrlf=chr(13)chr(10)

试试。四五年没用ASP了。不记得ASP中有chrb()函数。只记得有chr()函数,而且是我常用的。呵呵。
DarkNight 2008-03-21
  • 打赏
  • 举报
回复
不是哈,咋办呢?
hookee 2008-03-21
  • 打赏
  • 举报
回复
看下instrb(formdata,bncrlf)是不是等于0
DarkNight 2008-03-21
  • 打赏
  • 举报
回复
还是错了 一样的错误
hookee 2008-03-21
  • 打赏
  • 举报
回复
去掉clng()看下

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧