22. december 2004 - 12:20Der er
3 kommentarer og 1 løsning
kontrolere om databasen findes
Jeg er ved at lave en guide til opsætning af et system til administrering af newsletters. F.eks skal der kontrolleres at databasen findes på den adresse som brugeren skriver.
1. Brugeren skriver stien til DB i en formular: f.eks: C:\Inetpub\wwwroot\db\
2. Scriptet kontrollere at databasen er på den angivne adresse.
3. Hvis ikke DB kan findes skriver den: Databasen kunne ikke findes på den angivne sti
Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists("c:\somefile.txt") Then 'ok databasen er hvor den skal være else response.write "Kan ikke finde databasen" response.end end if
Du kan bruge noget ligenden. Du skal lige rette tabel og felt til et felt som findes i databasen og self også rette navnet på databasen
Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("./db.mdb") Conn.Open DSN on error resume next Conn.Execute "UPDATE tabel SET felt='' WHERE 1=2" if err.number<>0 then Response.write "Databsen er skrivebeskyttet" end if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
