לוגו אתר Fresh          
 
 
  אפשרות תפריט  ראשי     אפשרות תפריט  צ'אט     אפשרות תפריט  מבזקים     אפשרות תפריט  צור קשר     חץ שמאלה ברוכים הבאים לפורום ASP חץ ימינה  

לך אחורה   לובי הפורומים > מחשבים > ASP
רענן עמוד זה [מדריך]איך לבנות מערכת הרשמה היתחברות מנהלים וטפרית לנירשם
שמור לעצמך קישור לדף זה באתרי שמירת קישורים חברתיים
« לאשכול הקודם | לאשכול הבא »
 
כלי אשכול חפש באשכול זה



  #1  
ישן 18-01-2006, 19:35
  talora55 talora55 אינו מחובר  
 
חבר מתאריך: 07.01.06
הודעות: 37
[מדריך]איך לבנות מערכת הרשמה היתחברות מנהלים וטפרית לנירשם
אני כאן ילמד אותכם איך ליבנות מערכת בASP של נירשמים ולכל נירשם יהיה טפרית ויהיה דף מנהל שהוא יוכל לימחוק משתמשים ולערוך להם את הפרטים!

טוב שלב ראשון:
דף הרשמה לאתר:
צרו קובץ בשם: Register.asp

תערכו אותו ותירשמו בתוכו את הקוד הבאה:

קוד:
 
<%@Language=VBScript codepage=1255%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>הרשמה לאתר</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial"><B>
<%
'בדיקה עם המשתמש מחובר עכשיו ועם הוא מחובר אז הוא לא יכול להרשם
if session("user")="GOOD" then
%>
אתה כבר רשום לאתר.
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<%
else
%>
<!--משנה כפתור בלחיצה-->
<Script Language="JavaScript">
function doit()
{
document.getElementById("formID").submit();
}
</Script>
<!--כותרת-->
<font style="font-size:15pt;" face="arial">
<U>הרשמה לאתר</U>
</font><br><br><br>
<!--טופס-->
<form id="formID" method="post" action="registerafter.asp" name="register"> 
<TABLE BORDER="0">
<TR>
<TD>שם משתמש: <FONT COLOR="#FF0000" >*</FONT></TD>
<TD><INPUT NAME="username" MAXLENGTH="10"></TD>
<TD></TD>
</TR>
<TR>
<TD>סיסמה: <FONT COLOR="#FF0000" >*</FONT></TD>
<TD><INPUT NAME="password" type="password" MAXLENGTH="15"></TD>
<TD></TD>
</TR>
<TR>
<TD>כתובת אימייל: <FONT COLOR="#FF0000" >*</FONT></TD>
<TD><input name="email" MAXLENGTH="40" dir="ltr"></TD>
<TD></TD>
</TR>
<TR>
<TD>מספר ICQ: </TD>
<TD><input name="icq" MAXLENGTH="10" dir="ltr"></TD>
<TD></TD>
</TR>
<TR>
<TD>כתובת אתרך: </TD>
<TD><INPUT NAME="website" MAXLENGTH="250" dir="ltr"></TD>
<TD><font style="font-size:9pt;" face="arial">//:http</font></TD>
</TR>
<TR>
<TD>שם פרטי: </TD>
<TD><INPUT NAME="name" MAXLENGTH="10"></TD>
<TD><font style="font-size:9pt;" face="arial">(אמיתי)</font></TD>
</TR>
<TR>
<TD>שם משפחה: </TD>
<TD><INPUT NAME="secname" MAXLENGTH="10"></TD>
<TD><font style="font-size:9pt;" face="arial">(אמיתי)</font></TD>
</TR>
<TR>
<TD>תמונה אישית:</TD>
<TD><INPUT NAME="pic" MAXLENGTH="250" dir="ltr"></TD>
<TD><font style="font-size:9pt;" face="arial">//:http</font></TD>
</TR>
<TR>
<TD>מין: </TD>
<TD><SELECT NAME="sex"><OPTION>-</OPTION><OPTION>זכר</OPTION><OPTION>נקבה</OPTION></SELECT></TD>
<TD></TD>
</TR>
<TR>
<TD>תאריך לידה: </TD>
<TD><INPUT NAME="birthday" MAXLENGTH="10" dir="ltr"></TD>
<TD><font style="font-size:9pt;" face="arial">דוגמא: 20/10/90</font></TD>
</TR>
</TABLE>
<BR><BR>
<input type="submit" value="הרשם לאתר!" Onclick="doit();this.disabled='true'"> <input type="reset" value="נקה">
</form>
</b>
<FONT COLOR="#FF0000" >*</FONT><font style="font-size:9pt;" face="arial"> = חובה למלא</font>
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<%
end if
%>


ותישמרו.
שלב שני:
היתחברות לאתר:
צרו קובץ בשם: Login.asp
תערכו אותו ותירשמו בתוכו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>התחברות לאתר</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial"><B>
<!--כותרת-->
<font style="font-size:15pt;" face="arial">
<U>התחברות לאתר</U>
</font><br><br><br>
<!--טופס-->
<form name="form1" action="loginafter.asp" method="post">
<TABLE BORDER="0">
<TR>
<TD>שם משתמש:</TD>
<TD><INPUT name="txtName" class="do" value="<%=Session("username_freeasp")%>"></TD>
</TR>
<TR>
<TD>סיסמה:</TD>
<TD><INPUT TYPE="password" name="txtPassword" class="do"></TD>
</TR>
</TABLE><BR>
<INPUT TYPE="SUBMIT" VALUE="התחבר" name="submit1">
<INPUT TYPE="RESET" VALUE="נקה">
</form>
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->


תישמרו ותיצאו!

