求教`~~

[小狼]

function xx(b)
dim sql,num,rs,insect_num,num1
set Rs = Server.CreateObject("ADODB.Recordset")
sql="select * from per_client where num like '%b%'"
rs.open sql,cn,1,1
if rs.eof then
num=000000
num1="b"&"num"
else
do while not rs.eof
num=num+1
rs.movenext
loop
num=num+1
for i=1to(6-clng(len(num)))
insect_num="0" & num
next
num1="b" & num
end if
end function

老函数,我主要想问问我这个FUNCTION 的值是为num1吗?
整个函数是没有错误的~~
当我把function去掉的时候`~
在我的页面中使用 ZZ=NUM1~
ZZ是可以使用的,他的值为b带数值
`~
但是我一旦加上FUNCTION,
然后使用ZZ=xx(b)
页面就会显示错误

[小叶]

啥错，那行？

[小狼]

我只是想问大家,我的这个函数的值是返回到NUM1
吗?
程序是没有错误的

[风狼©]

sql="select * from per_client where num like '%b%'"

没错？变量B可以这么写吗？这只是确定num字段中有b的纪录吧

[风狼©]

sql="select * from per_client where num like '%"&b&"%'"

[小狼]

取出含B的num
而且B的num可以以后可以累加~

[风狼©]

不是。我是说你这么写那么不管你传递什么值。他都是找包含B的字段吧。

[小狼]

是寻找num中含B字段的值,
不是所有字段含b字段的值

[小狼]

我只想知道我的函数的结果是不是返回到NUM1`
如果是的话，为什么我用ＦＵＮＣＴＩＯＮ会报错误

[Tameway]

我觉得问题太多了，不知道对不对

整个函数，没有return，如何获取返回值？

b和num都是变量，那么num1="b"&"num"是不是应该写成num1=b&num？

num=000000这个是不是应该写成num="000000"

sql="select * from per_client where num like '%b%'"这里面的b是字符还是变量，如果是变量，那么这句话是错的，如风狼所说

for i=1 to (6-clng(len(num))) 这里先对num取长度然后换为LONG型，是什么目的？num的数值是0，经过do循环，如果记录超过100万条，那么num才会达到区区7位数，取长度还转换为LONG型就不必了吧

如此如此。。。

[小狼]

那你能帮我再写这么个程序 吗?

[Tameway]

不知道这个程序实现什么功能，也看不太懂你要实现什么功能

[小狼]

我要做的是这样一个功能,
做一个FUNCTION函数,
他能实现一个自动编号功能,
自动编号的第一位是字母,
也就是我的自第一个编号是"B000000"
第二个编号是"B000001"
其中B的值可以改变

[Tameway]

编号是给什么编号，是每添加一条记录自动加上这个编号？还是给现在数据库里已有的数据编号？

编号存储在什么地方？单独作为一个字段去存储？还是仅仅作为一些数值显示在WEB上？

[小狼]

每舔加一条记录就增加一个编号,
然后将编号存贮在数据库中