Avatar billede KingMedia Novice
28. marts 2002 - 17:07 Der er 6 kommentarer og
1 løsning

Oversættelse af VBScript til JScript samt"antal hits"

Jeg Har en side der redirecter et ID fra en linkdatabase.
Problemet er at jeg kun har fundet det i VBScript, og da alle mine andre ASP sider er i JScript, ville jeg gerne have det oversat.

Samtidigt ville det være genialt, hvis en af jer kunne hitte ud af, at få smidt en stump kode ind, der skriver "antal hits" af de forskellige redirects.
Den skulle gerne smide et "+1" til DB'en , hver gang man klikker på et link, som så kan returneres på linkssiden. :o)

<-- Snip -->

<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<%

strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/xxxx") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
%>
<%   
   
    'This is the page that redirects you to the link and increments the hit counter.   
       
    Set objConn = Server.CreateObject ("ADODB.Connection")
    Set objRec2 = Server.CreateObject ("ADODB.Recordset")
   
    objConn.Open strconnect
   
    LinkID = Request.QueryString("linkid")
   
    objRec2.Open "links", objConn, 0, 2, 2
   
    objRec2.Filter = "LinkID = " & LinkID
   
    objRec2.Update
    Response.Redirect(""& objRec2("LinkURL") &"")

    objRec2.Close
    Set objRec2 = Nothing
    objConn.Close
    Set objConn = Nothing
%>

<-- Snip -->

/KingMedia
Avatar billede cms Nybegynder
28. marts 2002 - 20:40 #1
sådan her oversat uden de ekstra ting: (håber det virker)

<%@ LANGUAGE="JScript"%>
<%Response.Buffer = true;%>
<%

strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="+ Server.MapPath("/xxxx") +";DefaultDir="+ Server.MapPath(".") +";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
%>
<%

    //This is the page that redirects you to the link and increments the hit counter.

    objConn = Server.CreateObject ("ADODB.Connection");
    objRec2 = Server.CreateObject ("ADODB.Recordset");

    objConn.Open(strConnect);

    LinkID = Request.QueryString("linkid");

    objRec2.Open("links", objConn, 0, 2, 2);

    objRec2.Filter = "LinkID = " + LinkID;

    objRec2.Update();
    Response.Redirect(objRec2("LinkURL"));

    objRec2.Close();
    objRec2 = null;
    objConn.Close();
    objConn = null;
%>
Avatar billede KingMedia Novice
28. marts 2002 - 20:55 #2
Hmmmmm...  Nok mig der har klokket lidt i det her.. 

har kludret noget sammen omkring VB og JS .. 

anyway .. 

Skriv lige et svar.. du får de points... 

:o)
Avatar billede cms Nybegynder
28. marts 2002 - 21:05 #3
? okay :)
Avatar billede KingMedia Novice
28. marts 2002 - 21:08 #4
Jaaa..  du skal ikke tænke så meget over det jeg skrev *GG*

Du svarede jo rigtigt nok på mit spørgsmål ..  men jeg har vidst ik helt styr på forskellen mellem VB og JS.. *G*  der ligger fejlen .. 

Men fordi jeg klokker i det, skal du jo ikke snydes for point :o)

/KingMedia
Avatar billede cms Nybegynder
28. marts 2002 - 21:22 #5
Avatar billede KingMedia Novice
28. marts 2002 - 21:36 #6
Thx .. :o) .. 

altid rart med lidt dokumentation på området :o)

/KingMedia
Avatar billede cms Nybegynder
28. marts 2002 - 22:19 #7
:-)
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
Kurser inden for grundlæggende programmering

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