<%@ LANGUAGE = VBScript%><%Option Explicit Dim SourceDir, fso, Indent, nl, SrcDrLen, tmp, TitleFile, Title,oConn,oRs,filePath,RecID Dim ThisDir,File,arry(100,2),n,m,p nl=vbCrLf Indent=0 Const ForReading = 1 RecID=Request.QueryString("ID") SourceDir=Server.MapPath("./") Set fso = CreateObject("Scripting.FileSystemObject") Set SourceDir = fso.GetFolder(SourceDir) SrcDrLen=Len(SourceDir.Path)+2 ' Create ADO Connection Component to connect filePath = Server.MapPath("Adm_ThuyetPhap.mdb") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath Set oRs = oConn.Execute("Select * from ThuyetPhap Where id=" & RecID) Set ThisDir = fso.GetFolder(SourceDir & "\" & oRs(1)) For each File in ThisDir.Files Tmp=ucase(right(File.name,4)) If Tmp=".MP3" Then arry(n,1)=left(File.Name,len(file.name)-4) arry(n,2)=File.Size n=n+1 End If Next 'Sort names in array 'for p=2 to n ' m=p ' do while m>1 ' if ucase(arry(m,1)) <%=oRs(2)%> <% 'Response.write(oRs(1) & "
") 'Response.write(oRs(2) & "
") 'Response.write(oRs(3) & "
") 'Response.write(oRs(4) & "
") 'Response.write(oRs(5) & "
") 'Response.write(oRs(6) & "
") %>
DANH MỤC THUYẾT PHÁP
 THIỀN TÔNG VIỆT NAM

<%=oRs(2)%>

<%=oRs(4)%> - <%=oRs(5)%>

<%=oRs(3)%>
<% For m=0 to n-1 Response.Write " " & chr(13) Response.Write " " & chr(13) 'Response.Write " " & chr(13) 'Response.Write "

" & Tmp & "" & chr(13) Response.Write "

" & chr(13) Response.Write " " & chr(13) Response.Write " " & chr(13) Next %>

SỐ THỨ TỰ

DUNG LƯỢNG

NGHE PHÁP
" & chr(13) Response.Write "

"& arry(m,1) & "

" & chr(13) 'Tmp=arry(m,2)/4033.69/86400 'Tmp=hour(Tmp) & ":" & right(string(2,"0")&minute(Tmp),2) & ":" & right(string(2,"0")&second(Tmp),2) 'Response.Write "

" & hour(arry(m,2)) &":"&Right(String(2,"0") & minute(arry(m,2)), 2)&":"&Right(String(2,"0") & second(arry(m,2)), 2) & "

" & chr(13) Response.Write "

" & FormatNumber(arry(m,2)/1048576,2) & " MB

" & chr(13) Response.Write "

" & chr(13) Response.Write " <<>>

<%=oRs(7)%>

<%=oRs(6)%>
  THIỀN TÔNG VIỆT NAM