Hvor hulen skal jeg indsætte min session ?
HejNu har jeg efterhånden prøvet alt, men åbenbart ikke det rigtige endnu....
Jeg vil have have smidt en 3 minutters session på det indtastede brugernavn i opret brugerformen.
Men vekslende hvor henne jeg tilføjer min session, forbliver min session enten tom, eller gemmer et brugernavn der allerede er optaget.
Hvis jeg f.eks vælger et brugernavn der er optaget, gemmes dette navn i min session, istedetfor det navn, der bliver godkendt...
Nogen der kan finde hoved og hale i min lange kode, og pege på det sted hvor en session på et accepteret brugernavn, skal indsættes ?
.............................. kildekode.....
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
MM_dupKeyRedirect="opretbruger.asp"
MM_rsKeyConnection=MM_db_STRING
MM_dupKeyUsernameValue = CStr(Request.Form("brugernavn"))
MM_dupKeySQL="SELECT brugernavn FROM bruger WHERE brugernavn='" & MM_dupKeyUsernameValue & "'"
MM_adodbRecordset="ADODB.Recordset"
set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
MM_rsKey.ActiveConnection=Conn
MM_rsKey.Source=MM_dupKeySQL
MM_rsKey.CursorType=0
MM_rsKey.CursorLocation=2
MM_rsKey.LockType=3
MM_rsKey.Open
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
' the username was found - can not add the requested username
MM_qsChar = "?"
If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
Response.Redirect(MM_dupKeyRedirect)
End If
MM_rsKey.Close
End If
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "form1") Then
MM_editConnection = MM_db_STRING
MM_editTable = "bruger"
MM_editRedirectUrl = "default2.asp"
MM_fieldsStr = "brugernavn|value|adgangskode|value|email|value"
MM_columnsStr = "brugernavn|',none,''|adgangskode|',none,''|email|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = Conn
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
function validate(form1) {
if (form1.brugernavn.value == "") {
alert("Husk at angive et brugernavn!");
document.form1.brugernavn.focus();
return false;
}
else {
if (form1.adgangskode.value == "") {
alert("Husk at angive en adgangskode!");
document.form1.adgangskode.focus();
return false;
}
else {
if (document.form1.email.value.indexOf("@")==-1 || document.form1.email.value.indexOf(".")==-1) {
alert("Du har ikke udfyldt e-mail feltet korrekt");
document.form1.email.focus();
return false;
}
}
}
return true;
}
function start() {
document.form1.brugernavn.focus();
return false;
}
</SCRIPT>
<form action="<%=MM_editAction%>" method="post" name="form1" ONSUBMIT='return validate(this)'>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=225 HEIGHT=96>
<TR>
<TD ROWSPAN=1 COLSPAN=1 WIDTH=90 HEIGHT=24>Brugernavn:</TD>
<TD ROWSPAN=1 COLSPAN=1 WIDTH=135 HEIGHT=24><input type="text" name="brugernavn" value="" size="20" class='forms'></TD>
</TR>
<TR>
<TD ROWSPAN=1 COLSPAN=1 WIDTH=90 HEIGHT=24>Adgangskode:</TD>
<TD ROWSPAN=1 COLSPAN=1 WIDTH=135 HEIGHT=24><input type="password" name="adgangskode" value="" size="20" class='forms'></TD>
</TR>
<TR>
<TD ROWSPAN=1 COLSPAN=1 WIDTH=90 HEIGHT=24>Email:</TD>
<TD ROWSPAN=1 COLSPAN=1 WIDTH=135 HEIGHT=24><input type="text" name="email" value="" size="20" class='forms'></TD>
</TR>
<TR>
<TD ROWSPAN=1 COLSPAN=2 WIDTH=225 HEIGHT=24><input type="submit" value="Opret bruger" class='buttom'> </TD>
</TR>
</TABLE>
<input type="hidden" name="MM_insert" value="form1">
</form>
<% If (Request.QueryString("requsername")) <> ("") Then 'script %>
<script language="JavaScript" type="text/JavaScript">
alert('Brugernavnet <%=Request.QueryString("requsername")%> er optaget. Vælg et nyt');
</script>
<% End If ' end If (Request.QueryString("requsername")) <> ("") script%>
.......... end ....
/0ffline
