سؤال آخر بالنسة للفورم

السلام عليكم

اخي الكريم ... بالنسبة لي ... هناك طريقتين

الطريقة الاولى: لا تسمح للمستخدم بان يضغط زر النهاية حتى يعبي كل الخيارات و حاول ان تفعل ذلك بواسطة جافا سكربت ... غالبا خلي الفحص على العميل باستخدام جافاسكريبت ...

الطريقة الثانية ... اذا كنت تكتب الصفحة بلغة ASP عليك بالتالي:

عندما تكتب القولب او الفورم ... في كل قولب ادخال اضف التالي ...مثلا

<input type=text name="Name" value="<%= Request.Form("Name")%>" >

لانه بعد ان يضغط على زر الادخال... ستحفظ القيم المدخلة و بالتالي عند العودة ... سيتم و ضع القيمة المطلوبة في خانة الاسم

المثال المرفق ان شاء الله يوضح المطلوب

example.rar

(مشاركة فارغة)

هذا كود صفحة insert.asp

<%@ Language=VBScript CodePage = "1256"%>

<%Name_Cooky1=Request.cookies("الرقم_الجامعي")%>

<%

'this file(inseart.asp) only contane asp code that mean no something display

'deal whith database to 1- inseart data from forme and 2- update data

Dim st_no

Dim f_name

Dim s_name

Dim e_mail

Dim p_no

Dim news

Dim graduate_y

Dim depart

Dim privat1

Dim privat2

'declaration value to put form values

st_no = request.form ("الرقم_الجامعي")

f_name = request.form ("الاسم_الأول")

s_name = request.form ("الاسم_الثاني")

privat1=request.form ("rt1")

graduate_y = request.form ("سنة_التخرج")

depart = request.form ("التخصص")

e_mail = request.form ("email")

privat2=request.form ("rt2")

p_no = request.form ("رقم_الهاتف")

news = request.form ("أخبار")

'chick of forme containt and send massage to check.asp file

If f_name = "" Then '2.

response.redirect ("check.asp?error=fname_Null")

ELSE

If s_name = "" Then '3.

response.redirect ("check.asp?error=sname_Null")

Else

If st_no = "" Then ' 1.

response.redirect ("check.asp?error=st_Null")

Else

If graduate_y = "" Then '3.

response.redirect ("check.asp?error=graduate_Null")

Else

If depart = "" Then '3.

response.redirect ("check.asp?error=depart_Null")

else

' conction to database (MS-access)

%>

<%

Dim ConnectionString

Dim ADO

ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("database\alumni_db.mdb")

Set ADO=Server.CreateObject("ADODB.Connection")

ADO.ConnectionString =ConnectionString

ADO.Open

%>

<%

'sql statment to inseart form's value

SelectSql = "Select * from student where st_no like '"&st_no&"' and f_name like '"&f_name&"' and s_name like '"&s_name&"' "

set rs=ADO.execute(SelectSql)

If rs.EOF Then '4.

sqlStatement= " Insert Into student (st_no,f_name,s_name,e_mail,p_no,news,graduate_y,d

epart,privat1,privat2) VALUES ('"&st_no&"','"&f_name&"','"&s_name&"','"&e_mail&"','"&p_no&"','"&news&"','"&graduate_y&"','"&depart&"','"&privat1&"','"&privat2&"') "

sqlStatement= " Insert Into log_forum (member_name,member_pass) VALUES ('"&f_name&"','"&st_no&"') "

ADO.Execute(sqlStatement)

response.redirect ("check.asp?error=inseart_Entry")

'sql statment to update values

else

updateSQL= " update student set e_mail = '"&e_mail&"' , p_no = '"&p_no &"', news='"&news&"' where st_no="&st_no

ADO.execute(updateSQL)

response.redirect ("check.asp?error=update_Entry")

End If

End If

End If

End If

End If

End If

'CLOSE CONECTION TO DATA BASE

ADO.Close

Set ADO=Nothing

%>

-

هذا كود صفحة

check.asp

التأكد من صحة البيانات

اين ممكن وضعه

<%

error=Request.querystring("error") ' this file reseve massage (error) from 2files inseart.asp,delet.asp

If error <> "" then ' 1.if no massage do nathing

If error = "fname_Null" Then ' 2. display massage

Response.write "<b><font color=#FF0000><center> الرجاء ادخال الاسم الأول </font></b>"%>

<a href="form.asp"> <% Response.write "<center> رجوع"%></a>

<%

Else

If error = "st_Null" Then '3. display massage

Response.write "<b><font color=#FF0000><center> الرجاء ادخال الرقم الجامعي </font></b>"%>

<a href="form.asp"> <% Response.write " <center>رجوع"%></a>

<%

Else

If error = "sname_Null" Then '3. display massage

Response.write "<b><font color=#FF0000> <center> الرجاء ادخال الاسم الثاني</font></b>"%>

<a href="form.asp"> <% Response.write "<center> رجوع"%></a>

<%

Else

If error = "graduate_Null" Then '4.display massage

Response.write "<b><font color=#FF0000> <center> الرجاء ادخال سنة التخرج</font></b>"%>

<a href="form.asp"> <% Response.write "<center> رجوع"%></a>

<%

Else

If error = "depart_Null" Then '5. display massage

Response.write "<b><font color=#FF0000> <center> الرجاء اختيار التخصص</font></b>"%>

<a href="form.asp"> <% Response.write "<center>رجوع"%></a>

<%

Else

If error = "st_Entry" Then '6. display massage

Response.write "<b><font color=#FF0000 ><center> الرجاء التأكد من صحة البيانات</font></b>"%>

<a href="form.asp"> <% Response.write "<center>رجوع"%></a>

<%

Else

If error = "inseart_Entry" Then '7. display massage

Response.write "<b><font color=#FF0000 ><center> مرحباً بك عزيزتي الخريجة لقد تم تسجيل بياناتك بنجاح</font></b>"%>

<%

Response.write "<b><font color=#FF0000 ><center> نتوقع منك قراءة سرية المعلومات</font></b>" %>

<a href="privacy_policy.asp"> <% Response.write "سرية المعلومات"%></a>

<a href="index.asp" > <% Response.write " <center>العودة للرئسية"%></a>

<%

Else

If error = "update_Entry" Then '8.display massage

Response.write "<b><font color=#FF0000 ><center> تم تعديل البيانات بنجاح</font></b>" %>

<a href="index.asp"> <% Response.write " <center>العودة للرئسية"%></a>

<%

Else

If error = "delet_Entry" Then '9.display massage

Response.write "<b><font color=#FF0000 ><center> تم الغاء جميع بياناتك</font></b>" %>

<a href="index.asp"> <% Response.write " <center>العودة للرئسية"%></a>

<%

Else

If error = "Q_Entry" Then '9.display massage

Response.write "<b><font color=#FF0000 ><center> تم ارسال آرائك بنجاح</font></b>" %>

<a href="index.asp"> <% Response.write " <center>العودة للرئسية"%></a>

<%

Else

If error = "second_Entry" Then '9.display massage

Response.write "<b><font color=#FF0000 ><center>عفواً لقد تم أخذ رأيك مسبقاً </font></b>" %>

<a href="index.asp"> <% Response.write " <center>العودة للرئسية"%></a>

<%

End If

End If

End If

End If

End If

End If

End IF

End IF

End IF

End If

End If

End If

%>

وجزاكم الله خير

و عليكم السلام

يا حبذا اخي لو تضغط كل الصفحات و ترسلها مع قاعدة البيانات ... ملف مضغوط يتم تحميله من مقالتك .....

بدي منك قاعدة البيانات ... سلام

جزاك الله خير اخي على اهتمامك

انحلت معي المشكله

تعقيب صغير: ببساطة أضف كود الـ ASP التالي في راس الصفحة ليخزن بيانات الحقول في ذاكرة مؤقتة فقط!!!

<%
Response.expires = 0
Response.expiresabsolute = Now() - 2
Response.addHeader "pragma", "cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "Store"
%>

حسبما فهت من السؤال