ارتباط با بانک اطلاعاتي از طريق Asp
معمولا در هر وب سايت علاوه بر شاخه www يک شاخه ديگر وجود دارد که بانک اطلاعاتي و فايلهاي داده اي را در آن قرار مي دهند. دليل اينکه بانک اطلاعاتي را در داخل دايرکتوري هاي شاخه www قرار نمي دهند اين است که اين شاخه را مي توان با استفاده از نرم افزارهاي WebZip به طور کامل دانلود نمود .
بديهي است درصورتي که بانک اطلاعاتي را در شاخه www قرار داده باشيم در آن صورت محل امني براي داده هاي خودمان انتخاب نکرده ايم . خصوصا اينکه معمولا يکي از جداول بانک اطلاعاتي حاوي رمزها و نام و حساب کاربران مي باشد و اين مسئاله وجود محل امن براي داده ها را دو چندان مي کند
هر حال با فرض اينکه بانک اطلاعاتي را در محل مناسبي در سايت خود قرار داده باشيد به روش زير مي توان با بانک اطلاعاتي موجود بر روي سايت ارتباط برقرار نمود
مرحله اول : ايجاد DSN
قبل از ارتباط با بانک اطلاعاتي بايد يک DSN براي ارتباط با بانک مربوطه ايجاد کنيد براي اين منظور مي توانيد با استفاده از کنترل پانل سايت اقدام به ايجاد DSN مربوطه نماييد . ( در صورتي که سايت شما داراي کنترل پانل نيست مي بايست با کسي که فضا را از او اجاره کرده ايد تماس گرفته تا او اين کار را براي شما انجام دهد )
توضيح : به جاي DSN مي توان از Connection String هم استفاده کرد ولي اين روش توصيه نمي شود
مرحله دوم : ايجاد يک فايل ASP
يک فايل با پسوند ASP با استفاده از Front Page و يا هر ويراستار ديگر ايجاد نماييد . و دستورات زير را در آن تايپ کنيد. دقت کنيد که در اينجا Sitedsn نام DSN ايجاد شده براي بانک اطلاعاتي مورد نظر شماست که در مرحله قبل ايجاد شده است
<% @Language="VBScript" %>
نکته : دستورات مربوط به VBScript بايد بين دو علامت نوشته شوند بنابراين براي قراردادن دستورات زير در داخل فايل Asp بايد آنها را بين دوعلامت فوق محصور کنيد
مرحله سوم : ايجاد يک ارتباط
Dim Myconn
Set MyConn=Server.CreateObject("ADODB.Connection")
مرحله چهارم : بازکردن ارتباط
myconn.Open "Sitedsn"
مرحله پنجم : ايجاد يک رکورد ست
set Rs = Server.CreateObject("ADODB.Recordset")
مرحله ششم: بازيابي داده ها در صورت نياز
Dim SqlStr
SqlStr="Select * from نام جدول where شرايط"
set Rs=myconn.Execute("SqlStr")
مرحله هفتم : بستن بانک اطلاعاتي
myconn.close
set myconn=nothing
