1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Asp Kodlari


  1. Narqotic

    Narqotic Bilgiliyim rank8

    Kayıt:
    22 Nisan 2007
    Mesajlar:
    1.365
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    !!!
    Şehir:
    BeN SeNiN CaNıN İçİN ÖmRüMü BiR KiBRiTiN KaBıNDa T
    Arama motoru kodu:


    Kod:
    Kod:
    //search.asp dosyası
    
    
    [b]<%
    
    'Optimize eden varlık= Osman Karabulut
    'e-Mail=Cry_Wolf@webcix.org
    
    %>
    <% option explicit %>
    <body bgcolor=336699>
    <style type=text/css>
    a{color:white;font-family:tahoma;font-size:12;font-weight:bold}
    a:hover{color:#990000}
    </style>
    <font color=orange face=tahoma size=2><b>
    <%
    dim sol,sag,sayi,connobj,rsobj,sql,ara,sayiand,soland,sagand
    set connobj=server.createobject("adodb.connection")
    connobj.open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("denek.mdb"))
    set rsobj=server.createobject("adodb.recordset")
    
    ara=request.form("ara")
    if instr(ara,"'") then
    ara=replace(ara,"'","")
    end if
    if instr(ara," and ") then
    ara=replace(ara," and ","|")
    sayiand=instr(ara,"|")
    soland=left(ara,sayiand-1)
    sagand=mid(ara,sayiand+1)
    sql="select site,bilgi from denek where kelime1 like '"&soland&"' or kelime2 like '"&soland&"' or " &_
    "kelime3 like '"&soland&"' or kelime4 like '"&soland&"' or kelime1 like '"&sagand&"' or " &_
    "kelime2 like '"&sagand&"' or kelime3 like '"&sagand&"' or kelime4 like '"&sagand&"'"
    elseif instr(ara,"*") then
    sol=left(ara,1)
    sag=right(ara,1)
    sayi=len(ara)-1
    if left(ara,1)="*" then
    ara=mid(ara,2)
    sql="select site,bilgi from denek where kelime1 like '%"&ara&"' or kelime2 like '%"&ara&"' or " &_
    "kelime3 like '%"&ara&"' or kelime4 like '%"&ara&"'"
    elseif right(ara,1)="*" then
    ara=left(ara,sayi)
    sql="select site,bilgi from denek where kelime1 like '"&ara&"%' or kelime2 like '"&ara&"%'or " &_
    "kelime3 like '"&ara&"%' or kelime4 like '"&ara&"%'"
    end if
    else
    sql="select site,bilgi from denek where kelime1 like '"&ara&"' or kelime2 like '"&ara&"' or " &_
    "kelime3 like '"&ara &"' or kelime4 like '"& ara &"'"
    end if
    rsobj.open sql,connobj,2,3
    do while not rsobj.eof
    response.write 	"<a href=http://"& rsobj(0)&">" & rsobj(0) &"</a>" &"<br>" & rsobj(1) &"<br><br>"
    rsobj.movenext
    loop
    
    %>
    
    
    <%
    rsobj.close
    set rsobj = nothing
    connobj.close
    set connobj = nothing
    %>
    
    //search.asp dosyası--------------------------------buraya kadar--------------------------------
    
    
    //html dosyası--------------------------------------
    <html>
    <body bgcolor=336699>
    <center><br><br>
    <form action=search.asp method=post>
    <input type=text name=ara> &nbsp
    <input type=submit value="  Ara  ">
    </form>
    </center>
    </body>
    </html>
    [/b]
     
  2. Narqotic

    Narqotic Bilgiliyim rank8

    Kayıt:
    22 Nisan 2007
    Mesajlar:
    1.365
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    !!!
    Şehir:
    BeN SeNiN CaNıN İçİN ÖmRüMü BiR KiBRiTiN KaBıNDa T
    Sifrelerinizi korumak için yazilmis bir uygulama. orjinal sifreye sadik kalarak bir yöntemle bu sifrenin karistirilip baskalari tarafindan okunmasini engeller.



    Kod:
    Kod:
    <%
    function Encrypt(Text,Password) 
    Dim TextCharCode, PasswordCharCode, NewCharCode
    
    For Char = 1 To LEN(Text) 
    TextCharCode = ASC(MID(Text,Char,1))
    PasswordCharCode = ASC(MID(Password,(Char MOD LEN(Password) + 1),1))
    NewCharCode = TextCharCode + PasswordCharCode
    if NewCharCode > 255 Then NewCharCode = NewCharCode -255
    
    Encrypt = Encrypt & CHR(NewCharCode)
    NEXT
    End function
    
    function Decrypt(Code,Password) 
    Dim CodeCharCode, PasswordCharCode, OriginalCharCode
    
    For Char = 1 To LEN(Code)
    CodeCharCode = ASC(MID(Code,Char,1))
    
    PasswordCharCode = ASC(MID(Password,(Char MOD LEN(Password) + 1),1))
    OriginalCharCode = CodeCharCode - PasswordCharCode
    
    if OriginalCharCode < 1 Then OriginalCharCode = OriginalCharCode + 255
    
    Decrypt = Decrypt & CHR(OriginalCharCode)
    NEXT
    End function
    %>
     
  3. Narqotic

    Narqotic Bilgiliyim rank8

    Kayıt:
    22 Nisan 2007
    Mesajlar:
    1.365
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    !!!
    Şehir:
    BeN SeNiN CaNıN İçİN ÖmRüMü BiR KiBRiTiN KaBıNDa T
    İlk önce bir sayfa açrak onu .asp ye donusturun.
    Benim vereceğim kodları yazın...


    Kod:
    Kod:
    <% Response.Buffer = True %>
    <%on error resume next%>
    <!--#Include File="dahil.asp"-->
    <%
    
      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 "<b>BU IP ADRESININ SITEYE GİRİŞİ YASAKLANMIŞTIR!...</b>"
    	Response.END
    	End If
    %>
    <head>
    <meta name="Generator" content="Microsoft FrontPage 5.0">
    <meta name="Author" content="Akif">
    <meta name="Keywords" content="Akif">
    <meta name="Description" content="Üyelik XP - Üyelik Sistemi">
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9">
    <title> Şifre Hatırlatma Sistemi - © NB Studios 2002 </title>
    <style>
    Body { font-family: verdana,tahoma,arial; font-size: 11px; color: #000000; }
    a:link    { cursor: none; font-weight: bold; text-decoration: none; color: #1E5ED2; }
    a:visited { cursor: none; font-weight: bold; text-decoration: none; color: #1E5ED2; }
    a:active  { cursor: none; font-weight: bold; text-decoration: none; color: #5691F1; }
    a:hover   { cursor: none; font-weight: bold; text-decoration: none; color: #5691F1; }
    
    a.news:link    { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
    a.news:visited { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
    a.news:active  { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
    a.news:hover   { cursor: none; font-weight: none; text-decoration: underline; color: #D4D4D5; }
    
    table { font: 11px verdana,tahoma,arial; }
    #tdID {border : 1px dashed silver solid; font: 11px verdana,tahoma,arial; vertical-align:middle;}
    .input { border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; Background-Color: #EFEFEF; Color: #000000; Font-Size: 10PX; Font-Weight: Bold; Font-Family: verdana,tahoma,arial }
    .input2 { border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; Background-Color: #EFEFEF; Color: #000000; Font-Size: 9PX; Font-Weight: None; width:132; Font-Family: verdana,tahoma,arial }
    .td {border : 1px dashed silver solid; font: none 11px tahoma; vertical-align:above;}
    .textarea  {border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; background-color: #EFEFEF; color: #000000; width: 133; font-size: 10px; height: 80; font-family: verdana,tahoma,arial}
    .textarea_y  {border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; background-color: #EFEFEF; color: #000000; width: 350; font-size: 10px; height: 125; font-family: verdana,tahoma,arial}
    </style>
    </head>
    <% If Session("Oturum") = "Acik" Then Response.Redirect "default.asp" : Response.End %>
    <form action="uye_ol.asp" method=post name="form">
    </form>
    <table align=center border=0 borderstyle=groove bordercolor=navy width=420>
      <tr>
        <td style="border : 1px dashed silver solid; font: none 11px tahoma; vertical-align:above;">
    			<center>
    			<font style="font-size:19px; font-weight:bold;">BENDENIZ FUN CLUB   <font style="font-size: 14px; font-weight: none;"><i></i><font style="font-size:19px; font-weight:bold;"></font><i>Üyelik Formu</i></font></font>
    			<hr width="310"><br>
    	 <table style="font-size: 11px;" width="300" align=center>
    	  <tr>
    	   <td align=center><font color="#000000">Adınız ve soyadınız, diğer üyelere gösterilmez..</font></td>
    	  </tr>
    	  <tr>
    	   <td align=center><a href="default.asp">Ana sayfa</a></td>
    	  </tr>
    	 </table><br>
    	 <table style="font-size: 11px;" width="420">
    	  <tr>
    	    <td align=right width="50%">
    		..:: | Üye Adı *
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="uye_adi" class="input" maxlength=13 size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#1" onClick="window.name='main_uye'; window.open('nedir.html#1','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	  </tr>
    
    	  <tr>
    	    <td align=right width="50%">
    		..:: | Şifre *
    		</td>
    		<td align=left width="50%">
    		<input type="password" name="sifre" class="input" size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#2" onClick="window.name='main_uye'; window.open('nedir.html#2','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
          </tr>
    	  
    	  <tr>
    		<td align=right width="50%">
    		..:: | Şifre Tekrarı *
    		</td>
    		<td align=left width="50%">
    		<input type="password" name="sifre_t" class="input" size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#3" onClick="window.name='main_uye'; window.open('nedir.html#3','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | E-Mail Adresi *
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="email" class="input" maxlength=45 size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#4" onClick="window.name='main_uye'; window.open('nedir.html#4','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | Ad Soyad *
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="adsoyad" class="input" maxlength=40 size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#5" onClick="window.name='main_uye'; window.open('nedir.html#5','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | Hatırlatma Sorusu *
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="h_soru" class="input" maxlength=70 size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#6" onClick="window.name='main_uye'; window.open('nedir.html#6','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | Cevabı *
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="h_cevap" class="input" maxlength=70 size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#7" onClick="window.name='main_uye'; window.open('nedir.html#7','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | ICQ   
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="icq" class="input" maxlength=20 size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#8" onClick="window.name='main_uye'; window.open('nedir.html#8','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | Şehir   
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="sehir" class="input" size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#9" onClick="window.name='main_uye'; window.open('nedir.html#9','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | Meslek   
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="meslek" class="input" size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#10" onClick="window.name='main_uye'; window.open('nedir.html#10','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | Yaş Aralığı   
    		</td>
    		<td align=left width="50%">
    		<select name="yas" style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: Dashed Silver; Font-Size: 9PX; Font-Weight: bold; width:137; Font-Family: verdana,tahoma,arial;">
    		<option>=< 18</option>
    		<option>18-24</option>
    		<option>24-30</option>
    		<option>30+</option>
    		</select>
    		</td>
    		<td align=left>
    		<a href="nedir.html#11" onClick="window.name='main_uye'; window.open('nedir.html#11','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	   </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | Web Adresi   
    		</td>
    		<td align=left width="50%">
    		<input type="text" name="webadresi" class="input" value="http://" size="20">
    		</td>
    		<td align=left>
    		<a href="nedir.html#12" onClick="window.name='main_uye'; window.open('nedir.html#12','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	  </tr>
    
    	  <tr>
    		<td align=right valign=top width="50%">
    		..:: | Açıklama   
    		</td>
    		<td align=left width="50%">
    		<textarea name=aciklama style="background-color: #EFEFEF; color: #000000; border: 2; border-style: groove; border-color: #FFFFFF; width: 133; font-size: 10px; height: 80; font-family: verdana,tahoma,arial" rows="1" cols="20"></textarea>
    		</td>
    		<td align=left>
    		<a href="nedir.html#13" onClick="window.name='main_uye'; window.open('nedir.html#13','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	  </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		..:: | E-Mail adresim   <br> diğer üyelere görünsün   
    		</td>
    		<td align=left width="50%">
    		<input type="checkbox" name="mailg" class="input" checked value="ON">
    		</td>
    		<td align=left>
    		<a href="nedir.html#14" onClick="window.name='main_uye'; window.open('nedir.html#14','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
    		</a>
    		</td>
    	  </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		Kaydete tıklayınca <a href="kurallar.html" target=_blank>kurallar</a>ı
    		</td>
    		<td align=left width="50%">
    		kabul etmiş sayılacaksınız
    		</td>
    		<td align=left>
    		<a href="nedir.html#15" onClick="window.name='main_uye'; window.open('nedir.html#15','Nedir', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=325,height=100'); return false;">
    		<img src="image/soru.jpg" width="16" height="16" border=0 alt="Kurallar nedir?">
    		</a>
    		</td>
    	  </tr>
    
    	  <tr>
    		<td align=right width="50%">
    		<input type="reset" value=". . : : | KayBet | : : . ."  style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: #FFFFFF; Font-Size: 10PX; Font-Weight: None; ">
    		</td>
    		<td align=left width="50%">
    		<input type="submit" name="yolla" value=". . : : | KayDet | : : . ."  style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: #FFFFFF; Font-Size: 10PX; Font-Weight: None; " onClick="javascript: 
    		
    		if (form.uye_adi.value == '' || document.form.uye_adi.value.length < 2) { alert('Lütfen üye adını doğru olarak yazınız!..  (En az 2 karakter)'); form.uye_adi.focus(); return false }
    
    		if (form.sifre.value == '' || document.form.sifre.value.length < 4 || document.form.sifre.value.length > 8) { alert('Lütfen şifrenizi doğru olarak yazınız!.. (En az 4, en çok 8 karakter)'); form.sifre.focus(); return false }
    
    		if (form.sifre.value != form.sifre_t.value) { alert('Şifreniz ve tekrarı, birbirinden farklı!..'); form.sifre.focus(); return false }
    
    		if (form.email.value == '' || document.form.email.value.indexOf('@') ==-1 || document.form.email.value.indexOf('.') ==-1) { alert('Lütfen geçerli bir e-mail adresi yazınız!..'); form.email.focus(); return false }
    
    		if (form.adsoyad.value == '' || document.form.adsoyad.value.length < 4) { alert('Lütfen Ad ve Soyadınızı doğru olarak yazınız!...'); form.adsoyad.focus(); return false }
    
    		if (form.h_soru.value == '' || document.form.h_soru.value.length < 3) { alert('Lütfen hatırlatma sorusu yazınız!...'); form.h_soru.focus(); return false }
    
    		if (form.h_cevap.value == '') { alert('Lütfen hatırlatma sorusuna cevap yazınız!..'); form.h_cevap.focus(); return false }
    
    		if (form.aciklama.value.length > 125) { alert('Açıklama en fazla 125 karakter olmalı!..'); form.aciklama.focus(); return false }
    
    		else
    		{
    		form.submit();
    		this.disabled=true;
    		}
    		"><input type=hidden name="xp" value="xp">
    		</td>
    		<td align=left>
    		</td>
    	  </tr>
    	 </table>
        </td>
      </tr>
    </form>
    <%
    Sub hataYaz(str)
    Response.write "<center><font color=""#FF0000""><b>" & str & "</b></font><br><a href=""javascript:history.back(1)"">Geri</a></center><br><br>"
    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 "<center><font color=""#FF0000""><b>Lütfen üye adınız ve şifrenizde kesme işareti (') kullanmayın</b></font><br><a href=""javascript:history.back(1)"">Geri</a></center><br><br>"
    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 "<b>Veritabanındaki bir hatadan dolayı kayıt yapılamıyor</b><br><br>"
     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 "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
     Response.End
     End If
    ElseIf mailBil = "PERSITS" Then
    yolla = PERSITS (konuA, mesajA, Request.Form("email"))
     If NOT yolla Then
     Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
     Response.End
     End If
    ElseIf mailBil = "JMAIL" Then
    yolla = JMAIL (konuA, mesajA, Request.Form("email"))
     If NOT yolla Then
     Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
     Response.End
     End If
    Else
     Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
     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 %><!--#Include File="mail_functions.asp"--><%
     
  4. Narqotic

    Narqotic Bilgiliyim rank8

    Kayıt:
    22 Nisan 2007
    Mesajlar:
    1.365
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    !!!
    Şehir:
    BeN SeNiN CaNıN İçİN ÖmRüMü BiR KiBRiTiN KaBıNDa T
    Asp upload

    Kod:
    <html>
    <head>
     <title>Resim Yükle</title>
     <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
    <LINK href="../images/links.css" rel="stylesheet">
    <script language="_JavaScript">
    function S_im()
    {
    var tm=new Image();
    var o=document.all;
    if (o.statu.value=="ok") {
    tm.src=o.upi.src;
    window.location="Limage.asp?fn="+o.fn.value+"&w="+tm.width+"&h="+tm.height+"&qstr=<%=Request.ServerVariables("QUERY_STRING")%>";
    }
    }
    </script>
    </head>
     
    <body onfiltered='S_im()'>
    <%
     dim ImageType,Ft_Filename
     ImageType=false
        ' This code is needed to "initialize" the retrieved data
        Dim q
        q = Chr(34)
        ' All data
        Dim aAllDataB, aAllData, x, aHdr
        aAllDataB = Request.BinaryRead(Request.TotalBytes)
        ' It comes in as unicode, so convert it to ascii
        For x = 1 To LenB(aAllDataB)
            aAllData = aAllData & Chr(AscB(MidB(aAllDataB, x, 1)))
        Next
        ' The "header" is a unique string generated by the system to indicate
        ' the beginning and end of file data
        aHdr = Left(aAllData, Instr(aAllData,vbCrLf)+1)
     
     'response.write(len(aHdr))
     
     'response.end
    %>
     
    <%
        ' Here's where your code goes.
        ' In this example, "file1" and "file2" are the field names
        ' specified within the form of the upload submission page.
      '  Response.Write "file1: Filename = " & GetFilename("file1") & "<br>"
     Response.Write GetFileData("file1") & "<br><br>"
     
        'Response.Write "file2: Filename = " & GetFilename("file2") & "<br>"
    Response.Write GetFileData("file2") & "<br><br>"
     
        ' Writing out the file data like this only looks okay when
        ' the uploaded file is some kind of text - images and things
        ' like that probably just need to be saved or otherwise
        ' acted upon.
    '    Response.Write Replace(aAllData,vbCrLf,"<br>")
     
        Dim aFilename
        ' aFilename equates to the original filename, except saved
        ' in the root path of the server. The root path must have
        ' Change rights for the default internet user.
     Ft_FileName=GetFileName("file1")
        aFilename = Server.MapPath("images/Users") & "/" & Ft_FileName
     
     'response.write("///"&GetFileName("file1")&"///")
     Set FSO1 = server.CreateObject("Scripting.FileSystemObject")
        if FSO1.FileExists(aFilename) then
     Dim tfl
     tfl=Ft_Filename
     x=instr(tfl,".")
     if x>0 then 
     if userId="" then userId=1
     tfl=Mid(tfl,1,x-1)&"_"&Second(time)&"."&Right(tfl,3)
     aFilename = Server.MapPath("images/Users") & "/" & tfl
     'response.write("000-"&tfl&"-000")
     Ft_FileName=tfl
     end if
     end if
     Set FSO1=nothing
     
        Call SaveFile("file1", aFilename)
    '    aFilename = Server.MapPath("images/Users") & "\" & GetFileName("file2")
        'Call SaveFile("file2", aFilename)
    %>
     
    <%
        ' These are functions used to retrieve the data
    Function GetFileName(aField)
        Dim x2, i
        x = Instr(aAllData, aHdr & "Content-Disposition: form-data; name=" &q&aField & q)
        x = Instr(x, aAllData, "filename=" & q)
        x2 = Instr(x, aAllData, vbCrLf)
        For i = x2 To x Step -1
            If Mid(aAllData,i,1) = "\" Then
                x = i - 9
                Exit For
            End If
        Next
        GetFileName = Mid(aAllData, x+10, x2-(x+11))
    End Function
    Function GetFileData(aField)
        Dim x2
     'aHdr="-----------------------------7d21db231008c2 "
        x = Instr(aAllData, aHdr & "Content-Disposition: form-data; name=" & q &aField & q)
        x = Instr(x, aAllData, vbCrLf)
        x = Instr(x+1, aAllData, vbCrLf)
        x = Instr(x+1, aAllData, vbCrLf) + 2
        x2 = Instr(x, aAllData, Left(aHdr,Len(aHdr)-2))
        GetFileData = Mid(aAllData, x+2, x2-x-4)
    End Function
    Function SaveFile(aField1, aFilename)
     bh=lcase(aFileName)
     if instr(bh,".gif")>0 then  ImageType=true
     if instr(bh,".jpg")>0 then  ImageType=true
     if instr(bh,".png")>0 then  ImageType=true
     if instr(bh,".bmp")>0 then  ImageType=true
     
        Dim FSO, TS
        Set FSO = server.CreateObject("Scripting.FileSystemObject")
        if ImageType then Set TS = FSO.CreateTextFile(aFilename, True, False)
    ' response.write(afield)
     'response.end
     on error resume next
      if ImageType then  TS.Write GetFileData(aField1)
        TS.Close
    if ImageType then  Set TS = Nothing
        Set FSO = Nothing
     
     
    End Function
    %><% If not ImageType then %>
    <input type="Hidden" name="statu" value="badfile">
    <div align="center">
    Hatalı Dosya formatı.<br>
    <a href="_javascript:window.history.go(-1)">Geri Dön</a>
    </div>
    <% Else  %>
    <input type="Hidden" name="statu" value="ok">
    <input type="Hidden" name="fn" value="<%=trim(Ft_FileName)%>"> <strong>Lütfen Bekleyiniz...</strong><br>
    <IMG name="upi" SRC="images/users/<%=trim(Ft_FileName)%>">
    <% End If %>
     
    </body></HTML>
     
  5. Narqotic

    Narqotic Bilgiliyim rank8

    Kayıt:
    22 Nisan 2007
    Mesajlar:
    1.365
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    !!!
    Şehir:
    BeN SeNiN CaNıN İçİN ÖmRüMü BiR KiBRiTiN KaBıNDa T
    Asp ile güncel haberler

    Kod:
    <% 
    alinacakadres = "http://www.ntvmsnbc.com/news/BCList2.txt" 
    
    Set Tear_ac = CreateObject("SOFTWING.ASPtear" ) 
    dim bilgicek 
    bilgicek = Tear_ac.Retrieve(alinacakadres , 2, "" , "" , "" ) 
    
    nereden="Güncel Ön Sayfa" 
    nereye="+UYUM YASASI" 
    
    baslanacakyer=InStr(bilgicek,nereden)+15 
    bitecekyer=InStr(bilgicek,nereye) 
    baslangic=0 
    son=0 
    alinacakbolum=Mid(bilgicek,baslanacakyer,bitecekyer-baslanacakyer) 
    
    For a= 1 To 100 
    
    t=Len(alinacakbolum) 
    
    If t<=0 Then 
    exit For 
    End If 
    
    c=InStr(alinacakbolum,Chr(10)) 
    
    If c<=0 Then 
    exit For 
    End If 
    
    alinacakbolum=Right(alinacakbolum,t-c) 
    
    baslangic=InStr(alinacakbolum,"/news/./" ) 
    son=InStr(alinacakbolum,Chr(10)) 
    
    If baslangic<=0 or son<=0 or son<baslangic Then 
    
    Else 
    satir=Mid(alinacakbolum,baslangic,son-baslangic) 
    If InStr(satir,"/news/./" )=0 or Len(satir)<20 Then 
    Else 
    ekle=ekle & satir & "<br>" 
    End If 
    End If 
    
    Next 
    
    ekle=Replace(ekle,"/news/./" ,"<a href='http://www.ntvmsnbc.com/news/" ,1,-1,1) 
    ekle=Replace(ekle,"|" ,"'>" ,1,-1,1) 
    ekle=Replace(ekle,Chr(10),"</a>" ,1,-1,1) 
    
    Response.Write "<font face=verdana size=1 color=black>" & ekle & "</font>" 
    
    
     
  6. Narqotic

    Narqotic Bilgiliyim rank8

    Kayıt:
    22 Nisan 2007
    Mesajlar:
    1.365
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    !!!
    Şehir:
    BeN SeNiN CaNıN İçİN ÖmRüMü BiR KiBRiTiN KaBıNDa T
    Asp ile hava durumu bilgileri

    Kod:
    <% 
    const Request_GET = 2 
    Dim haberURL, haberim, basliklar 
    haberURL = "http://www.tr.net" 
    Set alma = CreateObject("SOFTWING.ASPtear" ) 
    On Error Resume Next 
    haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" ) 
    If Err.Number <> 0 Then 
    Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... " 
    Response.End 
    End If 
    dim baslangic , bitis 
    baslangic = "<table border=0 cellpadding=0 cellcpacing=0>" 
    bitis = "</table>" 
    dim x , abc 
    x = 0 
    abc = 0 
    dim lale 
    lale = "" 
    Do Until abc = 2 
    x = x + 1 
    If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then 
    abc = abc + 1 
    End If 
    If Mid(haberim,x,Len(baslangic)) = baslangic Then 
    abc = abc + 1 
    Else 
    If abc = 1 Then 
    lale = lale + Mid(haberim,x,1) 
    End If 
    End If 
    Loop 
    Function seklesok(hammadde) 
    Dim gecicigeyik 
    gecicigeyik = hammadde 
    gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1) 
    gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1) 
    seklesok = gecicigeyik 
    End Function 
    Response.Write "<" 
    Response.Write seklesok(lale) 
    Response.Write "</table>" 
    %>
     
  7. Narqotic

    Narqotic Bilgiliyim rank8

    Kayıt:
    22 Nisan 2007
    Mesajlar:
    1.365
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    !!!
    Şehir:
    BeN SeNiN CaNıN İçİN ÖmRüMü BiR KiBRiTiN KaBıNDa T
    Forumdaki online üyeler......

    Kod:
    <%  
    dk_g = 4 
    db = Server.MapPath("forums.mdb" )  
    Set objCon = Server.CreateObject("ADODB.Connection" )  
    objCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db)  
    
    Session.LCID = 1033  
    tarih = DateAdd("n" , -1 * dk_g, Now())  
    Set objList = Server.CreateObject("ADODB.RecordSet" )  
    objList.Open "SELECT * FROM member WHERE son_giris >= #" &tarih&"# ORDER BY son_giris DESC" , objCon, 3, 3  
    Session.LCID = 2048  
    
    If objList.Eof Then ' kayit yoksa 0 degerini veriyos   
    uNumber = "0"   
    Else ' kayit varsa kaç tane oldugunu aliyoruz 
    uNumber = objList.RecordCount  
    End If  
    
    For I = 1 To uNumber  ' döngüyü baslatiyos 
    
    Response.Write "<b>" & objList("kulad" ) &"</b>, "   
    
    objList.Movenext  
    
    Next  
    Response.Write " (" & uNumber &") "   
    %>
     
  8. Narqotic

    Narqotic Bilgiliyim rank8

    Kayıt:
    22 Nisan 2007
    Mesajlar:
    1.365
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    !!!
    Şehir:
    BeN SeNiN CaNıN İçİN ÖmRüMü BiR KiBRiTiN KaBıNDa T
    Ip banlama......
    Kod:
    <%
    Dim ipno
    Dim Toplam
    
    'Burada array listesini tanimliyoruz (unutmayin ki 0 = 1 degerini alir, 1 = 2 değerini alir)
    Dim Ip_array(5)
    
    'Kulanicinin ip adresini aliyoruz
    ipno = Request.ServerVariables("REMOTE_ADDR")
    
    'Toplam array sayisini belirtiyoruz
    Toplam = 5
    
    'Bloke edilen ip numaralari (Databasetende yapabilirsiniz)
    Ip_array(0) = "127.0.0.1"
    Ip_array(1) = "202.56142.41" 
    Ip_array(3) = "12.232.31.166"
    Ip_array(4) = "12.245.59.175"
    Ip_array(5) = "149.99.116.62"
    
    'Döngüye giriyoruz
    For I = 0 to Toplam
    If Ip_array(I) = ipno Then 
    
    'Eğer giren kullanicinin ip`si ban listesinde mevcut ise banlanmissiniz diye bir sayfa gosteriyoruz
    Response.Redirect "ban.asp"
    
    End If 
    Next
    %>
     
  9. V.I.P

    V.I.P Buralıyım rank8

    Kayıt:
    27 Ağustos 2007
    Mesajlar:
    4.579
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Şehir:
    FB
    Yavaş git Narqotic yetişemiyorum :mrgreen:
     
  10. _CaspeR_

    _CaspeR_ Buralıyım rank8

    Kayıt:
    27 Nisan 2007
    Mesajlar:
    3.887
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Şehir:
    EXtraloob.com !!
    nargotic bakıyorum bu bölümü çok sevdin baya bişeyler yapıyorsun bu bölümde tbrk