[求助]如何产生8位随机日期加4位随机数? - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → [求助]如何产生8位随机日期加4位随机数?

我的收件箱(0)

共有 1869 人关注过本帖

标题：[求助]如何产生8位随机日期加4位随机数?

只看楼主加入收藏

找份好工作

等　级：新手上路
帖　子：108
专家分：0
注　册：2007-3-20

楼主

问题点数：0 回复次数：12

[求助]如何产生8位随机日期加4位随机数?

我要实现的功能是:
产生12位数字,前8位是当天日期(20070327)加4位数字
后4位数字从0001开始逐一增加(0002,0003,0004等等),每增加一条数据他就自动增加1.
把8位日期和4位数字加在一起,得到的12位数字(200703270001).
头疼死了,请各路英雄多多帮助.有急用
谢谢

搜索更多相关主题的帖子: 随机数　数字　英雄　数据　

2007-03-27 21:05

找份好工作

等　级：新手上路
帖　子：108
专家分：0
注　册：2007-3-20

第 2 楼

得分:0

晕,怎么没有人来帮助我啊

2007-03-28 10:46

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 3 楼

得分:0

提示能够使用的函数就是FormatDateTime()函数格式化日期，后面的循环增加应该没问题，但不理解楼主是每次执行操作时增加一条还是一次增加制定的数量多条数据。

2007-03-28 12:10

阳光白雪

等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18

第 4 楼

得分:0

[QUOTE]Function GetMaxId()
todayDateStr = Year(date()) & Right("00"& Month(date()),2) & Right("00"& Day(date()),2)
strQuery="select top 1 id from test where id like '"& todayDateStr &"%' Order by Id Desc"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1,1
If Not Rs.Eof Then
NewId = FormatNumber(Rs("Id"),0) + 1
Else
NewId = todayDateStr &"0001"
End If
rs.close()
Set rs = Nothing
GetMaxId = NewId
End Function[/QUOTE]

[此贴子已经被作者于2007-3-28 12:39:53编辑过]

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

2007-03-28 12:16

找份好工作

等　级：新手上路
帖　子：108
专家分：0
注　册：2007-3-20

第 5 楼

得分:0

是每次增加一条,它就增加1.

2007-03-28 14:19

找份好工作

等　级：新手上路
帖　子：108
专家分：0
注　册：2007-3-20

第 6 楼

得分:0

4楼的版主谢谢你,不过我没有看懂,你能做下解释吗?

2007-03-28 14:21

阳光白雪

等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18

第 7 楼

得分:0

以下是引用找份好工作在2007-3-28 14:19:51的发言：

是每次增加一条,它就增加1.

那个函数不是你要的结果吗？

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

2007-03-28 14:21

找份好工作

等　级：新手上路
帖　子：108
专家分：0
注　册：2007-3-20

第 8 楼

得分:0

我的意思是:
你写的代码我没有看明白,能做下解释吗?

2007-03-28 14:26

阳光白雪

等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18

第 9 楼

得分:0

回复：（找份好工作）我的意思是:你写的代码我没有看明...

Function GetMaxId()
Dim todayDateStr,NewId
'todayDateStr 取得当天日期形成的8位字符串
todayDateStr = Year(date()) & Right("00"& Month(date()),2) & Right("00"& Day(date()),2)
'利用模糊查询查找出ID左边8位等于todayDateStr（即今天添加的记录）的，并按倒序排列的第一条记录
'即是今天添加的ID最大的记录
strQuery="select top 1 id from test where id like '"& todayDateStr &"%' Order by Id Desc"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1,1
If Not Rs.Eof Then
'如果当天已经添加记录，则在最大的记录编号上加1
'FormatNumber(Num,n)用于格式化数字，n指保留的小数位数，这里表示不保留小数位
NewId = FormatNumber(Rs("Id"),0) + 1
Else
'如果当天没有添加记录，则直接把后四位赋值为“0001”
NewId = todayDateStr &"0001"
End If
rs.close()
Set rs = Nothing
'返回生成的ID编号
GetMaxId = NewId
End Function

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

2007-03-28 14:41