April 15th, 2008 by admin
sitemde kategoriler var ve kategorı içersinde arama yapmak istiyorum diyorsaniz ;
Önce bir seçim kutusu (select box) oluşturup:
<select  name=“kat”>
<option value=“1″>1. Kategori<option>
<option value=“2″>2. Kategori</option>
…
</select>Â
Sonra mevcut asp sorguna eklenti olarak:
<%
kat=request.form(“kat”)
aranan=trim(request.form(“aranan”))
select * from tblAdi where SutunAdi like ‘%”&aranan&”%’ and kategori=“&kat&” order by ID desc”
%>Â
şeklinde yapılabilir.
Posted in Asp Örnek Kodlar | No Comments »
April 15th, 2008 by admin
<%
‘Asp ile CMD kullanimi , Örnegin MSSQL Servisini Baslatma islemi
SET objShell = Server.CreateObject(”WScript.Shell”)
SET objExec = objShell.Exec(”cmd /c net start MSSQLSERVER”)
Â
WHILE objExec.Status <> WshFinished
WEND
sonuc = objExec.StdOut.ReadAll()
response.write sonuc
‘Not Bu Kodlarin calisabilmesi icin cmd.exe ye IUSR nin yazma izni olmasi gerekmektedir!
%>
Â
Yazan Mustafa Sahin
AspveAsp.Net
Posted in Asp Örnek Kodlar | No Comments »
April 14th, 2008 by admin
<%
Dim fs, d, n
Set fs=Server.CreateObject(”Scripting.FileSystemObject”)
Set d=fs.GetDrive(”c:”)
n = “Drive: ” & d
n = n & “<br />Available Space in bytes: ” & d.AvailableSpace
Response.Write(n)
set d=nothing
set fs=nothing
%>
Posted in Asp Örnek Kodlar | No Comments »
April 14th, 2008 by admin
Eger sisteminize IIS i kurup localhostunuzda ya da hostunuzda asp ile ilgili denemeler yapma istiyorsaniz hadi basliyalim , asp klasik ilk denemeniz ;
<html>
<body>
<%
response.write”Merhaba Asp”
%>
</body>
</html>
Â
<body> ile </body> arasina yazacaginiz Asp kodlarimizi calistirmaniz halinde karisinizda Merhaba Asp yazisi gelecektir.
Posted in Asp Örnek Kodlar | No Comments »
April 6th, 2008 by admin
<html>
<body>
<%
Set fs=Server.CreateObject(”Scripting.FileSystemObject”)
If fs.FolderExists(”c:\temp”) = true Then
     Response.Write(”Klasör bulundu.”)
Else
     Response.Write(”Klasör bulunamadı.”)
End If
set fs=nothing
%>
</body>
</html>
Posted in Asp Örnek Kodlar | No Comments »
April 6th, 2008 by admin
 Set pay = Server.CreateObject(”epayapi.payment”)
pay.clientid=”musteri_ID” ‘Garanti Bankası Tarafından Verilen Müşteri ID Numaranız.
pay.name=”kullanici_adi” ‘Garanti Bankası Tarafından Verilen Kullanıcı Adınız.
pay.password=”sifre” ‘Garanti Bankası Tarafından Verilen Åžifreniz.
pay.ip=”1.1.1.1″
pay.host=”ccpos.garanti.com.tr”
pay.OrderResult=0
pay.chargetype=”PreAuth”
pay.cardnumber=request.form(”kartno”) ‘Müşteri Kredi Kartı No.
pay.expmonth=request.form(”kartay”) ‘Müşteri Kredi Kartı Son Kullanma Tarihi AY. Örnek 07 gibi
pay.expyear=request.form(”kartyil”) ‘Müşteri Kredi Kartı Son Kullanma Tarihi YIL. Örnek 04 gibi
pay.cv2=request.form(”cvv”) ‘Müşteri Kredi Kartı Güvenlik Kodu
pay.subtotal=request.form(”tutar”) ‘Tahsil Edilecek Tutar
pay.currency=792
retval=pay.processorder
if pay.appr=”Approved” then
dcevap=”tamam” ‘Ä°ÅŸlmein Tamalandığını Bildirir.
else
dcevap=”tamamdegil” ‘Ä°ÅŸlemin Tamamlanmadığını Bildirir.
end if
Posted in Asp Örnek Kodlar | No Comments »
April 2nd, 2008 by admin
Istediginiz belli bir sayfaya sadece sifre ile girilmesini isterseniz ilk olarak asagidaki sekilde include dosyasini olusturalim ,
[ceket_login.inc]
<%
Response.Buffer = True
If Not Session(”Login”) Then
    Response.Redirect “login.asp”
End if
%>
Bu dosyayi korumak istediginiz sayfanin ilk satirina baglayin (include edin )
[secure.asp]
<!–#include file=”ceket_login.inc” //–>
<%
‘ — Diger Asp Kodlariniz
%>
Eger ziyaretci secure.asp yi cagirir ve sisteme giris yapmazsa, login.asp ye aktiralacaktir. Bu yüzden kullanicinin giris yapmasi gereken login.asp sayfamizida asagida kisa bir örnekle hazirliyoruz .
Â
[login.asp]
<%
Response.Buffer = True
‘ — Eger Kullanici adi ve Sifre dogru ise
‘ — Giris yapilacaktir
If Request(”l_user”) = “username” And Request(”l_pass”) = “password” Then
    Session(”Login”) = True
    Response.Redirect “secure.asp”
End if
Call ShowForm()
Private Sub ShowForm()
%>
<html>
<head>
    <title>Login</title>
</head>
<body>
<form name=”frmLogin” action=”login.asp” method=”POST”>
    Kullanici Adi: <input type=”text” name=”l_user”><br>
    Sifre: <input type=”text” name=”l_pass”><br>
    <input type=”submit” value=”Login”>
</form>
</body>
</html>
<%
End Sub
%>
Posted in Asp Örnek Kodlar | No Comments »
