asp - Passwod afhængigt tekstfelt - Udvikleren.dk - Programmering, webdesign og grafik

Tags: asp

Bruger #9630 @ 19.04.06 08:54

Hej Med jer.
Morten B Olsen har tidligere hjulpet mig med mit spørgsmål, men jeg har ikke fået skidtet til at virke endnu.

Her er mit issue:

Det jeg gerne vil er:
- Hvis forening AAA vælges skal der været kodeord som er "knallert"
- Hvis forening BBB vælges skal der være et kodeord som er "joe"
- Hvis kodeordet til pågældende forening er forkert skal man blive stående på siden som i øvrigt hedder foreningsmain.asp
- Hvis kodeordet til foreningen er rigtigt skal data sendes til databasen, og brugeren skal ledes videre til siden taktip.asp

Koden til min side jeg har i dag er følgende:

Kode

<%
' FP_ASP ASP, der er genereret automatisk af en FrontPage-komponent. Undlad at redigere.

On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
	Err.Clear

	Set fp_conn =  Server.CreateObject("ADODB.Connection")
	FP_DumpError strErrorUrl, "Der kan ikke oprettes forbindelse."

	Set fp_rs = Server.CreateObject("ADODB.Recordset")
	FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."

	fp_conn.Open Application("foreningsmain_ConnectionString")
	FP_DumpError strErrorUrl, "Databasen kan ikke åbnes."

	fp_rs.Open "Resultater", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
	FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."

	fp_rs.AddNew
	FP_DumpError strErrorUrl, "Der kan ikke føjes nye poster til databasen."
	Dim arFormFields0(11)
	Dim arFormDBFields0(11)
	Dim arFormValues0(11)

	arFormFields0(0) = "Forening"
	arFormDBFields0(0) = "Forening"
	arFormValues0(0) = Request("Forening")
	arFormFields0(1) = "username"
	arFormDBFields0(1) = "username"
	arFormValues0(1) = Request("username")
	arFormFields0(2) = "kamp1"
	arFormDBFields0(2) = "kamp1"
	arFormValues0(2) = Request("kamp1")
	arFormFields0(3) = "kamp2"
	arFormDBFields0(3) = "kamp2"
	arFormValues0(3) = Request("kamp2")
	arFormFields0(4) = "kamp3"
	arFormDBFields0(4) = "kamp3"
	arFormValues0(4) = Request("kamp3")
	arFormFields0(5) = "kamp4"
	arFormDBFields0(5) = "kamp4"
	arFormValues0(5) = Request("kamp4")
	arFormFields0(6) = "passwordtilforeningen"
	arFormDBFields0(6) = "passwordtilforeningen"
	arFormValues0(6) = Request("passwordtilforeningen")
	arFormFields0(7) = "kamp5"
	arFormDBFields0(7) = "kamp5"
	arFormValues0(7) = Request("kamp5")
	arFormFields0(8) = "kamp6"
	arFormDBFields0(8) = "kamp6"
	arFormValues0(8) = Request("kamp6")
	arFormFields0(9) = "kamp7"
	arFormDBFields0(9) = "kamp7"
	arFormValues0(9) = Request("kamp7")
	arFormFields0(10) = "kamp8"
	arFormDBFields0(10) = "kamp8"
	arFormValues0(10) = Request("kamp8")

	FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

	If Request.ServerVariables("REMOTE_HOST") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Navn_på_fjerncomputer"
	End If
	If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Webbrowsertype"
	End If
	FP_SaveFieldToDB fp_rs, Now, "Tidsstempel"
	If Request.ServerVariables("REMOTE_USER") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Brugernavn"
	End If

	fp_rs.Update
	FP_DumpError strErrorUrl, "Databasen kan ikke opdateres."

	fp_rs.Close
	fp_conn.Close

	Session("FP_SavedFields")=arFormFields0
	Session("FP_SavedValues")=arFormValues0
	Session.CodePage = Session("FP_OldCodePage")
	Session.LCID = Session("FP_OldLCID")
	Response.Redirect "../taktip.asp"

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
<!--#include file='includes/dbconnection.inc'--> 
<!--#include file='header.inc'--> 
<!--#include file='includes/settings.asp'--> 
<!--#include file='includes/title.asp'--> 
<!--#include file='activeusers.asp'-->
<% If Session("userAdmin") = 1 then %> 
<!--#include file='includes/adminmenu.inc'--> 
<% Else %> 
<!--#include file='includes/usersmenu.inc'--> 
<% End If %> 
<%
If Session("userGood") = False or IsNull(Session("userGood")) = True then
	Response.Redirect"foreningsdefault.asp"
