<%@ 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 If Len(RecID)<4 Then Set oRs = oConn.Execute("select * from ThuyetPhap where ID=" & RecId & ";" ) Else Set oRs = oConn.Execute("select * from ThuyetPhap where UniqueID='" & RecId & "';" ) End If 'Response.write("title=" & oRs("Title") & "
") 'Response.write("location=" & oRs("Location") & "
") 'Response.write("date=" & oRs("Date") & "
") 'Response.write("path=" & oRs("Path") & "
") 'Response.write("source=" & oRs("Source") & "
") 'Response.write("Authorid=" & oRs("Authorid") & "
") Set ThisDir = fso.GetFolder(SourceDir & "\" & oRs("Path")) 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 %> <% if oRs("Authorid")="1" then %> <%end if%> <% if oRs("Authorid")="2" then %> <%end if%> <% if oRs("Authorid")="4" then %> <%end if%> <% if oRs("Authorid")="3" then %> <%end if%> <%=oRs("Title")%>
DANH MỤC THUYẾT PHÁP
 THIỀN TÔNG VIỆT NAM

<%=oRs("Title")%>

<%if oRs("Location") <> "" then %> Giảng tại <%=oRs("Location")%> <%end if%> <%if oRs("Date") <> "" then %> ngày <%=oRs("Date")%> <%end if%>

<%=oRs("Author")%>
<% 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("Source") <> "" then %> Nguồn: <%=oRs("Source")%> <%end if%>
  THIỀN TÔNG VIỆT NAM
<%oConn.Close%>