Script Adı : CD-Rom Açma
<SCRIPT language="VBScript">
<!--
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
-->
</SCRIPT>
Script Adı : ASP ile basit Whois
<!-- Form.htm içeriği -->
<html>
<head>
<meta name="Telif" content="Thief (yani ben..)">
<body>
<form method="POST" action="goster.asp">
<p>
<input type="text" name="domain" size="20">
<input type="submit" value="Sorgula" name="B1"> (domain: <font color="#FF0000">
domain.com</font> seklinde olmalidir.. )</p>
</form>
</body>
</html>
<!-- Goster.asp İçeriği -->
<%
domain = Request.Form("domain")
%>
<img src="http://www.register.com/generate_gif.cgi?msg=<%=domain%>" border="0"></img>
Her ne kadar ayaküstü yazılmış, basit bir sistem olsada oldukça iyi sonuç veriyor.. İyi ASP 'ler
Adı : ASP ve Timer
<%
start = timer()
Response.Write("Scriptler.Com")
stop = timer()
%>
<font face="Verdana" size="2" color="blue"><center>Bu sayfa<b> <%=stop-start %> </b>saniyede oluşturuldu..
Yukarıdaki kod 'u kullandığınız takdirde, sayfa oluşumu 0 saniye çıkacaktır fakat timer kodlarını <%= start = timer() %> şeklinde, ASP taglarının dışında da kullanabilirsiniz.. Mesela <html> tagının altından başlayıp </html> tagının altına kadar devam eden bir timer kodu.. Böylece sayfanızın kaç saniyede oluştuğunu göreceksiniz..
İyi ASP 'ler..
Script Adı : ASP ile Güncel Haberler
%
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,bitecekye r-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)
Script Adı : ASP ile Deprem Bilgisi
html>
<head>
<style>
table { font: 9px verdana,tahoma,arial; }
</style>
</head>
<body bgcolor="#eeeeee">
<%
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://iyi.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 = "http://www.iyinet.com/images/deprem.gif"
bitis = "Deprem Arsiv Kayitlari"
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 "<table border='0' width='98%' cellspacing='0' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#F0F0F0' width='100%'>"
Response.Write "<"
Response.Write seklesok(lale)
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
%></body>
</html>