15. august 2001 - 11:19Der er
28 kommentarer og 1 løsning
Logge domænet
Istedet for at få noget URL (xxxx/xxx/xxxx.asp) logget i variablen Side, vil jeg gerne have logget alt hvad der står foran backslash (minus backslash) i LOGON_USER. Er der en der kan lave koden om til dette?
\' Find Brugerens loginnavn (skal være på formen domæne/bruger) User = Request.Servervariables(\"LOGON_USER\") nBackSlachPOS = Instr(1, User, \"/\") if nBackSlachPOS > 0 Then User = mid(User, nBackSlachPOS + 1) else nBackSlachPOS = Instr(1, User, \"\\\") if nBackSlachPOS > 0 Then User = mid(User, nBackSlachPOS + 1) end if end if
session(\"User\") = lcase(User) side = Request.Servervariables(\"PATH_INFO\")
Rettigheder = 1
Sql = \"INSERT INTO Session (User, Rettigheder, Side)\" Sql = Sql & \"VALUES(\'\" & User & \"\',\'\" & Rettigheder & \"\',\'\" & Side & \"\')\" \'Response.Write Sql Conn.Execute Sql
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.
\' Find Brugerens loginnavn (skal være på formen domæne/bruger) User = Request.Servervariables(\"LOGON_USER\") nBackSlachPOS = Instr(1, User, \"/\") if nBackSlachPOS > 0 Then User = mid(User, nBackSlachPOS + 1) else nBackSlachPOS = Instr(1, User, \"\\\") if nBackSlachPOS > 0 Then User = mid(User, nBackSlachPOS + 1) end if end if
session(\"User\") = lcase(User) side = Request.Servervariables(\"REMOTE_ADDR\")
Rettigheder = 1
Sql = \"INSERT INTO Session (User, Rettigheder, Side)\" Sql = Sql & \"VALUES(\'\" & User & \"\',\'\" & Rettigheder & \"\',\'\" & Side & \"\')\" \'Response.Write Sql Conn.Execute Sql
Nute > Det var en nem løsning, men det giver desværre ikke samme resultat! Jeg er nød til at have præcis det der står foran backslash\'et (domæne/bruger). Kan du ordne det?
\' Find Brugerens loginnavn (skal være på formen domæne/bruger) User = Request.Servervariables(\"LOGON_USER\") tmpArr = SPLIT( User ) User = tmpArr(0) Side = tmpArr(1)
session(\"User\") = lcase(User)
Rettigheder = 1
Sql = \"INSERT INTO Session (User, Rettigheder, Side)\" Sql = Sql & \"VALUES(\'\" & User & \"\',\'\" & Rettigheder & \"\',\'\" & Side & \"\')\" \'Response.Write Sql Conn.Execute Sql
Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access Driver] Field \'Session.Side\' cannot be a zero-length string.
Det hele ser nu sådan ud:
\' Find Brugerens loginnavn (skal være på formen domæne/bruger) User = Request.Servervariables(\"LOGON_USER\")
tmpArr = SPLIT( User ) for i=0 to UBOUND(tmpArr) response.write tmpArr(i) & \"<br>\" next
session(\"User\") = lcase(User)
\' side = Request.Servervariables(\"REMOTE_ADDR\")
Rettigheder = 1
Sql = \"INSERT INTO Session (User, Rettigheder, Side)\" Sql = Sql & \"VALUES(\'\" & User & \"\',\'\" & Rettigheder & \"\',\'\" & Side & \"\')\" \'Response.Write Sql Conn.Execute Sql
det kan man da...men jeg synes det er merkelig at SPLIT funksjonen ikke kan finne ut av å gjøre dette for meg...
User = Request.Servervariables(\"LOGON_USER\") nBackSlachPOS = Instr(1, LogonUser, \"/\") if nBackSlachPOS > 0 Then Side = LEFT(User, nBackSlashPOS ) User = MID(User, nBackSlachPOS + 1) else nBackSlachPOS = Instr(1, LogonUser, \"\\\") if nBackSlachPOS > 0 Then Side = LEFT(User, nBackSlashPOS ) User = MID(User, nBackSlachPOS + 1) end if end if
session(\"User\") = lcase(User) side = Request.Servervariables(\"REMOTE_ADDR\")
Rettigheder = 1
Sql = \"INSERT INTO Session (User, Rettigheder, Side)\" Sql = Sql & \"VALUES(\'\" & User & \"\',\'\" & Rettigheder & \"\',\'\" & Side & \"\')\" \'Response.Write Sql Conn.Execute Sql
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.
