<%
Dim CmsDjMold:Set CmsDjMold= New CmsDj_Com_Mold
Set HtmlRs=CmsDjMold.GetRs("",0,"CD_TheOrder=1")
CD_TemplateUrl=HtmlRs("CD_TempPath")
If activepath="" Or activepath="/" Then
path=InstallDir&CD_TemplateUrl
templets=InstallDir&CD_TemplateUrl
Else
path=activepath
templets=activepath
End If
folderList = fso.GetFolderList(path)
fileList = fso.GetFileList(path)
folderNum = ubound(folderList)
fileNum = ubound(fileList)
%>
| 点击名称选择文件 |
文件大小 |
最后修改时间 |
<%
IF right(path,1) ="/" Then path=left(path,len(path)-1)
lastLevelPath= mid(path,1,instrrev(path,"/")-1)
IF path<>"../Skin" Then
%>
 上级目录 |
当前目录: <%=templets%> |
<%
End IF
If folderNum >= 0 And instr(folderList(0),",")>0 Then
For i=0 To folderNum
folderAttr=split(folderList(i),",")
folder=folderAttr(4)
%>
 <%=folderAttr(0)%> |
<%=folderAttr(2)%> |
<%=folderAttr(3)%> |
<%
Next
End IF
%>
<%
IF fileNum >= 0 And instr(fileList(0),",")>0 Then
For j=0 To fileNum
fileAttr=split(fileList(j),",")
filedir=fileAttr(4)
filedir=ReplaceStr(filedir,"//","/")
filename=fileAttr(0)
%>
| <%=viewIcon(filename)%> <%IF fileAttr(1)="asp" Or fileAttr(1)="php" Or fileAttr(1)="aspx" Or fileAttr(1)="jsp" Then Echo ""&filename&" 危险文件" Else Echo ""&filename&"" End IF%> |
<%=fileAttr(2)%> |
<%=fileAttr(3)%> |
<%Next
End IF%>
|
![](../img/"&replace(fileType,".","")&".gif){kind=small}
"
Else
IF fileType=".jpg" or fileType=".jpeg" Then
icon="
"
ElseIF fileType=".htm" or fileType=".html" or fileType=".shtml" Then
icon="
"
ElseIF fileType=".gif" or fileType=".png" Then
icon="
"
ElseIF fileType=".txt" Then
icon="
"
Else
icon="
"
End IF
End IF
viewIcon = icon
End Function
%>