.. جافا الفاطمي

مرحبا بكم زوارنا الكرام في موقع صفحات الفاطمي علي الانترنت .. واتمنى لكم ابحاراً مفيداً معنا، هذه الصفحة هي صفحة الجافا ، فكل السكريبتات الموجودة هنا هي مجانية مئة بالمئة كما إنك تستطيع تعديلها كما تشاء

	... ASPأهلا بكم في قسم الـ أحب أن أنوه هنا إلى أن السورس الكود لمفات السيرفر النشطة يختلف اختلافا كبيرا
عن السورس كود للجافا سكريبتس ، إذ أنه يحتاج الى دقة كبيرة ، لأن التنفيذ يكون في السيرفر وليس في المتصفح الخاص بالمستخدم ، قد تحتاج الى بذل جهد أكبر بكثير ، وفي كثير من الحالات لا يمكنك الاكتفاء بقص السورس وتعديل بعض مافيه وإعادة تحميلة في صفحاتك الخاصة ، قد تحتاج الى إضافة بعض الروتينز إليه لابد أن تكون ملما على الأقل بأساسيات الفيجوال بيسك سكريبتس،لتتلافى الأخطاء. كل السورسات الموجودة هنا ستعمل بصورة ممتازة في حالة قصها وإتباع التعليمات ، لكن الموقع لا يتحمل أي مسئولية تجاه أية أخطاء . على العموم
الأقســـام الرئيســـية ---------------------------------------------------------- • • [ JAVA ] ، [ HTML ] ، [ ASP ] ، [ VBScript ] ¡ [ CGI ] • • ----------------------------------------------------------
. ASP كــودات جــاهزة في الـ ••


	سجل زوار خاص ... ملف نصي	استعماله
	الـفاطمي	تقدمة

هذا هو الكود الخاص بإنشاء سجل زوار خاص بك ، يعتمد على تسجيل التواقيع في ملف نصي عادي ومن
ثم يقوم بعرضه مباشرة هذا الكود من كودات الصفحة الواحدة حيث يمرر المداخيل إلى نفس الصفحة ثم
guest.txt يقوم بتسجيل التوقيع وإخبار الزائر بأن توقيعه قد تمت إضافته ، تأكد من إنشاء ملف يحمل الاسم
وأحفظ الملف ثم قم بتجربة <br> في نفس الفولدر ، وتأكد من أن الملف غير فارغ ، قم بإضافة مثلا لاحصرا
. الكود للمرة الأولى
: قم بقص النص ولصقه على أي محرر نصوص عادي ، أو الإنترديف ومن ثم احفظ الملف بالاسم التالي
guestbook.asp

<%
'ßÇÝÉ ÇáÍÞæÞ ãÍÝæÙÉ
'ßÊÈå ÇáÝÇØãí
'mail:fa6emy@masrawy.com
%>

Dim strFile 
' åäÇ äÖÚ ÚäæÇä ÇáãáÝ ÇáÐí ÓäÓÌá Ýíå ÇáÓÌáÇÊ
strFile = Server.MapPath("guest.txt")

If Request.Form.Count = 0 Then

%>
	
	<script language="Javascript">
		document.bgColor ="#ffc0cb"
	</script>
	<center>
	<H3>ÊÝÖá ÈÊæÞíÚ ÓÌáäÇ </H3>

<FORM ACTION="guestbook.asp" METHOD="post">
	<TABLE dir="rtl">
		<TR>
		<TD ALIGN="center"><B>ÇáÅÓã       :</B></TD>
		<TD><INPUT TYPE="text" NAME="name" SIZE="15"></INPUT></TD>
		</TR>
		<TR>
		<TD ALIGN="center"><B>ÇáÈÑíÏ ÇáÅáßÊÑæäí :</B></TD>
		<TD>
		<INPUT TYPE="text" NAME="email" SIZE="40"></INPUT></TD>
		</TR>
		<TR>
		<TD ALIGN="middle"><B>ãáÇÍÙÇÊß      :</B></TD>
		<TD>
		
		
		
		<textarea
            name="comment" rows="4" cols="39" wrap="physical">
		</textarea></TD>
		</TR>
	</TABLE>
	<INPUT TYPE="submit" VALUE="ÃÖÝ ÇáÊæÞíÚ !" align="center"></INPUT>
	</FORM>
	</center>
	<BR>
	<HR>
	<Div dir="RTL">
	<table border=1 width="95%"><TR><td bgcolor="#fa8072">
