har rettet i scriptet dl.asp, så nu henter viser den alle filerne i dit pdf-dir, og automatisk tilføjer dem i basen hvis det er nødvendigt, og elelr bliver hits = hits + 1.
<HTML>
<HEAD>
<META HTTP-EQUIV="content-type" CONTENT="text/html;CHARSET=iso-8859-1">
<TITLE>Download Fil</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub hentfil(fil)
Set ThisForm=Document.formular
ThisForm.a.Value="download"
ThisForm.fil.value=fil
ThisForm.Submit
End Sub
!-->
</SCRIPT>
</HEAD>
<%
Function GetInput(i)
GetInput=""
if i<>"" then
GetInput=Request.QueryString(i)
if GetInput="" or IsNull(GetInput) then GetInput=Request.Form(i)
end if
End Function
a=Trim(GetInput("a")): 'Response.Write("a=" & a & "<BR>")
if a="" or IsNull(a) Then a="liste"
Select Case LCase(a)
case "download"
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("./filer.mdb")
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&Server.MapPath("./filer.mdb") & ";Password=;"
strSQL = "SELECT * FROM filer WHERE fil='" + Request.Form("fil") + "'"
maxcount = 0
set rs = Conn.execute(strSQL)
while not rs.eof
maxcount = maxcount + 1
rs.movenext
wend
if (maxcount = 1) Then
strSQL = "UPDATE filer SET hits=hits+1 WHERE fil='" & Request.Form("fil") & "'"
set rs = Conn.execute(strSQL)
elseif (maxcount = 0) Then
strSQL = "INSERT INTO filer (fil, hits) VALUES ('" & Request.Form("fil") & "',1)"
set rs = Conn.execute(strSQL)
end if
Set rs = nothing
Conn.Close
Set Conn = Nothing
Response.Write("<script language=""javascript"">" + vbCR)
Response.Write(" window.open('./downloads/pdf/" & Request.Form("fil") & "','mywin','left=20,top=20,width=500,height=500,toolbar=1,resizable=0');" + vbCR)
Response.Write("</script>" + vbCR)
%>
<script language="Javascript">
window.location.reload('./dl.asp');
</script>
<%
case "liste"
Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strUrlPath
strDirectoryPath="c:\inetpub\scripts\"
strUrlPath="\scripts\"
Response.Write("<FORM NAME=""formular"" ACTION=""./dl.asp"" METHOD=""post"">" + vbCR)
Response.Write("<input type=""hidden"" name=""id"" value=""*"">" + vbCR)
Response.Write("<input type=""hidden"" name=""fil"" value=""*"">" + vbCR)
Response.Write("<input type=""hidden"" name=""a"" value=""*"">" + vbCR)
Response.Write("<TABLE BORDER=""1"">" + vbCR)
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileScripting.GetFolder(Request.ServerVariables("APPL_PHYSICAL_PATH") & "\downloads\pdf\")
Set filecollection = objFolder.Files
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
Response.Write("<TR>" + vbCR)
Response.Write("<TD>" + filename + "</TD>" + + vbCR)
Response.Write("<TD><INPUT TYPE=""button"" NAME=""HANDLING"" VALUE=""Hent"" onClick=""java script:hentfil('" & filename & "');""></TD>" + vbCR)
Response.Write("</TR>" + vbCR)
Next
Response.Write("</TABLE>" + vbCR)
Response.Write("</FORM>" + vbCR)
end select
%>
/Steines
Ny bruger
Nybegynder
Opret
Preview
