[求助]如何能够生成固定位数的数字呢？

ぁ贪ā.翫？

比如，固定位数为“4”

则： 客户输入 生成
1 0001
123 0123
1234 1234
0 0000

给个思路吧，谢谢。



我想要解决的具体问题是这样的，数据库中有个字段是“编号”
编号的组成是 “字”&“年份”&“4位数字”
前两个都好处理，只是最后一个想要ASP实现自动编号和固定4位数的功能。

淡淡的烟草味

初步编码，目前没办法验证。 大家帮我看看对不对，谢谢！
bhz=request.form("编号字")
set rs=server.createobject("adodb.recordset")
sql="select 编号 from date1"
rs.open sql,conn,1,1
bhmax=1
do while not rs.eof '编号字为一个汉字，我为它留了2位，不知道对不对
if left(rs("编号"),2)=bhz and mid(rs("编号"),2,4)=year(now) then
if right(rs("编号"),4)>bhmax then
bhmax=mid(rs("编号"),6,4)
end if
end if
rs.movenext
loop
bhmax=bhmax+1
bh=bhz&year(now)&right("0000"&bhmax,4)
rs.close
set rs=nothing '我有记得关闭哦，呵呵

僞o碬侎��

让我佩服的答案…………

right("0000" & rs("id"),4)

另人汗颜啊，真是最简单的解决方法

賤xs騷

if left(rs("编号"),1)=bhz and mid(rs("编号"),2,4)=year(now) then

这句判断通不过……
但是
response.write left(rs("编号"),1) &"|"
response.write bhz&"|"
response.write mid(rs("编号"),2,4)&"|"
response.write year(now)&"|"
打出来看样子都是相等的啊？

爱你

恩，YEAR（NOW）不是字符型，用CSTR（）改过来就解决了。

████

s0=""

if len(d)<4 then
for i=1 to len(d)
s0=s0&"0"
next
end if

s1=s0&d

☆蘫弧ゞ无悔

<%
if Len(Trim(rs("ID"))) >8 then
response.write "ID长度大于8！"
respinse.end
end if

if Len(Trim(rs("ID"))) =8 then
response.write Trim(rs("ID"))
else
Dim i,K,strTemp
K = 8-Len(Trim(rs("id")))
for i = 1 to K
strTemp = "0"&Trim(rs("id"))
next
response.write strTemp
end if
%>