a_123123123123
شنبه 08 مرداد 1390, 11:54 صبح
ممکنه این کد رو برام درستش کنید
این کد c# بود که به vb تبدیل کردم
Dim Url As String = Request.RawUrl
'آدرس صفحه رو میگیره
Dim obj As New DataAccess()
Dim objuser As New UserClass()
'تابع لوگین رو فراخونی میکنه
objuser = obj.login(txt_UserName.Text, txt_password.Text)
If objuser.UserID <> 0 Then
'agar shaks yaft shod
'اگر شخص وجود داشت، مقادیر موجود در سشن رو دوباره مقدار میده
DirectCast(Session("User"), UserClass).FirstName = objuser.FirstName
DirectCast(Session("User"), UserClass).UserID = objuser.UserID
'صفحه رو رفرش میکنه
Response.Redirect(Url)
Else
'agar shakhs yaft nashod
login_error.Visible = True
End If
حالا دوتا جاش رو تو برنامه نمیشناسه
Dim obj As New DataAccess()
Dim objuser As New UserClass()
حالا ممکنه بگید اینا رو چیکار کنم تو برنامه بخونه
ممنون میشم
این کد c# بود که به vb تبدیل کردم
Dim Url As String = Request.RawUrl
'آدرس صفحه رو میگیره
Dim obj As New DataAccess()
Dim objuser As New UserClass()
'تابع لوگین رو فراخونی میکنه
objuser = obj.login(txt_UserName.Text, txt_password.Text)
If objuser.UserID <> 0 Then
'agar shaks yaft shod
'اگر شخص وجود داشت، مقادیر موجود در سشن رو دوباره مقدار میده
DirectCast(Session("User"), UserClass).FirstName = objuser.FirstName
DirectCast(Session("User"), UserClass).UserID = objuser.UserID
'صفحه رو رفرش میکنه
Response.Redirect(Url)
Else
'agar shakhs yaft nashod
login_error.Visible = True
End If
حالا دوتا جاش رو تو برنامه نمیشناسه
Dim obj As New DataAccess()
Dim objuser As New UserClass()
حالا ممکنه بگید اینا رو چیکار کنم تو برنامه بخونه
ممنون میشم