<%@ LANGUAGE = VBScript%><%Option Explicit Dim SourceDir, fso, Indent, nl, SrcDrLen, tmp, TitleFile, Title,oConn,oRs,filePath,RecID Dim ThisDir,File,arry(300,2),n,m,p Dim stm nl=vbCrLf Indent=0 Const ForReading = 1 RecID=Request.QueryString("ID") 'RecID="38" 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 tp.Title, tp.Location, tp.Date, tp.Path, tp.Source, au.Author_Name from ThuyetPhap as tp, Author as au where (tp.AuthorId=au.id) and (tp.id=" & RecId & ");" ) 'oConn.Close 'Response.write("title=" & oRs(0) & "
") 'Response.write("location=" & oRs(1) & "
") 'Response.write("date=" & oRs(2) & "
") 'Response.write("path=" & oRs(3) & "
") 'Response.write("source=" & oRs(4) & "
") Set ThisDir = fso.GetFolder(SourceDir & "\" & oRs(3)) 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 %> <%=oRs(1)%>
DANH MỤC THUYẾT PHÁP
 THIỀN TÔNG VIỆT NAM

<%=oRs(0)%>

<%if oRs(1) <> "" then %> Giảng tại <%=oRs(1)%> <%end if%> <%if oRs(2) <> "" then %> ngày: <%=oRs(2)%> <%end if%>

<%=oRs(5)%>
<% 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 " <<>>

<%if oRs(4) <> "" then %> Nguồn: <%=oRs(4)%> <%end if%>
  THIỀN TÔNG VIỆT NAM
<%oConn.Close%>