vbScript: 编号成生不夠位數前面加零

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

'编号成生Geovin Du '不夠位數前面加零 塗聚文 Function getStringlen(str,lenint)  so=""   itop=0   slen=Len(str)   itop=lenint-slen   i=0   if(slen<lenint) then      for i=1 to itop       so="0"&so       Response.Write so&itop&"<br/>"      Next    end if   getStringlen=so&str End Function   syear=year(now) smonth=Right("0" & Month(Now),2) sday=Right("0" & Day(Now),2) shour=Right("0" & Hour(Now),2) sminute=Right("0" & Minute(Now),2) ssecond=Right("0" & Second(Now),2) 'Right("0" & Month(Now),2)  & "-" & _ 'Right("0" & Day(Now),2)  & "_" & _  'Right("0" & Hour(Now),2) & _ 'Right("0" & Minute(Now),2) '   '& _    Right("0" & Second(Now),2) sid=getStringlen(332,8) smaxid=syear&smonth&sday&shour&sminute&ssecond&sid MaxId=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&MaxId