שלח תשובה

זירת השאלות

482
צפיות
5
תשובות

עזרה בכניסת משתמשים

,‏ 21 במאי, 2004

שלום לכולם אני מנסה לעשות כניסת משתמשים שלמעלה יהיה כתוב
מי מחובר אז עשיתי דבר כזה
זה הקוד שמשנה את המשתנה שאני רוצה להציג שבתוכו יהיה את השם
כול הקוד באותו דף!

<%
dim user,password
user=Request.Form ("user")
password=Request.Form ("password")
if user<>"" and password<>"" then
sql="select * from users where user='" & user & "' and password=" & password & " "
set rs=server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn
if rs.eof and rs.bof then
hel="אורח"
else
hel=rs("user")
end if
else
hel="אורח"
end if
rs.close
set rs=nothing
%>


החלק ששולח את הנתונים

<form method=post>
<tr>
<td width="150" height="20" align="center" class=upnews >כניסת משתמשים</td>
</tr>
<tr><td><font size=1 face=arial>
<b>
שם משתמש:
</b>
<font size=2> <br> </font>
<input type=text name=user size=17 />
</td></tr>
<tr><td><font size=1 face=arial>
<b>
סיסמה:
</b>
<font size=2> <br> </font>
<input type=password name=password size=17 />
</td></tr>
<tr>
<td><input type=submit class=but value=כניסה />&nbsp&nbsp&nbsp&nbsp
</tr>
</form>


החלק שמדפיס את הנתונים

<table width=100% align=center>
<tr>
<td>שלום:&nbsp <% Response.Write " " & hel & " " %> &nbsp&nbsp&nbsp </td>
</tr>
</table>





תגיות:

5 תשובות

  1. sirob הגיב:
    21 במאי, 2004 בשעה 6:23 pm

    מה הבעיה עם זה?

  2. xgamer הגיב:
    21 במאי, 2004 בשעה 7:11 pm

    שהוא לא מבצע לי את זה כאילו לא…..
    שהוא לא מבצע לי את זה ולא נותן שגיאה כאילו תמיד הוא רושם אורח

  3. xgamer הגיב:
    22 במאי, 2004 בשעה 2:23 pm

    אני מקווה שתעזרו לי ויש לי עוד שאלה
    איך אני עושה בשאילת שאני רוצה לקחת מעמודה כלשהי את ה50 תווים הראשונים
    ולא את כל השאר
    ובקשר לשאלה הראשונה אני עדיין ממתין
    תודה…

  4. xgamer הגיב:
    22 במאי, 2004 בשעה 2:50 pm

    אוקיי הבנתי מה לא טוב בראשון אבל…
    אני לא מצליח לסדר את זה
    אני רוצה לעשות שאילתה כזו
    שתקח מהמסד את מי שהשם משתמש שלו והסיסמה נקלטו
    ואז לשים את המשמש בסיישן כי ככה הוא ישמר
    אז אני עשיתי דבר כזה וזה עדיין לא עובד
    זה נותן לי שגיאה שיש קצת פרמטרים מישהו יכול לעזור לי ?


    <%@ Language=VBScript %>
    <%
    dim conn,rs,sql
    %>
    <!– #include file="dsn.asp" –>
    <%
    dim user,password
    user=Request.Form ("user")
    password=Request.Form ("password")
    if user<>"" and password <>"" then
    sql="select * from users where user=" & user & " and password=" & password & ""
    set rs=server.CreateObject ("ADODB.Recordset")
    rs.Open sql,conn
    if rs.EOF and rs.BOF then
    session("user")="אורח"
    else
    session("user")=rs("user")
    end if
    else
    session("user")="אורח"
    end if
    %>
    <html dir=rtl>
    <body>
    <form method=post>
    <tr>
    <td width="150" height="20" align="center" class=upnews >כניסת משתמשים</td>
    </tr>
    <tr><td><font size=1 face=arial>
    <b>
    שם משתמש:
    </b>
    <font size=2> <br> </font>
    <input type=text name=user size=17 />
    </td></tr>
    <tr><td><font size=1 face=arial>
    <b>
    סיסמה:
    </b>
    <font size=2> <br> </font>
    <input type=password name=password size=17 />
    </td></tr>
    <tr>
    <td><input type=submit class=but value=כניסה />&nbsp&nbsp&nbsp&nbsp
    </tr>
    </form>
    <%
    Response.Write session("user")
    %>
    </body>
    </html>

  5. ניר טייב הגיב:
    22 במאי, 2004 בשעה 4:18 pm

    משתמשים בפונקציה הבאה
    LEFT
    משתמשים בהם כמו ב-VBS ואז נותנים לשדה ALIAS…

    SELECT LEFT(fld1, 50) AS fld50Char FROM tbl

שלח תשובה

הכנס כדי לשלוח תשובה