|
|
|
 |
Takvim |
 |
| « |
Eylül - 2010 |
» |
| PT |
SL |
ÇŞ |
PŞ |
CM |
CT |
PZ |
| | |
1 |
2 |
3 |
4 |
5 |
| 6 |
7 |
8 |
9 |
10 |
11 |
12 |
| 13 |
14 |
15 |
16 |
17 |
18 |
19 |
| 20 |
21 |
22 |
23 |
24 |
25 |
26 |
| 27 |
28 |
29 |
30 |
|
 |
|
|
|
|
|
|
|
 |
|
|
Asp Hazır kod |
|
|
|
| Kodları Kendi Sitenize Göre uyarlayıp Rss uygulaması yapabilirsiniz.
<%Set baglanti = Server.CreateObject("ADODB.Connection")baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabaniadiniz.mdb")
Response.Buffer = TrueResponse.ContentType = "text/xml"
Function Temizle(strInput)strInput = Replace(strInput,"&", "&")strInput = Replace(strInput,"'", "'")strInput = Replace(strInput,"""", """)strInput = Replace(strInput,">..devamı>> |
|
|
| Tabi bunun pek kafa karıştıracak bir yanı yok
Bu kodu sanalklavye.asp gibi bişeye kaydedip kullanabilirsiniz. isterseniz kaydetmeden de kullanabilirsiniz sizze baglı kodlar benden kullanmasısizden iyi günler
örneggini görün öyle uygulayın delmi yoska ne ugrasıyorsunuz : http://scriptbank.ahmetkiratli.com.tr/sana.asp
<%if request.querystring("s")=1 then%><% end if %><html>
<script language="jscript">function hesa..devamı>> |
|
|
| kime mail gelecek ise yolla.asp deki
gidecekmail yerinin karşısındakini
kendinize göre uyarlayın.
cdonts mail bile?eni ile mail yollamaktadır.
hadi kolay gelsin. ileti.asp <form method="post" action="yolla.asp">Adynyz :<..devamı>> |
|
|
| Kodları bir metin editörü ile .ASP uzantılı olarak kaydetmeniz gerekmektedir
<!-- www.ahmetkiratli.com// --><HTML><HEAD><TITLE>Türkçe karakterleri ingilizce karşılıklarına çevirmek</TITLE><META http-equiv="Content-Language" content="tr"><META http-equiv=Content-Type content="text/html; charset=windows-1254"></HEAD><BODY><%Function &nbs..devamı>> |
|
|
| Aşağıda ki kodu 404.asp diye bir dosya oluşturup içine kaydediniz.hosting ayarlarınızdan. 404
hata kodunu 404.asp açacak şekilde ayarlayınız. default.asp dosyasını 404.asp
dosyasını altına include edin ve gelen veriye göre sitenizi düzenleyiniz..
[CODE] <%on error resume next%> <%adres_bilgileri=Request.ServerVaria..devamı>> |
|
|
| <%Response.Write "Ip Adresi = " & Request.ServerVariables("REMOTE_ADDR") & "<br>"%> <% If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then Response.Write "Istek Yapan Ip : " & Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If%>..devamı>> |
|
|
| <%Function Proper(X)'Return a String With the first letter of the word capitalised If IsNull(X) Then Exit Function ElselowercaseSTR = CStr(LCase(X))OldC = " "MyArray = Split(lowercaseSTR," ")For IntI = LBound(MyArray) To UBound(MyArray)For I = 1 To Len(MyArray(IntI))If Len(MyArray(IntI)) = 1 ThennewString = newString & UCase(MyArray(IntI)) & " " ElseIf I=1 ThennewString = newString & UCase(Mid(MyArray(IntI), I, 1))ElseIf I = Len(MyArray(IntI)) ThennewString = newString & Mid(M..devamı>> |
|
|
| Kod:
<%const Request_GET = 2Dim haberURL, haberim, basliklarhaberURL = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=7"Set alma = CreateObject("SOFTWING.ASPtear" )Session.CodePage = 1254On Error Resume Nexthaberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )Session.CodePage = 1254If Err.Number <> 0 ThenResponse.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "Response.EndEnd Ifdim baslangic , bitisbaslangic = "><strong><big>"bitis = "<br> <..devamı>> |
|
|
| Sayfayı her yenilediğinizde farklı resim görüntülemek istiyorsanız : KOD
<% Randomize Resim = INT(Rnd * 5)+1 Response.write "<img src=klasor/"&Resim&".jpg>" %><%
Randomize
Resim = INT(Rnd * 5)+1
Response.write ""
%>..devamı>> |
| Toplam 9 Blog, 1 Sayfada Gösterilmektedir. |
|
[1]
|
|
 |
|