<table border=1  width=100%>
	
	
			
	
	
	<%
Else

Dim objFSO  
	Dim objFile 
	
    ' ÊÚÑíÝ ÇáÃæÈÌßÊÓ 
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(strFile, 8, True)
' äÈÏÃ ÈÇáßÊÇÈÉ Çáì ÇáãáÝ 
	objFile.Write "<tr bgcolor=#fa8072><td width=122 height=20><B><font face=Arial color=Black>ÇáÊÇÑíÎ :</font></B>"
	objFile.Write "</td><td width=390 height=20><font color=White><B>"
	objFile.Write Date()
	objFile.Write " </font></b></tr>"
	objFile.Write "<tr bgcolor=#fa8072><td width=122 height=20><B><font color=Black> ßÊÈå :</font></B>"
	objFile.Write "</td><td width=390 height=20><font color=White><B>"
	objFile.Write (Request.Form("name"))
	objFile.Write " </font></b></tr>"
	objFile.Write "<tr bgcolor=#fa8072><td width=122 height=20><B><font color=Black> ÇáÈÑíÏ ÇáÅáßÊÑæäí</font></B>"
	objFile.Write "</td><td width=390 height=20><font color=White><B>"
	objFile.Write Server.HTMLEncode (Request.Form("email"))
	objFile.Write " </font></b></tr>"
	objFile.Write "<tr bgcolor=#ffc0cb><td width=122 height=20><B><font color=Black> äÕ ÇáÑÓÇáÉ :</font></B>"
	objFile.Write "</td><td width=390 height=20><font color=Black><B>"
	objFile.Write (Request.Form("comment"))
	objFile.Write " </font></b></tr>"
	objFile.Write "<tr bgcolor=black ><td>  </td></tr>"
	objFile.WriteLine ""
	
' ÇáÊÎáÕ ãä ÇáÃæÈÌßÊ æåÐå ÖÑæÑíå ÌÏÇ 
	objFile.Close
	Set objFile = Nothing
	Set objFSO = Nothing

%>
	<html dir="RTL">
	<head>
	<title> ÔßÑÇ áßã </title>
	</head>
	<body>
	<H3>ÔßÑÇ áß Úáì ÊæÞíÚ ÓÌáäÇ </H3></p>
	<A HREF="./guestbook.asp">ÚæÏÉ Çáì ÇáÓÌá</A>
	</body>
	</html>
	<%
End If
%>


	فورم اتصل بنا أو الدعم الفني	استعماله
	الفــارس	تقدمة

هذا هو الكود الخاص بإتاحة الفرصة للزوار لإرسال رسالة مباشره إليك ، أو لإنشاء حلقة أسئلة أو تصويت
أو طلب أو ما شابه ، لم أراعى في هذا الكود التصميم والشكل العام للصفحة ، حيث يمكنك بكل بساطة
، إحلال الشكل الخاص بك بداخل هذا الكود ، كل ما عليك هو تغيير العنوان في أول الصفحة إلى عنوانك
. ومن ثم تعديل الشكل إلى ما أردت لتحصل على صفحة اتصل بنا ، أو ما شابه
، CDONTS لاحظ أنك ستحتاج إلى سيرفر يدعم الـ ، email.asp : قم بقص الكود و حفظه في صفحة باسم
. السيرفر الشخصي لا يدعم هذه الخاصية

<%
'********************************************************
'*		ASP email form		              *
'*                                                      *
'*   This code written by : الفارس <T_zone66@yahoo.com> *
'*                    Use It Freely                     *
'*                                                      *
'*                                                      *
'*							*
'********************************************************
%>
<html dir="RTL">
<HEAD>
<TITLE> إتصل بنا
</TITLE>
</HEAD>
<BODY> 
<%
Dim strTo, strSubject, strBody ,strFrom 
Dim objCDOMail

' قم بإزالة البريد التالي وضع بريدك بدلة
strTo = "<T_zone@c4arab.com>"
strFrom = Request.Form("from")

strSubject = Request.Form ("subject")

strBody = Request.Form ("body")
strBody = strBody & vbCrLf & vbCrLf

If strFrom = "" Then
	%>
	<FORM ACTION="email.asp" METHOD="post">
		<B> الرجاء إكمال كل الفراغات :</B> <BR><BR>		
	بريدك الإلكتروني <BR>
		<INPUT TYPE="text" NAME="from" SIZE="30"></INPUT><BR>
		موضوع الرسالة  <BR>
		<INPUT TYPE="text" NAME="subject" SIZE="30"></INPUT><BR>
		نص الرسالة  <BR>
		<TEXTAREA NAME="body" ROWS="10" COLS="40" WRAP="virtual"></TEXTAREA><BR>

<INPUT TYPE="submit" VALUE="أرسل"></INPUT>
	</FORM>
	<%
Else
	' Create an instance of the NewMail object.
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' تعبئة الخانات
	objCDOMail.From = strFrom
	objCDOMail.To = strTo
	objCDOMail.Subject = strSubject
	objCDOMail.Body = strBody
' أرسل 
	objCDOMail.Send
	
	Set objCDOMail = Nothing

Response.Write "تم إرسال الرسالة الى  " & strTo & "!"
End If
%>
</body>
</html>


	أحمي موقعك باستخدام اسم المستخدم والكلمة السرية	استعماله
	الفــارس	تقدمة

هل سأمت من أعين الطفوليين ، هل حاولت مرارا حماية بعض الصفحات بواسطة بريمج جافا سكريبت
لتفاجأ بأحد خبراء الجافا سكريبتس قد تجاوز هذا السكريبت ليصل إلى ما أردت إخفائه ، إليك الآن كود
: بصفحات السيرفر النشطة سيجعل مهمتهم أصعب ، كل ما عليك هو نسخ الكود الأولي إلى صفحة باسم
والكود الثاني يوضع في أعلى كل صفحة محمية ، لو حصل وأدخل المستخدم عنوان الصفحة login.asp
. الثانية مباشرة في البراوزر فسوف يتم تحويله مباشره إلى صفحة الدخول

<%@ Language=VBScript %>
<%

' Written By : alfaress ( T_zone66@yahoo.com) '
' use freely
' www.c4arab.com
' قم بحفظ هذا الكود في ملف بإسم   login.asp

Session("LoggedIn")=""
Response.Buffer = true
%>
<% if Request.Form("login")="" then 
	showlog
   else
    checklog
   end if 
   
 sub showlog
%>

<p> أدخل إسم المستخدم  <input  name="user" type="textbox" width="50"> </input></p>
<p> أدخل كلمة السر  <input name="pass" type="password" width="50"></input></p>
<input type=hidden name=login value=true></input>
<input type="submit" value="تفضل" id=submit1 name=submit1> </input>

</form>
<%end sub 
sub checklog 
' غير الباسوورد واليوزر نيم كما تريد هنا  
if Request.Form("user")="GUEST" and Request.Form("pass")="GUEST" then 
  Session("LoggedIn")="true"
' قم بوضع إسم الصفحة هنا 
  Response.Redirect "test1.asp"
else
showlog
end if

end sub 
%>

ضع الكود التالي في أعلى كل الصفحات المحمية :

<%@ Language=VBScript %>
<%

Response.Expires = -1000 
Response.Buffer = True

If Session("LoggedIn") <> "true" Then
    Response.Redirect("pass1.asp")
End If
' كود الصفحة الثانيه هنا 
' DONT INCLUDE HEADERS !

.. المزيد عما قريب إن شاء الله

•• [ الصفحة الرئيسية ] ، [ جافا ] ، [ مواقع ] ، [ أشعار متناثرة ] ، [ مدينتي ] ، [ حول الفاطمي ] ، [ سجل الزوار ] ••

all copyright reseved for fa6emy © 2002-2003	كافة الحقوق محفوظة للفاطمي © 2002-2003