sitesine burç eklemek isteyenler için bir örnek kodları teraziburcu.asp nin içine yapıştırın deneyin. ASPtear destekli serverınızda haberURL deki adresden
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
gibi örnekteki başlangıç ve bitis html kodunu belirterek ortasınki kodları çekmesini sağlayabilirsiniz.Bu bir örnektir geliştirip kendinize görede uyarlayabilirsiniz.
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
gibi örnekteki başlangıç ve bitis html kodunu belirterek ortasınki kodları çekmesini sağlayabilirsiniz.Bu bir örnektir geliştirip kendinize görede uyarlayabilirsiniz.
Kod:
Kod:
<%
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=7"
Set alma = CreateObject("SOFTWING.ASPtear" )
Session.CodePage = 1254
On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
Session.CodePage = 1254
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
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 "<p align='justify'><font size=1 face=verdana color=000000>"
Response.Write seklesok(lale)
Response.Write "</b></font></p>"
%>