Arama butonu
Bu konudaki kullanıcılar: 1 misafir
0
Cevap
2320
Tıklama
0
Öne Çıkarma
Asp.net Üyelik sisteminde üye izinleri
B
10 yıl (1250 mesaj)
Teğmen
Konu Sahibi

Merhaba Asp.net dilinde yazılmış üyelikli ilan sitem var. Paralı üyelik ile çalışıyor. Telefon numaralarını ve mesaj yollamak için paket almaya yönlendiriyor.
Talep mesajı yollamak ücretsiz normal mesaj yollamayı da ücretsize nasıl çeviririm.

https://yadi.sk/i/1jqWiWdJmBCDL


 If (dtUyeKontrol.Rows.Count = 0) Then 
txtMesaj.Visible = False
txtMesajBaslik.Visible = False
Else
litEPosta.Text = dtUyeKontrol.Rows("0")("EPosta")
End If

Dim dtUyePaketleri As DataTable = UyePaket.UyePaket(CInt(litAlanID.Text.ToString))
If (dtUyePaketleri.Rows.Count > 0) Then
For Each dr As DataRow In dtUyePaketleri.Rows
Dim dtPaketler As New DataTable
Dim cmdPaketler As New SqlDataAdapter("SELECT ID, PaketAdi, MesajAtabilir, TelefonGorebilir, EMailGorebilir FROM UyelikPaketleri WHERE (ID = " & dr("PaketID") & ") ORDER BY SK DESC", objSqlConnection)
cmdPaketler.Fill(dtPaketler)

If (dtPaketler.Rows(0)("MesajAtabilir")) Then
pnlFormForm.Visible = True
pnlParaliUyelik.Visible = False
Exit For
Else
pnlParaliUyelik.Visible = True
pnlFormForm.Visible = False
End If
Next
Else
pnlParaliUyelik.Visible = True
pnlFormForm.Visible = False
End If

If ((IsNothing(objSqlTransaction)) OrElse (IsNothing(objSqlTransaction.Connection))) Then
objSqlTransaction = objSqlConnection.BeginTransaction(IsolationLevel.ReadCommitted)
End If


Mesaj.aspx.vb de bu kısımdan değişebilir miyim?

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.