自动生成排序的几位数的代码

最新推荐文章于 2023-03-29 20:24:59 发布

wenling0629

最新推荐文章于 2023-03-29 20:24:59 发布

阅读量314

点赞数

分类专栏： js代码 asp 文章标签： function sql

本文链接：https://blog.csdn.net/wenling0629/article/details/7421085

版权

asp 同时被 2 个专栏收录

20 篇文章 0 订阅

订阅专栏

js代码

12 篇文章 0 订阅

订阅专栏

function RanNum(weishu)
if weishu="" or not isnumeric(weishu) then
weishu=8
else
weishu=cint(weishu)
end if

set rs=server.CreateObject("adodb.recordset")
sql="select max(wb_bh) from wangba "

rs.open sql,conn,1,1
if rs.eof then
RanNum="CX"
for i=1 to weishu-1
   RanNum= RanNum&"0"
next
RanNum= RanNum&"1"
else
if isnull(rs(0)) then
   RanNum="CX"
   for i=1 to weishu-1
    RanNum= RanNum&"0"
   next
   RanNum= RanNum&"1"
else
   str=rs(0)

   str=right(str,weishu-4)
   str=cint(str)+1
   RanNum="CX"
for i=3 to weishu-len(str)
      RanNum=RanNum&"0"
next
RanNum=RanNum&cstr(str)
        end if
end if
end function