|
<% Response.Buffer = True %>
<%on error resume next%>
[an error occurred while processing this directive]
<%
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
%>
Şifre Hatırlatma Sistemi - © NB Studios 2002
<% If Session("Oturum") = "Acik" Then Response.Redirect "default.asp" : Response.End %>
bedircan.tripod.com/korkutelitrcx Üyelik Formu
| Adınız ve soyadınız, diğer üyelere gösterilmez.. |
| Ana sayfa |
|
<%
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 %>[an error occurred while processing this directive]<%
End If
%>
çok yakında
 |
|
|
|
|
|
|
|
What's New?
Here I might add an entry whenever I make an update to my web site. Where appropriate, I'll include a link to the change.
For example:
11/1/01 - Added new photos to Vacation Album page.
|
|
|