End If
strUserName = Replace(Session("userName"), "'", "''")
userID = Clng(Session("userID"))
userAdmin = Replace(Session("userAdmin"), "'", "''")
Session("userID") = userID
%>
 <!--#include virtual="/inc/menu.htm"-->
<form method="POST" action="--WEBBOT-SELF--" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
	<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="foreningsmain" S-RecordSource="Resultater" U-Database-URL="../fpdb/foreningsmain.mdb" U-Confirmation-Url="../taktip.asp" S-Form-Fields="Forening username kamp1 kamp2 kamp3 kamp4 passwordtilforeningen kamp5 kamp6 kamp7 kamp8" S-Form-DBFields="Forening username kamp1 kamp2 kamp3 kamp4 passwordtilforeningen kamp5 kamp6 kamp7 kamp8" U-ASP-Include-Url="../_fpclass/fpdbform.inc" startspan S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER" S-Builtin-DBFields="Navn_på_fjerncomputer Webbrowsertype Tidsstempel Brugernavn" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="../_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="34604" -->
<div align="center">
						<table border="1" width="70%" bordercolordark="#000000" style="border-collapse: collapse">
							<tr>
								<td colspan="2" width="66%">
						<p align="center"><font face="Verdana">Velkommen</font>
						<select size="1" name="username">
						<option value="<% =strUserName %>" selected><% =strUserName %>
						</option>
						</select> <font face="Verdana">Så skal der tippes. Afgiv dine tip herunder...</font></p>
								</td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Kamp1: 
								Silkeborg - AC Horsens</font></td>
								<td width="33%">
								<!--webbot bot="Validation" s-display-name="Du skal tippe i kamp 1" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="kamp1">
						<option value="Vælg" selected>Vælg</option>
						<option value="1">1</option>
						<option value="X">X</option>
						<option value="2">2</option>
						</select></td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Kamp2: 
								FC København - SønderjyskE</font></td>
								<td width="33%">
								<!--webbot bot="Validation" s-display-name="Du skal tippe i kamp 2" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="kamp2">
						<option value="Vælg" selected>Vælg</option>
						<option value="1">1</option>
						<option value="X">X</option>
						<option value="2">2</option>
						</select></td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Kamp3: 
								Viborg - AGF</font></td>
								<td width="33%">
								<!--webbot bot="Validation" s-display-name="Du skal tippe i kamp 3" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="kamp3">
						<option value="Vælg" selected>Vælg</option>
						<option value="1">1</option>
						<option value="X">X</option>
						<option value="2">2</option>
						</select></td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Kamp4: AaB 
								- OB</font></td>
								<td width="33%">
								<!--webbot bot="Validation" s-display-name="Du skal tippe i kamp 4" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="kamp4">
						<option value="Vælg" selected>Vælg</option>
						<option value="1">1</option>
						<option value="X">X</option>
						<option value="2">2</option>
						</select></td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Kamp5: 
								FC Nordsjælland - FC Midtjylland</font></td>
								<td width="33%">
								<!--webbot bot="Validation" s-display-name="Du skal tippe i kamp 5" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="kamp5">
						<option value="Vælg" selected>Vælg</option>
						<option value="1">1</option>
						<option value="X">X</option>
						<option value="2">2</option>
						</select></td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Kamp6: 
								Brøndby IF - Esbjerg fB</font></td>
								<td width="33%">
								<!--webbot bot="Validation" s-display-name="Du skal tippe i kamp 5" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="kamp6">
						<option value="Vælg" selected>Vælg</option>
						<option value="1">1</option>
						<option value="X">X</option>
						<option value="2">2</option>
						</select></td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Kamp7: 
								Aston Villa - Birmingham</font></td>
								<td width="33%">
								<!--webbot bot="Validation" s-display-name="Du skal tippe i kamp 5" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="kamp7">
						<option value="Vælg" selected>Vælg</option>
						<option value="1">1</option>
						<option value="X">X</option>
						<option value="2">2</option>
						</select></td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Kamp8: 
								Blackburn - Liverpool</font></td>
								<td width="33%">
								<!--webbot bot="Validation" s-display-name="Du skal tippe i kamp 5" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="kamp8">
						<option value="Vælg" selected>Vælg</option>
						<option value="1">1</option>
						<option value="X">X</option>
						<option value="2">2</option>
						</select></td>
							</tr>
							<tr>
								<td width="66%"> </td>
								<td width="33%">
								 </td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Jeg tipper 
								i ligaen</font></td>
								<td width="33%">
								 <!--webbot bot="Validation" s-display-name="Forening" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="Forening">
								<option value="Vælg liga">Vælg liga
								</option>
								<option value="OldTrafford.dk Forum">OldTrafford.dk Forum
								</option>
								<option value="Luxus-Ligaen">Luxus-Ligaen
								</option>
								</select></td>
							</tr>
							<tr>
								<td width="66%"><font face="Verdana">Password 
								til ligaen:</font></td>
								<td width="33%">
								 <!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="2" i-maximum-length="20" --><input type="password" name="passwordtilforeningen" size="20" maxlength="20"></td>
							</tr>
						</table>
						</div>
						<p align="center"><font face="Verdana"> </font><input type="submit" value="Send" name="B3"><input type="reset" value="Nulstil" name="B4"></p>
					<p> </p>
