کتاب مهمترین یاور انسان در تمام مراحل بوده و خواهد بود شاید نحوه در دسترس بودن آن متفاوت باشد اما همان ساختار بی ریایی خود را حفظ خواهد کرد.
این سایت امکانی است برای در اختیار گذاشتن کتابها در دسترس عموم تا بتوانند از این طریق به اطلاعات خود افزوده و نتیجه مطلوب را از مطالعه آنها بگیرند.
بطور کلی سایت برای دریافت کتابها برنامه ریزی شده است همچنین امکان قرار دادن فایل را برای کاربران فراهم نموده است که برای این کار بازدید کنندگان باید عضو سایت باشند.
پروژه دارای 21 صفحه بوده که در آن از کدهای HTML و زبان برنامه نویسی Asp.net همچنین کدهای VB.net استفاده شده است.Asp.net و Vb.net جزء جدید ترین زبانهای برنامه نویسی بوده که از طرف شرکت مایکروسافت به بازار روانه شده است این زبانها با وجود اشیاء زیادی که در خود دارند کار برنامه نویسی را تا حدود زیادی ساده تر نموده اند .
زبانها فوق الذکر در مجموعه .Net موجود بوده و با نصب آن می توانید این زبانها را به راحتی کار نمایید.
همچنین در این برنامه از بانک اطلاعاتی Sql استفاده شده است که برای ارتباط به آن حتما باید Microsoft Sql Server را بر روی سیستم نصب نمایید.و درنهایت برای اجرای بدون مشکل آن احتیاج به نصب Internet Information Service(IIS) دارید که جزء نرم افزارهای جانبی ویندوز بوده و می توانید به راحتی آن را از روی سی دی نصب ویندوز نصب نمایید.
کل فایلهای پروژه داخل شاخه ای به نام FeeEBook قرار دارند و داخل این شاخه دو شاخه App_data برای قرار گرفتن بانک اطلاعاتی و Book برای قرار گرفتن کتابها ایجاد شده اند.
امکانات زیر برای طراحی سایت نظر قرار گرفته است .
بخش کاربری : بخشی از سایت مربوط به لینک های سایر سایت های دیگر که کار مشابه سایت ما را انجام می دهند و کتابخانه های الکترونیکی معروف باشد .
بخش جستجو نیز برای کتابهای مورد نظر کاربران قرار داده شده است.
تبلیغات سایر ارگانها و سازمانها نیز در سایت قرار داده شده است بخش مدیریتی : در صفحات سایت یک بخش کوچک برای ورود نام کاربری و رمز عبور مدیر سایت و کاربران عضو در سایت گنجانده شده است .
مدیر سایت از این طریق می تواند به صفحات کنترلی دسترسی یابد و کاربران عضو می توانند کتاب های جدید خود را در سایت بگذارند صفحه کنترلی مربوط به مدیر سایت می تواند حاوی امکاناتی مثل حذف کاربران ، حذف یا تغییر اطلاعات کتاب ها می باشد .
صفحه مربوط به کاربران عضو می تواند دارای امکانات اضافه کردن کتاب باشد .
بانک اطلاعاتی وب سایت بانک اطلاعاتی بانک اطلاعاتی موجود در برنامه با استفاده از Sql Server 2005 ایجاد شده است.جدا ول بکار رفته در بانک اطلاعاتی:جدول TbEbook این جدول برای ذخیره اطلاعات کتابها ایجاد شده است و دارای هفت فیلد مختلف می باشد.جدول TbUser این جدول برای ذخیره اطلاعات کاربران ایجاد شده است ودارای پنج فیلد مختلف می باشد.
فیلدهای بکار رفته در جدول TbEbook: Name: از این فیلد که از نوع متن می باشد برای ذخیره سازی نام کتابها استفاده می کنیمPages :این فیلد نیز از نوع متنی با سایز 4 می باشد که تعداد صفحات کتاب مورد نظر را در خود نگهداری می کند.NumClick:این فیلد از نوع عددی بوده و تعداد دانلود های کتابها را نمایش می دهدDescribe : این فیلد از نوع متنی بوده و توضیحات مختصری را در مورد کتاب ارائه شده در خود نگه می دارد.Subject:این فیلد نیز از نوع متنی بوده و شامل کلمات کلیدی در مورد کتاب می باشد این کلمات به تشخیص مدیر سیستم در بانک ذخیره می شود همچنین کاربران نیز می توانند این کار را انجام دهند.Writers:این فیلد از نوع متنی بوده ون ام نویسنده کتاب را در خود ذخیره می کند.LocalAdd:این فیلد از نوع متنی بوده و نام فایل را در خود نگهداری میکند نام فایل منظور نام فیزیکی فایل بر روی هارد می باشد چون مسیر قرار گرفتن فایلها ثابت و در شاخه Book قرار دارند.ما فقط نام کتاب را برای دانلود آن لازم داریم لذا در این فیلد نام کامل فایل به همراه پسوند آن قرار می گیرد تا در پروژه با اضافه شدن به آدرس ثابت بتوان به راحتی آن را دانلود نمود.
فیلدهای بکار رفته در جدول TbUser: Name: از این فیلد برای ذخیره کردن نام کاربر استفاده کردن و از نوع متنی می باشد.
Family: نام خانوادگی کاربر می باشد.Usern: برای ذخیره نام کاربری و از نوع متنی می باشد.Passwo : در این فیلد متنی کلمه عبور انتخابی کاربر قرار می گیرد.Email : این فیلد برای ذخیره آدرس ایمیل کاربر استفاده می شود.
صفحات وب سایت در وب سایت ایجاد شده 21 صفحه وجود دارد تا بتوانند کلیه کارهای لازم را انجام دهند.صفحه اصلی:این صفحه با عنوان Default.aspx موجود بوده و شامل لینک به سایر امکانات موجود در وب سایت می باشد.در این صفحه موارد زیر قرار دارند که هر کدام به صفحه ای دیگر متصل می شوند.عضویت در سایت :این بخش امکان عضویت کاربران را در سایت می دهد.با زدن این لینک شما به صفحه Enter.aspx وارد شده واطلاعات مربوطه را پر می نمایید.لیست کتابها : این بخش شامل لیست کاملی از کتابهای موجود در وب سایت می باشد که اطلاعات کاملی از کتابها نمایش داده شده و یک لینک دانلود نیز برای دانلود هر کتاب قرار دارد.با کلیک بر روی این لینک صفحه Books.aspx باز می شودورود به سایت : در این بخش اعضا و مدیر سایت امکان ورود به سایت را داشته و بسته به اینکه مدیر سیستم باشد یا کاربر عادی سایت اطلاعات متفاوتی نمایش داده می شود.صفحه ای که با کلیک روی این قسمت ظاهر می شود صفحه Login.aspx می باشدپنج کتاب برتر : این بخش شامل پنج کتابی است که بیشترین دانلود را داشته اند صفحه مربوط به این بخش نیز Top.aspx می باشد.جستجو : در این بخش امکان جستجوی کتابها را بر اساس کلمات کلیدی کاربر انتخاب کرده ایم صفحه مر بوط به این بخش با نام Search.aspx ذخیره شده است.
جستجو : در این بخش امکان جستجوی کتابها را بر اساس کلمات کلیدی کاربر انتخاب کرده ایم صفحه مر بوط به این بخش با نام Search.aspx ذخیره شده است.
اصلی فقط حالت طراحی را دارند و فقط از تگهای Html در آنها استفاده شده است.
در این بخش ما فقط به صفحاتی که دارای کدهای Asp.net یا VB.Net می باشند را توضیح می دهیم.
صفحه جستجو (Search.aspx): ابتدا در قسمت بالای صفحات دو کتابخانه موجود در Vb.net را به صفحه اضافه می کنیم با این کار کدنویسی برنامه نیز خلاصه تر می شود.
Imports System.Data Imports System.Data.OleDb Partial Class _Default Inherits System.Web.UI.Page سپس موارد مورد نیاز برای انجام عمل جستجو را در خصوصیت PageLoad می نویسیم این بخش زمانی اجرا می شود که صفحه در حال لود شدن باشد.
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load توضیح متغیرهای استفاده شده: ابتدا یک متغییر از نوع oleDbconnection تعریف می کنیم.این نوع برای اتصال به بانک استفاده می شود.
Dim objcn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As New DataSet متغیرهای این بخش مورد اول برای گرفتن اطلاعات ورودی کاربر مورد بعد برای قرار دادن نوع ارتباط با بانک و در نهایت متغیر بعد برای قرار دادن دستور Sql در آن مورد استفاده قرار می گیرد.
Dim strgetsearch, strcn, StrSql As String Dim newFind As DataTable متغیر اول برای قرار دادن تعداد فیلدهای جدول می باشد و از متغیر بعدی برای حرکت بر روی رکوردهای جدول استفاده میشود.
Dim getCountrows, Ix As Integer چهار دستور Response که در ادامه آمده است برای چاپ عنوان صفحه است که ابتدا جمله نتایج جستجو را نمایش داده سپس به خط بعد می رود در خط بعد یک خط با استفاده از تگ ایجاد کرده و در نهایت برای چاپ بقیه اطلاعات به خط بعدی می رود.
Response.Write(" نتایج جستجو") Response.Write("") Response.Write("") Response.Write("") در این بخش با استفاده از دستور Request.form اطلاعات ارسالی از سوی کاربر را که در یک Textbox در قسمت جستجوی صفحه اصلی وجود دارد را دریافت کرده و در یک متغییر ذخیره می کند.
strgetsearch = Request.Form("Strsearch") در این بخش ابتدا چک می شود که کاربر موردی را برای جستجو وارد کرده است یا خیر در صورتی که این کار را انجام داده باشد دستورات بعدی برای انجام عمل جستجو انجام می شود.
If strgetsearch <> "" Then در این بخش ما موارد مورد نیاز برای ارتباط به بانک را مشخص می کنیم.نام تولید کننده بانک اطلاعاتی نحوه دسترسی به اطلاعات نام SqlServer که بر روی سیستم نصب شده است و در نهایت مسیر قرار گرفتن بانک اطلاعاتی.
strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" حال با استفاده از مورد فوق می توانیم کانکشن را ایجاد نماییم این کار را با استفاده از عملگر New انجام می دهیم.
objcn = New OleDbConnection(strcn) پس از ایجاد کانکشن آن را با استفاده از متد Open باز می کنیم.
objcn.Open() برای انجام عملیات جستجو لازم داریم تا به جداول مورد نیاز در داخل بانک دسترسی پیدا کنیم.برای این کار اولا نیاز به یک دستور Sql داریم تا شرایط نمایش جدول را در آن مشخص کنیم در دستور زیر ما تمام فیلدهای جدول را لازم داریم برای مواردی که فیلد Subject حاوی مواردی باشد شبیه به اطلاعاتی که کاربر وارد کرده برای این کار از عملگر Like استفاده کرده ایم.
StrSql = "select * from tbebook where subject like '%" & strgetsearch & "%'" حال با استفاده از دستور Sql و شی که برای کانکشن ایجاد کردیم یک دیتا آداپتر را ایجاد می کنیم .
da = New OleDbDataAdapter(StrSql, objcn) دیتا آداپتر ایجاد شده را برای جدول TbEbook اجرا می کنیم و جدول بدست آمده را بر اساس دستور Sql فوق داخل یک دیتا ست قرار می دهیم.
da.Fill(ds, "tbebook") برای دسترسی به اطلاعات موجود در دیتا ست احتیاج به یک نوع متغیر از نوع Datatable داریم که در زیر آن را ایجاد کرده ایم.
newFind = New DataTable در زیر اطلاعات کامل جدول موجود در دیتاست را به جدول فوق انتقال می دهیم.
newFind = ds.Tables(0) در این بخش تعداد سطرهای جدول را بدست می آوریم تا در ادامه بررسی کنیم که اگر مخالف صفر بود یعنی موردی پیدا شده و اطلاعات را نمایش دهد اما اگر مساوی صفر بود یعنی اطلاعاتی پیدا نشده و پیغام مناسب مبنی بر عدم پیدا کردن اطلاعات نمایش داده شود.
getCountrows = newFind.Rows.Count If getCountrows <> 0 Then در این بخش ابتدا با استفاده از تگ اقدام به ایجاد جدولی برای نمایش اطلاعات می کنیم.
Response.Write("") در قسمت زیر اطلاعات بدست آمده از جدول را در ستونهای ایجاد شده توسط دستور Response قرار می گیرد نحوه دسترسی به عناصر جدول به این ترتیب است که با استفاده از متد Row از متغییر Newfind به سطر مورد نظر می رویم که در زیر این کار با استفاده از متغییر Ix حلقه For انجام می شود.سپس با استفاده از متد Item مربوط به Rows می توانیم به تک تک فیلدهای جدول دسترسی پیدا کنیم ترتیب شماره گزاری فیلدها نیز از عدد صفر آغاز می شود.
For Ix = 0 To getCountrows - 1 Response.Write("") Response.Write("") برای نمایش نام کتاب Response.Write(newFind.Rows(Ix).Item(0)) Response.Write("") Response.Write("") برای نمایش تعداد صفحات کتاب Response.Write(newFind.Rows(Ix).Item(1)) Response.Write("") Response.Write("") برای نمایش تعداد دانلودهای کتاب Response.Write(newFind.Rows(Ix).Item(2)) Response.Write("") Response.Write("") برای نمایش توضیحاتی مختصر در مورد کتاب Response.Write(newFind.Rows(Ix).Item(3)) Response.Write("") Response.Write("") برای نمایش نام نویسنده کتاب Response.Write(newFind.Rows(Ix).Item(5)) Response.Write("") Response.Write("") برای نمایش لینک دانلود در این بخش اطلاعات فیلد آخر جدول که حاوی نام آن بود خوانده شده و به قسمت Href تگ که برای ایجاد لینک از آن استفاده می کنیم نسبت داده شده است آدرس سایت هم که ثابت است در قسمت اول قرار گرفته و بدین ترتیب با کلیک کردن کاربر بر روی لینک دانلود به فایل مورد نظر منتقل شده و امکان دانلود آن را داریم.
Response.Write("دانلود ") Response.Write("") Next Ix Response.Write("") Else این بخش زمانی اجرا می شود که اطلاعات مورد نظر در جدول وجود نداشته باشد در اینصورت پیغام زیر نمایش داده شده و به کاربر اعلام می کند.
Response.Write("کتاب مورد نظر شما مو جود نمی باشد") End If پس از انجام عملیات مربوط به جستجو شی ایجاد شده برای اتصال به بانک را می بندیم.این کار با استفاده از متد Open شی Objcn انجام می شود.
objcn.Close() Else این بخش در صورتی انجام می شود که کاربر اطلاعاتی را برای جستجو وارد نرده باشد.
Response.Write("لطفا یک مورد را برای جستجو وارد نمایید") End If End Sub End Class صفحه مربوط به نمایش پنج کتاب برتر (Top.aspx): این صفحه بر اساس تعداد دانلودها پنج کتابی را که بیشترین دانلود را داشته اند را نمایش می دهد.برای این کار نیز ابتدا با استفاده از یک دستور Sql جدول را بر اساس فیلد numClick که حاوی تعداد دانلودها می باشد بطور نزولی مرتب کرده و پنج مورد اول را نمایش می دهیم.
قسمت اول کدها شبیه به مورد قبلی بوده یعنی ابتدا کتابخانه های مورد نیاز را اضافه کرده و کد برنامه را در قسمت لود صفحه وارد کرده ایم.
Imports System.Data Imports System.Data.OleDb Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim objcn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As New DataSet Dim strcn, StrSql As String Dim newFind As DataTable Dim getCountrows, Ix As Integer Response.Write(" نتایج جستجو") Response.Write("") Response.Write("") Response.Write("") strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() در این دستور Sql با استفاده از خصوصیت Order By دستورات Sql جدول را بر اساس فیلد NumClick و بصورت Desc یا نزولی مرتب کرده ایم با این کار کتابی که بیشترین دانلود را داشته در سطر اول جدول قرار می گیرد و به همین ترتیب به پایین رفته بطوری که اخرین فیلد دارای کمتری تعداد انلود می باشد.
ضمن اینکه اگر به جای استفاده از Desc از Asc استفاده کنید جدول بصورت صعودی مرتب می شود.
StrSql = "select * from tbebook order by numClick Desc" da = New OleDbDataAdapter(StrSql, objcn) da.Fill(ds, "tbebook") newFind = New DataTable newFind = ds.Tables(0) getCountrows = newFind.Rows.Count If getCountrows <> 0 Then Response.Write("") چون می خواهیم برنامه فقط پنج مورد اول را نمایش دهد با استفاده از یک حلقه for آن را پنج بار تکرار می کنیم.و فقط پنج مورد اول را نمایش می دهیم.
For Ix = 0 To 4 Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(0)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(1)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(2)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(3)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(5)) Response.Write("") Response.Write("") Response.Write("دانلود ") Response.Write("") Next Ix Response.Write("") Else Response.Write("کتاب مورد نظر شما مو جود نمی باشد") End If objcn.Close() End Sub End Class صفحه نمایش کل کتابها (Books.aspx): این بخش که برای نمایش اطلاعات جامعی درباره کتابها استفاده می شود لیست کاملی از کتابهای موجود در بانک اطلاعاتی را با امکان دانلود انها به کاربران می دهد.
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim objcn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As New DataSet Dim strcn, StrSql As String Dim newFind As DataTable Dim getCountrows, Ix As Integer Response.Write(" لیست کامل کتابهای مو جود") Response.Write("") Response.Write("") Response.Write("") strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() چون می خواهیم تمام موارد را نمایش دهیم دستور Sql را برای تمام فیلدها و بدون شرط می نویسیم.
StrSql = "select * from tbebook" da = New OleDbDataAdapter(StrSql, objcn) da.Fill(ds, "tbebook") newFind = New DataTable newFind = ds.Tables(0) getCountrows = newFind.Rows.Count If getCountrows <> 0 Then Response.Write("") For Ix = 0 To getCountrows - 1 Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(0)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(1)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(2)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(3)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(5)) Response.Write("") Response.Write("") Response.Write("دانلود ") Response.Write("") Next Ix Response.Write("") Else Response.Write("کتاب مورد نظر شما مو جود نمی باشد") End If objcn.Close() End Sub عضویت در سایت (Enter.aspx): این بخش شامل یکسری textbox برای گرفتن اطلاعاتی در مورد کاربران است این اطلاعات شامل موراد زیر می باشد پس از وارد کردن اطلاعات و زدن دکمه ثبت نام اطلاعات به صفحه Register.aspx ارسال می شوند.
صفحه ثبت اطلاعات کاربران (Register.aspx): ابتدا برای گرفتن اطلاعات از کاربران احتیاج به تعریف متغیرهایی داریم تا در ادامه با استفاده از دستور Request بتوانیم اطلاعات ارسالی کاربر را در متغییر ها قرار دهیم.
Dim strNames As String Dim StrFamilys As String Dim strUsers As String Dim StrPassw As String Dim strEmails As String strNames = Request.Form("strname") StrFamilys = Request.Form("strfamily") strUsers = Request.Form("struser") StrPassw = Request.Form("strpass") strEmails = Request .Form("stremail") در این بخش ابتدا تمام موارد ارسالی از سوی کاربر چک می شود تا تمام موارد را وارد کرده باشند در صورتی که موردی وارد نشده باشد پیغام مناسبی برای ارسال این اطلاعات استفاده می شود و اگر تمام موارد وارد شده باشد یک اتصال به بانک ایجاد می کند و اطلاعات را در بانک قرار می دهد.
If strNames <> "" Then If StrFamilys <> "" Then If strUsers <> "" Then If StrPassw <> "" Then If strEmails <> "" Then Dim objcn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As New DataSet Dim strcn, StrSql As String Dim newFind As DataTable Dim cm As OleDbCommand Response.Write(" نتایج جستجو") Response.Write("") Response.Write("") Response.Write("") strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() نحوه قرار گرفتن اطلاعات در بانک اطلاعاتی به این نحو است که با استفاده از دستور Sql ،Insert اطلاعات را در جدول قرار می دهیم.شکل این دستور بصورت زیر بوده و پس از مورد Into نام جدولی که می خواهیم اطلاعات در آن قرار بگیرد را نوشته سپس داخل پرانتز نام تمام فیلدهای جدول را نوشته و با کاما از هم جدا می کنیم و قسمت Value مقادیری را که می خواهیم در جدول قرار گیرد را بصورتی که با کاما از هم جدا می شوند می نویسیم.
StrSql = "insert into tbuser(" & "name ," & "family ," & "usern ," & "passwo ," & "email" & ")values ('" & strNames & "','" & StrFamilys & "','" & strUsers & "','" & _ StrPassw & "','" & strEmails & "')" این قسمت یک Command را که برای اجرای دستورات Sql استفاده می شوند ایجاد می کنیم.و در مرحله بعد آنرا با استفاده از خصوصیت ExecuteNoneQueryاجرا می کنیم.
cm = New OleDbCommand(StrSql, objcn) cm.ExecuteNonQuery() objcn.Close() Response.Write("از اینکه در سایت ما ثبت نام کردید متشکریم") Response.Write("") Response.Write("") Response.Write("") Response.Write("با تشکر سایت فری بوک ورود شما را به جمع خود تبریک گفته و شما با عضویت در سایت می توانید از صفحه اصلی سایت وارد قسمت کاربران شده تا کتابها و جزوات خود را در اختیار سایت قرار دهید تا با نام شما در سایت قرار گیرد") Else Response.Write("وجود خطا در فیلد ایمیل") End If Else Response.Write("وجود خطا در فیلد پسورد") End If Else Response.Write("وجود خطا در فیلد نام کاربری") End If Else Response.Write("وجود خطا در فیلد نام خانوادگی") End If Else Response.Write("وجود خطا در فیلد نام") End If Response.Write("") : Response.Write("") Response.Write("صفحه اصلی ") Response.Write("ثبت نام ") End Sub صفحه ورود به سایت (Login.aspx): این صفحه پس از گرفتن نام کاربری و کلمه عبور بر اساس اینکه کاربر عادی سایت باشد یا مدیر سیستم محتویات صفحه تغییر می کند.
Dim objcn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As New DataSet Dim stru, strp, strcn, StrSql As String Dim newFind As DataTable Dim getCountrows, Ix As Integer Response.Write(" بخش کاربران") Response.Write("") Response.Write("") Response.Write("") در این بخش نام کاربری و کلمه عبور ارسالی کاربر گرفته شده و در متغییرهایی ریخته می شود.
stru = Request.Form("Strusername") strp = Request.Form("Strpassword") If (stru <> "" And strp <> "") Then strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() در این بخش با استفاده از دستور Sql جدول tbuser باز می شود و با بررسی شرط مقادیر usern و passwo را با نام کاربر و کلمه عبور مو جود در جدول چک کرده و در صورت برابر بودن اجازه ورود داده می شود در غیر اینصورت پیغامی مبنی بر عدم مراجعه به این صفحه داده می شود.
StrSql = "select * from tbuser where usern='" & stru & "' and passwo='" & strp & "'" da = New OleDbDataAdapter(StrSql, objcn) da.Fill(ds, "tbuser") newFind = New DataTable newFind = ds.Tables(0) getCountrows = newFind.Rows.Count If getCountrows <> 0 Then در این بخش اگر نام کاربری وارد شده برابر با Admin بود نتیجه می گیریم که مدیر سایت وارد شده است لذا با گذاشتن دو لینک برای تغییر کاربران و تغییر کتابها آنها را در صفحه چاپ می کنیم.
if stru="admin" then response.write("مدیریت سایت") Response.write("") Response.write("تغییر کاربران") Response.Write("") Response.Write("") Response.Write("") Response.Write("تغییر کتابها") Else در صورتی که نام کاربری مدیر سیستم نبود مورد زیر چاپ می شود و امکان ارسال فایل را به کاربر می دهد.
Response.Write("برای ارسال فایل اینجا را کلیک کنید") end if Else Response.Write("شما مجاز به ورود به سیستم نمی باشید") End If objcn.Close() Else Response.Write("شما نام کاربری و پسورد را وارد نکرده اید") End If End Sub صفحه انتقال فایل(Upload1,2.aspx): قسمت انتقال فایل شامل صفحه upload1.aspx می باشد در این صفحه کاربر مشخصات کتاب ارسالی را وارد می کند.و با زدن دکمه ارسال آن را به فرم Upload2.aspx انتقال داده و پس از ذخیره کردن اطلاعات به کاربر اجازه انتقال فایل را به شاخه Book می دهد.
در زیر اطلاعات ارسالی از طرف کاربر را دریافت کرده و در متغیرها قرار می دهد.
strN = Request.Form("sn") StrP = Request.Form("sp") StrD = Request.Form("sd") strS = Request.Form("sk") strW = Request.Form("sw") StrF = Request.Form("SF") Dim objcn As OleDbConnection Dim strcn, StrSql As String Dim cm As OleDbCommand strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() در زیر با استفاده از دستور Sql ، Insert اطلاعات دریافت شده در جدول TbEbook قرار می گیرد.
StrSql = "insert into tbebook(" & "name ," & "pages ," & "numclick ," & "describe ," & "subject ," & "writers ," & "localadd )values ('" & strN & "','" & StrP & "','" & 0 & "','" & _ StrD & "','" & strS & "','" & strW & "','" & StrF & "')" cm = New OleDbCommand(StrSql, objcn) cm.ExecuteNonQuery() objcn.Close() در بخش کدهای Html ما برای انتقال فایل از یک شی داخلی ما برای انتقال فایل از یک شی داخلی asp.net استفاده شده است .
شی زیر با نام FileUpload قرار دارد با قرار دادن این شی یک جعبه متن و یک دکمه Browse قرار دارد.با زدن دکمه Browse یک پنجره برای انتخاب فایل ظاهز شده و کاربر با انتخاب فایل مسیر آن را به جعبه متن می دهد.
runat="server"> در این بخش یک دکمه برای انتقال فایل ایجاد کرده ایم با فشار این دکمه تابع UploadButton_click اجرا می شود.
Text="انتقال فایل" OnClick="UploadButton_Click" runat="server"> در بخش زیر یک Label ایجاد کرده ایم که وضعیت انتقال را در آن یادداشت می کنیم.
runat="server"> تابع زیر کار انتقال را انجام می دهد.
Sub UploadButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) در زیر مسیری را که می خواهیم فایل به آن منتقل شود بر روی سرور مشخص می کنیم.
Dim savePath As String = "d:\inetpub\wwwroot\freeebook\book\" در شرط زیر اگر کاربر فایلی را انتخاب کرده باشد متد HasFile مقدار True و در غیر اینصورت مقدار False را برمی گرداند.
If (FileUpload1.HasFile) Then Dim fileName As String = FileUpload1.FileName savePath += fileName در زیر کار انتقال فایل را انجام می دهیم.کار Saveas بدین صورت است که مسیر کامل فایل را دریافت می کند و آن را در مسیر مشخص شده ذخیره می کندو FileUpload1.SaveAs(savePath) UploadStatusLabel.Text = "فایل انتخابی شما با موفقیت در سرور قرار گرفت " & fileName Else UploadStatusLabel.Text = "خطا" End If End Sub صفحه chuser: این صفحه برای مساهده لیست کاربران و همچنین حذف کاربران ایجاد شده است در صفحه دو لینک وجود دارد که برای مشاهده لیست کاربران بر روی لینک لیست کاربران و برای حذف آنها بر اساس نام کاربری بر روی لینک حذف کاربران کلیک کنید.
صفحه مشاهده کاربران(List.aspx): این صفحه با اتصال به بانک کلیه اطلاعات موجود در جدول Tbuser را نمایش می دهد.این اطلاعات شامل نام کاربری ، کلمه عبور ، نام ونام خانوادگی کاربر و همچنین آدرس ایمیل فرد می باشد.
Dim objcn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As New DataSet Dim stru, strp, strcn, StrSql As String Dim newFind As DataTable Dim getCountrows, Ix As Integer Response.Write(" بخش کاربران") Response.Write("") Response.Write("") Response.Write("") strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() دستور Sql بصورت کلی نوشته شده تا تمام اطلاعات مو جود در جدول Tbuser را نمایش دهد.
StrSql = "select * from tbuser" da = New OleDbDataAdapter(StrSql, objcn) da.Fill(ds, "tbuser") newFind = New DataTable newFind = ds.Tables(0) getCountrows = newFind.Rows.Count If getCountrows <> 0 Then در این بخش عناون جدول ایجاد شده و به صورت ستونهایی نمایش داده می شود.
Response.Write("") Response.Write("") Response.Write("") Response.Write("نام") Response.Write("") Response.Write("") Response.Write("نام خانوادگی") Response.Write("") Response.Write("") Response.Write("نام کاربری") Response.Write("") Response.Write("") Response.Write("کلمه عبور") Response.Write("") Response.Write("") Response.Write("ایمیل") Response.Write("") در این بخش با استفاده از حلقه For کلیه اطلاعات موجود در جدول نمایش داده می شود.
For Ix = 0 To getCountrows - 1 Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(0)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(1)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(2)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(3)) Response.Write("") Response.Write("") Response.Write(newFind.Rows(Ix).Item(4)) Response.Write("") Next Ix Response.Write("") Else Response.Write("اطلاعاتی پیدا نشد") End If objcn.Close() صفحه حذف کاربران (Del.aspx): در این صفحه نام کاربری که می خواهید حذف شود داده می شود و با زدن دکمه حذف نام کاربری وارد شده به صفحه UD.aspx ارسال می شود تا در آنجا این کاربر از بانک اطلاعاتی حذف شود.
صفحه Ud.aspx: این صفحه با گرفتن نام کاربری از صفحه del.aspx کار حذف کاربر را بر اساس نام کاربری آن انجام می دهد.
Dim objcn As OleDbConnection Dim ds As New DataSet Dim stru, strcn, StrSql As String Dim cm As OleDbCommand Response.Write(" بخش حذف کاربر") Response.Write("") Response.Write("") Response.Write("") stru = Request.Form("StruD") If stru <> "" Then strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() کار حذف را بر اساس دستور Sql زیر انجام می دهیم در دستور Delete که جزء دستورات sql می باشد ابتدا جدول را مشخص می کنیم سپس در قسمت شرط نام کاربری وارد شده از طرف مدیریت سایت را با مقادیر موجود در جدول مقایسه و در صورت برابر بودن آن مورد از بانک حذف می شود.
StrSql = "Delete from tbuser where usern='" & stru & "'" cm = New OleDbCommand(StrSql, objcn) cm.ExecuteNonQuery() Response.Write("اطلاعات خواسته شده حذف شد") objcn.Close() Else Response.Write("شما نام کاربری را وارد نکردید") End If صفحه تغییرات بر روی کتابها(chbook.aspx): این صفحه شامل سه لینک می باشد که بوسیله این لینکها شما می توانید به صفحاتی برای حذف کتابها ، تغییر اطلاعات کتابها ، و وارد کردن مشخصات کتاب جدبد از آن استفاده کنید.
صفحه گرفتن نام کتاب برای حذف(DBook.aspx): در این صفحه نام کتاب از مدیریت سایت گرفته شده و آن را به صفحه DeleteBook.aspx ارسال می کنیم.تا در این صفحه بر اساس نام وارد شده کتاب حذف شود.
صفحه حذف کتاب(DeleteBook.aspx): این صفحه نام کتاب ارسالی از صفحه فوق را دریافت کرده و با استفاده از دستور Sql ، Delete آن را حذف می کند.
Dim objcn As OleDbConnection Dim ds As New DataSet Dim stru, strcn, StrSql As String Dim cm As OleDbCommand Response.Write(" بخش حذف کاربر") Response.Write("") Response.Write("") Response.Write("") stru = Request.Form("strBook") If stru <> "" Then strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() StrSql = "Delete from tbebook where name='" & stru & "'" cm = New OleDbCommand(StrSql, objcn) cm.ExecuteNonQuery() Response.Write("اطلاعات خواسته شده حذف شد") objcn.Close() Else Response.Write("شما نام کتاب را وارد نکرده اید") End If صفحه گرفتن نام کتاب برای تغییر اطلاعات آن (changebook.aspx): در این صفحه که شامل یک جعبه متن و یک دکمه می باشد نام کتاب گرفته می شود تا کتابی را که می خواهید در آن تغییراتی ایجاد کنید پیدا کرده و اطلاعات آن را نمایش دهد.
صفحه تغییر اطلاعات کتاب (change1b.aspx): در این صفحه کتاب مد نظر مدیریت سایت که در صفحه فوق نام آن گرفته شد ابتدا پیدا شده و اطلاعات آن در جعبه های متنی نمایش داده می شود تا مدیریت سایت امکان اعمال تغییرات را در آن داشته باشد.
Dim objcn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As New DataSet Dim stru, strp, strcn, StrSql As String Dim newFind As DataTable Dim getCountrows, Ix As Integer Response.Write(" بخش کاربران") Response.Write("") Response.Write("") Response.Write("") stru = Request.Form("strbook") If (stru <> "") Then strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() در این بخش با استفاده از دستور Sql و نام کتاب وارد شده از سوی مدیریت سایت آن را پیدا کرده و در ادامه خصوصیات کتاب را نمایش می دهیم.
StrSql = "select * from tbebook where name='" & stru & "'" da = New OleDbDataAdapter(StrSql, objcn) da.Fill(ds, "tbebook") newFind = New DataTable newFind = ds.Tables(0) getCountrows = newFind.Rows.Count If getCountrows <> 0 Then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("نام کتاب") Response.Write("") Response.Write("") Response.Write("تعداد صفحات") Response.Write("") Response.Write("") Response.Write("تعداد دانلودها") Response.Write("") Response.Write("") Response.Write("توضیحات") Response.Write("") Response.Write("") Response.Write("کلمات کلیدی") Response.Write("") Response.Write("") Response.Write("نویسنده") Response.Write("") Response.Write("") Response.Write("") در قسمت زیر برای هر فیلد یک جعبه متن با استفاده از تگ ایجاد کرده ایم که مقدار Value یا پیش فرض آن را برابر مقادیر موجود در جدول قرار داده ایم بدین ترتیب مدیریت سایت می تواند این مقادیر پیش فرض را تغییر دهد و موارد جدید تغییر یافته را به صفحه بعد برای ذخیره سازی ارسال نماید Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write(" Response.Write("") Else Response.Write("چنین کتابی موجود نمی باشد") End If objcn.Close() Else Response.Write("شما نام کتاب را وارد نکرده اید") End If صفحه اعمال تغییرات (change2b.aspx): در این صفحه ابتدا با معرفی چند متغییر موارد ارسالی از صفحه قبل را دریافت کرده ایم این موارد شامل تغییرات جدید می باشد.
Dim strNamebook1, strpagesbook1, strnumbook1, strdescbook1, strkeybook1, strwritersbook1 As String Dim da As OleDbDataAdapter Dim ds As New DataSet Dim newFind As DataTable strNamebook1 = Request.Form("strnamebook") strpagesbook1 = Request.Form("strpagesbook") strnumbook1 = Request.Form("strnumbook") strdescbook1 = Request.Form("strdescbook") strkeybook1 = Request.Form("strkeybook") strwritersbook1 = Request.Form("strwritersbook") Dim objcn As OleDbConnection Dim strcn, StrSql As String Dim cm As OleDbCommand Response.Write(" اعمال تغیرات") Response.Write("") Response.Write("") Response.Write("") strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SEPEHR\SQLEXPRESS;Initial File Name=D:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\book.mdf" objcn = New OleDbConnection(strcn) objcn.Open() StrSql = "select * from tbuser" da = New OleDbDataAdapter(StrSql, objcn) da.Fill(ds, "tbebook") newFind = New DataTable newFind = ds.Tables(0) newFind.NewRow() برای اعمال تغییرات از دستور Sql ، Update استفاده کرده ایم این دستور بدین ترتیب عمل می کند که ابتدا بر اساس شرطی که قرار داده ایم که در اینجا نام کتاب است مورد را از جدول پیدا کرده و مقادیر آن را با مقادیر ارسالی جدید جایگزین می کند.
StrSql = "Update tbebook set name='" & strNamebook1 & "' ,pages='" & strpagesbook1 & "' ,numclick ='" & strnumbook1 & "' ,Describe ='" & strdescbook1 & "' ,subject='" & strkeybook1 & "' ,Writers='" & strwritersbook1 & "' where name='" & strNamebook1 & "'"