HakaN

<% Response.Buffer = True %> <%on error resume next%> <% Set getValues = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") dk_g = getValues("A_TIMEOUT") recordNo = getValues("A_LINK_RECORD") nRecordNo = getValues("A_NEWS_RECORD") lcid = getValues("A_LCID") Session.LCID = lcid titleAdd = getValues("A_SITE_NAME") msgLimit = getValues("A_MSG_LIMIT") msgTimeout = getValues("A_MSG_TIMEOUT") bannedIPs = getValues("A_BANNED_IPS") passRemind = getValues("A_PASS_REMIND") siteAddr = getValues("A_SITE_ADDR") siteMail = getValues("A_SITE_EMAIL") mailServer = getValues("A_MAIL_SERVER") uyeMetod = getValues("U_METOD") uExp = getValues("U_EXPIRE") mailBil = getValues("A_MAIL_BIL") clientIP = Request.ServerVariables("REMOTE_ADDR") If InStr(1, bannedIPs, clientIP, 1) <> 0 Then Response.Write "BU IP ADRESININ SITEYE GİRİŞİ YASAKLANMIŞTIR!..." Response.END End If %> <% If Session("Oturum") = "Acik" Then Response.Redirect "default.asp" : Response.End %>

ÖRNEK: ( " action="default.asp?islem=forumlogynol.asp " ) Kullanycy Adynyz: ?ifreniz:

<% Sub hataYaz(str) Response.write "" & str & "
Geri

" End Sub If Request.Form("xp") = "xp" Then If InStr(1, Request.Form("uye_adi"), "'", 1) <> 0 OR InStr(1, Request.Form("sifre"), "'", 1) <> 0 Then Response.write "Lütfen üye adınız ve şifrenizde kesme işareti (') kullanmayın
Geri

" Response.end End If acik = Replace(Request.Form("aciklama"), "<", "<") aciklama = Replace(acik, ">", ">") If Request.Form("mailg") = "on" Then mailgoster = true Else mailgoster = false End If If Mid(Request.Form("webadresi"), 1, 7) <> "http://" AND Request.Form("webadresi") <> "" Then address = Request.Form("webadresi") adres = Replace(address, address, "http://"&address) ElseIf Request.Form("webadresi") = "http://" OR Request.Form("webadresi") = "" Then adres = "" Else adres = Request.Form("webadresi") End If Set getType = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") Set objRs = Server.CreateObject("ADODB.RecordSet") objRs.Open "SELECT * FROM UYELER", objConn, 3, 3 Set nameCheck = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi")&"'") If Not nameCheck.EOF Then call hataYaz("Bu Kullanıcı Adı Sistemde Kayıtlı!...") Response.End End If email = Request.Form("email") bolge = InStr(1, email, "@", 1) If Mid(email, bolge+1, 1) = "." Then call hataYaz("Doğru bir e-mail adresi girin") Response.End Else bolge2 = InStr(bolge, email, ".", 1) If Mid(email, bolge2+1, 1) = "" Then call hataYaz("Doğru bir e-mail adresi girin") Response.End End If End If Set emailCheck = objConn.Execute("SELECT * FROM UYELER WHERE EMAIL='"&Request.Form("email")&"'") If Not emailCheck.EOF Then call hataYaz("Bu E-Mail Adresine Sahip Kullanıcı Mevcut!...") Response.End End If objRs.AddNew objRs("U_ADI") = Request.Form("uye_adi") objRs("U_SIFRE") = Request.Form("sifre") objRs("AD") = Request.Form("adsoyad") objRs("EMAIL") = Request.Form("email") objRs("H_SORU") = Request.Form("h_soru") objRs("H_CEVAP") = Request.Form("h_cevap") If Request.Form("icq") <> "" AND IsNumeric(Request.Form("icq")) Then objRs("ICQ") = Request.Form("icq") End If objRs("SEHIR") = Request.Form("sehir") objRs("MESLEK") = Request.Form("meslek") objRs("YAS") = Request.Form("yas") objRs("WEB") = adres objRs("ACIKLAMA") = aciklama objRs("MAILGOSTER") = mailgoster objRs("LOGIN_SAYISI") = 1 objRs("U_TARIHI") = Date() If getType("U_METOD") = 0 Then objRs("SON_TARIH") = Now() objRs("SEVIYE") = "0" objRs("M_NICKNAME") = Request.Form("uye_adi") objRs("OS") = os objRs("BROWSER") = browser If getType("U_METOD") = 1 Then objRs("ACTIVE") = "0" k = "0" Randomize sayi = Int((Rnd*9999999999999) + 10000000000000) For I = 1 To objRs.RecordCount If sayi = objRs("ACTIVE_CODE") Then k = k + 1 Next If k > 0 Then Randomize sayi = Int((Rnd*9999999999999) + 10000000000000) objRs("ACTIVE_CODE") = sayi objRs("ONAY_BEKLE") = "0" tip = 1 Else objRs("ACTIVE_CODE") = sayi objRs("ONAY_BEKLE") = "0" tip = 1 End If ElseIf getType("U_METOD") = 0 Then objRs("ACTIVE") = "1" objRs("ONAY_BEKLE") = "0" ElseIf getType("U_METOD") = 2 Then objRs("ACTIVE") = "0" objRs("ONAY_BEKLE") = "1" tip = 2 Else Response.Write "Veritabanındaki bir hatadan dolayı kayıt yapılamıyor

" Response.End End If objRs.Update objRs.Close Set objRs = Nothing Set idAl = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI = '" & Request.Form("uye_adi") &"'") idNo = idAl("U_ID") Set expAl = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") expDur = expAl("U_EXPIRE") siteMail = expAl("A_SITE_EMAIL") mailServer = expAl("A_MAIL_SERVER") titleAdd = expAl("A_SITE_NAME") If tip = 1 Then konuA = "Aktivasyon Kodunuz" hostName = Request.ServerVariables("HTTP_HOST") urlCont = Request.ServerVariables("URL") charFoundSlash = InStrRev(urlCont, "/", -1, 1) stringAfterHost = Mid(urlCont, 1, charFoundSlash) lastString = "http://"& hostName & stringAfterHost pathAct = lastString & "activate.asp?RNDNO="& sayi &"&UID="&idNo&"" mesajA = "Aşağıdaki linke tıklayıp, üyeliğinizi aktif hale getirebilirsiniz." & vbCrLf & vbCrLf & pathAct If mailBil = "CDONTS" Then yolla = CDONTS (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If ElseIf mailBil = "PERSITS" Then yolla = PERSITS (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If ElseIf mailBil = "JMAIL" Then yolla = JMAIL (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If Else Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If Response.Redirect "default.asp?ISN=354763" ElseIf tip = 2 Then Response.Redirect "default.asp?ISN=354986" ElseIf tip = 0 Then Set objRst = Server.CreateObject("ADODB.RecordSet") objRst.Open "SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi")&"' AND U_SIFRE='"&Request.Form("sifre")&"' AND ACTIVE = 1", objConn, 3, 3 If Not objRst.EOF Then Session("Oturum") = "Acik" Session("Uye_Adi") = objRst("U_ADI") Session("Uye_Id") = objRst("U_ID") Session("Uye_Sifre") = objRst("U_SIFRE") Session("Uye_Email") = objRst("EMAIL") Session("Uye_Login") = objRst("LOGIN_SAYISI") Response.Cookies("xp_uye")("mevcut") = "evet" Response.Cookies("xp_uye")("kullanici") = objRst("U_ADI") Response.Cookies("xp_uye")("sifre") = objRst("U_SIFRE") Response.Cookies("xp_uye").Expires = Date() + 365 objRst.Close Set objRs = Nothing Response.Redirect "default.asp" End If End If %><% End If %>

ÜYELİK FORMUÜyelik Formu Adınız ve soyadınız, diğer üyelere gösterilmez.. Ana sayfa ..:: | Üye Adı * ..:: | Şifre * ..:: | Şifre Tekrarı * ..:: | E-Mail Adresi * ..:: | Ad Soyad * ..:: | Hatırlatma Sorusu * ..:: | Cevabı * ..:: | ICQ ..:: | Şehir ..:: | Meslek ..:: | Yaş Aralığı =< 18 18-24 24-30 30+ ..:: | Web Adresi ..:: | Açıklama ..:: | E-Mail adresim diğer üyelere görünsün Kaydete tıklayınca kuralları kabul etmiş sayılacaksınız