当前位置：
|
主题：建议栏目生成内容页添加格式/200907/RE [收藏主题] | 转到： |
 建议栏目生成内容页添加格式/200907/RE 这种是按月份保存生成的网页
现在已有/2009-07/RE 这种格式的，不想要中间的-但是又不知道怎么去掉。
如果去掉中间-这个怎么去掉？ |
|
 支持(0) |  反对(0)
 顶端  底部
|
![电子邮件:[ xuelangziwu@126.com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
 Function LoadFsoContentRule(ChannelID,ClassID)
on error resume next
Dim FsoContentRule:FsoContentRule=C_S(ChannelID,43)
FsoContentRule=Replace(FsoContentRule,"{$ChannelEname}",Split(C_C(ClassID,2),"/")(0))
FsoContentRule=Replace(FsoContentRule,"{$ClassDir}",C_C(ClassID,2))
FsoContentRule=Replace(FsoContentRule,"{$ClassID}",C_C(ClassID,9))
FsoContentRule=Replace(FsoContentRule,"{$ClassEname}",Split(C_C(ClassID,2), "/")(C_C(ClassID,10)- 1))
FsoContentRule=Replace(Setting(3) & C_S(ChannelID,8),"//","/") & FsoContentRule
LoadFsoContentRule=FsoContentRule
End Function
Function LoadInfoUrl(ChannelID,ClassID,Fname)
If C_C(ClassID,4)<>"" Then
LoadInfoUrl=GetFolderPath(ClassID) & Fname
Else
LoadInfoUrl=Setting(2) & LoadFsoContentRule(ChannelID,ClassID) & Fname
End If
End Function
|
|
|
支持(0) | 反对(0)
顶端 底部
|
 '**************************************************
'函数名：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 |
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
科汛新站点：www.baidoc.com 愿为新手提供力所能及的帮助，有意请密QQ：9595788（加时注明：KS），QQ群：84451568 | |
|
支持(0) | 反对(0)
顶端 底部
|
| ＜上一主题 | 下一主题 ＞ |