برای اتصال به بانک اطلاعاتی اکسس شما به موارد زیر نیاز دارید:
1.فایلی جهت ذخیره مسیر و نام بانک اطلاعاتی config
2.دسترسی write , delete و read
3.موتور پردازشگر asp که بوسیله فایل config به بانک اطلاعاتی متصل شود و عملیات لازم را انجام دهد.
فایل config.asp
<%
'تعریف متغیرها
Dim strConn, ObjCon
'فعال کردن بافر
Response.Buffer = True
'### CONNECTION STRINGS CONFIGURATION ###
'تعریف چند متغیر
tablpfx = "tbl"
dbFldr = "../db/"
'تعریف نام بانک اطلاعاتی و مسیر دهی
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & Server.MapPath(dbFldr & "dbname.mdb") & ";"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.CursorLocation = 3
objConn.open strConn
%>
2.نحوه تعریف دسترسی ها در ویندوز:
https://barnamenevis.org/showthread.php?t=21245
3.موتور پردازشگر:
<!--#include virtual="config.asp"-->
<%
'اطمینان از عدم وجود مشکل برنامه نویسی
If Err.Number <> 0 then
Response.Write "<font face='verdana' size='2'><br><b>The Error has occured!</b>"
Response.Write "<br><br>Page: <b>config/config.asp</b>"
Response.Write "<br><br>Error Number: <b>" & err.number & "</b>"
Response.Write "<br><br>Error Description: <b>" & err.description & "</b>"
Response.End
End If
'چک کردن نوع درخواست فرم و اطمینان از مساوی بودن آن با مقدارpost (دقت کنید که در هر دو طرف تساوی از حروف کوچک استفاده شده)
If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then
Fname = Sq(Request.Form("Name"))
Lname = Sq(Request.Form("Family"))
'اتصال به بانک اطلاعاتی و وارد کردن مقادیر
strsql = "INSERT INTO " & tablPfx & "[tablename] (Fname, Lname) values ('" & Fname & "', '" & Lnname & "');"
ObjCon.Execute(strsql)
End If
'فیلتر کردن کوتیشن برای جلوگیری از اینجکشن
Function Sq(Inputstr)
Inputstr = Replace(Inputstr, "'", "''")
End Finction
%>