0
Kayıt Ol

Asp de veri yazdıma ile ilgili

21

●

1.510

  • 08-04-2008, 15:31:33
    #19
    netevren
    netevren
    RemiX adlı üyeden alıntı: mesajı görüntüle
    Evy. dostum saolasın sana helalinden bir rep Bu ara asp yi nasıl öğrendin kursamı gittin?
    Edit : bu arada <a href="&boluver(i)&".html> kısımdaki misal okan buruk yazısında sadece okan çıkıyor "&boluver(i)&"</a><br> burda problem yok okan buruk tam çıkıyor :S onunda düzeltebilirmisin?
    Onu da yaparız.
    <%
set nesne = Server.CreateObject("Scripting.FileSystemObject")
set AO = nesne.OpenTextFile(Server.MapPath("ali.txt"),1)
      degisken = Replace(AO.ReadAll,chr(13),"<br>")
      boluver = split(degisken,"<br>")
      for i = 0 to UBound(boluver)
             response.write "<a href="&replace(boluver(i)," ","-")&".html>"&boluver(i)&"</a><br>"
      next
AO.close
%>
    Bak replace(boluver(i)," ","-") kısmı yerine bir fonksiyon yazıp türkçe karakterleri de eletirmen gerekicek. Onu da webden bulabilirsin. 1 repe bu kadar yeter :P
  • 08-04-2008, 15:35:40
    #20
    RemiX
    RemiX
    hmm saolasın bu kadar kafii zaten Elde olsa 2 rep verirdim :P
  • 08-04-2008, 15:36:07
    #21
    Ron
    Ron
    Al bu da o fonksiyon:

    Function Temizle(Ron)
Ron= Replace(Ron,"Ğ","g", 1, -1, 1)
Ron= Replace(Ron,"ğ","g", 1, -1, 1)
Ron= Replace(Ron,"Ş","s", 1, -1, 1)
Ron= Replace(Ron,"ş","s", 1, -1, 1)
Ron= Replace(Ron,"Ö","o", 1, -1, 1)
Ron= Replace(Ron,"ö","o", 1, -1, 1)
Ron= Replace(Ron,"Ç","c", 1, -1, 1)
Ron= Replace(Ron,"ç","c", 1, -1, 1)
Ron= Replace(Ron,"Ü","u", 1, -1, 1)
Ron= Replace(Ron,"ü","u", 1, -1, 1)
Ron= Replace(Ron,"I","i", 1, -1, 1)
Ron= Replace(Ron,"ı","i", 1, -1, 1)
Ron= Replace(Ron,"İ","i", 1, -1, 1)

Ron= Replace(Ron," ","-", 1, -1, 1)
Ron= Replace(Ron,",","", 1, -1, 1)
Ron= Replace(Ron,".","", 1, -1, 1)
Ron= Replace(Ron,"`","", 1, -1, 1)
Ron= Replace(Ron,"'","", 1, -1, 1)
Ron= Replace(Ron,"?","", 1, -1, 1)
Ron= Replace(Ron,"!","", 1, -1, 1)
Ron= Replace(Ron,"(","", 1, -1, 1)
Ron= Replace(Ron,")","", 1, -1, 1)
Ron= Replace(Ron,"""","", 1, -1, 1)
Ron= Replace(Ron,"!","", 1, -1, 1)
Ron= Replace(Ron,"/","", 1, -1, 1)
Ron= Replace(Ron,"\","", 1, -1, 1)
Ron= Replace(Ron,"é","", 1, -1, 1)
Ron= Replace(Ron,"\","", 1, -1, 1)
Ron= Replace(Ron," - ","-", 1, -1, 1)
Ron= Replace(Ron,":","", 1, -1, 1)
Ron= Replace(Ron,")","", 1, -1, 1)
Ron= Replace(Ron,"(","", 1, -1, 1)
Ron= Replace(Ron,"@","", 1, -1, 1)
Ron= Replace(Ron,"&szlig;","b", 1, -1, 1)
Ron= Replace(Ron,"%","", 1, -1, 1)
Ron= Replace(Ron,"+","_", 1, -1, 1)
Ron= Replace(Ron,";","_", 1, -1, 1)
Ron= Replace(Ron,"^","_", 1, -1, 1)
Ron= Replace(Ron,"â","_", 1, -1, 1)
Ron= Replace(Ron,"Â","_", 1, -1, 1)
Ron= Replace(Ron,"ê","_", 1, -1, 1)
Ron= Replace(Ron,"Ê","_", 1, -1, 1)
Ron= Replace(Ron,"ô","_", 1, -1, 1)
Ron= Replace(Ron,"Ô","_", 1, -1, 1)
Ron= Replace(Ron,"û","_", 1, -1, 1)
Ron= Replace(Ron,"Û","_", 1, -1, 1)
Ron= Replace(Ron,"~","_", 1, -1, 1)
Temizle = lcase(Ron)
End Function
  • 08-04-2008, 15:48:02
    #22
    RemiX
    RemiX
    eyw çoğu kişiyede faydalı olucak txt den veri çekip yazdırmak.