打开ks_cls/kesion.commoncls.asp改下吧，不难解决

 Public Function GetFileName(FsoType, AddDate, GetFileNameType)
  Dim N
  Randomize
  N = Rnd * 10 + 5
  
  Select Case FsoType
   Case 1:GetFileName = Year(AddDate) & "/" & Month(AddDate) & "-" & Day(AddDate) & "/" & MakeRandom(N) & GetFileNameType  '年/月-日/随机数+扩展名
   Case 2:GetFileName = Year(AddDate) & "/" & Month(AddDate) & "/" & Day(AddDate) & "/" & MakeRandom(N) & GetFileNameType '年/月/日/随机数+扩展名
   Case 3:GetFileName = Year(AddDate) & "-" & Month(AddDate) & "-" & Day(AddDate) & "/" & MakeRandom(N) & GetFileNameType '年-月-日/随机数+扩展名
   Case 4:GetFileName = Year(AddDate) & "/" & Month(AddDate) & "/" & MakeRandom(N) & GetFileNameType '年/月/随机数+扩展名
   Case 5:GetFileName = Year(AddDate) & "-" & Month(AddDate) & "/" & MakeRandom(N) & GetFileNameType '年-月/随机数+扩展名
   Case 6:GetFileName = Year(AddDate) & Month(AddDate) & Day(AddDate) & "/" & MakeRandom(N) & GetFileNameType '年月日/随机数+扩展名
   Case 7:GetFileName = Year(AddDate) & "/" & MakeRandom(N) & GetFileNameType '年/随机数+扩展名
   Case 8:GetFileName = Year(AddDate) & Month(AddDate) & Day(AddDate) & MakeRandom(N) & GetFileNameType '年+月+日+随机数+扩展名
   Case 9:GetFileName = MakeRandom(N) & GetFileNameType
   Case 10:GetFileName = MakeRandomChar(N) & GetFileNameType '随机字符
   Case 11:GetFileName ="ID"
   Case Else
    GetFileName = Year(AddDate) & Month(AddDate) & Day(AddDate) & GetFileNameType '12位随机数+扩展名
 End Select
 End Function

把所有的month(adddate)改成

right("0" & month(adddate),2)

同样把所有的 day(adddate)改成

right("0" & day(adddate),2)