您正在使用IPV4(3.92.28.52)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】爆款1核2G云服务器首年48元,还有iPad Pro、Bose耳机、京东卡等你来抽!      
虚位以待
2021年 冬至节 20
2021年 圣诞节 24
2022年 元 旦 31
2022年 春 节 62
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    产生20位长度的唯一标识ID
    内容摘要: '函数名:MakeTheID'作用:产生20位长度的唯一标识ID'参数:----'返回值:返回20位长度的唯一标识ID'示例:MakeTheID()'**************************************************PublicFunctionMakeTheID()DIMdatestr,mytime,myyear,mymon......
    '函数名:MakeTheID

    '作用:产生20位长度的唯一标识ID

    '参数:----

    '返回值:返回20位长度的唯一标识ID

    '示例:MakeTheID()

    '**************************************************

    PublicFunctionMakeTheID()

    DIMdatestr,mytime,myyear,mymonth,myday,i

    myyear=cstr(year(date()))

    mymonth=cstr(month(date()))

    myday=cstr(day(date()))

    mymonth=lpad(mymonth,0,2)

    MakeTheID=myyear&"_"&mymonth&"_"&myday&"_"

    datestr=cstr(now())

    i=instr(datestr,"")

    mytime=right(datestr,len(datestr)-i)

    mytime=replace(mytime,":","_")

    randomize

    i=Int((9999-1000+1)*Rnd+1000)

    MakeTheID=MakeTheID&mytime&"_"&i

    MakeTheID=replace(MakeTheID,"_","")

    endfunction

    版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:用于右填充指定数量的字符,以达到规范长度 下一篇:返回服务器信息
    发布日期:2021/10/29
    手机扫二维码直达本页
    发布时间:14:35:55
    点击:244
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS 6.0.9.10888 Build 21.11.30(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
    ©2000-2021