BT Üyelik Sistemi

<% Set baglanti = Server.CreateObject("ADODB.Connection") baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("65465879a23423455ads_ads/db.mdb") Function tepe(Str) Str = Replace(Str, "'", "",1,-1,1) Str = Replace(Str, """", "",1,-1,1) Str = Replace(Str, "<", "<.",1,-1,1) Str = Replace(Str, "script", "sprict",1,-1,1) Str = Replace(Str, " <%elseif dil = "EN" then%> <%elseif dil = "" then%> <%elseif dil = "Yok" then%> <%end if%> <% if request.querystring("haydi")="bakam" then kadi=tepe(request.form("kadi")) sifre=tepe(request.form("sifre")) if kadi= "" or sifre= "" then Response.Redirect "uyepaneli.asp?haydi=olmadi" end if set gir = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&kadi&"' and sifre='"&sifre&"'" gir.open SQL,baglanti,1,3 if not gir.eof then session("giris")="ok" session("kadi")=kadi gir("giris")=gir("giris") + 1 gir.update hatirla=Request.Form("hatirla") If hatirla = "on" Then Response.Cookies("HatirlaBT")("kadi")=kadi Response.Cookies("HatirlaBT")("sifre")=sifre Response.Cookies("HatirlaBT").Expires=Now()+365 End If Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_1&" "&kadi&"
"&giris_2&"

" Response.Write "

" else Response.Redirect "uyepaneli.asp?haydi=olmadi" end if end if if request.querystring("haydi")="kaydet" then kadi=tepe(request.form("kadi")) sifre=tepe(request.form("sifre")) sifre2=tepe(request.form("sifre2")) email=tepe(request.form("email")) ad=tepe(request.form("ad")) soyad=tepe(request.form("soyad")) dogum=tepe(request.form("dogum")) soru=tepe(request.form("soru")) cevap=tepe(request.form("cevap")) set knt = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&kadi&"'" knt.open SQL,baglanti,1,3 if not knt.eof then Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_3&"
"&giris_2&"

" Response.Write "

" else if len(kadi)<4 or len(kadi)>15 then Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_4&"
"&giris_2&"

" Response.Write "

" else if sifre <> sifre2 then Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_5&"
"&giris_2&"

" Response.Write "

" else if kadi="" or sifre="" or email="" or ad="" or soyad="" or dogum="" or soru="" or cevap="" then Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_6&"
"&giris_2&"

" Response.Write "

" else if not IsEmpty(Request.Form("tolga")) then if TestCaptcha("ASPCAPTCHA", Request.Form("guvenlik")) then set kyt = server.createobject("ADODB.Recordset") SQL = "Select * from uye" kyt.open SQL,baglanti,1,3 kyt.addnew kyt("kadi")=kadi kyt("sifre")=sifre kyt("email")=email kyt("ad")=ad kyt("soyad")=soyad kyt("soru")=soru kyt("cevap")=cevap kyt("dogum")=dogum kyt("giris")=0 kyt.update Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_7&"
"&giris_8&"

" Response.Write "

" else Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_34&"
"&giris_2&"

" Response.Write "

" end if end if end if end if end if end if end if if request.querystring("haydi")="sie" then session.abandon Response.Cookies("HatirlaBT")("kadi")="" Response.Cookies("HatirlaBT")("sifre")="" Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_30&"
"&giris_8&"

" Response.Write "

" end if %> BT Üyelik Sistemi

<%if request.querystring("haydi")="" then if session("giris")="ok" then Response.Redirect "?haydi=bakalim" end if if not session("giris")="ok" then%> <% if ckadi="" and csifre="" then %>

<%end if%> <% ckadi=Request.Cookies("HatirlaBT")("kadi") csifre=Request.Cookies("HatirlaBT")("sifre") if ckadi="" and csifre="" then else set gir = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&ckadi&"' and sifre='"&csifre&"'" gir.open SQL,baglanti,1,3 if not gir.eof then session("giris")="ok" session("kadi")=ckadi gir("giris")=gir("giris") + 1 gir.update Response.Redirect "uyepaneli.asp?haydi=bakalim" else Response.Redirect "uyepaneli.asp?haydi=olmadi" end if end if %><% if ckadi="" and csifre="" then %> <%end if end if end if if request.querystring("haydi")="bakalim" then if not session("giris")="ok" then Response.Redirect "Uyepaneli.asp" end if set grd = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&session("kadi")&"'" grd.open SQL,baglanti,1,3%>

<%=giris_14%> <%=session("kadi")%>
<%=giris_15%> <%=grd("giris")%>. <%=giris_16%>

<%=giris_17%>

<%=giris_18%>

<%=giris_19%>

<%end if%>

<% if request.querystring("haydi")="olmadi" then%>

<%=giris_20%>
<%=giris_8%>

<%end if%> <% if request.querystring("haydi")="sifremyok" then%> <%end if if request.querystring("haydi")="sifremyok2" then gkadi=tepe(request.form("gkadi")) adres=Request.ServerVariables("HTTP_REFERER") if not adres <> "./?haydi=sifremyok" then response.redirect Request.ServerVariables("HTTP_REFERER") end if if gkadi = "" then Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_23&"
"&giris_2&"

" Response.Write "

" else set su = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&gkadi&"'" su.open SQL,baglanti,1,3 if su.eof then Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_23&"
"&giris_2&"

" Response.Write "

" else %> <%end if end if end if if request.querystring("haydi")="sifremyok3" then gkadi=request.form("gkadi") adres=Request.ServerVariables("HTTP_REFERER") if not adres <> "./?haydi=sifremyok" then response.redirect Request.ServerVariables("HTTP_REFERER") end if if gkadi = "" then Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_22&"
"&giris_2&"

" Response.Write "

" else set sq = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&gkadi&"'" sq.open SQL,baglanti,1,3 dcevap=sq("cevap") cevap=request.form("cevap") if dcevap = cevap then%>

<%=bilgi_1%> <%=gkadi%>. <%=giris_24%>
<%=bilgi_5%>
<%=bilgi_6%>

<%else Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_25&"
"&giris_2&"

" Response.Write "

" end if end if end if if request.querystring("haydi")="sifremyok4" then gkadi=request.form("gkadi") sifre=request.form("sifre") sifre2=request.form("sifre2") if sifre = "" or sifre2 = "" then Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_6&"
"&giris_2&"

" Response.Write "

" else if sifre <> sifre2 then Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_5&"
"&giris_2&"

" Response.Write "

" else set sd = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&gkadi&"'" sd.open SQL,baglanti,1,3 sd("sifre")=sifre sd.update Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

"&giris_26&"
"&giris_8&"

" Response.Write "

" end if end if end if if request.querystring("haydi")="bilgilerim" then if not session("giris")="ok" then Response.Redirect "Uyepaneli.asp" else set sd = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&session("kadi")&"'" sd.open SQL,baglanti,1,3%>

<%=giris_9%>	<%=sd("kadi")%>
<%=bilgi_7%>	<%=sd("ad")%>
<%=bilgi_8%>	<%=sd("soyad")%>
<%=bilgi_9%>	<%=sd("email")%>
<%=bilgi_10%>	<%=sd("giris")%>
<%=bilgi_11%>	<%=sd("dogum")%>
<%=bilgi_12%>	<%=sd("soru")%>

<%=giris_27%> <%end if end if if request.querystring("haydi")="duzenle2" then if not session("giris")="ok" then Response.Redirect "Uyepaneli.asp" else sifre=tepe(request.form("sifre")) sifre2=tepe(request.form("sifre2")) email=tepe(request.form("email")) ad=tepe(request.form("ad")) soyad=tepe(request.form("soyad")) dogum=tepe(request.form("dogum")) soru=tepe(request.form("soru")) cevap=tepe(request.form("cevap")) if sifre="" or sifre2="" or email="" or ad="" or soyad="" or dogum="" or soru="" or cevap="" then Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "
"&giris_6&"
"&giris_2&"
" Response.Write "

" else if sifre <> sifre2 then Response.Write "" Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "
"&giris_5&"
"&giris_2&"
" Response.Write "
" else set sd = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&session("kadi")&"'" sd.open SQL,baglanti,1,3 sd("ad")=ad sd("soyad")=soyad sd("sifre")=sifre sd("email")=email sd("dogum")=dogum sd("soru")=soru sd("cevap")=cevap sd.update Response.Write "" Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "
"&giris_28&"
"&giris_8&"
" Response.Write "
" end if end if end if end if if request.querystring("haydi")="duzenle" then if not session("giris")="ok" then Response.Redirect "Uyepaneli.asp" else set sd = server.createobject("ADODB.Recordset") SQL = "Select * from uye where kadi='"&session("kadi")&"'" sd.open SQL,baglanti,1,3%>

<%=bilgi_7%> ">

<%=bilgi_8%> ">

<%=bilgi_5%>

<%=bilgi_6%>

<%=bilgi_9%> ">

<%=bilgi_11%> ">

<%=bilgi_12%> ">

<%=bilgi_13%> ">

<%=giris_27%> <%end if%> <%end if%> <% if request.querystring("haydi")="uyeol" then%> <% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %>

* <%=giris_9%>

* <%=bilgi_5%>

* <%=bilgi_6%>

* <%=bilgi_9%>

* <%=bilgi_12%>:

* <%=bilgi_13%>

* <%=bilgi_7%>

* <%=bilgi_8%>

* <%=bilgi_11%>

* <%=giris_32%> <%=giris_33%>

* <%=giris_32%>

(*) <%=bilgi_14%>

<%=bilgi_15%>

<%end if%>

<%=bilgi_1%> <%=gkadi%>. <%=bilgi_2%>
<%=bilgi_3%>	<%=su("soru")%>
<%=bilgi_4%>

<%=giris_9%>	">
<%=giris_10%>	">
<%=giris_31%>

<%=giris_12%> \| <%=giris_13%>

* <%=giris_9%>
* <%=bilgi_5%>
* <%=bilgi_6%>
* <%=bilgi_9%>
* <%=bilgi_12%>:
* <%=bilgi_13%>
* <%=bilgi_7%>
* <%=bilgi_8%>
* <%=bilgi_11%>
* <%=giris_32%>	<%=giris_33%>
* <%=giris_32%>