السلام عليكم ورحمة الله وبركاته
اخواني وحبايبي اعضاء وادارة منتدانا الغالي والمحب
لدي مشروع اعجبني بكثير لكن عند دخولي لهـ اتضح انه مستخدم ومبرمج بـ vb
السؤال هل يوجد برنامج لتحويل المشروع الى asp.net 2010
ياليت احد يفيدني
وجربت طريقة تحويل كل صفحة لكن تضهر لي اخطاء
تكفون ابيه ضروري محتاجه بمشروع التخرج
بأخذ بعض من الافكار الموجوده فيه
طالبكم اذا احد يعرف لايبخل علي
والمشروع راح ارفقه لكم بالمرفقات
طبعاً بعد اذن المبرمج للمشروع
هل تريد تحويله الى C# ام الى الفيجوال استوديو 2010 ؟
TareqVB كتب:هل تريد تحويله الى C# ام الى الفيجوال استوديو 2010 ؟
لا اخي الى #C
اريد تحويلهـ لـ asp.net4 _2010
تم تعديل هذه المشاركة بواسطة dahooomy في 27 سبتمبر 2011 في 21:56
عندما أريد أن أحول كود من vb الي c# أو العكس
باستخدم هذا الموقع
Eng/Nesreen كتب:عندما أريد أن أحول كود من vb الي c# أو العكس
باستخدم هذا الموقع
لأخفيك لقد جربت بهذا الموقع ومواقع اخرى
لكن يظهر لدي اخطاء كثيرهـ
فهل من احد يساعدني
السلام عليكم ورحمه الله وبركاته
أخي dahooomyانا نزلت المشروع بتاعك وفتحتها لقيت هناك صفحات لها code behind مثل
صفحه ssadmin.aspx و صفحة الكود بتاعها ssadmin.aspx.vb
وهذه الصفحة أمكني تحويلها من خلال الموقع الذي أرسلته لك
أما باقي الصفحات التي ليس لها Code behind أعتقد و الله أعلم انه لاينفع تحويلها بهذه الطريقه إلا إذا عملتلها صفحه كود يكون أمتدادها
aspx.vb
يعني مثلا الكود بتاعك
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.Mail
Imports System.Security.Cryptography
Imports System.IO
Partial Class ssadmin
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
txtEditN_nid.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(Me.btnEditN_nid, "") + ";event.returnValue=false;}"
txtEditA_aid.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(Me.btnEditA_aid, "") + ";event.returnValue=false;}"
txtnsHTML.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(Me.btnnsSearch, "") + ";event.returnValue=false;}"
txtnsSubject.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(Me.btnnsSearch, "") + ";event.returnValue=false;}"
txtChangePassword.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(Me.Button6, "") + ";event.returnValue=false;}"
btnSendEmail.Attributes("onclick") = "javascript:imgSendEmail.width='199';imgSendEmail.height='10';imgSendEmail.src='http://suhail-school.com/img/load.gif'"
End Sub
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT COUNT([admin_username]) FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?", cn)
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", txtuser.Text.ToString)
Dim arrPW() As Byte = EncToBytes(txtpass.Text.ToString)
Dim pw As String = "", i As Integer
For i = 0 To arrPW.Length - 1
pw &= arrPW(i)
Next
cmd.Parameters.AddWithValue("?", Mid(pw, 1, 25))
Try
cn.Open()
If CInt(cmd.ExecuteScalar) = 1 Then
Server.ScriptTimeout = 7200
MultiView1.ActiveViewIndex = 1
cmd.CommandText = "SELECT [admin_cnews] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?"
tblCNews.Visible = IIf(cmd.ExecuteScalar = 2, True, False)
cmd.CommandText = "SELECT [admin_cads] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?"
tblCAds.Visible = IIf(cmd.ExecuteScalar = 2, True, False)
cmd.CommandText = "SELECT [admin_cemail] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?"
tblCEmail.Visible = IIf(cmd.ExecuteScalar = 2, True, False)
cmd.CommandText = "SELECT [admin_cwc] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?"
tblCwu.Visible = IIf(cmd.ExecuteScalar = 2, True, False)
cmd.CommandText = "SELECT [admin_cuf] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?"
tblCuf.Visible = IIf(cmd.ExecuteScalar = 2, True, False)
cmd.CommandText = "SELECT [admin_cadmins] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?"
tblCAdmin.Visible = IIf(cmd.ExecuteScalar = 2, True, False)
End If
Catch ex As Exception
Exit Sub
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\التحكم بالاخبار
'///// إضافة أخبار
Protected Sub btnAddClearSaved_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddClearSaved.Click
txtNews.Text = ""
txtNewsSubject.Text = ""
lblAddNewsState.Visible = False
End Sub
Protected Sub btnCAddNews_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCAddNews.Click
mv_adminOptions.ActiveViewIndex = 1
End Sub
Protected Sub btnAddNews_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddNews.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("INSERT INTO `tbl_news`(`news_date`,`news_subject`,`news_html`) VALUES(@d,?,?)", cn)
Try
cmd.Parameters.Clear()
cmd.Parameters.Add("@d", OleDbType.Date)
cmd.Parameters("@d").DbType = DbType.DateTime
cmd.Parameters("@d").Value = DateTime.Now
cmd.Parameters.AddWithValue("?", IIf(txtNewsSubject.Text.Length <= 75, txtNewsSubject.Text.ToString, Mid(txtNewsSubject.Text.ToString, 1, 75)))
cmd.Parameters.AddWithValue("?", txtNews.Text.ToString)
cn.Open()
cmd.ExecuteNonQuery()
lblAddNewsState.Visible = True
lblAddNewsState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>تمت أضافة الخبر بنجاح</td></tr></table>"
Catch ex As Exception
lblAddNewsState.Visible = True
lblAddNewsState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في اضافة الخبر ، اتصل بالدعم الفني" & _
"<br>" & "وصف الخطأ: " & ex.Message & "</td></tr></table>"
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
'////////////// نهاية إضافة الاخبار
'//////////////// تعديل الاخبار
Protected Sub btnCUpdateNews_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCUpdateNews.Click
mv_adminOptions.ActiveViewIndex = 2
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT COUNT(`news_id`) FROM `tbl_news`", cn)
Try
cn.Open()
If CInt(cmd.ExecuteScalar.ToString) < 1 Then
GridUpdateNews.Visible = False
tblGotoNews.Visible = False
lblUN_Rcount.Visible = True
lblUN_Rcount.Text = "<table><tr><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>لا توجد أخبار حالياً</td></tr></table>"
Else
GridUpdateNews.Visible = True
tblGotoNews.Visible = True
lblUN_Rcount.Visible = False
End If
Catch ex As Exception
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>")
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
'//كود الانتقال المباشر في تعديل الاخبار
Protected Sub btnEditN_nid_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEditN_nid.Click
If IsNumeric(txtEditN_nid.Text) = False OrElse txtEditN_nid.Text.Length = 0 OrElse txtEditN_nid.Text.IndexOf(".") <> -1 Then
lblEditN_nid.Visible = True
lblEditN_nid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>"
Exit Sub
End If
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT COUNT(`news_id`)FROM `tbl_news` WHERE `news_id` = ?", cn)
Try
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", txtEditN_nid.Text.ToString)
cn.Open()
If CInt(cmd.ExecuteScalar.ToString) > 0 Then
lblEditN_nid.Visible = False
tdNU1.Visible = False
tdNU2.Visible = True
cmd.CommandText = "SELECT `news_subject` FROM `tbl_news` WHERE `news_id` = ?"
txtNUsubject.Text = cmd.ExecuteScalar.ToString
cmd.CommandText = "SELECT `news_html` FROM `tbl_news` WHERE `news_id` = ?"
txtNUhtml.Text = cmd.ExecuteScalar.ToString
txtNUid.Text = txtEditN_nid.Text.ToString
Else
lblEditN_nid.Visible = True
lblEditN_nid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>"
End If
Catch ex As Exception
lblEditN_nid.Visible = True
lblEditN_nid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>"
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
'//الانتقال الى المحرر عبر الجريد فيو
Protected Sub GridUpdateNews_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridUpdateNews.SelectedIndexChanged
tdNU1.Visible = False
tdNU2.Visible = True
txtNUsubject.Text = GridUpdateNews.Rows(GridUpdateNews.SelectedIndex).Cells(2).Text
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT `news_html` FROM `tbl_news` WHERE `news_id` = ?", cn)
Try
txtNUid.Text = GridUpdateNews.Rows(GridUpdateNews.SelectedIndex).Cells(1).Text
cmd.Parameters.AddWithValue("?", txtNUid.Text.ToString) '//ParamValue:GridUpdateNews.Rows(GridUpdateNews.SelectedIndex).Cells(1).Text
cn.Open()
txtNUhtml.Text = cmd.ExecuteScalar.ToString
Catch ex As Exception
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>")
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub btnUNtoGrid_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUNtoGrid.Click
lblNUstate.Visible = False
tdNU1.Visible = True
tdNU2.Visible = False
AccessDataSource1.DataBind()
GridUpdateNews.DataBind()
End Sub
'///كود تعديل الخبر برقم الخبر
Protected Sub btnNupdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNupdate.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("UPDATE `tbl_news` SET `news_subject`=?, `news_html`=? WHERE (`news_id`=?)", cn)
Try
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", txtNUsubject.Text.ToString)
cmd.Parameters.AddWithValue("?", txtNUhtml.Text.ToString)
cmd.Parameters.AddWithValue("?", txtNUid.Text.ToString)
cn.Open()
cmd.ExecuteNonQuery()
lblNUstate.Visible = True
lblNUstate.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تعديل الخبر بنجاح</td></tr></table>"
Catch ex As Exception
lblNUstate.Visible = True
lblNUstate.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>"
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
'////////////نهاية اكواد تعديل الاخبار
'/////////////حذف الاخبار
Protected Sub btnCDelNews_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCDelNews.Click
mv_adminOptions.ActiveViewIndex = 3
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT COUNT(`news_id`) FROM `tbl_news`", cn)
cn.Open()
IIf(cmd.ExecuteScalar = 0, btnDelAllnews.Visible = False, btnDelAllnews.Visible = True)
cn.Close()
cmd.Dispose()
cn.Dispose()
End Sub
'//حذف جميع الاخبار
Protected Sub btnDelAllnews_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelAllnews.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("DELETE * FROM `tbl_news`", cn)
Try
cn.Open()
cmd.ExecuteNonQuery()
AccessDataSource2.DataBind()
GridView1.DataBind()
Catch ex As Exception
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي،اتصل بالدعم الفني</td></tr></table>")
Finally
AccessDataSource2.DataBind()
GridView1.DataBind()
cn.Close()
cmd.Dispose()
cn.Dispose()
AccessDataSource2.SelectCommand = "SELECT `news_id`, `news_date`, `news_subject` FROM `tbl_news`"
AccessDataSource2.DataBind()
GridView1.DataBind()
End Try
End Sub
'/////////////نهاية حذف الاخبار
'/////////////كود البحث في الاخبار
Protected Sub btnCSrchN_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCSrchN.Click
mv_adminOptions.ActiveViewIndex = 4
End Sub
'//البحث عن الاخبار
Protected Sub btnnsSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnnsSearch.Click
If txtnsSubject.Text.Length > 75 OrElse txtnsHTML.Text.Length < 1 Then
tdnsViewNews.Visible = True
lblnsViewNews.Text = "<SPAN style='font-weight: bold; font-size: 8.25pt; color: red; font-family: tahoma'>" & "لا توجد نتيجة بالقيم التي ادخلتها" & "</SPAN>"
End If
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT COUNT(`news_id`) FROM `tbl_news` WHERE `news_subject` LIKE ? AND `news_html` LIKE ?", cn)
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", "%" & txtnsSubject.Text.ToString & "%")
cmd.Parameters.AddWithValue("?", "%" & txtnsHTML.Text.ToString & "%")
cn.Open()
Dim intRCount As Integer = cmd.ExecuteScalar
If intRCount = 0 Then
tdnsViewNews.Visible = True
lblnsViewNews.Text = "<SPAN style='font-weight: bold; font-size: 8.25pt; color: red; font-family: tahoma'>" & "لا توجد نتيجة بالقيم التي ادخلتها" & "</SPAN>"
Else
tdnsViewRecords.Visible = True
tdnsViewNews.Visible = False
AccessDataSource3.SelectCommand = "SELECT `news_id`, `news_date`, `news_subject` FROM `tbl_news` WHERE `news_subject` LIKE ? AND `news_html` LIKE ? ORDER BY `news_date` DESC"
AccessDataSource3.SelectParameters.Clear()
AccessDataSource3.SelectParameters.Add("?", "%" & txtnsSubject.Text.ToString & "%")
AccessDataSource3.SelectParameters.Add("?", "%" & txtnsHTML.Text.ToString & "%")
AccessDataSource3.DataBind()
GridSearchNews.DataBind()
'txtnsSubject.Text.ToString()
End If
cn.Close()
End Sub
Protected Sub GridSearchNews_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridSearchNews.SelectedIndexChanged
tdnsViewNews.Visible = True
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT [news_html] FROM [tbl_news] WHERE [news_id]=?", cn)
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", GridSearchNews.SelectedDataKey.Value)
Dim strN As StringBuilder = New StringBuilder
strN.Append("<table><tr><td>")
strN.Append("<span style='font-size: 8pt; font-family: tahoma'>عنوان الخبر: <b><font color='green'>" & GridSearchNews.Rows(GridSearchNews.SelectedIndex).Cells(2).Text.ToString & "</font></b></span>")
strN.Append("</td></tr><tr>")
strN.Append("<td>")
cn.Open() : strN.Append(cmd.ExecuteScalar.ToString) : cn.Close()
strN.Append("</td></tr></table>")
lblnsViewNews.Text = strN.ToString
AccessDataSource3.SelectCommand = "SELECT `news_id`, `news_date`, `news_subject` FROM `tbl_news` WHERE `news_subject` LIKE ? AND `news_html` LIKE ? ORDER BY `news_date` DESC"
AccessDataSource3.SelectParameters.Clear()
AccessDataSource3.SelectParameters.Add("?", "%" & txtnsSubject.Text.ToString & "%")
AccessDataSource3.SelectParameters.Add("?", "%" & txtnsHTML.Text.ToString & "%")
AccessDataSource3.DataBind()
GridSearchNews.DataBind()
End Sub
Protected Sub btnnsClearSaved_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnnsClearSaved.Click
tdnsViewNews.Visible = False
txtnsHTML.Text = "" : txtnsSubject.Text = ""
End Sub
'////////////////نهاية البحث في الاخبار
'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\نهاية التحكم بالاخبار
'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\\/\/\/\/\/\/\/\/\/\/\/\/\/\بداية التحكم بالإعلانات والتعاميم
Protected Sub btnCAddAds_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCAddAds.Click
mv_adminOptions.ActiveViewIndex = 5
End Sub
'////إضافة إعلان تعميم
Protected Sub btnAddAds_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddAds.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("INSERT INTO `tbl_ads`(`ad_IsPrivate`,`ad_date`,`ad_subject`,`ad_html`) VALUES(@b,@d,?,?)", cn)
Try
cmd.Parameters.Clear()
cmd.Parameters.Add("@b", OleDbType.Binary)
cmd.Parameters("@b").DbType = DbType.Byte
cmd.Parameters("@b").Value = cmbAddAdsPrivacy.SelectedValue
cmd.Parameters.Add("@d", OleDbType.Date)
cmd.Parameters("@d").DbType = DbType.DateTime
cmd.Parameters("@d").Value = DateTime.Now
cmd.Parameters.AddWithValue("?", IIf(txtAddAdsSubject.Text.Length <= 75, txtAddAdsSubject.Text.ToString, Mid(txtAddAdsSubject.Text.ToString, 1, 75)))
cmd.Parameters.AddWithValue("?", txtAddAds.Text.ToString)
cn.Open()
cmd.ExecuteNonQuery()
lblAddAdsState.Visible = True
lblAddAdsState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>تمت أضافة الإعلان/التعميم بنجاح</td></tr></table>"
Catch ex As Exception
lblAddAdsState.Visible = True
lblAddAdsState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma;'>خطأ تنفيذي في الموقع في اضافة الإعلان/التعميم ، اتصل بالدعم الفني" & _
"<br>" & "وصف الخطأ: " & ex.Message & "</td></tr></table>"
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub btnAddAdsClearSaved_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddAdsClearSaved.Click
txtAddAds.Text = ""
txtAddAdsSubject.Text = ""
cmbAddAdsPrivacy.SelectedIndex = 0
lblAddAdsState.Visible = False
End Sub
'//تعديل الاعلانات التعاميم
Protected Sub btnCEditAds_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCEditAds.Click
mv_adminOptions.ActiveViewIndex = 6
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT COUNT(`ad_id`) FROM `tbl_ads`", cn)
Try
cn.Open()
If CInt(cmd.ExecuteScalar.ToString) < 1 Then
GridUpdateAds.Visible = False
tblGotoAds.Visible = False
lblAU_Rcount.Visible = True
lblAU_Rcount.Text = "<table><tr><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>لا توجد إعلانات أو تعاميم حالياً</td></tr></table>"
Else
GridUpdateAds.Visible = True
tblGotoAds.Visible = True
lblAU_Rcount.Visible = False
End If
Catch ex As Exception
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>")
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub GridUpdateAds_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridUpdateAds.SelectedIndexChanged
tdAU1.Visible = False
tdAU2.Visible = True
txtAUsubject.Text = GridUpdateAds.Rows(GridUpdateAds.SelectedIndex).Cells(2).Text
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT `ad_html` FROM `tbl_ads` WHERE `ad_id` = ?", cn)
Try
txtAUid.Text = GridUpdateAds.Rows(GridUpdateAds.SelectedIndex).Cells(1).Text
cmd.Parameters.AddWithValue("?", txtAUid.Text.ToString) '//ParamValue:GridUpdateNews.Rows(GridUpdateNews.SelectedIndex).Cells(1).Text
cn.Open()
txtAUhtml.Text = cmd.ExecuteScalar.ToString
cmd.CommandText = "SELECT `ad_IsPrivate` FROM `tbl_ads` WHERE `ad_id` = ?"
cmbAUtype.SelectedValue = cmd.ExecuteScalar.ToString
Catch ex As Exception
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الإعلانات ، اتصل بالدعم الفني</td></tr></table>")
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub btnEditA_aid_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEditA_aid.Click
If IsNumeric(txtEditA_aid.Text) = False OrElse txtEditA_aid.Text.Length = 0 OrElse txtEditA_aid.Text.IndexOf(".") <> -1 Then
lblEditA_aid.Visible = True
lblEditA_aid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>"
Exit Sub
End If
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT COUNT(`ad_id`)FROM `tbl_ads` WHERE `ad_id` = ?", cn)
Try
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", txtEditA_aid.Text.ToString)
cn.Open()
If CInt(cmd.ExecuteScalar.ToString) > 0 Then
lblEditA_aid.Visible = False
tdAU1.Visible = False
tdAU2.Visible = True
cmd.CommandText = "SELECT `ad_subject` FROM `tbl_ads` WHERE `ad_id` = ?"
txtAUsubject.Text = cmd.ExecuteScalar.ToString
cmd.CommandText = "SELECT `ad_html` FROM `tbl_ads` WHERE `ad_id` = ?"
txtAUhtml.Text = cmd.ExecuteScalar.ToString
txtAUid.Text = txtEditA_aid.Text.ToString
cmd.CommandText = "SELECT `ad_IsPrivate` FROM `tbl_ads` WHERE `ad_id` = ?"
cmbAUtype.SelectedValue = cmd.ExecuteScalar.ToString
Else
lblEditA_aid.Visible = True
lblEditA_aid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>"
End If
Catch ex As Exception
lblEditA_aid.Visible = True
lblEditA_aid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>"
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub btnAupdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAupdate.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("UPDATE `tbl_ads` SET `ad_subject`=?, `ad_html`=?,`ad_IsPrivate`=? WHERE (`ad_id`=?)", cn)
Try
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", txtAUsubject.Text.ToString)
cmd.Parameters.AddWithValue("?", txtAUhtml.Text.ToString)
cmd.Parameters.AddWithValue("?", cmbAUtype.SelectedValue)
cmd.Parameters.AddWithValue("?", txtAUid.Text.ToString)
cn.Open()
cmd.ExecuteNonQuery()
lblAUstate.Visible = True
lblAUstate.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تعديل الخبر بنجاح</td></tr></table>"
Catch ex As Exception
lblAUstate.Visible = True
lblAUstate.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>"
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub btnUAtoGrid_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUAtoGrid.Click
lblAUstate.Visible = False
tdAU1.Visible = True
tdAU2.Visible = False
AccessDataSource4.DataBind()
GridUpdateAds.DataBind()
End Sub
Protected Sub btnCDelAds_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCDelAds.Click
mv_adminOptions.ActiveViewIndex = 7
End Sub
Protected Sub DelAds_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DelAds.Click
Dim DelMsg As String = ""
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("DELETE * FROM `tbl_ads`", cn)
Select Case cmbDelAds.SelectedValue
Case 1
cmd.CommandText = "DELETE * FROM `tbl_ads`"
DelMsg = "الإعلانات والتعاميم"
Case 2
cmd.CommandText = "DELETE * FROM `tbl_ads` WHERE `ad_IsPrivate`=1"
DelMsg = "الإعلانات والتعاميم العامة"
Case 3
cmd.CommandText = "DELETE * FROM `tbl_ads` WHERE `ad_IsPrivate`=2"
DelMsg = "الإعلانات والتعاميم الخاصة"
Case Else
Exit Sub
End Select
Try
cn.Open()
cmd.ExecuteNonQuery()
AccessDataSource5.DataBind()
GridView2.DataBind()
Catch ex As Exception
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي،اتصل بالدعم الفني</td></tr></table>")
Finally
AccessDataSource5.DataBind()
GridView2.DataBind()
cn.Close()
cmd.Dispose()
cn.Dispose()
AccessDataSource5.SelectCommand = "SELECT `ad_id`, `ad_date`, `ad_subject` FROM `tbl_ads`"
AccessDataSource5.DataBind()
GridView2.DataBind()
End Try
End Sub
Protected Sub btnCSrchAds_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCSrchAds.Click
mv_adminOptions.ActiveViewIndex = 8
End Sub
Protected Sub btnasSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnasSearch.Click
If txtasSubject.Text.Length > 75 Then
tdasViewAds.Visible = True
lblasViewAds.Text = "<SPAN style='font-weight: bold; font-size: 8.25pt; color: red; font-family: tahoma'>" & "لا توجد نتيجة بالقيم التي ادخلتها" & "</SPAN>"
End If
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim strIsPrivateinSQL As String = ""
Select Case cmbSearchAds.SelectedValue
Case 2
strIsPrivateinSQL = " AND `ad_IsPrivate`=1"
Case 3
strIsPrivateinSQL = "AND `ad_IsPrivate`=2"
End Select
Dim cmd As New OleDbCommand("SELECT COUNT(`ad_id`) FROM `tbl_ads` WHERE `ad_subject` LIKE ? AND `ad_html` LIKE ?" & strIsPrivateinSQL, cn)
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", "%" & txtasSubject.Text.ToString & "%")
cmd.Parameters.AddWithValue("?", "%" & txtasHTML.Text.ToString & "%")
cn.Open()
Dim intRCount As Integer = cmd.ExecuteScalar
If intRCount = 0 Then
tdasViewAds.Visible = True
lblasViewAds.Text = "<SPAN style='font-weight: bold; font-size: 8.25pt; color: red; font-family: tahoma'>" & "لا توجد نتيجة بالقيم التي ادخلتها" & "</SPAN>"
Else
tdasViewRecords.Visible = True
tdasViewAds.Visible = False
AccessDataSource6.SelectCommand = "SELECT `ad_id`, `ad_date`, `ad_subject` FROM `tbl_ads` WHERE `ad_subject` LIKE ? AND `ad_html` LIKE ?" & strIsPrivateinSQL & " ORDER BY `ad_date` DESC"
AccessDataSource6.SelectParameters.Clear()
AccessDataSource6.SelectParameters.Add("?", "%" & txtasSubject.Text.ToString & "%")
AccessDataSource6.SelectParameters.Add("?", "%" & txtasHTML.Text.ToString & "%")
AccessDataSource6.DataBind()
GridSearchAds.DataBind()
txtasSubject.Text.ToString()
End If
cn.Close()
End Sub
Protected Sub GridSearchAds_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridSearchAds.SelectedIndexChanged
tdasViewAds.Visible = True
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT [ad_IsPrivate] FROM [tbl_ads] WHERE [ad_id]=?", cn)
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", GridSearchAds.SelectedDataKey.Value)
cn.Open()
Dim strN As StringBuilder = New StringBuilder
Dim strPrivate As String = IIf(cmd.ExecuteScalar.ToString = 2, "خاص", "عام")
strN.Append("<table><tr><td>")
strN.Append("<span style='font-size: 8pt; font-family: tahoma'>عنوان الإعلان/التعميم: <b><font color='green'>" & GridSearchAds.Rows(GridSearchAds.SelectedIndex).Cells(2).Text.ToString)
strN.Append("</font></b><br>نوع الإعلان/التعميم: <b><font color='green'>" & strPrivate & "</font></b></span>")
strN.Append("</td></tr><tr>")
strN.Append("<td>")
cmd.CommandText = "SELECT [ad_html] FROM [tbl_ads] WHERE [ad_id]=?"
strN.Append(cmd.ExecuteScalar.ToString)
strN.Append("</td></tr></table>")
lblasViewAds.Text = strN.ToString
AccessDataSource6.SelectCommand = "SELECT `ad_id`, `ad_date`, `ad_subject` FROM `tbl_ads` WHERE `ad_subject` LIKE ? AND `ad_html` LIKE ? ORDER BY `ad_date` DESC"
AccessDataSource6.SelectParameters.Clear()
AccessDataSource6.SelectParameters.Add("?", "%" & txtasSubject.Text.ToString & "%")
AccessDataSource6.SelectParameters.Add("?", "%" & txtasHTML.Text.ToString & "%")
AccessDataSource6.DataBind()
GridSearchNews.DataBind()
cn.Close()
End Sub
Protected Sub btnCemailMemebers_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCemailMemebers.Click
mv_adminOptions.ActiveViewIndex = 9
AccessDataSource7.SelectCommand = "SELECT [id], [name], [email], [HawiahNum], [IsActive] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]<>'1'"
AccessDataSource7.DataBind()
GridView3.DataBind()
End Sub
Protected Sub btnEmailMembersShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEmailMembersShow.Click
Select Case DropDownList1.SelectedValue
Case 1
AccessDataSource7.SelectCommand = "SELECT [id], [name], [email], [HawiahNum], [IsActive] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]<>'1'"
Case 2
AccessDataSource7.SelectCommand = "SELECT [id], [name], [email], [HawiahNum], [IsActive] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]='1'"
Case 3
AccessDataSource7.SelectCommand = "SELECT [id], [name], [email], [HawiahNum], [IsActive] FROM [tbl_emails] WHERE [IsActive]=2"
End Select
AccessDataSource7.DataBind()
GridView3.DataBind()
End Sub
Protected Sub btnCemailSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCemailSend.Click
mv_adminOptions.ActiveViewIndex = 10
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
If DropDownList3.SelectedValue = 4 Then
tdSpecialEmail.Visible = True
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim da As New OleDbDataAdapter("SELECT [id], [name], [email] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]<>'1'", cn)
Dim ds As New DataSet
da.Fill(ds, "[tbl_emails]")
If ds.Tables(0).Rows.Count < 1 Then
cmbStudentsEmail.Enabled = False : cmbStudentsEmail.Visible = False
btnAddEmailTotxt.Enabled = False : btnAddEmailTotxt.Visible = False
Exit Sub
End If
cmbStudentsEmail.Enabled = True : cmbStudentsEmail.Visible = True
btnAddEmailTotxt.Enabled = True : btnAddEmailTotxt.Visible = True
Dim i As Integer = 0
For i = 0 To ds.Tables(0).Rows.Count - 1
Dim lstI As New ListItem(ds.Tables(0).Rows(i)("id").ToString & " - " & ds.Tables(0).Rows(i)("name").ToString, ds.Tables(0).Rows(i)("email").ToString)
cmbStudentsEmail.Items.Add(lstI)
Next
cmbStudentsEmail.SelectedIndex = 0
Else
tdSpecialEmail.Visible = False
End If
End Sub
Protected Sub btnAddEmailTotxt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddEmailTotxt.Click
txtAddEmailToTxt.Text &= cmbStudentsEmail.SelectedValue & ";"
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
DropDownList3.SelectedIndex = 0
txtAddEmailToTxt.Text = ""
txtEmailSubject.Text = ""
txtSendEmail.Text = ""
End Sub
Protected Sub btnSendEmail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSendEmail.Click
If DropDownList3.SelectedValue = 1 Then
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim da As New OleDbDataAdapter("SELECT [id],[name],[email] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]<>'1'", cn)
Dim ds As New DataSet
da.Fill(ds, "[tbl_emails]")
If ds.Tables(0).Rows.Count > 0 Then
Try
Dim enc1 As New System.Text.UTF8Encoding
Dim msg1 As New MailMessage
msg1.From = "info@suhail-school.com"
msg1.Subject = txtEmailSubject.Text.ToString
msg1.BodyFormat = MailFormat.Html
msg1.BodyEncoding = enc1
msg1.Body = txtSendEmail.Text.ToString
msg1.Priority = MailPriority.Normal
Dim i As Integer
Dim CountOfmails As Integer = 0
For i = 0 To ds.Tables(0).Rows.Count - 1
msg1.To = ds.Tables(0).Rows(i)("email").ToString
SmtpMail.Send(msg1)
CountOfmails += 1
Next
lblEmailState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>" & "تم إرسال " & CountOfmails & " رسالة/رسائل بنجاح" & "</td></tr></table>"
Catch ex As Exception
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء إرسال البريد الالكتروني ، اتصل بالدعم الفني" & _
"<br>" & "وصف الخطأ: " & ex.Message & "</td></tr></table>"
Exit Sub
End Try
Else
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>لا يوجد عناوين بريد الكتروني في الفئة المحددة</td></tr></table>"
Exit Sub
End If
ElseIf DropDownList3.SelectedValue = 2 Then
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim da As New OleDbDataAdapter("SELECT [id],[name],[email] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]='1'", cn)
Dim ds As New DataSet
da.Fill(ds, "[tbl_emails]")
If ds.Tables(0).Rows.Count > 0 Then
Try
Dim enc1 As New System.Text.UTF8Encoding
Dim msg1 As New MailMessage
msg1.From = "info@suhail-school.com"
msg1.Subject = txtEmailSubject.Text.ToString
msg1.BodyFormat = MailFormat.Html
msg1.BodyEncoding = enc1
msg1.Body = txtSendEmail.Text.ToString
msg1.Priority = MailPriority.Normal
Dim i As Integer
Dim CountOfmails As Integer = 0
For i = 0 To ds.Tables(0).Rows.Count - 1
msg1.To = ds.Tables(0).Rows(i)("email").ToString
SmtpMail.Send(msg1)
CountOfmails += 1
Next
lblEmailState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>" & "تم إرسال " & CountOfmails & " رسالة/رسائل بنجاح" & "</td></tr></table>"
Catch ex As Exception
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء إرسال البريد الالكتروني ، اتصل بالدعم الفني" & _
"<br>" & "وصف الخطأ: " & ex.Message & "</td></tr></table>"
Exit Sub
End Try
Else
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>لا يوجد عناوين بريد الكتروني في الفئة المحددة</td></tr></table>"
Exit Sub
End If
ElseIf DropDownList3.SelectedValue = 3 Then
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim da As New OleDbDataAdapter("SELECT [id],[name],[email] FROM [tbl_emails] WHERE [IsActive]=2", cn)
Dim ds As New DataSet
da.Fill(ds, "[tbl_emails]")
If ds.Tables(0).Rows.Count > 0 Then
Try
Dim enc1 As New System.Text.UTF8Encoding
Dim msg1 As New MailMessage
msg1.From = "info@suhail-school.com"
msg1.Subject = txtEmailSubject.Text.ToString
msg1.BodyFormat = MailFormat.Html
msg1.BodyEncoding = enc1
msg1.Body = txtSendEmail.Text.ToString
msg1.Priority = MailPriority.Normal
Dim i As Integer
Dim CountOfmails As Integer = 0
For i = 0 To ds.Tables(0).Rows.Count - 1
msg1.To = ds.Tables(0).Rows(i)("email").ToString
SmtpMail.Send(msg1)
CountOfmails += 1
Next
lblEmailState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>" & "تم إرسال " & CountOfmails & " رسالة/رسائل بنجاح" & "</td></tr></table>"
Catch ex As Exception
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء إرسال البريد الالكتروني ، اتصل بالدعم الفني" & _
"<br>" & "وصف الخطأ: " & ex.Message & "</td></tr></table>"
Exit Sub
End Try
Else
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>لا يوجد عناوين بريد الكتروني في الفئة المحددة</td></tr></table>"
Exit Sub
End If
ElseIf DropDownList3.SelectedValue = 4 Then
Dim arrEmails() As String = txtAddEmailToTxt.Text.Split(";")
If arrEmails.Length > 0 Then
Try
Dim enc1 As New System.Text.UTF8Encoding
Dim msg1 As New MailMessage
msg1.From = "info@suhail-school.com"
msg1.Subject = txtEmailSubject.Text.ToString
msg1.BodyFormat = MailFormat.Html
msg1.BodyEncoding = enc1
msg1.Body = txtSendEmail.Text.ToString
msg1.Priority = MailPriority.Normal
Dim i As Integer
Dim CountOfmails As Integer = 0
For i = 0 To arrEmails.Length - 1
If IsEmailAddress(arrEmails(i)) = True Then
msg1.To = arrEmails(i).ToString
SmtpMail.Send(msg1)
CountOfmails += 1
End If
Next
lblEmailState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>" & "تم إرسال " & CountOfmails & " رسالة/رسائل بنجاح" & "</td></tr></table>"
Catch ex As Exception
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء إرسال البريد الالكتروني ، اتصل بالدعم الفني" & _
"<br>" & "وصف الخطأ: " & ex.Message & "</td></tr></table>"
Exit Sub
End Try
Else
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>لم تدخل عناوين بريد الكتروني</td></tr></table>"
Exit Sub
End If
End If
'-----------------------
imgSendEmail.Height = 0
imgSendEmail.Width = 0
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
mv_adminOptions.ActiveViewIndex = 11
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim da As New OleDbDataAdapter("SELECT [wc_id],[wc_subject] FROM [tbl_wc]", cn)
Dim ds As New DataSet
da.Fill(ds, "[tbl_wc]")
Dim i As Byte
For i = 0 To ds.Tables(0).Rows.Count - 1
Dim lstItem As New ListItem(ds.Tables(0).Rows(i)("wc_subject"), ds.Tables(0).Rows(i)("wc_id"))
lstWC.Items.Add(lstItem)
Next
End Sub
Protected Sub btnwcDelText_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnwcDelText.Click
mv_webc.ActiveViewIndex = 0
End Sub
Protected Sub btnwcAcceptChanges_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnwcAcceptChanges.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("UPDATE `tbl_wc` SET `wc_html`=? WHERE (`wc_id`=?)", cn)
Try
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", txtwcEdit.Text.ToString)
cmd.Parameters.AddWithValue("?", txtwcID.Text)
cn.Open()
cmd.ExecuteNonQuery()
lblwcState.Visible = True
lblwcState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تعديل المحتوى بنجاح</td></tr></table>"
Catch ex As Exception
lblwcState.Visible = True
lblwcState.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل المحتوى ، اتصل بالدعم الفني</td></tr></table>"
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub btnwcEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnwcEdit.Click
mv_webc.ActiveViewIndex = 1
txtwcID.Text = lstWC.SelectedValue
lblwcEdit.Text = lstWC.SelectedItem.Text
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("SELECT `wc_html` FROM `tbl_wc` WHERE `wc_id` = ?", cn)
Try
cmd.Parameters.AddWithValue("?", txtwcID.Text)
cn.Open()
txtwcEdit.Text = cmd.ExecuteScalar.ToString
Catch ex As Exception
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>")
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub btnUploadFiles_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUploadFiles.Click
Dim strPath As String = Request.PhysicalApplicationPath & "uploads\"
Dim CountOfFiles As Byte = 0
Try
If fu1.HasFile = True Then
If System.IO.Directory.Exists(strPath) = False Then
txtfu1.Text = "مجلد الملفات غير موجود"
Else
If System.IO.File.Exists(strPath & fu1.FileName) Then
txtfu1.Text = "يوجد ملف سابق بنفس الاسم"
Else
fu1.SaveAs(strPath & fu1.FileName)
txtfu1.Text = "http://www.suhail-school.com/uploads/" & fu1.FileName
CountOfFiles += 1
End If
End If
End If
Catch ex As Exception
txtfu1.Text = "فشلت عملية رفع الملفات"
End Try
Try
If fu2.HasFile = True Then
If System.IO.Directory.Exists(strPath) = False Then
txtfu2.Text = "مجلد الملفات غير موجود"
Else
If System.IO.File.Exists(strPath & fu2.FileName) Then
txtfu2.Text = "يوجد ملف سابق بنفس الاسم"
Else
fu2.SaveAs(strPath & fu2.FileName)
txtfu2.Text = "http://www.suhail-school.com/uploads/" & fu2.FileName
CountOfFiles += 1
End If
End If
End If
Catch ex As Exception
txtfu2.Text = "فشلت عملية رفع الملفات"
End Try
Try
If fu3.HasFile = True Then
If System.IO.Directory.Exists(strPath) = False Then
txtfu3.Text = "مجلد الملفات غير موجود"
Else
If System.IO.File.Exists(strPath & fu3.FileName) Then
txtfu3.Text = "يوجد ملف سابق بنفس الاسم"
Else
fu3.SaveAs(strPath & fu3.FileName)
txtfu3.Text = "http://www.suhail-school.com/uploads/" & fu3.FileName
CountOfFiles += 1
End If
End If
End If
Catch ex As Exception
txtfu3.Text = "فشلت عملية رفع الملفات"
End Try
Try
If fu4.HasFile = True Then
If System.IO.Directory.Exists(strPath) = False Then
txtfu4.Text = "مجلد الملفات غير موجود"
Else
If System.IO.File.Exists(strPath & fu4.FileName) Then
txtfu4.Text = "يوجد ملف سابق بنفس الاسم"
Else
fu4.SaveAs(strPath & fu4.FileName)
txtfu4.Text = "http://www.suhail-school.com/uploads/" & fu4.FileName
CountOfFiles += 1
End If
End If
End If
Catch ex As Exception
txtfu4.Text = "فشلت عملية رفع الملفات"
End Try
Try
If fu5.HasFile = True Then
If System.IO.Directory.Exists(strPath) = False Then
txtfu5.Text = "مجلد الملفات غير موجود"
Else
If System.IO.File.Exists(strPath & fu5.FileName) Then
txtfu5.Text = "يوجد ملف سابق بنفس الاسم"
Else
fu5.SaveAs(strPath & fu5.FileName)
txtfu5.Text = "http://www.suhail-school.com/uploads/" & fu5.FileName
CountOfFiles += 1
End If
End If
End If
Catch ex As Exception
txtfu5.Text = "فشلت عملية رفع الملفات"
End Try
If CountOfFiles = 0 Then
lblUFstate.Text = "لا يتم رفع أي ملف"
Else
lblUFstate.Text = "تم رفع " & CountOfFiles & "ملف/ملفات إلى الموقع بنجاح"
End If
End Sub
Protected Sub btnCUFupload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCUFupload.Click
mv_adminOptions.ActiveViewIndex = 12
End Sub
Public Function IsEmailAddress(ByVal s As String) As Boolean
Dim blnMatch As Boolean
blnMatch = System.Text.RegularExpressions.Regex.IsMatch(s, _
"^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)" & _
"|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$")
Return blnMatch
End Function
Protected Sub btnUnactivedEmailMembers_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUnactivedEmailMembers.Click
mv_adminOptions.ActiveViewIndex = 13
GridView4.DataBind()
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmdIsUserFound As New OleDbCommand("SELECT COUNT(`admin_username`) FROM `tbl_admins` WHERE `admin_username`=?", cn)
cmdIsUserFound.Parameters.AddWithValue("?", txtAddAdminUsername.Text.ToString)
cn.Open()
Dim userIsFound As Byte = cmdIsUserFound.ExecuteScalar
cn.Close()
If txtAddAdminPassword.Text.Length < 5 OrElse userIsFound > 0 OrElse txtAddAdminUsername.Text.Length < 1 Then
lblAddAdminState.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>البيانات غير صالحة</td></tr></table>"
Exit Sub
End If
Dim cmd As New OleDbCommand("INSERT INTO `tbl_admins`(`admin_username`,`admin_password`,`admin_CNews`,`admin_CAds`,`admin_CEmail`,`admin_Cwc`,`admin_Cuf`,`admin_Cadmins`) VALUES(?,?,?,?,?,?,?,?)", cn)
Try
cmd.Parameters.AddWithValue("?", txtAddAdminUsername.Text.ToString)
Dim arrPW() As Byte = EncToBytes(txtAddAdminPassword.Text.ToString)
Dim pw As String = "", i As Integer
For i = 0 To arrPW.Length - 1
pw &= arrPW(i)
Next
cmd.Parameters.AddWithValue("?", Mid(pw, 1, 25))
cmd.Parameters.AddWithValue("?", IIf(chkCNews.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(chkCAds.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(chkCEmail.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(chkCwc.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(chkCuf.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(chkCadmins.Checked = True, 2, 1))
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
lblAddAdminState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم إنشاء حساب المدير: " & txtAddAdminUsername.Text.ToString & " بنجاح</td></tr></table>"
Catch ex As Exception
lblAddAdminState.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي ، برجاء الاتصال بالدعم الفني</td></tr></table>"
End Try
End Sub
Protected Sub btnCAddAdmin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCAddAdmin.Click
mv_adminOptions.ActiveViewIndex = 14
End Sub
Public Function EncToBytes(ByVal s As String) As Byte()
'// كود التشفير الأول تشفير MD5
Dim md5Hasher As New MD5CryptoServiceProvider
Dim hashedBytes As Byte()
Dim encoder As New System.Text.UTF8Encoding
hashedBytes = md5Hasher.ComputeHash(encoder.GetBytes(s))
Return hashedBytes
End Function
Protected Sub btnCEditPer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCEditPer.Click
mv_adminOptions.ActiveViewIndex = 15
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim da As New OleDbDataAdapter("SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin' AND [admin_username]<>?", cn)
da.SelectCommand.Parameters.AddWithValue("?", txtuser.Text.ToString)
Dim ds As New DataSet
da.Fill(ds, "[tbl_admins]")
If ds.Tables(0).Rows.Count < 1 Then
tblEditPer.Visible = False
lblEditPer2.Visible = True
lblEditPer2.Text = "لا توجد حسابات "
Exit Sub
Else
tblEditPer.Visible = True
lblEditPer2.Visible = False
End If
Dim i As Byte
For i = 0 To ds.Tables(0).Rows.Count - 1
Dim lstItem As New ListItem(ds.Tables(0).Rows(i)("admin_username"), ds.Tables(0).Rows(i)("admin_username"))
cmbEditPer.Items.Add(lstItem)
Next
End Sub
Protected Sub btnEPselect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEPselect.Click
tdEP1.Visible = True
tdEP2.Visible = True
tdEP3.Visible = True
lblEditPerState.Visible = False
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim da As New OleDbDataAdapter("SELECT [admin_username],[admin_Cnews],[admin_CAds],[admin_CEmail],[admin_Cwc],[admin_Cuf],[admin_Cadmins] FROM [tbl_admins] WHERE [admin_username]='" & cmbEditPer.SelectedValue.ToString & "'", cn)
Dim ds As New DataSet
da.Fill(ds, "[tbl_admins]")
CheckBox1.Checked = IIf(ds.Tables(0).Rows(0)("admin_Cnews") = 2, True, False)
CheckBox2.Checked = IIf(ds.Tables(0).Rows(0)("admin_Cads") = 2, True, False)
CheckBox3.Checked = IIf(ds.Tables(0).Rows(0)("admin_CEmail") = 2, True, False)
CheckBox4.Checked = IIf(ds.Tables(0).Rows(0)("admin_Cwc") = 2, True, False)
CheckBox5.Checked = IIf(ds.Tables(0).Rows(0)("admin_Cuf") = 2, True, False)
CheckBox6.Checked = IIf(ds.Tables(0).Rows(0)("admin_Cadmins") = 2, True, False)
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("UPDATE [tbl_admins] SET [admin_Cnews]=?,[admin_CAds]=?,[admin_CEmail]=?,[admin_Cwc]=?,[admin_Cuf]=?,[admin_Cadmins]=? WHERE [admin_username]='" & cmbEditPer.SelectedValue.ToString & "'", cn)
Try
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("?", IIf(CheckBox1.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(CheckBox2.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(CheckBox3.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(CheckBox4.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(CheckBox5.Checked = True, 2, 1))
cmd.Parameters.AddWithValue("?", IIf(CheckBox6.Checked = True, 2, 1))
cn.Open()
cmd.ExecuteNonQuery()
lblEditPerState.Visible = True
lblEditPerState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تعديل الصلاحيات بنجاح</td></tr></table>"
Catch ex As Exception
lblEditPerState.Visible = True
lblEditPerState.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء تعديل الصلاحيات ، اتصل بالدعم الفني</td></tr></table>"
Finally
cn.Close()
cmd.Dispose()
cn.Dispose()
End Try
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("DELETE * FROM [tbl_admins] WHERE [admin_username]='" & cmbDelAdmin.SelectedValue & "'", cn)
Try
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
cmbDelAdmin.Visible = True
lblDelAdmin.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم حذف الحساب بنجاح</td></tr></table>"
Dim da As New OleDbDataAdapter(IIf(txtuser.Text = "admin", "SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin'", "SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin' AND [admin_username]=?"), cn)
da.SelectCommand.Parameters.AddWithValue("?", txtuser.Text.ToString)
Dim ds As New DataSet
da.Fill(ds, "[tbl_admins]")
If ds.Tables(0).Rows.Count < 1 Then
tdDelAdmin.Visible = False
Exit Sub
Else
tdDelAdmin.Visible = True
End If
Dim i As Byte
For i = 0 To ds.Tables(0).Rows.Count - 1
Dim lstItem As New ListItem(ds.Tables(0).Rows(i)("admin_username"), ds.Tables(0).Rows(i)("admin_username"))
cmbDelAdmin.Items.Add(lstItem)
Next
Catch ex As Exception
cmbDelAdmin.Visible = True
lblDelAdmin.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء حذف حساب مدير موقع ، اتصل بالدعم الفني</td></tr></table>"
End Try
End Sub
Protected Sub btnCDelAdmin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCDelAdmin.Click
mv_adminOptions.ActiveViewIndex = 16
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim da As New OleDbDataAdapter(IIf(txtuser.Text = "admin", "SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin'", "SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin' AND [admin_username]=?"), cn)
da.SelectCommand.Parameters.AddWithValue("?", txtuser.Text.ToString)
Dim ds As New DataSet
da.Fill(ds, "[tbl_admins]")
If ds.Tables(0).Rows.Count < 1 Then
tdDelAdmin.Visible = False
lblDelAdmin.Visible = True
lblDelAdmin.Text = "لا توجد حسابات "
Exit Sub
Else
tdDelAdmin.Visible = True
lblDelAdmin.Visible = False
End If
Dim i As Byte
For i = 0 To ds.Tables(0).Rows.Count - 1
Dim lstItem As New ListItem(ds.Tables(0).Rows(i)("admin_username"), ds.Tables(0).Rows(i)("admin_username"))
cmbDelAdmin.Items.Add(lstItem)
Next
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
If txtChangePassword.Text.Length < 5 Then Exit Sub
Dim cn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("app_data\wsdb.mdb"))
Dim cmd As New OleDbCommand("UPDATE `tbl_admins` SET `admin_password`=? WHERE `admin_username`=?", cn)
cmd.Parameters.Clear()
Dim arrPW() As Byte = EncToBytes(txtChangePassword.Text.ToString)
Dim pw As String = "", i As Integer
For i = 0 To arrPW.Length - 1
pw &= arrPW(i)
Next
cmd.Parameters.AddWithValue("?", Mid(pw, 1, 25))
cmd.Parameters.AddWithValue("?", txtuser.Text.ToString)
Try
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
lblChangePassword.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تغيير كلمة المرور بنجاح</td></tr></table>"
Catch ex As Exception
lblChangePassword.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء تغيير كلمة المرور ، اتصل بالدعم الفني</td></tr></table>"
End Try
End Sub
Protected Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
mv_adminOptions.ActiveViewIndex = 17
End Sub
Protected Sub txtNewsSubject_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNewsSubject.TextChanged
End Sub
End Classتم تحويله الي C#
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Data.OleDb;
using System.Web.Mail;
using System.Security.Cryptography;
using System.IO;
partial class ssadmin : System.Web.UI.Page
{
protected void Page_Load(object sender, System.EventArgs e)
{
txtEditN_nid.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(this.btnEditN_nid, "") + ";event.returnValue=false;}";
txtEditA_aid.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(this.btnEditA_aid, "") + ";event.returnValue=false;}";
txtnsHTML.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(this.btnnsSearch, "") + ";event.returnValue=false;}";
txtnsSubject.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(this.btnnsSearch, "") + ";event.returnValue=false;}";
txtChangePassword.Attributes("onkeydown") = "if(event.keyCode==13){" + Page.GetPostBackClientEvent(this.Button6, "") + ";event.returnValue=false;}";
btnSendEmail.Attributes("onclick") = "javascript:imgSendEmail.width='199';imgSendEmail.height='10';imgSendEmail.src='http://suhail-school.com/img/load.gif'";
}
protected void btnLogin_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT COUNT([admin_username]) FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?", cn);
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", txtuser.Text.ToString);
byte[] arrPW = EncToBytes(txtpass.Text.ToString);
string pw = "";
int i = 0;
for (i = 0; i <= arrPW.Length - 1; i++) {
pw += arrPW;
}
cmd.Parameters.AddWithValue("?", Strings.Mid(pw, 1, 25));
try {
cn.Open();
if (Convert.ToInt32(cmd.ExecuteScalar()) == 1) {
Server.ScriptTimeout = 7200;
MultiView1.ActiveViewIndex = 1;
cmd.CommandText = "SELECT [admin_cnews] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?";
tblCNews.Visible = (cmd.ExecuteScalar() == 2 ? true : false);
cmd.CommandText = "SELECT [admin_cads] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?";
tblCAds.Visible = (cmd.ExecuteScalar() == 2 ? true : false);
cmd.CommandText = "SELECT [admin_cemail] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?";
tblCEmail.Visible = (cmd.ExecuteScalar() == 2 ? true : false);
cmd.CommandText = "SELECT [admin_cwc] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?";
tblCwu.Visible = (cmd.ExecuteScalar() == 2 ? true : false);
cmd.CommandText = "SELECT [admin_cuf] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?";
tblCuf.Visible = (cmd.ExecuteScalar() == 2 ? true : false);
cmd.CommandText = "SELECT [admin_cadmins] FROM [tbl_admins] WHERE [admin_username]=? AND [admin_password]=?";
tblCAdmin.Visible = (cmd.ExecuteScalar() == 2 ? true : false);
}
} catch (Exception ex) {
return;
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\التحكم بالاخبار
/////// إضافة أخبار
protected void btnAddClearSaved_Click(object sender, System.EventArgs e)
{
txtNews.Text = "";
txtNewsSubject.Text = "";
lblAddNewsState.Visible = false;
}
protected void btnCAddNews_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 1;
}
protected void btnAddNews_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("INSERT INTO `tbl_news`(`news_date`,`news_subject`,`news_html`) VALUES(@d,?,?)", cn);
try {
cmd.Parameters.Clear();
cmd.Parameters.Add("@d", OleDbType.Date);
cmd.Parameters["@d"].DbType = DbType.DateTime;
cmd.Parameters["@d"].Value = DateTime.Now;
cmd.Parameters.AddWithValue("?", (txtNewsSubject.Text.Length <= 75 ? txtNewsSubject.Text.ToString : Strings.Mid(txtNewsSubject.Text.ToString, 1, 75)));
cmd.Parameters.AddWithValue("?", txtNews.Text.ToString);
cn.Open();
cmd.ExecuteNonQuery();
lblAddNewsState.Visible = true;
lblAddNewsState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>تمت أضافة الخبر بنجاح</td></tr></table>";
} catch (Exception ex) {
lblAddNewsState.Visible = true;
lblAddNewsState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في اضافة الخبر ، اتصل بالدعم الفني" + "<br>" + "وصف الخطأ: " + ex.Message + "</td></tr></table>";
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
//////////////// نهاية إضافة الاخبار
////////////////// تعديل الاخبار
protected void btnCUpdateNews_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 2;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT COUNT(`news_id`) FROM `tbl_news`", cn);
try {
cn.Open();
if (Convert.ToInt32(cmd.ExecuteScalar().ToString()) < 1) {
GridUpdateNews.Visible = false;
tblGotoNews.Visible = false;
lblUN_Rcount.Visible = true;
lblUN_Rcount.Text = "<table><tr><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>لا توجد أخبار حالياً</td></tr></table>";
} else {
GridUpdateNews.Visible = true;
tblGotoNews.Visible = true;
lblUN_Rcount.Visible = false;
}
} catch (Exception ex) {
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>");
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
////كود الانتقال المباشر في تعديل الاخبار
protected void btnEditN_nid_Click(object sender, System.EventArgs e)
{
if (Information.IsNumeric(txtEditN_nid.Text) == false || txtEditN_nid.Text.Length == 0 || txtEditN_nid.Text.IndexOf(".") != -1) {
lblEditN_nid.Visible = true;
lblEditN_nid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>";
return;
}
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT COUNT(`news_id`)FROM `tbl_news` WHERE `news_id` = ?", cn);
try {
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", txtEditN_nid.Text.ToString);
cn.Open();
if (Convert.ToInt32(cmd.ExecuteScalar().ToString()) > 0) {
lblEditN_nid.Visible = false;
tdNU1.Visible = false;
tdNU2.Visible = true;
cmd.CommandText = "SELECT `news_subject` FROM `tbl_news` WHERE `news_id` = ?";
txtNUsubject.Text = cmd.ExecuteScalar().ToString();
cmd.CommandText = "SELECT `news_html` FROM `tbl_news` WHERE `news_id` = ?";
txtNUhtml.Text = cmd.ExecuteScalar().ToString();
txtNUid.Text = txtEditN_nid.Text.ToString;
} else {
lblEditN_nid.Visible = true;
lblEditN_nid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>";
}
} catch (Exception ex) {
lblEditN_nid.Visible = true;
lblEditN_nid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>";
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
////الانتقال الى المحرر عبر الجريد فيو
protected void GridUpdateNews_SelectedIndexChanged(object sender, System.EventArgs e)
{
tdNU1.Visible = false;
tdNU2.Visible = true;
txtNUsubject.Text = GridUpdateNews.Rows(GridUpdateNews.SelectedIndex).Cells(2).Text;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT `news_html` FROM `tbl_news` WHERE `news_id` = ?", cn);
try {
txtNUid.Text = GridUpdateNews.Rows(GridUpdateNews.SelectedIndex).Cells(1).Text;
cmd.Parameters.AddWithValue("?", txtNUid.Text.ToString);
////ParamValue:GridUpdateNews.Rows(GridUpdateNews.SelectedIndex).Cells(1).Text
cn.Open();
txtNUhtml.Text = cmd.ExecuteScalar().ToString();
} catch (Exception ex) {
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>");
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void btnUNtoGrid_Click(object sender, System.EventArgs e)
{
lblNUstate.Visible = false;
tdNU1.Visible = true;
tdNU2.Visible = false;
AccessDataSource1.DataBind();
GridUpdateNews.DataBind();
}
/////كود تعديل الخبر برقم الخبر
protected void btnNupdate_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("UPDATE `tbl_news` SET `news_subject`=?, `news_html`=? WHERE (`news_id`=?)", cn);
try {
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", txtNUsubject.Text.ToString);
cmd.Parameters.AddWithValue("?", txtNUhtml.Text.ToString);
cmd.Parameters.AddWithValue("?", txtNUid.Text.ToString);
cn.Open();
cmd.ExecuteNonQuery();
lblNUstate.Visible = true;
lblNUstate.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تعديل الخبر بنجاح</td></tr></table>";
} catch (Exception ex) {
lblNUstate.Visible = true;
lblNUstate.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>";
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
//////////////نهاية اكواد تعديل الاخبار
///////////////حذف الاخبار
protected void btnCDelNews_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 3;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT COUNT(`news_id`) FROM `tbl_news`", cn);
cn.Open();
(cmd.ExecuteScalar() == 0 ? btnDelAllnews.Visible == false : btnDelAllnews.Visible == true);
cn.Close();
cmd.Dispose();
cn.Dispose();
}
////حذف جميع الاخبار
protected void btnDelAllnews_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("DELETE * FROM `tbl_news`", cn);
try {
cn.Open();
cmd.ExecuteNonQuery();
AccessDataSource2.DataBind();
GridView1.DataBind();
} catch (Exception ex) {
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي،اتصل بالدعم الفني</td></tr></table>");
} finally {
AccessDataSource2.DataBind();
GridView1.DataBind();
cn.Close();
cmd.Dispose();
cn.Dispose();
AccessDataSource2.SelectCommand = "SELECT `news_id`, `news_date`, `news_subject` FROM `tbl_news`";
AccessDataSource2.DataBind();
GridView1.DataBind();
}
}
///////////////نهاية حذف الاخبار
///////////////كود البحث في الاخبار
protected void btnCSrchN_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 4;
}
////البحث عن الاخبار
protected void btnnsSearch_Click(object sender, System.EventArgs e)
{
if (txtnsSubject.Text.Length > 75 || txtnsHTML.Text.Length < 1) {
tdnsViewNews.Visible = true;
lblnsViewNews.Text = "<SPAN style='font-weight: bold; font-size: 8.25pt; color: red; font-family: tahoma'>" + "لا توجد نتيجة بالقيم التي ادخلتها" + "</SPAN>";
}
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT COUNT(`news_id`) FROM `tbl_news` WHERE `news_subject` LIKE ? AND `news_html` LIKE ?", cn);
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", "%" + txtnsSubject.Text.ToString + "%");
cmd.Parameters.AddWithValue("?", "%" + txtnsHTML.Text.ToString + "%");
cn.Open();
int intRCount = cmd.ExecuteScalar();
if (intRCount == 0) {
tdnsViewNews.Visible = true;
lblnsViewNews.Text = "<SPAN style='font-weight: bold; font-size: 8.25pt; color: red; font-family: tahoma'>" + "لا توجد نتيجة بالقيم التي ادخلتها" + "</SPAN>";
} else {
tdnsViewRecords.Visible = true;
tdnsViewNews.Visible = false;
AccessDataSource3.SelectCommand = "SELECT `news_id`, `news_date`, `news_subject` FROM `tbl_news` WHERE `news_subject` LIKE ? AND `news_html` LIKE ? ORDER BY `news_date` DESC";
AccessDataSource3.SelectParameters.Clear();
AccessDataSource3.SelectParameters.Add("?", "%" + txtnsSubject.Text.ToString + "%");
AccessDataSource3.SelectParameters.Add("?", "%" + txtnsHTML.Text.ToString + "%");
AccessDataSource3.DataBind();
GridSearchNews.DataBind();
//txtnsSubject.Text.ToString()
}
cn.Close();
}
protected void GridSearchNews_SelectedIndexChanged(object sender, System.EventArgs e)
{
tdnsViewNews.Visible = true;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT [news_html] FROM [tbl_news] WHERE [news_id]=?", cn);
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", GridSearchNews.SelectedDataKey.Value);
StringBuilder strN = new StringBuilder();
strN.Append("<table><tr><td>");
strN.Append("<span style='font-size: 8pt; font-family: tahoma'>عنوان الخبر: <b><font color='green'>" + GridSearchNews.Rows(GridSearchNews.SelectedIndex).Cells(2).Text.ToString + "</font></b></span>");
strN.Append("</td></tr><tr>");
strN.Append("<td>");
cn.Open();
strN.Append(cmd.ExecuteScalar().ToString());
cn.Close();
strN.Append("</td></tr></table>");
lblnsViewNews.Text = strN.ToString;
AccessDataSource3.SelectCommand = "SELECT `news_id`, `news_date`, `news_subject` FROM `tbl_news` WHERE `news_subject` LIKE ? AND `news_html` LIKE ? ORDER BY `news_date` DESC";
AccessDataSource3.SelectParameters.Clear();
AccessDataSource3.SelectParameters.Add("?", "%" + txtnsSubject.Text.ToString + "%");
AccessDataSource3.SelectParameters.Add("?", "%" + txtnsHTML.Text.ToString + "%");
AccessDataSource3.DataBind();
GridSearchNews.DataBind();
}
protected void btnnsClearSaved_Click(object sender, System.EventArgs e)
{
tdnsViewNews.Visible = false;
txtnsHTML.Text = "";
txtnsSubject.Text = "";
}
//////////////////نهاية البحث في الاخبار
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\نهاية التحكم بالاخبار
///\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\\/\/\/\/\/\/\/\/\/\/\/\/\/\بداية التحكم بالإعلانات والتعاميم
protected void btnCAddAds_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 5;
}
//////إضافة إعلان تعميم
protected void btnAddAds_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("INSERT INTO `tbl_ads`(`ad_IsPrivate`,`ad_date`,`ad_subject`,`ad_html`) VALUES(@b,@d,?,?)", cn);
try {
cmd.Parameters.Clear();
cmd.Parameters.Add("@b", OleDbType.Binary);
cmd.Parameters["@b"].DbType = DbType.Byte;
cmd.Parameters["@b"].Value = cmbAddAdsPrivacy.SelectedValue;
cmd.Parameters.Add("@d", OleDbType.Date);
cmd.Parameters["@d"].DbType = DbType.DateTime;
cmd.Parameters["@d"].Value = DateTime.Now;
cmd.Parameters.AddWithValue("?", (txtAddAdsSubject.Text.Length <= 75 ? txtAddAdsSubject.Text.ToString : Strings.Mid(txtAddAdsSubject.Text.ToString, 1, 75)));
cmd.Parameters.AddWithValue("?", txtAddAds.Text.ToString);
cn.Open();
cmd.ExecuteNonQuery();
lblAddAdsState.Visible = true;
lblAddAdsState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>تمت أضافة الإعلان/التعميم بنجاح</td></tr></table>";
} catch (Exception ex) {
lblAddAdsState.Visible = true;
lblAddAdsState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma;'>خطأ تنفيذي في الموقع في اضافة الإعلان/التعميم ، اتصل بالدعم الفني" + "<br>" + "وصف الخطأ: " + ex.Message + "</td></tr></table>";
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void btnAddAdsClearSaved_Click(object sender, System.EventArgs e)
{
txtAddAds.Text = "";
txtAddAdsSubject.Text = "";
cmbAddAdsPrivacy.SelectedIndex = 0;
lblAddAdsState.Visible = false;
}
////تعديل الاعلانات التعاميم
protected void btnCEditAds_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 6;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT COUNT(`ad_id`) FROM `tbl_ads`", cn);
try {
cn.Open();
if (Convert.ToInt32(cmd.ExecuteScalar().ToString()) < 1) {
GridUpdateAds.Visible = false;
tblGotoAds.Visible = false;
lblAU_Rcount.Visible = true;
lblAU_Rcount.Text = "<table><tr><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>لا توجد إعلانات أو تعاميم حالياً</td></tr></table>";
} else {
GridUpdateAds.Visible = true;
tblGotoAds.Visible = true;
lblAU_Rcount.Visible = false;
}
} catch (Exception ex) {
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>");
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void GridUpdateAds_SelectedIndexChanged(object sender, System.EventArgs e)
{
tdAU1.Visible = false;
tdAU2.Visible = true;
txtAUsubject.Text = GridUpdateAds.Rows(GridUpdateAds.SelectedIndex).Cells(2).Text;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT `ad_html` FROM `tbl_ads` WHERE `ad_id` = ?", cn);
try {
txtAUid.Text = GridUpdateAds.Rows(GridUpdateAds.SelectedIndex).Cells(1).Text;
cmd.Parameters.AddWithValue("?", txtAUid.Text.ToString);
////ParamValue:GridUpdateNews.Rows(GridUpdateNews.SelectedIndex).Cells(1).Text
cn.Open();
txtAUhtml.Text = cmd.ExecuteScalar().ToString();
cmd.CommandText = "SELECT `ad_IsPrivate` FROM `tbl_ads` WHERE `ad_id` = ?";
cmbAUtype.SelectedValue = cmd.ExecuteScalar().ToString();
} catch (Exception ex) {
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الإعلانات ، اتصل بالدعم الفني</td></tr></table>");
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void btnEditA_aid_Click(object sender, System.EventArgs e)
{
if (Information.IsNumeric(txtEditA_aid.Text) == false || txtEditA_aid.Text.Length == 0 || txtEditA_aid.Text.IndexOf(".") != -1) {
lblEditA_aid.Visible = true;
lblEditA_aid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>";
return;
}
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT COUNT(`ad_id`)FROM `tbl_ads` WHERE `ad_id` = ?", cn);
try {
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", txtEditA_aid.Text.ToString);
cn.Open();
if (Convert.ToInt32(cmd.ExecuteScalar().ToString()) > 0) {
lblEditA_aid.Visible = false;
tdAU1.Visible = false;
tdAU2.Visible = true;
cmd.CommandText = "SELECT `ad_subject` FROM `tbl_ads` WHERE `ad_id` = ?";
txtAUsubject.Text = cmd.ExecuteScalar().ToString();
cmd.CommandText = "SELECT `ad_html` FROM `tbl_ads` WHERE `ad_id` = ?";
txtAUhtml.Text = cmd.ExecuteScalar().ToString();
txtAUid.Text = txtEditA_aid.Text.ToString;
cmd.CommandText = "SELECT `ad_IsPrivate` FROM `tbl_ads` WHERE `ad_id` = ?";
cmbAUtype.SelectedValue = cmd.ExecuteScalar().ToString();
} else {
lblEditA_aid.Visible = true;
lblEditA_aid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>";
}
} catch (Exception ex) {
lblEditA_aid.Visible = true;
lblEditA_aid.Text = "<SPAN style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>رقم خاطئ</SPAN>";
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void btnAupdate_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("UPDATE `tbl_ads` SET `ad_subject`=?, `ad_html`=?,`ad_IsPrivate`=? WHERE (`ad_id`=?)", cn);
try {
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", txtAUsubject.Text.ToString);
cmd.Parameters.AddWithValue("?", txtAUhtml.Text.ToString);
cmd.Parameters.AddWithValue("?", cmbAUtype.SelectedValue);
cmd.Parameters.AddWithValue("?", txtAUid.Text.ToString);
cn.Open();
cmd.ExecuteNonQuery();
lblAUstate.Visible = true;
lblAUstate.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تعديل الخبر بنجاح</td></tr></table>";
} catch (Exception ex) {
lblAUstate.Visible = true;
lblAUstate.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>";
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void btnUAtoGrid_Click(object sender, System.EventArgs e)
{
lblAUstate.Visible = false;
tdAU1.Visible = true;
tdAU2.Visible = false;
AccessDataSource4.DataBind();
GridUpdateAds.DataBind();
}
protected void btnCDelAds_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 7;
}
protected void DelAds_Click(object sender, System.EventArgs e)
{
string DelMsg = "";
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("DELETE * FROM `tbl_ads`", cn);
switch (cmbDelAds.SelectedValue) {
case 1:
cmd.CommandText = "DELETE * FROM `tbl_ads`";
DelMsg = "الإعلانات والتعاميم";
break;
case 2:
cmd.CommandText = "DELETE * FROM `tbl_ads` WHERE `ad_IsPrivate`=1";
DelMsg = "الإعلانات والتعاميم العامة";
break;
case 3:
cmd.CommandText = "DELETE * FROM `tbl_ads` WHERE `ad_IsPrivate`=2";
DelMsg = "الإعلانات والتعاميم الخاصة";
break;
default:
return;
break;
}
try {
cn.Open();
cmd.ExecuteNonQuery();
AccessDataSource5.DataBind();
GridView2.DataBind();
} catch (Exception ex) {
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي،اتصل بالدعم الفني</td></tr></table>");
} finally {
AccessDataSource5.DataBind();
GridView2.DataBind();
cn.Close();
cmd.Dispose();
cn.Dispose();
AccessDataSource5.SelectCommand = "SELECT `ad_id`, `ad_date`, `ad_subject` FROM `tbl_ads`";
AccessDataSource5.DataBind();
GridView2.DataBind();
}
}
protected void btnCSrchAds_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 8;
}
protected void btnasSearch_Click(object sender, System.EventArgs e)
{
if (txtasSubject.Text.Length > 75) {
tdasViewAds.Visible = true;
lblasViewAds.Text = "<SPAN style='font-weight: bold; font-size: 8.25pt; color: red; font-family: tahoma'>" + "لا توجد نتيجة بالقيم التي ادخلتها" + "</SPAN>";
}
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
string strIsPrivateinSQL = "";
switch (cmbSearchAds.SelectedValue) {
case 2:
strIsPrivateinSQL = " AND `ad_IsPrivate`=1";
break;
case 3:
strIsPrivateinSQL = "AND `ad_IsPrivate`=2";
break;
}
OleDbCommand cmd = new OleDbCommand("SELECT COUNT(`ad_id`) FROM `tbl_ads` WHERE `ad_subject` LIKE ? AND `ad_html` LIKE ?" + strIsPrivateinSQL, cn);
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", "%" + txtasSubject.Text.ToString + "%");
cmd.Parameters.AddWithValue("?", "%" + txtasHTML.Text.ToString + "%");
cn.Open();
int intRCount = cmd.ExecuteScalar();
if (intRCount == 0) {
tdasViewAds.Visible = true;
lblasViewAds.Text = "<SPAN style='font-weight: bold; font-size: 8.25pt; color: red; font-family: tahoma'>" + "لا توجد نتيجة بالقيم التي ادخلتها" + "</SPAN>";
} else {
tdasViewRecords.Visible = true;
tdasViewAds.Visible = false;
AccessDataSource6.SelectCommand = "SELECT `ad_id`, `ad_date`, `ad_subject` FROM `tbl_ads` WHERE `ad_subject` LIKE ? AND `ad_html` LIKE ?" + strIsPrivateinSQL + " ORDER BY `ad_date` DESC";
AccessDataSource6.SelectParameters.Clear();
AccessDataSource6.SelectParameters.Add("?", "%" + txtasSubject.Text.ToString + "%");
AccessDataSource6.SelectParameters.Add("?", "%" + txtasHTML.Text.ToString + "%");
AccessDataSource6.DataBind();
GridSearchAds.DataBind();
txtasSubject.Text.ToString();
}
cn.Close();
}
protected void GridSearchAds_SelectedIndexChanged(object sender, System.EventArgs e)
{
tdasViewAds.Visible = true;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT [ad_IsPrivate] FROM [tbl_ads] WHERE [ad_id]=?", cn);
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", GridSearchAds.SelectedDataKey.Value);
cn.Open();
StringBuilder strN = new StringBuilder();
string strPrivate = (cmd.ExecuteScalar().ToString() == 2 ? "خاص" : "عام");
strN.Append("<table><tr><td>");
strN.Append("<span style='font-size: 8pt; font-family: tahoma'>عنوان الإعلان/التعميم: <b><font color='green'>" + GridSearchAds.Rows(GridSearchAds.SelectedIndex).Cells(2).Text.ToString);
strN.Append("</font></b><br>نوع الإعلان/التعميم: <b><font color='green'>" + strPrivate + "</font></b></span>");
strN.Append("</td></tr><tr>");
strN.Append("<td>");
cmd.CommandText = "SELECT [ad_html] FROM [tbl_ads] WHERE [ad_id]=?";
strN.Append(cmd.ExecuteScalar().ToString());
strN.Append("</td></tr></table>");
lblasViewAds.Text = strN.ToString;
AccessDataSource6.SelectCommand = "SELECT `ad_id`, `ad_date`, `ad_subject` FROM `tbl_ads` WHERE `ad_subject` LIKE ? AND `ad_html` LIKE ? ORDER BY `ad_date` DESC";
AccessDataSource6.SelectParameters.Clear();
AccessDataSource6.SelectParameters.Add("?", "%" + txtasSubject.Text.ToString + "%");
AccessDataSource6.SelectParameters.Add("?", "%" + txtasHTML.Text.ToString + "%");
AccessDataSource6.DataBind();
GridSearchNews.DataBind();
cn.Close();
}
protected void btnCemailMemebers_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 9;
AccessDataSource7.SelectCommand = "SELECT [id], [name], [email], [HawiahNum], [IsActive] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]<>'1'";
AccessDataSource7.DataBind();
GridView3.DataBind();
}
protected void btnEmailMembersShow_Click(object sender, System.EventArgs e)
{
switch (DropDownList1.SelectedValue) {
case 1:
AccessDataSource7.SelectCommand = "SELECT [id], [name], [email], [HawiahNum], [IsActive] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]<>'1'";
break;
case 2:
AccessDataSource7.SelectCommand = "SELECT [id], [name], [email], [HawiahNum], [IsActive] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]='1'";
break;
case 3:
AccessDataSource7.SelectCommand = "SELECT [id], [name], [email], [HawiahNum], [IsActive] FROM [tbl_emails] WHERE [IsActive]=2";
break;
}
AccessDataSource7.DataBind();
GridView3.DataBind();
}
protected void btnCemailSend_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 10;
}
protected void Button5_Click(object sender, System.EventArgs e)
{
if (DropDownList3.SelectedValue == 4) {
tdSpecialEmail.Visible = true;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbDataAdapter da = new OleDbDataAdapter("SELECT [id], [name], [email] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]<>'1'", cn);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_emails]");
if (ds.Tables[0].Rows.Count < 1) {
cmbStudentsEmail.Enabled = false;
cmbStudentsEmail.Visible = false;
btnAddEmailTotxt.Enabled = false;
btnAddEmailTotxt.Visible = false;
return;
}
cmbStudentsEmail.Enabled = true;
cmbStudentsEmail.Visible = true;
btnAddEmailTotxt.Enabled = true;
btnAddEmailTotxt.Visible = true;
int i = 0;
for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++) {
ListItem lstI = new ListItem(ds.Tables[0].Rows["id"].ToString() + " - " + ds.Tables[0].Rows["name"].ToString(), ds.Tables[0].Rows["email"].ToString());
cmbStudentsEmail.Items.Add(lstI);
}
cmbStudentsEmail.SelectedIndex = 0;
} else {
tdSpecialEmail.Visible = false;
}
}
protected void btnAddEmailTotxt_Click(object sender, System.EventArgs e)
{
txtAddEmailToTxt.Text += cmbStudentsEmail.SelectedValue + ";";
}
protected void Button4_Click(object sender, System.EventArgs e)
{
DropDownList3.SelectedIndex = 0;
txtAddEmailToTxt.Text = "";
txtEmailSubject.Text = "";
txtSendEmail.Text = "";
}
protected void btnSendEmail_Click(object sender, System.EventArgs e)
{
if (DropDownList3.SelectedValue == 1) {
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbDataAdapter da = new OleDbDataAdapter("SELECT [id],[name],[email] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]<>'1'", cn);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_emails]");
if (ds.Tables[0].Rows.Count > 0) {
try {
System.Text.UTF8Encoding enc1 = new System.Text.UTF8Encoding();
MailMessage msg1 = new MailMessage();
msg1.From = "info@suhail-school.com";
msg1.Subject = txtEmailSubject.Text.ToString;
msg1.BodyFormat = MailFormat.Html;
msg1.BodyEncoding = enc1;
msg1.Body = txtSendEmail.Text.ToString;
msg1.Priority = MailPriority.Normal;
int i = 0;
int CountOfmails = 0;
for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++) {
msg1.To = ds.Tables[0].Rows["email"].ToString();
SmtpMail.Send(msg1);
CountOfmails += 1;
}
lblEmailState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>" + "تم إرسال " + CountOfmails + " رسالة/رسائل بنجاح" + "</td></tr></table>";
} catch (Exception ex) {
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء إرسال البريد الالكتروني ، اتصل بالدعم الفني" + "<br>" + "وصف الخطأ: " + ex.Message + "</td></tr></table>";
return;
}
} else {
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>لا يوجد عناوين بريد الكتروني في الفئة المحددة</td></tr></table>";
return;
}
} else if (DropDownList3.SelectedValue == 2) {
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbDataAdapter da = new OleDbDataAdapter("SELECT [id],[name],[email] FROM [tbl_emails] WHERE [IsActive]=2 AND [HawiahNum]='1'", cn);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_emails]");
if (ds.Tables[0].Rows.Count > 0) {
try {
System.Text.UTF8Encoding enc1 = new System.Text.UTF8Encoding();
MailMessage msg1 = new MailMessage();
msg1.From = "info@suhail-school.com";
msg1.Subject = txtEmailSubject.Text.ToString;
msg1.BodyFormat = MailFormat.Html;
msg1.BodyEncoding = enc1;
msg1.Body = txtSendEmail.Text.ToString;
msg1.Priority = MailPriority.Normal;
int i = 0;
int CountOfmails = 0;
for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++) {
msg1.To = ds.Tables[0].Rows["email"].ToString();
SmtpMail.Send(msg1);
CountOfmails += 1;
}
lblEmailState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>" + "تم إرسال " + CountOfmails + " رسالة/رسائل بنجاح" + "</td></tr></table>";
} catch (Exception ex) {
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء إرسال البريد الالكتروني ، اتصل بالدعم الفني" + "<br>" + "وصف الخطأ: " + ex.Message + "</td></tr></table>";
return;
}
} else {
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>لا يوجد عناوين بريد الكتروني في الفئة المحددة</td></tr></table>";
return;
}
} else if (DropDownList3.SelectedValue == 3) {
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbDataAdapter da = new OleDbDataAdapter("SELECT [id],[name],[email] FROM [tbl_emails] WHERE [IsActive]=2", cn);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_emails]");
if (ds.Tables[0].Rows.Count > 0) {
try {
System.Text.UTF8Encoding enc1 = new System.Text.UTF8Encoding();
MailMessage msg1 = new MailMessage();
msg1.From = "info@suhail-school.com";
msg1.Subject = txtEmailSubject.Text.ToString;
msg1.BodyFormat = MailFormat.Html;
msg1.BodyEncoding = enc1;
msg1.Body = txtSendEmail.Text.ToString;
msg1.Priority = MailPriority.Normal;
int i = 0;
int CountOfmails = 0;
for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++) {
msg1.To = ds.Tables[0].Rows["email"].ToString();
SmtpMail.Send(msg1);
CountOfmails += 1;
}
lblEmailState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>" + "تم إرسال " + CountOfmails + " رسالة/رسائل بنجاح" + "</td></tr></table>";
} catch (Exception ex) {
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء إرسال البريد الالكتروني ، اتصل بالدعم الفني" + "<br>" + "وصف الخطأ: " + ex.Message + "</td></tr></table>";
return;
}
} else {
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>لا يوجد عناوين بريد الكتروني في الفئة المحددة</td></tr></table>";
return;
}
} else if (DropDownList3.SelectedValue == 4) {
string[] arrEmails = txtAddEmailToTxt.Text.Split(";");
if (arrEmails.Length > 0) {
try {
System.Text.UTF8Encoding enc1 = new System.Text.UTF8Encoding();
MailMessage msg1 = new MailMessage();
msg1.From = "info@suhail-school.com";
msg1.Subject = txtEmailSubject.Text.ToString;
msg1.BodyFormat = MailFormat.Html;
msg1.BodyEncoding = enc1;
msg1.Body = txtSendEmail.Text.ToString;
msg1.Priority = MailPriority.Normal;
int i = 0;
int CountOfmails = 0;
for (i = 0; i <= arrEmails.Length - 1; i++) {
if (IsEmailAddress(arrEmails) == true) {
msg1.To = arrEmails.ToString();
SmtpMail.Send(msg1);
CountOfmails += 1;
}
}
lblEmailState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma;'>" + "تم إرسال " + CountOfmails + " رسالة/رسائل بنجاح" + "</td></tr></table>";
} catch (Exception ex) {
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء إرسال البريد الالكتروني ، اتصل بالدعم الفني" + "<br>" + "وصف الخطأ: " + ex.Message + "</td></tr></table>";
return;
}
} else {
lblEmailState.Text = "<table><tr><td><img src='img/false.gif'/></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>لم تدخل عناوين بريد الكتروني</td></tr></table>";
return;
}
}
//-----------------------
imgSendEmail.Height = 0;
imgSendEmail.Width = 0;
}
protected void Button1_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 11;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbDataAdapter da = new OleDbDataAdapter("SELECT [wc_id],[wc_subject] FROM [tbl_wc]", cn);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_wc]");
byte i = 0;
for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++) {
ListItem lstItem = new ListItem(ds.Tables[0].Rows["wc_subject"], ds.Tables[0].Rows["wc_id"]);
lstWC.Items.Add(lstItem);
}
}
protected void btnwcDelText_Click(object sender, System.EventArgs e)
{
mv_webc.ActiveViewIndex = 0;
}
protected void btnwcAcceptChanges_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("UPDATE `tbl_wc` SET `wc_html`=? WHERE (`wc_id`=?)", cn);
try {
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", txtwcEdit.Text.ToString);
cmd.Parameters.AddWithValue("?", txtwcID.Text);
cn.Open();
cmd.ExecuteNonQuery();
lblwcState.Visible = true;
lblwcState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تعديل المحتوى بنجاح</td></tr></table>";
} catch (Exception ex) {
lblwcState.Visible = true;
lblwcState.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل المحتوى ، اتصل بالدعم الفني</td></tr></table>";
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void btnwcEdit_Click(object sender, System.EventArgs e)
{
mv_webc.ActiveViewIndex = 1;
txtwcID.Text = lstWC.SelectedValue;
lblwcEdit.Text = lstWC.SelectedItem.Text;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("SELECT `wc_html` FROM `tbl_wc` WHERE `wc_id` = ?", cn);
try {
cmd.Parameters.AddWithValue("?", txtwcID.Text);
cn.Open();
txtwcEdit.Text = cmd.ExecuteScalar().ToString();
} catch (Exception ex) {
Response.Write("<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي في الموقع في تعديل الخبر ، اتصل بالدعم الفني</td></tr></table>");
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void btnUploadFiles_Click(object sender, System.EventArgs e)
{
string strPath = Request.PhysicalApplicationPath + "uploads\\";
byte CountOfFiles = 0;
try {
if (fu1.HasFile == true) {
if (System.IO.Directory.Exists(strPath) == false) {
txtfu1.Text = "مجلد الملفات غير موجود";
} else {
if (System.IO.File.Exists(strPath + fu1.FileName)) {
txtfu1.Text = "يوجد ملف سابق بنفس الاسم";
} else {
fu1.SaveAs(strPath + fu1.FileName);
txtfu1.Text = "http://www.suhail-school.com/uploads/" + fu1.FileName;
CountOfFiles += 1;
}
}
}
} catch (Exception ex) {
txtfu1.Text = "فشلت عملية رفع الملفات";
}
try {
if (fu2.HasFile == true) {
if (System.IO.Directory.Exists(strPath) == false) {
txtfu2.Text = "مجلد الملفات غير موجود";
} else {
if (System.IO.File.Exists(strPath + fu2.FileName)) {
txtfu2.Text = "يوجد ملف سابق بنفس الاسم";
} else {
fu2.SaveAs(strPath + fu2.FileName);
txtfu2.Text = "http://www.suhail-school.com/uploads/" + fu2.FileName;
CountOfFiles += 1;
}
}
}
} catch (Exception ex) {
txtfu2.Text = "فشلت عملية رفع الملفات";
}
try {
if (fu3.HasFile == true) {
if (System.IO.Directory.Exists(strPath) == false) {
txtfu3.Text = "مجلد الملفات غير موجود";
} else {
if (System.IO.File.Exists(strPath + fu3.FileName)) {
txtfu3.Text = "يوجد ملف سابق بنفس الاسم";
} else {
fu3.SaveAs(strPath + fu3.FileName);
txtfu3.Text = "http://www.suhail-school.com/uploads/" + fu3.FileName;
CountOfFiles += 1;
}
}
}
} catch (Exception ex) {
txtfu3.Text = "فشلت عملية رفع الملفات";
}
try {
if (fu4.HasFile == true) {
if (System.IO.Directory.Exists(strPath) == false) {
txtfu4.Text = "مجلد الملفات غير موجود";
} else {
if (System.IO.File.Exists(strPath + fu4.FileName)) {
txtfu4.Text = "يوجد ملف سابق بنفس الاسم";
} else {
fu4.SaveAs(strPath + fu4.FileName);
txtfu4.Text = "http://www.suhail-school.com/uploads/" + fu4.FileName;
CountOfFiles += 1;
}
}
}
} catch (Exception ex) {
txtfu4.Text = "فشلت عملية رفع الملفات";
}
try {
if (fu5.HasFile == true) {
if (System.IO.Directory.Exists(strPath) == false) {
txtfu5.Text = "مجلد الملفات غير موجود";
} else {
if (System.IO.File.Exists(strPath + fu5.FileName)) {
txtfu5.Text = "يوجد ملف سابق بنفس الاسم";
} else {
fu5.SaveAs(strPath + fu5.FileName);
txtfu5.Text = "http://www.suhail-school.com/uploads/" + fu5.FileName;
CountOfFiles += 1;
}
}
}
} catch (Exception ex) {
txtfu5.Text = "فشلت عملية رفع الملفات";
}
if (CountOfFiles == 0) {
lblUFstate.Text = "لا يتم رفع أي ملف";
} else {
lblUFstate.Text = "تم رفع " + CountOfFiles + "ملف/ملفات إلى الموقع بنجاح";
}
}
protected void btnCUFupload_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 12;
}
public bool IsEmailAddress(string s)
{
bool blnMatch = false;
blnMatch = System.Text.RegularExpressions.Regex.IsMatch(s, "^([a-zA-Z0-9_\\-\\.]+)@((\\[[0-9]{1,3}\\.[0-9]{1,3}\\.[0-9]{1,3}\\.)" + "|(([a-zA-Z0-9\\-]+\\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\\]?)$");
return blnMatch;
}
protected void btnUnactivedEmailMembers_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 13;
GridView4.DataBind();
}
protected void Button9_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmdIsUserFound = new OleDbCommand("SELECT COUNT(`admin_username`) FROM `tbl_admins` WHERE `admin_username`=?", cn);
cmdIsUserFound.Parameters.AddWithValue("?", txtAddAdminUsername.Text.ToString);
cn.Open();
byte userIsFound = cmdIsUserFound.ExecuteScalar();
cn.Close();
if (txtAddAdminPassword.Text.Length < 5 || userIsFound > 0 || txtAddAdminUsername.Text.Length < 1) {
lblAddAdminState.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>البيانات غير صالحة</td></tr></table>";
return;
}
OleDbCommand cmd = new OleDbCommand("INSERT INTO `tbl_admins`(`admin_username`,`admin_password`,`admin_CNews`,`admin_CAds`,`admin_CEmail`,`admin_Cwc`,`admin_Cuf`,`admin_Cadmins`) VALUES(?,?,?,?,?,?,?,?)", cn);
try {
cmd.Parameters.AddWithValue("?", txtAddAdminUsername.Text.ToString);
byte[] arrPW = EncToBytes(txtAddAdminPassword.Text.ToString);
string pw = "";
int i = 0;
for (i = 0; i <= arrPW.Length - 1; i++) {
pw += arrPW;
}
cmd.Parameters.AddWithValue("?", Strings.Mid(pw, 1, 25));
cmd.Parameters.AddWithValue("?", (chkCNews.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (chkCAds.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (chkCEmail.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (chkCwc.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (chkCuf.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (chkCadmins.Checked == true ? 2 : 1));
cn.Open();
cmd.ExecuteNonQuery();
cn.Close();
lblAddAdminState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم إنشاء حساب المدير: " + txtAddAdminUsername.Text.ToString + " بنجاح</td></tr></table>";
} catch (Exception ex) {
lblAddAdminState.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي ، برجاء الاتصال بالدعم الفني</td></tr></table>";
}
}
protected void btnCAddAdmin_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 14;
}
public byte[] EncToBytes(string s)
{
//// كود التشفير الأول تشفير MD5
MD5CryptoServiceProvider md5Hasher = new MD5CryptoServiceProvider();
byte[] hashedBytes = null;
System.Text.UTF8Encoding encoder = new System.Text.UTF8Encoding();
hashedBytes = md5Hasher.ComputeHash(encoder.GetBytes(s));
return hashedBytes;
}
protected void btnCEditPer_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 15;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbDataAdapter da = new OleDbDataAdapter("SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin' AND [admin_username]<>?", cn);
da.SelectCommand.Parameters.AddWithValue("?", txtuser.Text.ToString);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_admins]");
if (ds.Tables[0].Rows.Count < 1) {
tblEditPer.Visible = false;
lblEditPer2.Visible = true;
lblEditPer2.Text = "لا توجد حسابات ";
return;
} else {
tblEditPer.Visible = true;
lblEditPer2.Visible = false;
}
byte i = 0;
for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++) {
ListItem lstItem = new ListItem(ds.Tables[0].Rows["admin_username"], ds.Tables[0].Rows["admin_username"]);
cmbEditPer.Items.Add(lstItem);
}
}
protected void btnEPselect_Click(object sender, System.EventArgs e)
{
tdEP1.Visible = true;
tdEP2.Visible = true;
tdEP3.Visible = true;
lblEditPerState.Visible = false;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbDataAdapter da = new OleDbDataAdapter("SELECT [admin_username],[admin_Cnews],[admin_CAds],[admin_CEmail],[admin_Cwc],[admin_Cuf],[admin_Cadmins] FROM [tbl_admins] WHERE [admin_username]='" + cmbEditPer.SelectedValue.ToString + "'", cn);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_admins]");
CheckBox1.Checked = (ds.Tables[0].Rows[0]["admin_Cnews"] == 2 ? true : false);
CheckBox2.Checked = (ds.Tables[0].Rows[0]["admin_Cads"] == 2 ? true : false);
CheckBox3.Checked = (ds.Tables[0].Rows[0]["admin_CEmail"] == 2 ? true : false);
CheckBox4.Checked = (ds.Tables[0].Rows[0]["admin_Cwc"] == 2 ? true : false);
CheckBox5.Checked = (ds.Tables[0].Rows[0]["admin_Cuf"] == 2 ? true : false);
CheckBox6.Checked = (ds.Tables[0].Rows[0]["admin_Cadmins"] == 2 ? true : false);
}
protected void Button2_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("UPDATE [tbl_admins] SET [admin_Cnews]=?,[admin_CAds]=?,[admin_CEmail]=?,[admin_Cwc]=?,[admin_Cuf]=?,[admin_Cadmins]=? WHERE [admin_username]='" + cmbEditPer.SelectedValue.ToString + "'", cn);
try {
cmd.Parameters.Clear();
cmd.Parameters.AddWithValue("?", (CheckBox1.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (CheckBox2.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (CheckBox3.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (CheckBox4.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (CheckBox5.Checked == true ? 2 : 1));
cmd.Parameters.AddWithValue("?", (CheckBox6.Checked == true ? 2 : 1));
cn.Open();
cmd.ExecuteNonQuery();
lblEditPerState.Visible = true;
lblEditPerState.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تعديل الصلاحيات بنجاح</td></tr></table>";
} catch (Exception ex) {
lblEditPerState.Visible = true;
lblEditPerState.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء تعديل الصلاحيات ، اتصل بالدعم الفني</td></tr></table>";
} finally {
cn.Close();
cmd.Dispose();
cn.Dispose();
}
}
protected void Button3_Click(object sender, System.EventArgs e)
{
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("DELETE * FROM [tbl_admins] WHERE [admin_username]='" + cmbDelAdmin.SelectedValue + "'", cn);
try {
cn.Open();
cmd.ExecuteNonQuery();
cn.Close();
cmbDelAdmin.Visible = true;
lblDelAdmin.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم حذف الحساب بنجاح</td></tr></table>";
OleDbDataAdapter da = new OleDbDataAdapter((txtuser.Text == "admin" ? "SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin'" : "SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin' AND [admin_username]=?"), cn);
da.SelectCommand.Parameters.AddWithValue("?", txtuser.Text.ToString);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_admins]");
if (ds.Tables[0].Rows.Count < 1) {
tdDelAdmin.Visible = false;
return;
} else {
tdDelAdmin.Visible = true;
}
byte i = 0;
for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++) {
ListItem lstItem = new ListItem(ds.Tables[0].Rows["admin_username"], ds.Tables[0].Rows["admin_username"]);
cmbDelAdmin.Items.Add(lstItem);
}
} catch (Exception ex) {
cmbDelAdmin.Visible = true;
lblDelAdmin.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء حذف حساب مدير موقع ، اتصل بالدعم الفني</td></tr></table>";
}
}
protected void btnCDelAdmin_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 16;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbDataAdapter da = new OleDbDataAdapter((txtuser.Text == "admin" ? "SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin'" : "SELECT [admin_username] FROM [tbl_admins] WHERE [admin_username]<>'admin' AND [admin_username]=?"), cn);
da.SelectCommand.Parameters.AddWithValue("?", txtuser.Text.ToString);
DataSet ds = new DataSet();
da.Fill(ds, "[tbl_admins]");
if (ds.Tables[0].Rows.Count < 1) {
tdDelAdmin.Visible = false;
lblDelAdmin.Visible = true;
lblDelAdmin.Text = "لا توجد حسابات ";
return;
} else {
tdDelAdmin.Visible = true;
lblDelAdmin.Visible = false;
}
byte i = 0;
for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++) {
ListItem lstItem = new ListItem(ds.Tables[0].Rows["admin_username"], ds.Tables[0].Rows["admin_username"]);
cmbDelAdmin.Items.Add(lstItem);
}
}
protected void Button6_Click(object sender, System.EventArgs e)
{
if (txtChangePassword.Text.Length < 5)
return;
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=" + Server.MapPath("app_data\\wsdb.mdb"));
OleDbCommand cmd = new OleDbCommand("UPDATE `tbl_admins` SET `admin_password`=? WHERE `admin_username`=?", cn);
cmd.Parameters.Clear();
byte[] arrPW = EncToBytes(txtChangePassword.Text.ToString);
string pw = "";
int i = 0;
for (i = 0; i <= arrPW.Length - 1; i++) {
pw += arrPW;
}
cmd.Parameters.AddWithValue("?", Strings.Mid(pw, 1, 25));
cmd.Parameters.AddWithValue("?", txtuser.Text.ToString);
try {
cn.Open();
cmd.ExecuteNonQuery();
cn.Close();
lblChangePassword.Text = "<table><tr><td><img src='img/true.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: green; font-family: tahoma'>تم تغيير كلمة المرور بنجاح</td></tr></table>";
} catch (Exception ex) {
lblChangePassword.Text = "<table><tr><td><img src='img/false.gif' /></td><td style='font-weight: bold; font-size: 8pt; color: red; font-family: tahoma'>خطأ تنفيذي أثناء تغيير كلمة المرور ، اتصل بالدعم الفني</td></tr></table>";
}
}
protected void Button8_Click(object sender, System.EventArgs e)
{
mv_adminOptions.ActiveViewIndex = 17;
}
protected void txtNewsSubject_TextChanged(object sender, System.EventArgs e)
{
}
public ssadmin()
{
Load += Page_Load;
}
}وهذه الصفحة بعد تحويلها
أتمني أكون أفدك
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…