12. april 2004 - 18:03
Der er
16 kommentarer og 2 løsninger
Problemer med tilføj i database
Hejsa, Jeg har lavet en fil: adduser.asp.. Filen skal oprette en bruger i min database. Det virkede fint, indtil jeg begyndte at lege.. Det jeg skal have den til at kunne er at skrive en fejlmeddelse hvis brugernavnet allerede findes i databasen.. Min kode efter redigering: <!-- #include file="conn.asp" --> <link rel="stylesheet" type="text/css" href="style.css"> <% strCmd = Request.QueryString("cmd") openConn() If strCmd = "addnew" Then strUserid = Request.Form("userid") strUser = replace(Request.Form("username")&"","'","''") SQL2 = "SELECT Userid, Username FROM Users WHERE Username=" & strUser Set rs2 = connection.Execute(SQL2) if strUsername = rs2("Username") Then strErr = "Brugernavnet eksisterer allerede" Else strUsername = replace(Request.Form("username")&"","'","''") End if strPassword = replace(Request.Form("password")&"","'","''") strFullname = replace(Request.Form("fullname")&"","'","''") if len(Request.Form("redirect")) = 0 then strRedirect = "error.asp" Else strRedirect = replace(Request.Form("redirect")&"","'","''") end if strLastlogin = Request.Form("lastlogin") strLogintimes = replace(Request.Form("logintimes")&"","'","''") strGroup = replace(Request.Form("group")&"","'","''") strSQL = "INSERT INTO Users (" strSQL = strSQL & "[Username], " strSQL = strSQL & "[Password], " strSQL = strSQL & "[Fullname], " strSQL = strSQL & "[Redirect], " strSQL = strSQL & "Lastlogin, " strSQL = strSQL & "Logintimes, " strSQL = strSQL & "[Group]) " strSQL = strSQL & "values (" strSQL = strSQL & "'" & strUsername & "', " strSQL = strSQL & "'" & strPassword & "', " strSQL = strSQL & "'" & strFullname & "', " strSQL = strSQL & "'" & strRedirect & "', " strSQL = strSQL & "'" & Now & "', " strSQL = strSQL & "'" & 0 & "', " strSQL = strSQL & "'" & strGroup & "')" connection.Execute(strSQL) %> <h2>Brugeren er nu oprettet!</h2><br> <a href="overview.asp">Tilbage til oversigten</a> <% Else %> <form method="post" action="adduser.asp?cmd=addnew"> <table> <tr> <td colspan="2">Brugernavn:<br> <input type="text" name="username" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Adgangskode:<br> <input type="text" name="password" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Fuldt navn:<br> <input type="text" name="fullname" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Videresend:<br> <input type="text" name="redirect" class="input"> <br> <br></td> </tr> <tr> <td valign="top" width="120">Gruppe:<br> <input type="text" name="group" class="input"><br><br><br><input type="submit" value="Opret" class="knap"> <br> <br></td> <td valign="top"><i>Vælg mellem 1-4:<br>Gruppe 1 - Administrator<br>Gruppe 2 - Hold 1<br>Gruppe 3 - Hold 2<br>Gruppe 4 - Hold 3</i></td> </tr> </table> <br> <%=strErr%> <a href="overview.asp">Tilbage til oversigten</a> </form> <% End if closeConn() %> Min kode før redigering: <!-- #include file="conn.asp" --> <link rel="stylesheet" type="text/css" href="style.css"> <% strCmd = Request.QueryString("cmd") openConn() If strCmd = "addnew" Then strUserid = Request.Form("userid") strUsername = replace(Request.Form("username")&"","'","''") strPassword = replace(Request.Form("password")&"","'","''") strFullname = replace(Request.Form("fullname")&"","'","''") if len(Request.Form("redirect")) = 0 then strRedirect = "error.asp" Else strRedirect = replace(Request.Form("redirect")&"","'","''") end if strLastlogin = Request.Form("lastlogin") strLogintimes = replace(Request.Form("logintimes")&"","'","''") strGroup = replace(Request.Form("group")&"","'","''") strSQL = "INSERT INTO Users (" strSQL = strSQL & "[Username], " strSQL = strSQL & "[Password], " strSQL = strSQL & "[Fullname], " strSQL = strSQL & "[Redirect], " strSQL = strSQL & "Lastlogin, " strSQL = strSQL & "Logintimes, " strSQL = strSQL & "[Group]) " strSQL = strSQL & "values (" strSQL = strSQL & "'" & strUsername & "', " strSQL = strSQL & "'" & strPassword & "', " strSQL = strSQL & "'" & strFullname & "', " strSQL = strSQL & "'" & strRedirect & "', " strSQL = strSQL & "'" & Now & "', " strSQL = strSQL & "'" & 0 & "', " strSQL = strSQL & "'" & strGroup & "')" connection.Execute(strSQL) %> <h2>Brugeren er nu oprettet!</h2><br> <a href="overview.asp">Tilbage til oversigten</a> <% Else %> <form method="post" action="adduser.asp?cmd=addnew"> <table> <tr> <td colspan="2">Brugernavn:<br> <input type="text" name="username" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Adgangskode:<br> <input type="text" name="password" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Fuldt navn:<br> <input type="text" name="fullname" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Videresend:<br> <input type="text" name="redirect" class="input"> <br> <br></td> </tr> <tr> <td valign="top" width="120">Gruppe:<br> <input type="text" name="group" class="input"><br><br><br><input type="submit" value="Opret" class="knap"> <br> <br></td> <td valign="top"><i>Vælg mellem 1-4:<br>Gruppe 1 - Administrator<br>Gruppe 2 - Hold 1<br>Gruppe 3 - Hold 2<br>Gruppe 4 - Hold 3</i></td> </tr> </table> <br> <a href="overview.asp">Tilbage til oversigten</a> </form> <% End if closeConn() %>
Annonceindlæg tema
Cloud & AI
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.
12. april 2004 - 18:17
#1
<!-- #include file="conn.asp" --> <link rel="stylesheet" type="text/css" href="style.css"> <% strCmd = Request.QueryString("cmd") openConn() If strCmd = "addnew" Then strUserid = Request.Form("userid") strUser = replace(Request.Form("username")&"","'","''") SQL2 = "SELECT Userid, Username FROM Users WHERE Username=" & strUser Set rs2 = connection.Execute(SQL2) if strUser = rs2("Username") Then strErr = "Brugernavnet eksisterer allerede" Else strUsername = replace(Request.Form("username")&"","'","''") End if strPassword = replace(Request.Form("password")&"","'","''") strFullname = replace(Request.Form("fullname")&"","'","''") if len(Request.Form("redirect")) = 0 then strRedirect = "error.asp" Else strRedirect = replace(Request.Form("redirect")&"","'","''") end if strLastlogin = Request.Form("lastlogin") strLogintimes = replace(Request.Form("logintimes")&"","'","''") strGroup = replace(Request.Form("group")&"","'","''") strSQL = "INSERT INTO Users (" strSQL = strSQL & "[Username], " strSQL = strSQL & "[Password], " strSQL = strSQL & "[Fullname], " strSQL = strSQL & "[Redirect], " strSQL = strSQL & "Lastlogin, " strSQL = strSQL & "Logintimes, " strSQL = strSQL & "[Group]) " strSQL = strSQL & "values (" strSQL = strSQL & "'" & strUsername & "', " strSQL = strSQL & "'" & strPassword & "', " strSQL = strSQL & "'" & strFullname & "', " strSQL = strSQL & "'" & strRedirect & "', " strSQL = strSQL & "'" & Now & "', " strSQL = strSQL & "'" & 0 & "', " strSQL = strSQL & "'" & strGroup & "')" connection.Execute(strSQL) %> <h2>Brugeren er nu oprettet!</h2><br> <a href="overview.asp">Tilbage til oversigten</a> <% Else %> <form method="post" action="adduser.asp?cmd=addnew"> <table> <tr> <td colspan="2">Brugernavn:<br> <input type="text" name="username" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Adgangskode:<br> <input type="text" name="password" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Fuldt navn:<br> <input type="text" name="fullname" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Videresend:<br> <input type="text" name="redirect" class="input"> <br> <br></td> </tr> <tr> <td valign="top" width="120">Gruppe:<br> <input type="text" name="group" class="input"><br><br><br><input type="submit" value="Opret" class="knap"> <br> <br></td> <td valign="top"><i>Vælg mellem 1-4:<br>Gruppe 1 - Administrator<br>Gruppe 2 - Hold 1<br>Gruppe 3 - Hold 2<br>Gruppe 4 - Hold 3</i></td> </tr> </table> <br> <%=strErr%> <a href="overview.asp">Tilbage til oversigten</a> </form> <% End if closeConn() %> Min kode før redigering: <!-- #include file="conn.asp" --> <link rel="stylesheet" type="text/css" href="style.css"> <% strCmd = Request.QueryString("cmd") openConn() If strCmd = "addnew" Then strUserid = Request.Form("userid") strUsername = replace(Request.Form("username")&"","'","''") strPassword = replace(Request.Form("password")&"","'","''") strFullname = replace(Request.Form("fullname")&"","'","''") if len(Request.Form("redirect")) = 0 then strRedirect = "error.asp" Else strRedirect = replace(Request.Form("redirect")&"","'","''") end if strLastlogin = Request.Form("lastlogin") strLogintimes = replace(Request.Form("logintimes")&"","'","''") strGroup = replace(Request.Form("group")&"","'","''") strSQL = "INSERT INTO Users (" strSQL = strSQL & "[Username], " strSQL = strSQL & "[Password], " strSQL = strSQL & "[Fullname], " strSQL = strSQL & "[Redirect], " strSQL = strSQL & "Lastlogin, " strSQL = strSQL & "Logintimes, " strSQL = strSQL & "[Group]) " strSQL = strSQL & "values (" strSQL = strSQL & "'" & strUsername & "', " strSQL = strSQL & "'" & strPassword & "', " strSQL = strSQL & "'" & strFullname & "', " strSQL = strSQL & "'" & strRedirect & "', " strSQL = strSQL & "'" & Now & "', " strSQL = strSQL & "'" & 0 & "', " strSQL = strSQL & "'" & strGroup & "')" connection.Execute(strSQL) %> <h2>Brugeren er nu oprettet!</h2><br> <a href="overview.asp">Tilbage til oversigten</a> <% Else %> <form method="post" action="adduser.asp?cmd=addnew"> <table> <tr> <td colspan="2">Brugernavn:<br> <input type="text" name="username" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Adgangskode:<br> <input type="text" name="password" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Fuldt navn:<br> <input type="text" name="fullname" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Videresend:<br> <input type="text" name="redirect" class="input"> <br> <br></td> </tr> <tr> <td valign="top" width="120">Gruppe:<br> <input type="text" name="group" class="input"><br><br><br><input type="submit" value="Opret" class="knap"> <br> <br></td> <td valign="top"><i>Vælg mellem 1-4:<br>Gruppe 1 - Administrator<br>Gruppe 2 - Hold 1<br>Gruppe 3 - Hold 2<br>Gruppe 4 - Hold 3</i></td> </tr> </table> <br> <a href="overview.asp">Tilbage til oversigten</a> </form> <% End if closeConn() %>
12. april 2004 - 18:20
#2
Det virker ikke.. hvad har du ændret?
12. april 2004 - 18:23
#3
if strUsername = rs2("Username") Then til if strUser = rs2("Username") Then
12. april 2004 - 18:24
#4
Det virkede ikke... den skriver: Fejltype: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1. /workspace/log/adduser.asp, line 14
12. april 2004 - 18:33
#5
det er en fejl i din SQL-sætning SQL2 = "SELECT Userid, Username FROM Users WHERE Username= '" & strUser Set rs2 = connection.Execute(SQL2)
12. april 2004 - 18:33
#6
du mangler ' idet username er et tekstfelt
12. april 2004 - 18:36
#7
HEh... Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i strengen i forespørgselsudtrykket "Username= 're". /workspace/log/adduser.asp, line 14
12. april 2004 - 18:38
#8
SQL2 = "SELECT Userid, Username FROM Users WHERE Username= '" & strUser &"'" Set rs2 = connection.Execute(SQL2)
12. april 2004 - 18:39
#9
Fejltype: (0x80020009) Undtagelse opstod. /workspace/log/adduser.asp, line 16
12. april 2004 - 18:39
#10
hvad er linie 16?
12. april 2004 - 18:43
#11
if strUser = rs2("Username") Then
12. april 2004 - 18:47
#12
prøv at sætte dette ind i stedet for det du har: SQL2 = "SELECT Userid, Username FROM Users WHERE Username=" & strUser Set rs2 = connection.Execute(SQL2) if rs2.EOF then strDBUsername = "" else strDBUsername = rs2("Username") end if if strUser = strDBUsername Then
12. april 2004 - 19:23
#13
Fejltype: Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03F6) 'End' var ventet /workspace/log/adduser.asp, line 109
12. april 2004 - 19:24
#14
Min kode nu: <!-- #include file="conn.asp" --> <link rel="stylesheet" type="text/css" href="style.css"> <% strCmd = Request.QueryString("cmd") openConn() If strCmd = "addnew" Then strUserid = Request.Form("userid") strUser = replace(Request.Form("username")&"","'","''") SQL2 = "SELECT Userid, Username FROM Users WHERE Username=" & strUser Set rs2 = connection.Execute(SQL2) if rs2.EOF then strDBUsername = "" else strDBUsername = rs2("Username") end if if strUser = strDBUsername Then if strUser = rs2("Username") Then strErr = "Brugernavnet eksisterer allerede" Else strUsername = replace(Request.Form("username")&"","'","''") End if strPassword = replace(Request.Form("password")&"","'","''") strFullname = replace(Request.Form("fullname")&"","'","''") if len(Request.Form("redirect")) = 0 then strRedirect = "error.asp" Else strRedirect = replace(Request.Form("redirect")&"","'","''") end if strLastlogin = Request.Form("lastlogin") strLogintimes = replace(Request.Form("logintimes")&"","'","''") strGroup = replace(Request.Form("group")&"","'","''") strSQL = "INSERT INTO Users (" strSQL = strSQL & "[Username], " strSQL = strSQL & "[Password], " strSQL = strSQL & "[Fullname], " strSQL = strSQL & "[Redirect], " strSQL = strSQL & "Lastlogin, " strSQL = strSQL & "Logintimes, " strSQL = strSQL & "[Group]) " strSQL = strSQL & "values (" strSQL = strSQL & "'" & strUsername & "', " strSQL = strSQL & "'" & strPassword & "', " strSQL = strSQL & "'" & strFullname & "', " strSQL = strSQL & "'" & strRedirect & "', " strSQL = strSQL & "'" & Now & "', " strSQL = strSQL & "'" & 0 & "', " strSQL = strSQL & "'" & strGroup & "')" connection.Execute(strSQL) %> <h2>Brugeren er nu oprettet!</h2><br> <a href="overview.asp">Tilbage til oversigten</a> <% Else %> <form method="post" action="adduser.asp?cmd=addnew"> <table> <tr> <td colspan="2">Brugernavn:<br> <input type="text" name="username" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Adgangskode:<br> <input type="text" name="password" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Fuldt navn:<br> <input type="text" name="fullname" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Videresend:<br> <input type="text" name="redirect" class="input"> <br> <br></td> </tr> <tr> <td valign="top" width="120">Gruppe:<br> <input type="text" name="group" class="input"><br><br><br><input type="submit" value="Opret" class="knap"> <br> <br></td> <td valign="top"><i>Vælg mellem 1-4:<br>Gruppe 1 - Administrator<br>Gruppe 2 - Hold 1<br>Gruppe 3 - Hold 2<br>Gruppe 4 - Hold 3</i></td> </tr> </table> <br> <%=strErr%> <a href="overview.asp">Tilbage til oversigten</a> </form> <% End if closeConn() %>
13. april 2004 - 16:05
#15
<!-- #include file="conn.asp" --> <link rel="stylesheet" type="text/css" href="style.css"> <% strCmd = Request.QueryString("cmd") openConn() If strCmd = "addnew" Then strUserid = Request.Form("userid") strUser = replace(Request.Form("username")&"","'","''") SQL2 = "SELECT Userid, Username FROM Users WHERE Username=" & strUser & "'" Set rs2 = connection.Execute(SQL2) if rs2.EOF then strDBUsername = "" else strDBUsername = rs2("Username") end if if strUser = strDBUsername Then strErr = "Brugernavnet eksisterer allerede" Else strUsername = replace(Request.Form("username")&"","'","''") End if strPassword = replace(Request.Form("password")&"","'","''") strFullname = replace(Request.Form("fullname")&"","'","''") if len(Request.Form("redirect")) = 0 then strRedirect = "error.asp" Else strRedirect = replace(Request.Form("redirect")&"","'","''") end if strLastlogin = Request.Form("lastlogin") strLogintimes = replace(Request.Form("logintimes")&"","'","''") strGroup = replace(Request.Form("group")&"","'","''") strSQL = "INSERT INTO Users (" strSQL = strSQL & "[Username], " strSQL = strSQL & "[Password], " strSQL = strSQL & "[Fullname], " strSQL = strSQL & "[Redirect], " strSQL = strSQL & "Lastlogin, " strSQL = strSQL & "Logintimes, " strSQL = strSQL & "[Group]) " strSQL = strSQL & "values (" strSQL = strSQL & "'" & strUsername & "', " strSQL = strSQL & "'" & strPassword & "', " strSQL = strSQL & "'" & strFullname & "', " strSQL = strSQL & "'" & strRedirect & "', " strSQL = strSQL & "'" & Now & "', " strSQL = strSQL & "'" & 0 & "', " strSQL = strSQL & "'" & strGroup & "')" connection.Execute(strSQL) %> <h2>Brugeren er nu oprettet!</h2><br> <a href="overview.asp">Tilbage til oversigten</a> <% Else %> <form method="post" action="adduser.asp?cmd=addnew"> <table> <tr> <td colspan="2">Brugernavn:<br> <input type="text" name="username" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Adgangskode:<br> <input type="text" name="password" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Fuldt navn:<br> <input type="text" name="fullname" class="input"> <br> <br></td> </tr> <tr> <td colspan="2">Videresend:<br> <input type="text" name="redirect" class="input"> <br> <br></td> </tr> <tr> <td valign="top" width="120">Gruppe:<br> <input type="text" name="group" class="input"><br><br><br><input type="submit" value="Opret" class="knap"> <br> <br></td> <td valign="top"><i>Vælg mellem 1-4:<br>Gruppe 1 - Administrator<br>Gruppe 2 - Hold 1<br>Gruppe 3 - Hold 2<br>Gruppe 4 - Hold 3</i></td> </tr> </table> <br> <%=strErr%> <a href="overview.asp">Tilbage til oversigten</a> </form> <% End if closeConn() %>
29. juni 2004 - 15:45
#16
takker :)
29. juni 2004 - 15:50
#17
ehh... jeg kan overovedet ikke huske at have svaret på det her spørgmål :-/ ??? men fair nok ;-)
29. juni 2004 - 16:45
#18
Hehe.... :)
Kurser inden for grundlæggende programmering