Avatar billede sth Novice
20. juni 2002 - 20:40 Der er 2 løsninger

Hjælp Fra ASP-fil til WSH -fil

jeg arbejder normalt med ASP, men har brug for at opdatere en mysql database løbende, jeg har noget asp-kode jeg som kan læse en logfil som kan på den server hvor asp-filen afvikles. de data der er i logfilen læses så over i en database på en anden server på www.

Nå men til mit spørgsmål ! kan jeg afvikel denne kode på serveren hvis den laves om til en WSH-fil så jeg på den måde ikke behøver at køre iis på serveren.

jeg har noget kode der ser sådan ud:
Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.OpenTextFile(server.mappath("hotel.log"))

antal =0
linienr=0

do while not fil.AtEndOfStream
    Line = fil.readline
    LineSplit = split(Line," ")

dato=trim(linesplit(0))
tid=trim(linesplit(1))
ip_adresse= trim(linesplit(4))


    SQLserveradr="en_eller_anden_ipadresse"
    SQLdatabase="min_database"   
    SQLlogin="login_navn"
    SQLpassword="hemlig_password"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword
   
    dato = DatePart("yyyy", dato) & "-" & DatePart("m", dato) & "-" & DatePart("d", dato)

    SQL_Found = "SELECT * FROM log_tabel WHERE ip_adresse='"&ip_adresse&"' and dato ='" &dato& "' and log_tb_firma_id ="&Session("firmaID")
    'Response.Write SQL_Found
    'Response.end
    Set Found = Conn.Execute(SQL_Found)
    If Found.EOF or Found.BOF Then

    SQL_Insert = "INSERT INTO log_tabel (dato,tidspunkt,ip_adresse, log_tb_firma_id) VALUES ( '"& dato &"' ,'"& tid &"','" & ip_adresse & "', '" & Session("firmaID") & "')"
    Conn.Execute(SQL_Insert)
    antal =antal +1

        Else
    End If
  linienr=linienr+1
loop
set fil = nothing
set Found = nothing



jeg har prøvet at omdøbe den til test.wsh og så afvikle koden men det giver fejl "Der er ikke angivet nogen scriptfil"  !!!

100 point for at tilrette koden så jeg kan afvikle koden gennem opgavestyring
Avatar billede medions Nybegynder
21. juni 2002 - 03:06 #1
Denne artikel skulle gerne gøre det klart for dig...

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=6188&lngWId=4

Held og lykke med det..

//>Rune
Avatar billede sth Novice
26. juni 2002 - 15:09 #2
jeg lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Vi tilbyder markedets bedste kurser inden for webudvikling

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester