<h2 align="right" >
مثال علي كلمة
المرور باستخدام فيجوال بيسك إسكربت
</h2>
<hr>
<input
type="text" name="username" value="مستخدم قديم"
size=16>
أدخل اسم المستخدم <br>
<input
type="password" name="passwordname" value="mbadr"
size=16>
أدخـل
كلمة المرور <br>
<input
type="button" name="buttonGo" value= "انقر
هنا" >
<hr>
<script language="vbscript">
Sub ButtonGo_OnClick
if username.value="
" then
msgbox
"عـزيـــــزي المستخــــــــدم" &
chr(10)
& username.value & chr(10)
& "أنت نسيت اسم المستخدم"
exit sub
end if
if username.value <>"مستخدم
قديم" then
msgbox
"عـزيـــــزي المستخــــــــدم" &
chr(10)
& username.value & chr(10)
& "أنت أدخلت اسم مستخدم خطأ "
exit sub
end if
if
passwordname.value="mbadr" then
msgbox "عـزيـــــزي
المستخــــــــــدم" & chr(10) &
username.value & chr(10)
& "مرحبا بك مع فيجوال بيسك للجميع"
window.open
"E:\vb98\subwindow.htm"
else
msgbox "عـزيـــــزي
المستخــــــــدم" & chr(10) &
username.value & chr(10)
& "كلمــة المرور غـير صحيحـة" & chr(10) & "من فضلك حاول
مرة أخري" & chr(13)
end if
End Sub
</script>
h2 تعني أن العنوان
ببنط العنوان 2
<input
type="text" name="username" value "مستخدم قديم"
size=16>
أدخل اسم المستخدم <br>
ينشئ
خانة نص لإدخال اسم المستخدم
<input
type="password" name="passwordname" value="mbadr"
size=16>
أدخـل
كلمة المرور <br>
إنشاء
مربع نص خاص بكلمة المرور
<input
type="button" name="buttonGo" value= "انقر هنا" >
إنشاء
زر ينقره المستخدم بعد إدخال بياناته.
Sub ButtonGo_OnClick
ما
سوف ينفذ عند نقر الزر ButtonGo
if username.value="
" then
msgbox
"عـزيـــــزي المستخــــــــدم" &
chr(10)
& username.value & chr(10)
& "أنت نسيت اسم المستخدم"
exit sub
end if
إذا
ترك اسم المستخدم خاويا فأخرج الرسالة
if username.value <>"مستخدم قديم" then
msgbox
"عـزيـــــزي المستخــــــــدم" &
chr(10)
& username.value & chr(10)
& "أنت أدخلت اسم مستخدم خطأ "
exit sub
إذا
أدخل المستخدم اسم خطأ فأخرج الرسالة :
if
passwordname.value="mbadr" then
msgbox "عـزيـــــزي
المستخــــــــــدم" & chr(10) &
username.value & chr(10)
& "مرحبا بك مع فيجوال بيسك للجميع"
window.open
"E:\vb98\subwindow.htm"
إذا
أدخل المستخدم كلمة المرور الصحيحة ، فأخرج
الرسالة :
ثم
تحميل الملف القادم في نافذة جديدة .
msgbox "عـزيـــــزي
المستخــــــــدم" & chr(10) &
username.value & chr(10)
& "كلمــة المرور غـير صحيحـة" & chr(10) & "من فضلك حاول
مرة أخري" & chr(13)
إذا
أدخل المستخدم كلمة مرور غير صحيحة تخرج له
الرسالة التالية:
أدخل اسم المستخدم
|