建议栏目生成内容页添加格式/200907/RE-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2621 查看	7 回复

主题：建议栏目生成内容页添加格式/200907/RE [收藏主题]

转到：

一生有你当前离线

10439 主题	0 广播	18 粉丝

级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
创始人

一生有你发表于：2009/7/8 10:44:00 | 显示全部帖子查看该作者主题楼主

一分钟快速开通线上知识店铺

'**************************************************
'函数名：GetFileName
'作用：构造文件名。
'参数：FsoType ----生成类型,addDate   -----添加时间,GetFileNameType--扩展名
'**************************************************
Public Function GetFileName(FsoType, AddDate, GetFileNameType)
  Dim N
  Randomize
  N = Rnd * 10 + 5
  Dim Y,M,D
  Y=Year(AddDate):M=Right("0"&Month(AddDate),2):D=Right("0"&Day(AddDate),2)
Select Case FsoType
   Case 1:GetFileName = Y & "/" & M & "-" & D & "/" & MakeRandom(N) & GetFileNameType '年/月-日/随机数+扩展名
   Case 2:GetFileName = Y & "/" & M & "/" & D & "/" & MakeRandom(N) & GetFileNameType '年/月/日/随机数+扩展名
   Case 3:GetFileName = Y & "-" & M & "-" & D & "/" & MakeRandom(N) & GetFileNameType '年-月-日/随机数+扩展名
   Case 4:GetFileName = Y & "/" & M & "/" & MakeRandom(N) & GetFileNameType '年/月/随机数+扩展名
   Case 5:GetFileName = Y & "-" & M & "/" & MakeRandom(N) & GetFileNameType '年-月/随机数+扩展名
   Case 6:GetFileName = Y & M & D & "/" & MakeRandom(N) & GetFileNameType '年月日/随机数+扩展名
   Case 7:GetFileName = Y & "/" & MakeRandom(N) & GetFileNameType '年/随机数+扩展名
   Case 8:GetFileName = Y & M & D & MakeRandom(N) & GetFileNameType '年+月+日+随机数+扩展名
   Case 9:GetFileName = MakeRandom(N) & GetFileNameType
   Case 10:GetFileName = MakeRandomChar(N) & GetFileNameType '随机字符
   Case 11:GetFileName ="ID"
   Case Else
    GetFileName = Y & M & D & GetFileNameType '12位随机数+扩展名
End Select
End Function

做考试题库就用#科汛在线考试系统!