folderc = 0
For Each fn1 In FileList
folderc = folderc +1
Next
currentf = 1
For Each fn In FileList
If NOT LCase(fn.Name) = "_vti_cnf" Then ' Hide Front Page "_vti_cnf" Folder In Menu
If Request("D") Then
String1 = LCase(Request("D"))
Else
String1 = "\"&LCase(Replace(Request("folder"),"/","\"))&"\"
End If
String2 = "\"&LCase(fn.Name)&"\"
If InStr(String1,String2)>0 Then
ShowFolder = True
Else
ShowFolder = False
End if
If len(fn.Name) > 30 Then
FolderName = Left(fn.Name,30)&"..."
Else
FolderName = fn.Name
End if
Directory = fn
Directory = Replace(LCase(Directory),LCase(UploadPath),"")
Directory = URLSpace(Directory)
%>
<tr>
<td height="18" width="17"><img src="images/sm-tree2.gif" alt="" width="17" height="17" border="0"></td>
<td width="18" nowrap><img src="images/sm-folder<% If ShowFolder Then %>4<% Else %>5<% End If %>.gif" width=17 height=16 border=0 alt=""></td>
<td width="100%" nowrap><a class="linkxsm" href="igallery.asp?d=<%= Directory %>\"><b><%= FolderName %></b></a></td>
</tr>
<%
End If
currentf = currentf + 1
Next
%>
*****************************************************************************
อยากทราบว่าถ้าอยากจะ showfolder โดยให้เรียงจากวันที่โดยให้ folder ที่เพิ่มเข้าไปเป็นวันที่ปัจจุบันเรียงขึ้นก่อน folder ที่เป็นวันที่ย้อนหลังจะเขียนโค้ดเพิ่มยังไงครับ
Load balance : Server 05
