I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% Dim Connection, RS, Page, Counts Page=Request.ServerVariables("SCRIPT_NAME") Set Connection=Server.Createobject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/counter/counter.mdb") IP = Request.ServerVariables("REMOTE_ADDR") if not IP = dinip then 'If Len(Session(Page)) = 0 Then Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") If RS.EOF = TRUE Then Connection.Execute("INSERT INTO counter (fldPage, fldCount) VALUES ('"&Page&"', 0)") End If Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") Counts=RS("fldCount")+1 Set RS = Connection.Execute("UPDATE counter SET fldCount = " & Counts & " WHERE fldPage = '" & Page & "'") Session(Page) = "something" Connection.Close Else Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") Counts=RS("fldCount") End If end if Response.Write Counts %>
<% Dim Connection, RS, Page, Counts, IP IP = Request.ServerVariables("REMOTE_ADDR") if not IP = "xxx,xxx,xxx,xxx" then Page=Request.ServerVariables("SCRIPT_NAME") Set Connection=Server.Createobject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/counter/counter.mdb") 'If Len(Session(Page)) = 0 Then Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") If RS.EOF = TRUE Then Connection.Execute("INSERT INTO counter (fldPage, fldCount) VALUES ('"&Page&"', 0)") End If Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") Counts=RS("fldCount")+1 Set RS = Connection.Execute("UPDATE counter SET fldCount = " & Counts & " WHERE fldPage = '" & Page & "'") Session(Page) = "something" Connection.Close Else Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'") Counts=RS("fldCount") End If end if Response.Write Counts %>
dette er vidst bedre... Så sætter du bare din ip ind i stedet for "xxx,xxx,xxx,xxx"
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.