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

明輝手游網(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
%>




主站蜘蛛池模板: 亚洲欧美综合一区二区三区四区 | 四虎精品永久在线 | 青春草国产 | 日韩伦理在线视频 | 天天天操 | 四虎在线免费播放 | 青草网| 欧美桃色视频 | 亚洲精品乱码中文字幕无线 | 日韩视频免费在线 | 一区二区三区国产美女在线播放 | 日韩精品欧美国产精品忘忧草 | 先锋资源中文 | 亚洲欧美中日韩中文字幕 | 日韩成人影片 | 青青草国产精品久久久久 | 最近韩国中文字幕更新 | 亚洲 欧美 精品 中文第三 | 午夜老司机永久免费看片 | 在线一区视频 | 五月天婷婷亚洲 | 亚洲精品免费观看 | 天天做爽夜夜做爽 | 亚洲欧洲色天使日韩精品 | 日韩国产午夜一区二区三区 | 天天躁夜夜躁很很躁 | 欧美一区视频 | 亚洲欧美精品在线 | 亚洲伊人久久在 | 天天噜天天噜噜在线视频 | 色婷婷综合久久久久中文 | 啪啪免费视频 | 亚洲视频重口味 | 日本激情在线看免费观看视频 | 五月开心六月伊人色婷婷 | 亚洲精品123区 | 色综合久久综合网欧美综合网 | 日本一卡二卡三卡 | 日韩欧美在线不卡 | 日韩一级在线播放免费观看 | 日韩乱码中文字幕视频 |