المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : بوابة بدر: شرح كود للضرورة اليوم,2013


Eng_Badr
15-04-2013, 02:25 AM
شرح كود للضرورة اليوم
تحميل,تنزيل,2013,2014,ماى ايجى,تحميل مباشر,عرب سيد,برابط مباشر,سريع,تورنت,عربي,معرب,مجانا,فاينال,انجليزي,فر نسي,اخر اصدار,برابط واحد,صاروخ
شرح كود للضرورة اليوم
<div>السلام عليكم
ممكن حد يشرحلي الكود ضروري وشكرا

كود:
Partial Class _Default
Inherits System.***.UI.Page
Dim mFunction As New MENAFunctions
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

theStyle.Attributes.Add("href", ConfigurationManager.AppSettings("domain").ToString & "js/dark/dark.css")
******Manager.RegisterClient******Include(Me, Me.GetType, "MENAReg227CCC878", ConfigurationManager.AppSettings("domain").ToString & "js/jquery.js")
******Manager.RegisterClient******Include(Me, Me.GetType, "MENAXXSDSDReg1234", ConfigurationManager.AppSettings("domain").ToString & "js/jquery.nivo.slider.js")
******Manager.RegisterClient******Include(Me, Me.GetType, "MEASDNAReg55456", ConfigurationManager.AppSettings("domain").ToString & "js/jCarouselLite.js")
******Manager.RegisterClient******Include(Me, Me.GetType, "MENAReCCCg7878", ConfigurationManager.AppSettings("domain").ToString & "js/fancybox/jquery.fancybox-1.3.4.js")

End Sub

Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim userid As String = ""
Dim isAdmin As String = ""
Dim IsMaster As String = ""
Dim username As String = ""
Dim db As New Data****
Dim db2 As New Data****
Dim tb As New DataTable
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]
userid = db.ExecuteScalar("Emp_Login", CommandType.StoredProcedure)
If userid = -1 Then
******Manager.RegisterClient******Block(Page, Page.GetType, "SDFSDF2", "alert(""error"");", True)
Else
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]
tb = db2.ExecuteDataTable("Emp_GetName", Data.CommandType.StoredProcedure)
If tb.Rows.Count > 0 Then
With tb.Rows(0)
isAdmin = .Item("IsAdmin").ToString
username = .Item("EmpName").ToString
IsMaster = .Item("IsMaster").ToString
End With
End If
mFunction.Write******("UserId", userid, 30)
mFunction.Write******("UserName", username, 30)
If isAdmin = True Then
mFunction.Write******("Admin", isAdmin, 30)
End If
If IsMaster = True Then
mFunction.Write******("Master", IsMaster, 30)
End If
Response.Redirect(ConfigurationManager.AppSettings ("domain") & "logout.aspx")
End If
db.Dispose()
db2.Dispose()
tb.Dispose()

End Sub


شرح كود للضرورة اليوم
تحميل,تنزيل,2013,2014,ماى ايجى,تحميل مباشر,عرب سيد,برابط مباشر,سريع,تورنت,عربي,معرب,مجانا,فاينال,انجليزي,فر نسي,اخر اصدار,برابط واحد,صاروخ
شرح كود للضرورة اليوم