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>&nbsp;</p>

<p>

<%

rstExcel.Close

Set rstExcel = Nothing

cnnExcel.Close

Set cnnExcel = Nothing

%>

</p>

<p>&nbsp;</p>

<p class=”style1″><a href=”default.asp”>&lt;&lt; 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