</form>
					<p align="center"> </p>
<center><table><tr><td><a href=http://www.supertipsligaen.dk target=_new><img src=images/poweredby.gif alt='Powered By ASP Login' border=0></a></td></tr></table></center>
<!--#include file='footer.inc'-->







<p> </p>

Koden i Mortens forslag er følgende:

Kode

<%if Request.ServerVariables("REQUEST_METHOD") = "POST" then

	dim forening, password
	forening = Request.Form("forening")
	password = Request.Form("password")

	If forening = "AAA" then
		if password = "Knallert" then
			<-- Her skal du sætte koden ind til at sende data til databasen -->
			Response.redirect ("taktip.asp")
		else
			Response.Write ("<b>Koden er forkert</b>")	
		end if
	Elseif forening = "BBB" then
		if password = "Joe" then
			<-- Her skal du sætte koden ind til at sende data til databasen -->
			Response.redirect ("taktip.asp")
		else
			Response.Write ("<b>Koden er forkert</b>">
		end if		
	end if
	
ELSE%>
	<form method="POST" action="foreningsmain.asp">
		Vælg forening her:
		<select size="1" name="forening">
			<option value="Vælg forening">Vælg forening</option>
			<option value="AAA">Forening AAA</option>
			<option value="BBB">Forening BBB</option>
		</select>
		<BR><BR>
		Password til foreningen: <input type="password" name="kode" size="20">
		<BR>
		<input type="submit" value="Send" name="B1">
	</form>
<%END IF%>

Det jeg tror kludrer op for mig er delen med at indsætte koden ind til at sende data til databasen.

3 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #8817 @ 20.04.06 06:37

Du har brugt Frontpage til at lave din kode og det kan man ikke redigere i. For hver gang du åbner filen i Frontpage og gemmer evt. ændringer, vil programmet automatisk lave koden om til dens egen. Derfor kan man ikke redigere i det. Jeg vil derimod sige at du kunne bruge den her kode

<%
strMode = Request.Querystring("mode")

SELECT CASE strMode
CASE "log"
'Din database, måske includes/dbconnection.inc

strBrugernavn = Trim(Replace(Request.Form("brugernavn"),"'","''"))
strAdgangskode = Trim(Replace(Request.Form("adgangskode"),"'","''"))

Set rs = Conn.Execute("SELECT * FROM din_tabel WHERE brugernavn_felt = '" & strBrugernavn & " AND adgangskode_felt = '" & strAdgangskode & "'")
IF NOT (rs.BOF OR rs.EOF) THEN
arFormValues1 = Request("Forening")
arFormValues2 = Request("kamp1")
arFormValues3 = Request("kamp2")
arFormValues4 = Request("kamp3")
arFormValues5 = Request("kamp4")
arFormValues7 = Request("kamp5")
arFormValues8 = Request("kamp6")
arFormValues9 = Request("kamp7")
arFormValues10 = Request("kamp8")

Conn.Execute("INSERT INTO din_tabel (forening, kamp1, kamp2, kamp3, kamp4, kamp5, kamp6, kamp7, kamp8,) VALUES('" & arFormValues1 & "','" & arFormValues2 & "','" & arFormValues3 & "','" & arFormValues4 & "','" & arFormValues5 & "','" & arFormValues6 & "','" & arFormValues7 & "','" & arFormValues8 & "')")

Response.Redirect "taktip.asp"
ELSE
Response.Redirect "foreningsmand.asp"
END IF
CASE "log_off"
Session.Abandon
Response.Redirect "foreningsmand.asp"
CASE ELSE
%>
<form method="POST" action="?">
<div align="center">
<table border="1" width="70%" bordercolordark="#000000" style="border-collapse: collapse">
<tr>
<td colspan="2" width="66%">
<p align="center"><font face="Verdana">Velkommen</font>
<select size="1" name="brugernavn">
<option selected>-- Vælg --</option>
<option value="AAA">AAA</option>
<option value="BBB">BBB</option>
</select> <font face="Verdana">Så skal der tippes. Afgiv dine tip herunder...</font></p>
</td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Kamp1:
Silkeborg - AC Horsens</font></td>
<td width="33%">
<select size="1" name="kamp1">
<option value="Vælg" selected>Vælg</option>
<option value="1">1</option>
<option value="X">X</option>
<option value="2">2</option>
</select></td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Kamp2:
FC København - SønderjyskE</font></td>
<td width="33%">
<select size="1" name="kamp2">
<option value="Vælg" selected>Vælg</option>
<option value="1">1</option>
<option value="X">X</option>
<option value="2">2</option>
</select></td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Kamp3:
Viborg - AGF</font></td>
<td width="33%">
<select size="1" name="kamp3">
<option value="Vælg" selected>Vælg</option>
<option value="1">1</option>
<option value="X">X</option>
<option value="2">2</option>
</select></td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Kamp4: AaB
- OB</font></td>
<td width="33%">
<select size="1" name="kamp4">
<option value="Vælg" selected>Vælg</option>
<option value="1">1</option>
<option value="X">X</option>
<option value="2">2</option>
</select></td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Kamp5:
FC Nordsjælland - FC Midtjylland</font></td>
<td width="33%">
<select size="1" name="kamp5">
<option value="Vælg" selected>Vælg</option>
<option value="1">1</option>
<option value="X">X</option>
<option value="2">2</option>
</select></td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Kamp6:
Brøndby IF - Esbjerg fB</font></td>
<td width="33%">
<select size="1" name="kamp6">
<option value="Vælg" selected>Vælg</option>
<option value="1">1</option>
<option value="X">X</option>
<option value="2">2</option>
</select></td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Kamp7:
Aston Villa - Birmingham</font></td>
<td width="33%">
<select size="1" name="kamp7">
<option value="Vælg" selected>Vælg</option>
<option value="1">1</option>
<option value="X">X</option>
<option value="2">2</option>
</select></td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Kamp8:
Blackburn - Liverpool</font></td>
<td width="33%">
<select size="1" name="kamp8">
<option value="Vælg" selected>Vælg</option>
<option value="1">1</option>
<option value="X">X</option>
<option value="2">2</option>
</select></td>
</tr>
<tr>
<td width="66%"> </td>
<td width="33%">
</td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Jeg tipper
i ligaen</font></td>
<td width="33%">
<select size="1" name="Forening">
<option value="Vælg liga">Vælg liga
</option>
<option value="OldTrafford.dk Forum">OldTrafford.dk Forum</option>
<option value="Luxus-Ligaen">Luxus-Ligaen
</option>
</select></td>
</tr>
<tr>
<td width="66%"><font face="Verdana">Password
til ligaen:</font></td>
<td width="33%">
<input type="password" name="adgangskode" size="20" maxlength="20"></td>
</tr>
</table>
</div>
<p align="center"><font face="Verdana"> </font><input type="submit" value="Send" name="B3"><input type="reset" value="Nulstil" name="B4"></p>
<p> </p>
</form>
<%
END SELECT
%>

Bruger #8817 @ 20.04.06 06:39

Der er lige en fejl
Ret <form method="POST" action="?">
til: <form method="POST" action="?mode=log">

...er dine foreningsoplysinger, altså foreningsnavn og tilhørende kdode, i en database?

Bruger #9630 @ 24.04.06 06:47

Hej Faran.
Tak for dit svar.
Ja det ligger i en database

Passwod afhængigt tekstfelt

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler