Bu projede Microsoft Excel sayfalarından ASP kullanarak bilgi okuma işlemi gerçekleştirilmiştir. Bu projenin adım adım yapılmasıyla ilgili bilgileri bu yazıda bulabileceksiniz.
Giriş sayfamızı görüntüde gördüğümüz gibi tasarlıyoruz. Giriş sayfamızda form alanı ekleyip bu alanda bir tane textfield nesnesi ekliyoruz. Form alanının özelliğini get metodu iel yapıyoruz. Bir tanede buton ekleyip “sorgula.asp” isimli bir sayfaya yönlendiriyoruz.
Bu işlemlerden sonra sorgula.asp sayfası için bir boş asp sayfası açıp içerisine aşağıdaki kodları yerleştiriyoruz.
<%@LANGUAGE=”VBSCRIPT”%>
<%
Const adOpenStatic = 3
Const adLockPessimistic = 2
Dim cnnExcel
Dim rstExcel
Dim I
Dim iCols
dim isim
Set cnnExcel = Server.CreateObject(“ADODB.Connection”)
cnnExcel.Open “DBQ=” & Server.MapPath(“ogrenciler.xls”) & “;” & “DRIVER={Microsoft Excel Driver (*.xls)};”
Set rstExcel = Server.CreateObject(“ADODB.Recordset”)
isim=trim(request.QueryString(“adi”))
rstExcel.Open “SELECT * FROM tablo where Adi_Soyadi LIKE ‘%” + isim + “%’;”, cnnExcel, adOpenStatic, adLockPessimistic
if (rstExcel.eof) then response.Redirect(“hata.asp”)
iCols = rstExcel.Fields.Count
%>
<style type=”text/css”>
<!–
.style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
font-size: 12px;
color: #0000FF;
}
–>
</style>
<title>Rize Meslek Yüksek Okulu Öðrenci Arama Sayfasý</title><table border=”1″>
<thead>
<%
For I = 0 To iCols – 1
Response.Write “<th>”
Response.Write rstExcel.Fields.Item(I).Name
Response.Write “</th>” & vbCrLf
Next ‘I
%>
</thead>
<%
rstExcel.MoveFirst
Do While Not rstExcel.EOF
Response.Write “<tr>” & vbCrLf
For I = 0 To iCols – 1
Response.Write “<td>”
Response.Write rstExcel.Fields.Item(I).Value
Response.Write “</td>” & vbCrLf
Next ‘I
Response.Write “</tr>” & vbCrLf
rstExcel.MoveNext
Loop
%>
</table>
<p> </p>
<p>
<%
rstExcel.Close
Set rstExcel = Nothing
cnnExcel.Close
Set cnnExcel = Nothing
%>
</p>
<p> </p>
<p class=”style1″><a href=”default.asp”><< Geri</a></p>
Bu sayfada pek fazla tasarım olarak bir işlem yapmıyoruz asp kodlarıyla sorguladığımız bilgiler sayfada gösteriliyor. Burada bulunan asp kodlarının neler yaptığını açıklayalım.
|
|
|
|
|
|
|
|
|
|
|
|
|
“hata.asp” sayfasında ASP kodu bulunmamaktadır. Bu sayfa sadece tasarımdan ibarettir. Bu sayfada bir uyarı mesajı yazıyoruz ve bir buton koyup basılınca formun özelliğini ayarlayıp default.asp yani giriş sayfasına yönlendiriyoruz.
Program Çalıştırılması ve Ekran Görüntüleri
Dosyayı İndir
İyi çalışmalar… Emeğiniz için çok teşekkürler. Dosya şifresi nedir ?
çalışma güzel görünüyor, fakat keşke dosya şifresini bir yerlere yazsaydınız hocam.
Hocam rar şifresini yazabilir misiniz.
Emeğiniz için çok teşekkürler. Hocam şifresini yazabilir misiniz?