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

[DarkNight]

贴出源码给大家看

<%
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>

[hookee]

去掉clng()看下

[DarkNight]

还是错了 一样的错误

[hookee]

看下instrb(formdata,bncrlf)是不是等于0

[DarkNight]

不是哈,咋办呢?

[snlixing]

http://topic.csdn.net/t/20040702/16/3141204.html

[Love_birds]

bncrlf=chrB(13) & chrB(10)

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

试试。四五年没用ASP了。不记得ASP中有chrb()函数。只记得有chr()函数，而且是我常用的。呵呵。

[DarkNight]

不是了,现在问题变了

错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/shopadd.asp, line 8, column 15
bncrlf=chrB(13)chrB(10)
--------------^

[Love_birds]

把chrB(13)的“B”取掉试试。

[DarkNight]

8楼 还是一样的

错误类型：
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'leftB'
/shopadd.asp, 第 10 行

[snlixing]

要不就换种方式吧，保存路径到数据库
下个无惧无组件上传

[Love_birds]

clng(instrb(formdata,bncrlf))-1

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

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

[Milanello_tyfor]

你这段代码要不知道做什么用
首先，会出现错误：无效的过程调用或参数: '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) %>这段代码不能完成读取图片文件并上传到服务器的功能

[hansyang]

出现这样的错误是因为:你提交表单的页面没有在form中出现:enctype="multipart/form-data

[ytmscwh]

呵呵，这个问题，在这里解决了