<%@ LANGUAGE = VBScript%><%Option Explicit
Dim SourceDir, fso, Indent, nl, SrcDrLen, tmp, TitleFile, Title,oConn,oRs,filePath
Dim Notee, Memoo
nl=vbCrLf
Indent=0
Const ForReading = 1
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
%>
List Maintenance
Danh Sách Các Bài Thuyết Pháp
Get Next Unique ID
Programs Documentation
List directories for adding directory to database:
[HTT Thanh Từ]
[TTT Thông Phương]
[SC Thuần Tuệ]
[TTT Thông Tạng]
[TTT Tâm Thạnh]
<%
ListDB
oConn.Close
'IS THE ERROR ON INSERT CAUSED BY MDB FILE THERE CAN NOT BE CHANGED???
'Yes! go to 1&1 Admin WebFiles, open ThuyetPhap.mdb for IUSR to have write & modify
Sub ListDB()'=======================================================
Set oRs = oConn.Execute("SELECT * from ThuyetPhap order by Title;")
Do while (Not oRs.eof)
If Len(oRs("Note"))<30 Then
Notee=oRs("Note")
Else
Notee=Left(oRs("Note"),27) & "..."
End If
If Len(oRs("Memo"))<80 Then
Memoo=oRs("Memo")
Else
Memoo=Left(oRs("Memo"),77) & "..."
End If
response.write "" & oRs("Title") & " (" & oRs("UniqueId") & ") - " & _
oRs("Author") & "" & " - " & oRs("Path") & "
" & chr(13) & "[Sửa Đổi][Xóa] Nơi: " & oRs("Location") & " | Ngày: " & _
oRs("Date") & " | Nguồn: " & oRs("Source") & " | " & "Ghi chú: " & Notee & " | " & "UniqueID: " & oRs("UniqueID") & _
" | DatePosted: " & oRs("DatePosted") & " | Category: " & oRs("Category") & "
" & chr(13) & "Memo: " & Memoo & "" & chr(13)
oRs.MoveNext
Loop
End Sub'=======================================================
%>