| التقنيات التي نستخدمها في تصميم مواقعنا هي تقنيات
ميكروسوفت (MicroSoft) وتعتبر
البيئة (.net.) بيئة متطورة
فريدة وجديدة بل نقلة نوعية في علم البرمجيات ، مثلما كان
الإنتقال من بيئة الدوس (DOS)
إلى بيئة الوندوز (Windows) ،
حيث أصبح من السهل رسم أدوات تحكم على النموذج. |
| يجب على المطور أن يتعلم عدة تقنيات حتى يتمن من
تصميم مواقع قوية ، باستطاعتنا تقسيم المواد التي يدرسها
المطور الى نوعين ، مواد أساسية ومواد مساعدة ، حيث لا
يمكن للمطور أن يصمم دون المواد الأساسية بينما يستطيع
الاستغناء عن المواد المساعدة إلا أن معرفته بها سيساعده
كثيرا ويعطيه الإمكانية لاستخدام تقنيات عالية. |
المواد الأساسية :
- لغة (HTML).
- تعلم تقنية قواعد البيانات (مثل
Access أو SQLServer).
- فرونت بيج (FrontPage).
- تقنية ال (ASP)
|
| المواد المساعدة
|
| لتشغيل أية برنامج بلغة ال (ASP)
يجب أن يكون الملقم يدعم هذه التقنية ، مخدمات ميروسوفت (IIS)
تدعم هذه التقنية ، أما مخدمات ال (Apachi)
فيجب تثبيت مكتبات خاصة. |
| بعض الشيفرات كأمثلة : |
| فتح وصلة لقاعدة البيانات عن طريق التعرف الى مسار
قاعدة البيانات الفيزيائي. |
dim DBPath,DataBaseConnection
dim sqlSTR
DBPath = server.MapPath("..\DataBasePath\db.mdb")
set DataBaseConnection=
server.createobject("ADODB.Connection")
sqlSTR =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & DBPath
DataBaseConnection.open
sqlSTR |
|
| إغلاق وصلة قاعدة البيانات |
db.close
set db = nothing |
|
| |
|
|
| تقوم هذا الشيفرة بإرسال رسالة بريدية |
dim objMessage
Set objMessage
=Server.CreateObject("CDO.Message")
objMessage.Subject = "Mail
Subject"
objMessage.From = "admin@unisoftco.com"
objMessage.To =
"admin@unisoftco.com"
objMessage.HTMLBody =
"Mail HTML Body"
objMessage.Bcc = "darweesh@syriantours.net"
'Copy
objMessage.Send |
|
| وهذه الشيفرة تتحقق من البريد الإلكتروني وهل هو صحيح. |
Public Function IsValidEmail(ByRef
Value, MaxLength, IsRequired)
IsValidEmail = True
If Value = "Null" Then Value = ""
Value = Trim(Value)
If IsRequired And Len(Value) = 0 Then
IsValidEmail = False
If Len(Value) > MaxLength Then IsValidEmail
= False
If Len(Value) > 0 Then
If InStr(1, Value, "@") = 0 Then
IsValidEmail = False
If InStr(1, Value, ".") = 0 Then
IsValidEmail = False
End If
End Function |
|
| شيفرة البداية ، اجبار تعريف المتغيرات |
<%@ language=VBScript %>
<% option explicit %> |
|
| شيفرة انشاء مؤشر الى جدول و فتح وصلة الى جدول |
dim rsNews
set rsNews =
server.createobject("ADODB.Recordset")
rsNews.open "select * from News",DataBaseConnection,1,1 |
|
| إغلاق المؤشر وافراغ الذاكرة |
rsNews.close
set rsNews = nothing |
|
