Sessionid hvor unik er den

du kan være ret sikker på at det er et unik id så længe serveren ikke bliver genstartet - genstartes serveren er der en, omend minimal, så alligevel potentiel risiko for at et id genopstår

Hvad kan jeg så gøre?

kan jeg combinere dato sammen med den unikke fra serveren, hvis ja, hvordan gør jeg det

Du kan jo bruge Year() Month() Day() Hour() Minute() og Second() og kombinere dem ved matematik sammen med din sessions id... så tror jeg ikke at det kan lade sig gøre at der kan opstå to ens id'er

hvorfor ikke bare gennerere en 30 cifre lang streng som du kan gemme i en tabel i din database og tjekke for om er brugt hvergang en ny skal dannes ? på denne måde er du da helt sikker på at den er unik, uafhængigt af om server eller anden hardware genstartes.

mvh.
Questis

Det lyder som en god ide, men rent kode mæssigt hvordan skulle det gøres?

eks. i din database skal du have en tabel der hedder SessionID, med kolonnen UsedID.

i din indkøbs kurv skal du have et tjek for om brugeren allerede har et unikt session id:

Dim strSessinID
strSessionID = Request.Cookies("userid")

If strSessionID = "" Then
    strSessionID = CreateSessionID()
    Response.Cookies("userid") = strSessionID
End If


Funktionen der kaldes hvis ikke denne eksisterer:


<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll"  -->

<%
function CreateSessionID()
  dim strResult, strLetters, i, strSQL, objRS, objCMD
  dim intLen, intPos
  dim boolIdOK
  boolIdOK = FALSE
  while not boolIdOK
    Randomize
    strResult = ""
    strLetters = "abcdefghijklmnopqrstuvwxyz"
    intLen = len(strLetters)
    for i = 1 to 30
      intPos = cint(rnd()*intLen)+1
      strResult = strResult & mid(strLetters,intPos,1)
    next
    strSQL = "SELECT UsedID FROM SessionID WHERE UsedID = '" & strResult & "'"
    set objRS = server.createobject("ADODB.Recordset")
    with objRS
      .open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
      if not .EOF then
        boolIdOK = FALSE
      else
        boolIdOK = TRUE
        strSQL = "INSERT INTO SessionID (UsedID) VALUES ('" & strResult & "')"
        set objCMD = server.createobject("ADODB.Command")
        with objCMD
        .ActiveConnection = strConnect
        .CommandType = adCmdText
        .CommandText = strSQL
        .execute 
        end with
        set objCMD = Nothing
      end if
      .close
    end with
    set objRS = Nothing
  wend
  CreateSessionID = strResult
 
  response.write strResult
end function
%>

og ellers er resten af kruven vel lige til

mvh.
Questis