רוטר - שאללה בקשר לASP וSESSION

האשכול	מחבר	תאריך כתיבה	מספר
אני לא בטוח שהבנתי אותך אבל	ronen333	05.06.07 21:15	1
לא לזה התכוונתי התכוונתי פשוט	nsigns	05.06.07 22:09	2
נו אתה יכול גם לשלוף את השם משתמש מהID בDB	ronen333	06.06.07 08:23	4
אחי...	MeToR	06.06.07 01:20	3

האשכול

מחבר

תאריך כתיבה

מספר

אני לא בטוח שהבנתי אותך אבל

ronen333

05.06.07 21:15

לא לזה התכוונתי התכוונתי פשוט

nsigns

05.06.07 22:09

נו אתה יכול גם לשלוף את השם משתמש מהID בDB

ronen333

06.06.07 08:23

אחי...

MeToR

06.06.07 01:20

<html dir="rtl">
<head>
<%@ Language="VBScript" codepage=1255%>
<title>בדיקת התחברות</title>
<link rel="stylesheet" type="text/css" href="styles.css">
</head>
<body>

<% If Request.Form("nick")<>"" And Request.Form("pass")<>"" Then %>

<%
nick=Request.Form("nick")
pass=Request.Form("pass")
%>

<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\rishum.mdb;" & _
"Uid=admin;" & _
"Pwd=;"

sql="SELECT * FROM table1 WHERE fname='" & nick & "' AND dpass='" & pass & "'"
rs.Open sql, oConn, 3, 3
%>

<% If rs.EOF Then %>
<center>

<font color=red>השם משתמש או הסיסמה אינם נכונים.</font>

<br>

<a href="http://users1.nofeehost.com/aviad/login.html">
לחץ כאן על מנת לנסות להתחבר שנית
</a>
</center>
<% Else %>

<% Session("ID")=rs.fields("id") %>
<% Response.redirect("http://users1.nofeehost.com/aviad/") %>

<% End If %>

<%
rs.Close
oConn.Close
Set rs=nothing
Set oConn= nothing
%>

<% Else %>

<center>
אנא הכנס שם משתמש וסיסמה.
<br>
<a href="http://users1.nofeehost.com/aviad/login.html">
לחץ כאן כדי לחזור לדף ההתחברות.
</a>
</center>

<% End If %>

</body>
</html>

<% found_member=Session("ID") %>
<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set tableRs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
				   "Dbq= D:\content\users1\aviad\db\rishum.mdb;" & _
                                   "Uid=admin;" & _
                                   "Pwd=;"
mySql= "Select * From table1 WHERE id=('"&found_member&"')"
tableRs.Open mySql, oConn,3,3
%>
<% nick_user=tableRs.fields("fname") %>
<% email_user=tableRs.fields("email") %>
<% pass_user=tableRs.fields("dpass") %>
<%
tableRs.Close
oConn.Close
Set tableRs=nothing
Set oConn= nothing
%>
<br>
<div align=center>
<form action="http://users1.nofeehost.com/aviad/change_profile.asp" method="post" name="myform" onsubmit="return check_mail();">
<table border=0 width="779" background="panelpic/tab04.gif">
<tr>
<td width="768" colspan="2">
<h1>
<% =nick_user %>
,ברוך הבא לפרופיל
</h1>
</tr>
</td>
<tr>
<td width="100">
איימל:</td>
<td width="663">
<input type="text" value="<% =email_user %>" name="Dmail" size="20"></td>
</tr>
<tr>
<td width="100">
סיסמה נוחכית:</td>
<td width="663">
<input type="password" name="pass_p1" size="20"></td>
</tr>
<tr>
<td width="100">
סיסמה חדשה: 
</td>
<td width="663">
<input type="password" name="pass_p2" size="20"></td>
</tr>
<tr>
<td width="768" colspan="2">
<input type="submit" value="עדכן פרופיל">
<input type="reset" value="אפס">
</td>
</tr>
<tr>
<td width="768" colspan="2">
<font color=red size="2"><b>
הערה:על מנת לשנות את האיימל עליכם לאמת את הסיסימה, במידה ואינכם רוצים לשנות סיסמה פשוט הקלידו את היססמה הנוכחית שלכם כסיסמה חדשה.
</b>
</font>
</table>
</form>
</div>