שלב שלוש:
עריכת כרטיס אישי:
צרו קובץ בשם: EditUser.asp
ערכו אותו ותירשמו בו את הקוד:
קוד:
 
<%@Language=VBScript codepage=1255%>
<%
'בודק עם המשתמש מחובר
if session("user")="GOOD" then
%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>עריכת פרטים</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial"><B>
<!--כותרת-->
<br>
<font style="font-size:15pt;" face="arial">
<U>עריכת פרטים</U>
</font><br><br><br>
<!--משנה כפתור בלחיצה-->
<Script Language="JavaScript">
function doit()
{
document.getElementById("formID").submit();
}
</Script>
<!--טופס-->
<%
'הצגה מהדטה בייס של הפרטים הישנים
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM users WHERE username='"&session("username")&"'"
Set RS = MyConn.Execute(SQL_query) 
WHILE NOT RS.EOF
%>
<form id="formID" name="EditUser" action="EditUserAfter.asp" method="post">
<TABLE BORDER="0">
<TR>
<TD>שם משתמש: <FONT COLOR="#FF0000" >*</FONT></TD>
<TD><b><%=Session("username_freeasp")%></b></TD>
<TD></TD>
</TR>
<TR>
<TD>סיסמה: <FONT COLOR="#FF0000" >*</FONT></TD>
<TD><INPUT NAME="password" type="password" MAXLENGTH="15" VALUE="<%=RS("password")%>"></TD>
<TD><font style="font-size:9pt;" face="arial">(חדשה)</font></TD>
</TR>
<TR>
<TD>כתובת אימייל: <FONT COLOR="#FF0000" >*</FONT></TD>
<TD><input name="email" MAXLENGTH="40" dir="ltr" VALUE="<%=RS("email")%>"></TD> 
<TD></TD>
</TR>
<TR>
<TD>מספר ICQ: </TD>
<TD><input name="icq" MAXLENGTH="10" dir="ltr" VALUE="<%=RS("icq")%>"></TD>
<TD></TD>
</TR>
<TR>
<TD>כתובת אתרך: </TD>
<TD><INPUT NAME="website" MAXLENGTH="250" dir="ltr" VALUE="<%=RS("website")%>"></TD>
<TD><font style="font-size:9pt;" face="arial">//:http</font></TD>
</TR>
<TR>
<TD>שם פרטי: </TD>
<TD><INPUT NAME="name" MAXLENGTH="10" VALUE="<%=RS("name")%>"></TD>
<TD><font style="font-size:9pt;" face="arial">(אמיתי)</font></TD>
</TR>
<TR>
<TD>שם משפחה: </TD>
<TD><INPUT NAME="secname" MAXLENGTH="10" VALUE="<%=RS("secname")%>"></TD>
<TD><font style="font-size:9pt;" face="arial">(אמיתי)</font></TD>
</TR>
<TR>
<TD>תמונה אישית:</TD>
<TD><INPUT NAME="pic" MAXLENGTH="250" VALUE="<%=RS("pic")%>" dir="ltr"></TD>
<TD><font style="font-size:9pt;" face="arial">//:http</font></TD>
</TR>
<TR>
<TD>מין: </TD>
<TD><SELECT NAME="sex"><OPTION>-</OPTION><OPTION>זכר</OPTION><OPTION>נקבה</OPTION></SELECT></TD>
<TD></TD>
</TR>
<TR>
<TD>תאריך לידה: </TD>
<TD><INPUT NAME="birthday" MAXLENGTH="10" dir="ltr" VALUE="<%=RS("birthday")%>"></TD>
<TD><font style="font-size:9pt;" face="arial">דוגמא: 20.10.90</font></TD>
</TR>
</TABLE>
<br><br>
<INPUT TYPE="SUBMIT" VALUE="עדכן פרטים" Onclick="doit();this.disabled='true'">
<INPUT TYPE="RESET" VALUE="נקה">
</form>
<%
RS.MoveNext
WEND
%>
<FONT COLOR="#FF0000" >*</FONT><font style="font-size:9pt;" face="arial"> = חובה למלא</font>
 
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->
<%
'עם לא מחובר הוא עובר לדף הזה..
else
Response.Redirect "Und2Cnct.asp"
end if
%>

תיצאו ותישמרו!

שלב ארבע:
חברי האתר:
צרו קובץ בשם: UserList.asp
ערכו אותו ותנו לו את הקוד:
קוד:

<%@Language=VBScript codepage=1255%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>רשימת חברי האתר</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial"><B>
<!--כותרת-->
<font style="font-size:15pt;" face="arial">
<U>רשימת חברי האתר</U>
</font><BR><BR><BR>
<!--הצגה-->
<TABLE BORDER="1" width="100%">
<TR>
<TD align="center"><B>שם משתמש</CENTER></B></TD>
<TD align="center"><B>אתר אישי</B></TD>
<TD align="center"><B>שם</B></TD>
<TD align="center"><B>מין</B></TD>
</TR>
<%
'הצגה מהדטה בייס
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM users ORDER BY id DESC"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
<TR>
<TD><A HREF="usercard.asp?username=<%=RS("username")%>" title="לחץ על השם משתמש כדי לראות עוד פרטים עליו, לראות תמונה (עם יש) ולשלוח הודעה פרטית"><%=RS("username")%></A></TD>
<TD>
<A HREF="http://<%=RS("website")%>" TARGET="_blank">
<%
'עושה שלוש נקודות עם הכתובת של האתר ארוכה מדי
website = RS("website")
IF LEN(website)>10 THEN
website = LEFT(website,10) & "..."
END IF
response.write website
%></A>&nbsp;
</TD>
<TD><%=RS("name")%> <%=RS("secname")%>&nbsp;</TD>
<TD><%=RS("sex")%></TD>
</TR>
<%
RS.MoveNext
WEND
%>
</TABLE>
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->

צאו ותישמרו!

שלב חמש:
הודעה אישית:
צרו קובץ בשם: MsgRead.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
 
<%
'בודק עם מחובר
if session("user")="GOOD" then
%>
 
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
 
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
 
<!--תגי מטא-->
<title>הודעות אישיות</title>
</HEAD>
 
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial"><B>
 
<!--כותרת-->
 
<font style="font-size:15pt;" face="arial">
<U>הודעות אישיות</U>
</font><BR><BR>
 
<%
'סופר כמה הודעות יש לך
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb") 
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
sql="select count(*) as MSG from MSG WHERE sendto='"& session("username") &"'"
Set RS = MyConn.Execute(sql)
WHILE NOT RS.EOF
%>
</b>יש לך <b><%=RS("msg")%></b> הודעות פרטיות<b>
<%
RS.MoveNext
WEND
%>
 
<BR>
 
<!--הצגה-->
 
<form method="post" action="MsgDelete.asp">
<P ALIGN=RIGHT>
<TABLE BORDER="0">
 
<%
'מתחבר לדטה בייס כדי להציג הודעות
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM msg WHERE sendto='"& session("username") &"' ORDER BY id DESC"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
 
<tr>
<td nowrap><b>סמן כדי למחוק:</b></td>
<td nowrap><input type="checkbox" name="toDel" value="<%=rs("ID")%>"></td>
</tr>
<TR>
<TD nowrap><b>נושא ההודעה:</b></TD>
<TD><%=RS("title")%></TD>
</TR>
<TR>
<TD nowrap><b>נשלח ע"י:</b></TD>
<TD nowrap><A HREF="UserCard.asp?username=<%=RS("sendfrom")%>"><%=RS("sendfrom")%></TD>
</TR>
<TR>
<TD valign="top" nowrap><b>תוכן ההודעה:</b></TD>
<TD><TABLE BORDER="2"><TR><TD BGCOLOR="#FFFFFF" style="Word-Wrap:Break-word" width="200" height="100"><%=RS("msgbody")%></TD></TR></TABLE></TD>
</TR>
<TR>
<TD nowrap><b>קישור בהודעה:</b></TD>
<TD nowrap><A HREF="http://<%=RS("link")%>" TARGET="_blank">http://<%
'מקצר כתובת
link = RS("link")
 
IF LEN(link)>20 THEN
link = LEFT(link,15) & "..."
END IF
response.write link
%></A></TD>
</TR>		 
<TR>
<TD valign="top" nowrap><b><A HREF="msgsend.asp?username=<%=RS("sendfrom")%>&nose=RE:<%=RS("title")%>">שליחת תגובה</A></b></TD>
<TD></TD>
</TR>
<TR>
<td><br><br></td>
</tr>
 
<%
RS.MoveNext
WEND
%>
 
</TABLE>
</P>
 
<input type="submit" value="מחק הודעות מסומנות">
</form> 
 
<A HREF="MsgSend.asp">לחץ כאן כדי לשלוח הודעה חדשה</A>
 
<!--סיום-->
 
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
 
<!--סוף-->
 
<%
'מעביר דף עם לא מחובר
else
Response.Redirect "Und2Cnct.asp"
end if
%>


צאו ותישמרו

שלב שש:
התיתנתקות מהאתר:
צרו קובץ בשם: Logout.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
 
<%
'מוחק את כל הסיישנים של האתר ומעביר דף
 
session.contents.remove("user")
session.contents.remove("username")
 
Response.Redirect "login.asp"
%>


צאו ותישמרו!

שלב שבע:
אחרי ההתחברות:
צרו קובץ בשם: LoginAfter.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<% 
'בודק עם הסיסמה והשם משתמש נכונים
Dim CorrectDetails 
Set conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") 
Set rs1 = Server.CreateObject("ADODB.Recordset") 
SQL1 = "SELECT * FROM users" 
rs1.Open SQL1, conn, 1, 1 
for index=1 to rs1.recordcount 
if request.form("txtName") = rs1("username") and request.form("txtPassword") = rs1("Password") then CorrectDetails = 1 
rs1.movenext 
next 
if CorrectDetails <> 1 then 
'מעביר לדף המתאים ונותן סיישן מתאים
Response.Redirect "login.asp"
else
Session("user")="GOOD"
Session("username")=request.form("txtName")
Response.Redirect "index.asp"
end if
%>


צאו ותישמרו!

