主题:  编号累加问题,前面带0的,系统自动去掉了,急?

嘎嘎

职务:普通成员
等级:1
金币:1.0
发贴:287
#12005/3/2 11:03:20
会员编号为 00001、00002、00003~~~
默认现在 rs("code")在数据库中 为 00001 ,这个数值是我手工加的。
现在要累加,
如:
dim code
code=rs("code")+00001
问题就在这,最终code=2 而我要的是code=00002
我找vbscript函数没有找到,不知道用什么函数控制??
请大侠指点?谢谢先!



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#22005/3/2 15:10:33
要自己写函数,实现格式化功能


非常大鱼

嘎嘎

职务:普通成员
等级:1
金币:1.0
发贴:287
#32005/3/2 21:07:58
请问?如何写呢??有类似的东西么?还请明示。
谢谢~不懂啊~



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#42005/3/3 0:10:20
先用IsNumeric判断是否为数字,再判断字符串长度,不足的用0补上


非常大鱼

嘎嘎

职务:普通成员
等级:1
金币:1.0
发贴:287
#52005/3/3 1:31:59
谢谢,我试试,如果弄不明白,还得请您指教,呵呵~



缺缺

职务:管理员
等级:8
金币:41.0
发贴:9620
#62005/3/3 10:26:10
如果写程序不会自己写函数,那就不能叫做程序



不是高手

职务:普通成员
等级:3
金币:5.0
发贴:1352
#72005/3/8 11:21:01
VB里有string()函数实现你的要求,用法:

引用:

返回具有指定长度的、重复字符组成的字符串。

String(number, character)
参数
number
返回字符串的长度。如果 number 参数包含 Null,则返回 Null。
Character
指定字符或字符串表达式的字符代码,其中字符串表达式的第一个字符用于组成返回的字符串。如果 character 参数包含 Null,则返回 Null。
说明
如果指定的 character 值大于 255,则 String 使用下列公式将该数转换成有效的字符代码:

character Mod 256
下面的示例利用 String 函数返回指定长度的由重复字符组成的字符串:

Dim MyString
MyString = String(5, "*") ' 返回"*****"。
MyString = String(5, 42) ' 返回"*****"。
MyString = String(10, "ABC") ' 返回"AAAAAAAAAA"。