六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

輸出帶日期格式的隨機(jī)數(shù).asp

[摘要]<%Function GetRanNum()'****************************************'函數(shù)名:GetRanNum'作 用:輸出帶日期格式的隨機(jī)數(shù)'參 數(shù):無 ----'返回值:如GetRanNum(),...

<%
Function GetRanNum()
'****************************************
'函數(shù)名:GetRanNum
'作  用:輸出帶日期格式的隨機(jī)數(shù)
'參  數(shù):無   ----
'返回值:如GetRanNum(),即輸出200409071553464617,為2004年09月07日15時(shí)53分46秒4617隨機(jī)數(shù)
'關(guān)聯(lián)函數(shù):FormatIntNumber
'****************************************
 GetRanNum = ""
 GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
 GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
 randomize
 ranNum=int((9000*rnd)+1000)
    GetRanNum = GetRanNum&ranNum
End Function
Function FormatIntNumber(Expression,Digit)
'****************************************
'函數(shù)名:FormatIntNumber
'作  用:輸出Digit位左邊帶0整數(shù)
'參  數(shù):Expression   ----要格式化整數(shù)
'參  數(shù):Digit        ----要格式化位數(shù)
'返回值:如0005,如FormatIntNumber(5,4),整數(shù)5被格式化為0005
'關(guān)聯(lián)函數(shù):無
'****************************************
 While Len(Expression) < Digit
  Expression = "0"&Expression
 wend
 FormatIntNumber = Expression
End Function
%><%
Function GetRanNum()
'****************************************
'函數(shù)名:GetRanNum
'作  用:輸出帶日期格式的隨機(jī)數(shù)
'參  數(shù):無   ----
'返回值:如GetRanNum(),即輸出200409071553464617,為2004年09月07日15時(shí)53分46秒4617隨機(jī)數(shù)
'關(guān)聯(lián)函數(shù):FormatIntNumber
'****************************************
 GetRanNum = ""
 GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
 GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
 randomize
 ranNum=int((9000*rnd)+1000)
    GetRanNum = GetRanNum&ranNum
End Function
Function FormatIntNumber(Expression,Digit)
'****************************************
'函數(shù)名:FormatIntNumber
'作  用:輸出Digit位左邊帶0整數(shù)
'參  數(shù):Expression   ----要格式化整數(shù)
'參  數(shù):Digit        ----要格式化位數(shù)
'返回值:如0005,如FormatIntNumber(5,4),整數(shù)5被格式化為0005
'關(guān)聯(lián)函數(shù):無
'****************************************
 While Len(Expression) < Digit
  Expression = "0"&Expression
 wend
 FormatIntNumber = Expression
End Function
%>




主站蜘蛛池模板: 青青青青在线视频 | 亚洲欧洲综合在线 | 中文字幕 一区 婷婷 在线 | 日韩中文字幕在线视频 | 日本黄色一级大片 | 日本一区中文字幕 | 午夜影院在线观看 | 日韩精品福利在线 | 亚洲免费观看视频 | 午夜视频成人 | 伊人久久综合成人网小说 | 日韩一及片 | 日日干夜 | 欧美做暖小视频xo免费 | 特级淫片欧美高清视频蜜桃 | 中文在线免费看视频 | 日韩精品一区二区三区高清 | 亚洲欧美精品 | 欧美性猛交xxxx乱大交 | 欧美亚洲欧美区 | 日本伊人久久 | 欧美一级视频高清片 | 日本韩国中文字幕 | 四虎精品影视 | 青娱分类视频精品免费2 | 日韩a级| 欧美亚洲第一页 | 日韩精品在线免费观看 | 亚洲欧美日韩国产精品一区 | 亚洲第一激情 | 日韩视频中文字幕专区 | 色影影院 | 日韩成人在线观看 | 日日干干夜夜 | 影音先锋国产精品 | 日韩欧美色视频在线观看 | 欧美怡红院免费全部视频 | 欧洲毛片真人 | 亚洲欧美视频在线播放 | 三级视频欧美 | 亚洲黄色影视 |