vbScript: 编号成生不夠位數前面加零
'编号成生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
哲学管理(学)人生, 文学艺术生活, 自动(计算机学)物理(学)工作, 生物(学)化学逆境, 历史(学)测绘(学)时间, 经济(学)数学金钱(理财), 心理(学)医学情绪, 诗词美容情感, 美学建筑(学)家园, 解构建构(分析)整合学习, 智商情商(IQ、EQ)运筹(学)生存.---Geovin Du(涂聚文)