שלב שמונה:
אחרי העריכה של המשתמש:
צרו קובץ בשם: EditUserAfter.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
<%
'בודק עם מחובר
if session("user")="GOOD" then
%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>עדכון פרטים</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial">
<!--הוספה לדטה בייס או הודעה-->
<%
On Error Resume Next
'מחליף קודים לACSII
Function strFormat(str)
	If IsEmpty(str) or IsNull(str) Then Exit Function
	Str = Replace(str,"<","&lt;")
	Str = Replace(str,">","&gt;")
	Str = Replace(str,"'","'")
	Str = Replace(str,"""","&quot;")
	Str = Replace(str,chr(13),"<br>")
	strFormat = str
End Function 
'מעדכן את הפרטים בדטה בייס
Dim objConn, ConnString, SQL_query
Set objConn = Server.CreateObject("ADODB.Connection")
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db.mdb") & ";"
objConn.open ConnString
SQL_query = "UPDATE users SET [password]='" & request.form("password") & "', email='" & strFormat(request.form("email")) & "', icq='" & strFormat(request.form("icq")) & "', website='" & strFormat(request.form("website")) & "', name='" & strFormat(request.form("name")) & "', secname='" & strFormat(request.form("secname")) & "', pic='" & strFormat(request.form("pic")) & "', sex='" & strFormat(request.form("sex")) & "', birthday='" & strFormat(request.form("birthday")) & "' WHERE username='"& session("username") &"'"
objConn.execute(SQL_query)
'נותן הודעה מתאימה
If Err<>0 Then
response.write ("<u><b><font style=""font-size:15pt;"" face=""arial"">שגיאה!</font></b></u><br><br>")
response.write ("נסה למלות את כל פרטי החובה (סיסמה ואימייל).<br><br>")
response.write ("עם כבר ניסיתה הכל ועדיין אתה לא מצליך לערוך את הפרטים שלך, צור קשר עם מנהל האתר.<br><br>")
response.write ("<br><a href=""javascript:history.back(1)"">חזרה</a>")
else
response.write ("<u><b><font style=""font-size:15pt;"" face=""arial"">פרטיך עודכנו בהצלחה!</font></b></u><br><br>")
response.write ("<a href=""UserCard.asp?username="& session("username_freeasp") &""">לחץ כאן כדי לראות את הכרטיס האישי שלך</a><br>")
response.write ("<a href=""EditUser.asp"">לחץ כאן כדי לערוך את הפרטים שלך</a><br>")
End If
On Error GoTo 0
%>
<!--סיום-->
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->
<%
'עם לא מחובר עובר לדף שבכתובת
else
Response.Redirect "Und2Cnct.asp"
end if
%>


צאו ותישמרו!

שלב תשעה:
שליחת הודעה:
צרו קובץ בשם: MsgSend.asp
ערכו אותו ותנו לו תקוד:

קוד:

<%@Language=VBScript codepage=1255%>
<%
'בודק עם מחובר
if session("user")="GOOD" then
%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>שליחת הודעה פרטית</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial"><B>
<!--כותרת-->
<font style="font-size:15pt;" face="arial">
<U>שליחת הודעה פרטית</U>
</font>
<BR><BR><BR>
<!--הטופס-->
<form method="post" action="MsgSendAfter.asp">
<TABLE BORDER="0">
<TR>
<TD>נושא ההודעה:</TD>
<TD><INPUT NAME="title" MAXLENGTH="15" value="<% response.write Request.QueryString("nose") %>"></TD>
</TR>
<TR>
<TD>ההודעה ל:</TD>
<TD><INPUT NAME="sendto" MAXLENGTH="10" value="<% response.write Request.QueryString("username") %>"><font style="font-size:9pt;" face="arial">(שם משתמש באתר)</font></TD>
</TR>
<TR>
<TD valign="top">תוכן ההודעה:</TD>
<TD><TEXTAREA NAME="msgbody" ROWS="6" COLS="22" ></TEXTAREA></TD>
</TR>
<TR>
<TD>קישור בהודעה:</TD>
<TD><INPUT NAME="link" MAXLENGTH="255" dir="ltr"><font style="font-size:9pt;" face="arial">//:http</font></TD>
</TR>
</TABLE>
<BR><BR>
<INPUT TYPE="SUBMIT" VALUE="שלח הודעה">
<INPUT TYPE="RESET" VALUE="נקה">
</form>
 
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->
<%
'מעביר דף עם לא מחובר
else
Response.Redirect "Und2Cnct.asp"
end if
%>


שלב עשר:
מחיקת הודעה:
צרו קובץ בשם: MsgDelete.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
<%
'בודק עם מחובר
if session("user")="GOOD" then
%>
<%
'מחיקת הודעות
	If Request.Form("toDel")<>"" Then
		Dim conn, sql
		Set conn = Server.CreateObject("ADODB.Connection")
		MdbFilePath = Server.MapPath("db.mdb")
		Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
		sql="DELETE FROM msg WHERE id IN (" & Request.Form("toDel") & ")"
		conn.Execute sql
		conn.Close
		Set conn=Nothing
	End If
	Response.Redirect "MsgRead.asp"
%>
<%
'מעביר דף עם לא מחובר
else
Response.Redirect "Und2Cnct.asp"
end if
%>


צאו ותישמרו

שלב אחד עשרה:
אחרי שליחת ההודעה:
צרו קובץ בשם: MsgSendAfter.asp
ערכו אותו ותנו לו את הקוד:

קוד:

<%@Language=VBScript codepage=1255%>
<%
'בודק עם מחובר
if session("user")="GOOD" then
%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>שליחת הודעה</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial">
<!--הוספה לדטה בייס או הודעת שיגאה-->
<%
On Error Resume Next
'מחליף קודים לACSII
Function strFormat(str)
	If IsEmpty(str) or IsNull(str) Then Exit Function
	Str = Replace(str,"<","&lt;")
	Str = Replace(str,">","&gt;")
	Str = Replace(str,"'","'")
	Str = Replace(str,"""","&quot;")
	Str = Replace(str,chr(13),"<br>")
	strFormat = str
End Function 
'מוסיף לדטה בייס
Dim objConn, ConnString, SQL_query
Set objConn = Server.CreateObject("ADODB.Connection")
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db.mdb") & ";"
objConn.open ConnString
SQL_query = "INSERT INTO msg ([title],[sendto],[msgbody],[link],[sendfrom]) VALUES ('" & strFormat(request.form("title")) & "','" & strFormat(request.form("sendto")) & "','" & strFormat(request.form("msgbody")) & "','" & strFormat(request.form("link")) & "','" & Session("username") & "')"
objConn.execute(SQL_query)
'נותן הודעה מתאימה
If Err<>0 Then
response.write ("<u><b><font style=""font-size:15pt;"" face=""arial"">שגיאה!</font></b></u><br><br>")
response.write ("בדוק שמלאתה את השדות ''נושא ההודעה'' ו''ההודעה ל''.<br><br>")
response.write ("עם כבר ניסיתה הכל ועדיין אתה לא מצליך לשלוח הודעות, צור קשר עם מנהל האתר.<br><br>")
response.write ("<br><a href=""javascript:history.back(1)"">חזרה</a>")
else
response.write ("<u><b><font style=""font-size:15pt;"" face=""arial"">הודעתך נשלחה בהצלחה!</font></b></u><br><br>")
response.write ("<A HREF=""MsgSend.asp"">לחץ כאן כדי לכתוב עוד הודעה</A><br>")
response.write ("<A HREF=""MsgRead.asp"">לחץ כאן כדי לקרוא הודעות</A><br>")
response.write ("<A HREF=""UserList.asp"">לחץ כאן כדי לחזור לרשימת חברי האתר</A><br>")
End If
On Error GoTo 0
%>
<!--סיום-->
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->
<%
'מעביר דף עם לא מחובר
else
Response.Redirect "Und2Cnct.asp"
end if
%>


צאו ותישמרו!

שלב 12:
אחרי ההרשמה:
צרו קובץ בשם: RegisterAfter.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>תוצאות הרשמה לאתר</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial">
<!--הוספה לדטה בייס או הודעה-->
<%
On Error Resume Next
'מחליף קודים לACSII
Function strFormat(str)
	If IsEmpty(str) or IsNull(str) Then Exit Function
	Str = Replace(str,"<","&lt;")
	Str = Replace(str,">","&gt;")
	Str = Replace(str,"'","'")
	Str = Replace(str,"""","&quot;")
	Str = Replace(str,chr(13),"<br>")
	strFormat = str
End Function 
'מכניס לדטה בייס
Dim objConn, ConnString, SQL_query
Set objConn = Server.CreateObject("ADODB.Connection")
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db.mdb") & ";"
objConn.open ConnString
SQL_query = "INSERT INTO users ([username],[password],,[icq],[website],[name],[secname],[pic],[sex],[birthday],[rgstday]) VALUES ('" & strFormat(request.form("username")) & "','" & request.form("password") & "','" & strFormat(request.form("email")) & "','" & strFormat(request.form("icq")) & "','" & strFormat(request.form("website")) & "','" & strFormat(request.form("name")) & "','" & strFormat(request.form("secname")) & "','" & strFormat(request.form("pic")) & "','" & strFormat(request.form("sex")) & "','" & strFormat(request.form("birthday")) & "','" & Day(date) &"/" & Month(date) &"/" & Year(date) & "')"
objConn.execute(SQL_query)
'נותן הודעה מתאימה
If Err<>0 Then
response.write ("<u><b><font style=""font-size:15pt;"" face=""arial"">שגיאה!</font></b></u><br><br>")
response.write ("נסה למלות את כל פרטי החובה (סיסמה שם משתמש ואימייל) ועם עדיין לא פועל אז תנסה שם משתמש אחר.<br><br>")
response.write ("עם כבר ניסיתה הכל ועדיין אתה לא מצליך להרשם, צור קשר עם מנהל האתר.<br><br>")
response.write ("<br><a href=""javascript:history.back(1)"">חזרה</a>")
else
response.write ("<u><b><font style=""font-size:15pt;"" face=""arial"">נרשמתה בהצלחה לאתר!</font></b></u><br><br>")
response.write ("<A HREF=""login.asp"">לחץ כאן כדי להתחבר לאתר</A><br>")
End If
On Error GoTo 0
%>
<!--סיום-->
</CENTER>
</FONT>
</BODY>
</HTML>

צאו ותישמרו!

שלב 13:
כרטיס אישי:
צרו קובץ בשם: UserCard.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<TITLE>כרטיס אישי של: <% response.write request.querystring("username") %></TITLE>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial"><B>
<!--כותרת-->
<font style="font-size:15pt;" face="arial">
<U>כרטיס אישי של: <% response.write request.querystring("username") %></U>
</font><BR><BR><BR>
<!--הצגה-->
<TABLE BORDER="0">
<%
'מציג מהדטה בייס
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM users WHERE username='"& request.querystring("username") &"'"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
<TR>
<TD>
<TABLE BORDER="0">
<TR>
<TD nowrap><b>שם משתמש:</b></TD>
<TD nowrap><%=RS("username")%></TD>
</TR>
<TR>
<TD nowrap><b>כתובת אימייל:</b></TD>
<TD nowrap><A HREF="[email="<%=RS("]Mailto:<%=RS("email")%>?subject=נושא..&body=תוכן..">
<%
'עושה שלוש נקודות עם הכתובת אימייל ארוכה מדי
email = RS("email")
IF LEN(email)>7 THEN
email = LEFT(email,7) & "..."
END IF
response.write email
%></A></TD>
</TR>
<TR>
<TD nowrap><b>ICQ:</b> <img width="18" height="18" src="http://wwp.icq.com/scripts/online.dll?icq=<%=RS("icq")%>&img=5">
</TD>
<TD nowrap><%=RS("icq")%></TD>
</TR>
<TR>
<TD nowrap><b>אתר אישי:</b></TD>
<TD nowrap><A HREF="http://<%=RS("website")%>" TARGET="_blank">
<%
'עושה שלוש נקודות עם הכתובת של האתר ארוכה מדי
website = RS("website")
IF LEN(website)>7 THEN
website = LEFT(website,7) & "..."
END IF
response.write website
%></A></TD>
</TR>
<TR>
<TD nowrap><b>שם פרטי:</b></TD>
<TD nowrap><%=RS("name")%></TD>
</TR>
<TR>
<TD nowrap><b>שם משפחה:</b></TD>
<TD nowrap><%=RS("secname")%></TD>
</TR>
<TR>
<TD nowrap><b>מין:</b></TD>
<TD nowrap><%=RS("sex")%></TD>
</TR>
<TR>
<TD nowrap><b>תאריך לידה:</b></TD>
<TD nowrap><%=RS("birthday")%></TD>
</TR>
</TR>
<TR>
<TD nowrap><b>נרשם לאתר ב:</b></TD>
<TD nowrap><%=RS("rgstday")%></TD>
</TR>
</TABLE>
</TD>
<TD><A HREF="http://<%=RS("pic")%>" target="_blank"><IMG SRC="http://<%=RS("pic")%>" alt="תמונה אישית" width="145" height="145" border="1"></A><br>
<font style="font-size:9pt;" face="arial"><center><A HREF="MsgSend.asp?username=<%=RS("username")%>"><b>שלח הודעה פרטית</b></A></center></font></TD>
</TR>
<TR>
<TD><BR></TD>
<TD><BR></TD>
</TR>
<%
RS.MoveNext
WEND
%>
</TABLE>
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->

צאו ותישמרו!

שלב 14:
רק לנירשמים!:
צרו קובץ בשם: Und2Cnct.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
<!--התחלה-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html dir="rtl">
<head>
<!--קידוד-->
<meta http-equiv="content-language" content="he">
<meta http-equiv="content-type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<title>אתה לא מחובר לאתר!</title>
</HEAD>
<!--התחלה של בודי-->
<BODY>
<CENTER><font style="font-size:12pt;" face="arial"><B>
<!--כותרת-->
<font style="font-size:15pt;" face="arial">
<U>אתה לא מחובר לאתר!</U>
</font><BR><BR>
<!--קישורים-->
</b>
<A HREF="Register.asp">לחץ כאן כדי להרשם לאתר.</A><BR><BR>
<A HREF="Login.asp">לחץ כאן כדי להתחבר לאתר.</A><BR>
<b>
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->

צאו ותישמרו!

שלב15:
מי מחובר?:
צרו קובץ בשם: whoIsOn.asp
ערכו אותו ותתנו לי תקוד:

קוד:
 
<%
foundUser=False
Application.Lock
localStats=Application("Stats")
For k=0 To Ubound(localStats,2)
If localStats(0,k)=Session.SessionID Then
	localStats(1,k)=Request.ServerVariables("SCRIPT_NAME")
	foundUser=True
	Exit For
End If
Next
If foundUser=False Then
For k=0 To Ubound(localStats,2)
	If localStats(0,k)="" Then
	 localStats(0,k)=Session.SessionID
	 localStats(1,k)=Request.ServerVariables("SCRIPT_NAME")
	 localStats(2,k)=Request.ServerVariables("REMOTE_ADDR")
	 localStats(3,k)=Now()
	 Exit For
	End If
Next
End If
Application("Stats")=localStats
Application.UnLock
%>

צאו ותישמרו!

שלב 16:
תראה מי מחובר:
צרו קובץ בשם: showWhoIsOn.asp
ערכו אותו ותנו לו תקוד:

קוד:
 
<%
MyServer=Request.ServerVariables("SERVER_NAME")
MyPath=Request.ServerVariables("SCRIPT_NAME")
MySelf="HTTP://" & MyServer & MyPath
%>
<html>
<head>
<meta http-equiv="refresh" content="20;<%= MySelf %>">
<title>Who Is On</title>
</head>
<body>
<!-- #include File="whoIsOn.asp" -->
<%
Application.Lock
localStats=Application("Stats")
Application.UnLock
%>
<center>
<h2>
	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" 
	codebase="http://download.macromedia.com/pub/...version=4,0,2,0" 
	width="142" height="30">
	 <param name=movie value="who.swf">
	 <param name=quality value=high>
	 <param name="BGCOLOR" value="">
	 <param name="SCALE" value="exactfit">
	 <embed src="who.swf" quality=high 
	 pluginspage="http://www.macromedia.com/shockwave...=ShockwaveFlash" 
	 type="application/x-shockwave-flash" scale="exactfit" width="142" height="30">
	 </embed> 
	</object>
</h2>
<table border="1" cellpadding="10" cellspacing="0" bgcolor="#eeeeee">
	<tr bgcolor="#cccccc">
	 <th></th>
	 <th>מספר משתמש</th>
	 <th>הדף שהמשתמש נמצא בו כרגע</th>
	 <th>כתובת איי פי</th>
	 <th>שעת כניסה לאתר</th>
	</tr>
	<%
	For i=0 To Ubound(localStats,2)
	 If localStats(0,i) <> "" Then
	%>
	<tr>
	 <th><%= i %></th>
	 <td><%= localStats(0,i) %></td>
	 <td><%= localStats(1,i) %></td>
	 <td><%= localStats(2,i) %></td>
	 <td><%= localStats(3,i) %></td>
	</tr>
	<%
	 End If
	Next
	%>
</table>
</center>
</body>
</html>


צאו ותישמרו!

שלב 17:
צרו תיקיה בשם: Admin
וכנסו אליה!

שלב 18:
היתחברות למנהלים:
צרו קובץ בשם: Login.asp
ערכו אותו ותנו לו תקוד:

קוד:
 
 
<!--התחלה-->
<HTML dir=rtl>
<HEAD>
<!--קידוד-->
<meta http-equiv="Content-Language" content="he">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<TITLE>מחיקת משתמשים</TITLE>
</HEAD>
<!--צבעים והגדרות של דף-->
<BODY>
<B><font style="font-size:12pt;" face="arial"><CENTER>
<!--כותרת-->
<font style="font-size:20pt;" face="arial">
כניסת מנהלים
<br><br></font>
<!--טבלה להתחברות-->
<table border="0">
<tr>
<td align=left><b>
<!--התחברות-->
<form name="signin" action="loginasp.asp" method="post">
שם משתמש: <input type="text" name="username" value="" size="20">
<br>
סיסמה: <input type="password" name="password" value="" size="20">
<br><br><center>
<input type="SUBMIT" VALUE="כניסה">
</center>
<!--סיום טבלה להתחברות-->
</B>
</P>
</TD>
</TR>
</TABLE>
<!--סיום-->
</font></b>
</CENTER>
</BODY>
</HTML>
<!--סוף-->

צאו ותישמרו!

שלב 19:
מי המנהל?:
צרו קובץ בשם: LoginAsp.asp
ערכו אותו ותתנו לו את הקוד:

קוד:
 
<%
'כאן משנים את הסיסמה של המנהל וזה בודק עם הסיסמה שהכניסו בטופס התחברות נכונה
if Request.Form("Username")="רשמו פה את השם משתמש" and Request.Form("password")="רשמו פה את הסיסמא" then
Session("admin")="GOOD"
Response.Redirect "AdminUserList.asp"
else
Session("admin")="BAD"
Response.Redirect "login.asp"
end if
%>

תצאו ותישמרו!

שלב 20:
עריכת חברי האתר:
צרו קובץ בשם: AdminUserList.asp
ערכו אותו ותתנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
<%
'בודק עם מחובר כמנהל
if session("admin")="GOOD" then
%>
<!--התחלה-->
<HTML dir=rtl>
<HEAD>
<!--קידוד-->
<meta http-equiv="Content-Language" content="he">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<TITLE>רשימת חברי האתר</TITLE>
</HEAD>
<!--צבעים והגדרות של דף-->
<BODY>
<B><font style="font-size:12pt;" face="arial"><CENTER>
<!--כותרת-->
<font style="font-size:15pt;" face="arial">
<U>רשימת חברי האתר</U>
</font><BR><BR><BR>
<!--הצגה-->
<form method="post" action="delete.asp"> 
<TABLE BORDER="1" width="100%">
<TR>
<TD align="center"><B>מחק</B></TD>
<TD align="center"><B>שם משתמש</B></TD>
<TD align="center"><B>אתר אישי</B></TD>
<TD align="center"><B>שם</B></TD>
<TD align="center"><B>מין</B></TD>
</TR>
<%
'הצגה מהדטה בייס
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("../db.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM users ORDER BY id DESC"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
<TR>
<td><input type="checkbox" name="toDel" value="<%=rs("ID")%>"></td>
<TD><A HREF="adminusercard.asp?username=<%=RS("username")%>" title="לחץ על השם משתמש כדי לראות עוד פרטים עליו, לראות תמונה (עם יש) ולשלוח הודעה פרטית"><%=RS("username")%></A></TD>
<TD>
<A HREF="http://<%=RS("website")%>" TARGET="_blank">
<%
'עושה שלוש נקודות עם הכתובת של האתר ארוכה מדי
website = RS("website")
IF LEN(website)>10 THEN
website = LEFT(website,10) & "..."
END IF
response.write website
%></A>
</TD>
<TD><%=RS("name")%> <%=RS("secname")%></TD>
<TD><%=RS("sex")%></TD>
</TR>
<%
RS.MoveNext
WEND
%>
</TABLE><br><br>
<input type="submit" value="מחק משתמשים מסומנים">
</form> 
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->
<%
'מעביר דף עם לא מחובר כמנהל
else
Response.Redirect "login.asp"
end if
%>

צאו ותישמרו!

שלב 21:
מחיקת משתמשים:
צרו קובץ בשם: AdminUserCard.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%@Language=VBScript codepage=1255%>
<%
'בודק עם מחובר כמנהל
if session("admin")="GOOD" then
%>
<!--התחלה-->
<HTML dir=rtl>
<HEAD>
<!--קידוד-->
<meta http-equiv="Content-Language" content="he">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1255">
<!--תגי מטא-->
<TITLE>מחיקת משתמשים</TITLE>
</HEAD>
<!--צבעים והגדרות של דף-->
<BODY>
<B><font style="font-size:12pt;" face="arial"><CENTER>
<!--כותרת-->
<font style="font-size:15pt;" face="arial">
<U>מחיקת משתמשים</U>
</font><BR><BR><BR>
<!--הצגה-->
<form method="post" action="delete.asp"> 
<TABLE BORDER="0">
<%
'מציג מהדטה בייס
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("../db.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM users WHERE username='"& request.querystring("username") &"'"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
<TR>
<TD>
<TABLE BORDER="0">
<tr>
<td nowrap><b>סמן כדי למחוק:</b></td>
<td nowrap><input type="checkbox" name="toDel" value="<%=rs("ID")%>"></td>
</tr>
<TR>
<TD nowrap><b>שם משתמש:</b></TD>
<TD nowrap><%=RS("username")%></TD>
</TR>
<TR>
<TD nowrap><b>כתובת אימייל:</b></TD>
<TD nowrap><A HREF="Mailto:<%=RS("email")%>?subject=נושא..&body=תוכן..">
<%
'מקצר עם שלוש נקודות
email = RS("email")
IF LEN(email)>7 THEN
email = LEFT(email,7) & "..."
END IF
response.write email
%></A></TD>
</TR>
<TR>
<TD nowrap><b>ICQ:</b></TD>
<TD nowrap><img src="<A href="http://wwp.icq.com/scripts/online.dll?icq=<%=RS("icq")%>&img=5"><%=RS("icq")%></TD">http://wwp.icq.com/scripts/online.dll?icq=<%=RS("icq")%>&img=5"><%=RS("icq")%></TD>
</TR>
<TR>
<TD nowrap><b>אתר אישי:</b></TD>
<TD nowrap><A HREF="http://<%=RS("website")%>" TARGET="_blank">
<%
'מקצר
website = RS("website")
IF LEN(website)>7 THEN
website = LEFT(website,7) & "..."
END IF
response.write website
%></A></TD>
</TR>
<TR>
<TD nowrap><b>שם פרטי:</b></TD>
<TD nowrap><%=RS("name")%></TD>
</TR>
<TR>
<TD nowrap><b>שם משפחה:</b></TD>
<TD nowrap><%=RS("secname")%></TD>
</TR>
<TR>
<TD nowrap><b>מין:</b></TD>
<TD nowrap><%=RS("sex")%></TD>
</TR>
<TR>
<TD nowrap><b>תאריך לידה:</b></TD>
<TD nowrap><%=RS("birthday")%></TD>
</TR>
<TR>
<TD><b>סיסמה:</b></TD>
<TD><%=RS("password")%></TD>
</TR>
<TR>
<TD><b>נרשם ב:</b></TD>
<TD><%=RS("rgstday")%></TD>
</TR>
</TABLE>
</TD>
<TD>
<A HREF="http://<%=RS("pic")%>" target="_blank"><IMG SRC="http://<%=RS("pic")%>" alt="תמונה אישית" width="145" height="145" border="0"></A>
</TD>
</TR><TR><TD><BR></TD><TD><BR></TD></TR>
<%
RS.MoveNext
WEND
%>
</TABLE>
<input type="submit" value="מחק">
</form> 
<BR><BR>
<A HREF="logout.asp">לחץ כאן כדי להתנתק</A>
<!--סיום-->
</B>
</CENTER>
</FONT>
</BODY>
</HTML>
<!--סוף-->
<%
'מעביר דף עם לא מחובר כמנהל
else
Response.Redirect "login.asp"
end if
%>

צאו ותישמרו!

שלב 22:
פעולת המחקיה:
צרו קובץ בשם: Delete.asp
ערכו אותו ותנו לו את הקוד:

קוד:
 
<%
'בודק עם מחובר כמנהל
if session("admin")="GOOD" then
%>
<%
'מוחק
	If Request.Form("toDel")<>"" Then
		Dim conn, sql
		Set conn = Server.CreateObject("ADODB.Connection")
		MdbFilePath = Server.MapPath("../db.mdb")
		Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
		sql="DELETE FROM users WHERE id IN (" & Request.Form("toDel") & ")"
		conn.Execute sql
		conn.Close
		Set conn=Nothing
	End If
	Response.Redirect "AdminUserList.asp"
%>
<%
'מעביר דף עם לא מחובר
else
Response.Redirect "login.asp"
end if
%>

צאו ותישמרו!

שלב 23:
היתנתקות והמנהלים:
צרו קובץ בשם: LogOut.asp
ערכו אותו ותתנו לו את הקוד:

קוד:
 
<%
'מוחק את הסיישן של המנהל ומעביר דף
Session("admin")="BAD"
Response.Redirect "../index.asp"
%>

צאו ותישמרו!

שלב 24:
קיצורים:
צרו קובץ בשם: index.asp
ערכו אותו ותתנו לו את הקוד:

קוד:
 
<table>
<tr>
<td>
<a href="register.asp">הרשמה לאתר</a><br>
<a href="login.asp">התחברות לאתר</a><br>
<a href="edituser.asp">עריכת כרטיס אישי</a><br>
<a href="userlist.asp">חברי האתר</a><br>
<a href="msgread.asp">הודעות אישיות</a><br>
<a href="logout.asp">התנתקות</a><br>
<a href="Admin/AdminUserList.asp">ניהול</a><br>
</td>
</tr>
</table>

צאו ותישמרו!

זאו גמרנו את המערכת!!!!!!!

עכשיו כל דף שתירצו שהוא יהיה לרשומים בילבד! תירשמו את הקוד:
<%
if session("user")="GOOD" then
%>

ובסוף העמוד אץ הקוד:
<%
else
Response.Redirect "Und2Cnct.asp"
end if
%>

וזאו יש לכם מערכת בASP.

מקווה שהבנתם!

תהנוווו....



תגבות אנשיםםםם

זכויות יוצרים ליייייייייייייייייייייי אסור להעתיקקקקקקקק!!!!!!!!!!!
חזרה לפורום
  #2  
ישן 19-01-2006, 01:04
  GreenBerret GreenBerret אינו מחובר  
 
חבר מתאריך: 13.12.05
הודעות: 1,963
בתגובה להודעה מספר 1 שנכתבה על ידי talora55 שמתחילה ב "[מדריך]איך לבנות מערכת הרשמה היתחברות מנהלים וטפרית לנירשם"
יכולת פשוט לתת קישור לקובץ zip עם קובץ readme בפנים...
חזרה לפורום
« לאשכול הקודם | לאשכול הבא »

כלי אשכול חפש באשכול זה
חפש באשכול זה:

חיפוש מתקדם
מצבי תצוגה דרג אשכול זה
מצב כלאיים מצב כלאיים
דרג אשכול זה:

מזער את תיבת המידע אפשרויות משלוח הודעות
אתה לא יכול לפתוח אשכולות חדשים
אתה לא יכול להגיב לאשכולות
אתה לא יכול לצרף קבצים
אתה לא יכול לערוך את ההודעות שלך
קוד vB פעיל
קוד [IMG] פעיל
קוד HTML כבוי
מעבר לפורום



כל הזמנים המוצגים בדף זה הם לפי איזור זמן GMT +2. השעה כעת היא 00:09

הדף נוצר ב 0.12 שניות עם 10 שאילתות
צור קשר - Fresh - למעלה

הפורום מבוסס על vBulletin, גירסא 3.0.6
כל הזכויות לתוכנת הפורומים שמורות © 2024 - 2000 לחברת Jelsoft Enterprises.
כל הזכויות שמורות ל Fresh.co.il ©

צור קשר | תקנון האתר