Dosya Varlık Yokluk Kontrolü

Dosyanın var olup olmadığını kontrol eden bir uygulama. IIS 6.0 da çalışması için 2000 sunucudan tools.dll alıp win 2003 sunucuda kayıt ediniz.

[HTML]<%
Set Tools = Server.CreateObject("MSWC.Tools")
resim = "images/deneme.gif"
If Tools.FileExists(resim) then
'resim varsa
Response.Redirect resim
Else
'resim yoksa
Response.Redirect "images/bos.gif"
End if
%>
[/HTML]

__________________
proxyer

Hdd 'deki Boş Alan

Hdd 'nizdeki boş alanı bu uygulama sayesinde görebilirsiniz.
Hazırlayan : Uğur Toprakdeviren

[HTML]
Const HARD_DISK = 3

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")

For Each objDisk in colDisks
Wscript.Echo "DeviceID: "& vbTab & objDisk.DeviceID
Wscript.Echo "Free Disk Space: "& vbTab & objDisk.FreeSpace
Next
[/HTML]

__________________
proxyer

Girilmesini İstemediğiniz Sayfayı Şifreleme

Girilmesini istemediğiniz sayfayı bu uygulama sayesinde şifreleyebilirsiniz. Tek yapmanız gereken, guvenlik.asp dosyasını şifrelemek istediğiniz dosyaya include metodu ile eklemektir.

[HTML]
<% Response.Buffer = True
'Sifre = Burada bulunan admin yazısı yerine kendi şifrenizi yazınız.
sifre = "zone"
if Session("sifreniz") <> sifre then
if Request.Form("sifrem") <> sifre then
Call giris
Else
Session("sifreniz") = sifre
End if
End if
Sub giris
gelen_sayfa = "http://"&Request.ServerVariables ("HTTP_HOST")&Request.ServerVariables("URL")
%>
<table border="0" cellpadding="2" cellspacing="0" width="100%">
<tr>
<td width="100%"><form method="POST" action="<% = gelen_sayfa %>">
<p align="center"><i><b><font color="#FF6600" size="1">( Güvenlik Girişi
)</font></b></i></td>
</tr>
<tr>
<td width="100%">
<p align="center"><i><b><font color="#6F778C"><font size="1"></font></font></b></i></td>
</tr>
<tr>
<td width="100%">
<p align="center"><i><font color="#FF6600">Sifre : <input type="password" name="sifrem" size="20" style="font-family: Verdana; font-size: 10px; color: #A7ACBA; border: 1 solid #C2C6CF" value="123456"></font></i></td>
</tr>
<tr>
<td width="100%">
<p align="center"><input type="submit" value="Giriş" name="B1" style="font-family: Verdana; font-size: 10px"><p align="center">
<i><b><font color="#FF6600">
<a href="mailto:mustafa_uyar@msn.com" style="text-decoration: none">m U S
T A f a&nbsp; UYAR</a></font></b></i></td>
</tr>
</table>
<%
Response.End
End Sub
%>
[/HTML]

__________________
proxyer

kullanıcıya herhangi bir text den SQL sorgusu çalıştırmaması için kullandığım bir fonksiyon. Gelen veriyi bu fonksiyondan geçirmeniz yeterli
Örnek : <% guvenlik(gelenveri) %>

[html]Function guvenlik(data)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"!","",1,-1,1)
data = Replace (data ,"#","",1,-1,1)
data = Replace (data ,"<","",1,-1,1)
data = Replace (data ,">","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"Chr(34)","",1,-1,1)
data = Replace (data ,"Chr(39)","",1,-1,1)
data = Replace (data ,"select","",1,-1,1)
data = Replace (data ,"join","",1,-1,1)
data = Replace (data ,"union","",1,-1,1)
data = Replace (data ,"where","",1,-1,1)
data = Replace (data ,"insert","",1,-1,1)
data = Replace (data ,"delete","",1,-1,1)
data = Replace (data ,"update","",1,-1,1)
data = Replace (data ,"like","",1,-1,1)
data = Replace (data ,"drop","",1,-1,1)
data = Replace (data ,"create","",1,-1,1)
data = Replace (data ,"modify","",1,-1,1)
data = Replace (data ,"rename","",1,-1,1)
data = Replace (data ,"alter","",1,-1,1)
data = Replace (data ,"cast","",1,-1,1)
guvenlik=data
End Function
[/html]

ya ben yeni ögrenmeye basladım asp yi size bir sorum olucak cevaplarsanız cok sevınırım daha dogrusu ogretmen bıze sordu acılen yapmam lazım sayfada bir textbox olucak ve buton olucak textboxın ıcıne bır sayı yazıp gondere bastıgımızda ekranda yazdıgımız sayının bu goruntusu cıkıcak
5
55
555
5555
55555
555555
5555555
55555555
555555555
5555555555
555555555
55555555
5555555
555555
55555
5555
555
55
5

10. satıra kadar ılerlıcek ondan sonra gerı gerı gıdıcek yardım edersenız cok sevınırım. visual basic dilinde olucak