Server Side Include, apaan lagi tuh? Ini adalah perintah diluar tag <% %> yang berguna untuk menyisipkan script; baik yang serverside (asp); or client side (js/htm/css). Berbeda dengan server.execute(); hanya untuk eksekusi hasil file .asp. Contohnya seperti ini:

<!-- nama file: tes02.asp -->
<%= " ini file tes02.asp <hr>" %>
<!-- eof tes03.asp -->

 

<!-- nama file: tes02static-header.htm -->
<html><head><title>tes include</title><body>
<!-- eof tes02static-header.htm -->

 

<!-- nama file: tes02static-footer.htm -->
</body></html>
<!-- eof tes02static-footer.htm -->

 

<!-- nama file: tes03.asp -->
<!--#include file="tes02static-header.htm"-->
<%= "ini adalah file tes03.asp <hr> " %>
<!--#include file="tes02.asp"-->
<!--#include file="tes02static-footer.htm"-->
<!-- eof: tes03.asp -->

 

Biasanya <!–#include file—> berguna untuk menyisipkan hal-hal yang sering di gunakan, misalkan variable konfigurasi database, setingan untuk header static file html dll.

 

ASP pasti bisa mengakses database, apapun jenis db nya pasti bisa terkoneksi dengan baik; asalkan ada connectornya. Bisa lewat ODBC ataupun teknik langsung via oledb. tergantung ketersediaan konektivitasnya. Umumnya ASP berbasisdatakan Microsoft SQLServer. Memakai Microsoft Access (.mdb) juga bisa, tetapi sepertinya memaksakan dan tidak support banyak fitur.

Karena itu saya membahas konektivitas memakai Microsoft SQL Server (mssql) saja. Versi mssql yang bisa digunakan tergantung OS Windows Servernya. Misalnya pada Windows NT 4, bisa memakai mssql sampai versi 7. Windows 2000 bisa memakai sampai versi mssql 2003.

Connection String untuk SQL Server pada ASP adalah:

db=”PROVIDER=MSDASQL;DRIVER={SQLServer};SERVER=ipserver;DATABASE=namadb;UID=username;PWD=password;”

Sesuaikan SERVER; DATABASE;UID;PWD dengan konfigurasi mssql server anda. Untuk kemudahan cukup 1 file connection string yang anda buat, misalkan simpan dengan nama file “db.inc.asp”. Tetap pergunakan .asp; agar tidak terlihat, kalau sewaktu-waktu user tahu alamat connection string. pergunakan saja double ekstensi .inc.asp agar sewaktu pengerjaan tidak bingung.

Buat table di mssql sebagai berikut:

id_bukutamu (int autoincrement primarykey)
nama (nvarchar 20)
alamat (nvarchar 30)
komentar (nvarchar 60)
tanggal (date-time)
simpan dengan nama table [bukutamu]

asp001

 

Lalu sourcecode programmnya sebagai berikut:

<!-- nama file: db.inc.asp -->
<% db="PROVIDER=MSDASQL;DRIVER={SQLServer};SERVER=ipserver;DATABASE=namadb;UID=username;PWD=password;"  %>
<!-- eof db.inc.asp -->

 

<!-- nama file: tes04-header.inc.htm -->
<html><head><title>contoh buku tamu</title><body>
<!-- oef tes04-header.inc.htm -->

 

<!-- nama file: tes04-footer.inc.htm -->
</body></html>
<!-- eof tes04-header.inc.htm -->

 

<!-- nama file: tes04.asp -->
<!--#include file="db.inc.asp"-->
<!--#include file="tes04-header.inc.htm"-->
<%
sub simpan

if request.form("nama_txt")<>"" and request.form("alamat_txt") <>"" and request.form("komentar_txt")<>"" then
set cn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
cn.open db
rs.open "select * from [bukutamu]",cn,1,2
rs.addnew  ''buat record baru
rs("tanggal")=now()  ''tgl ambil dari system
rs("nama")     =request.form("nama_txt")
rs("alamat")   =request.form("alamat_txt")
rs("komentar") =request.form("komentar_txt")
rs.update    ''simpan
rs.close   ''tutup recordset
cn.close   ''tutup db
set rs=nothing ''bersihkan dari ram server
set cn=nothing
response.redirect("tes04.asp")
Else
response.write "formulir belum terisi dengan benar... <a href=""tes04.asp?err=form "">klik disini untuk koreksi</a>"
end if

end sub

sub form %>

<form name="bukutamu" action="tes04.asp?tugas=simpan" method="post">
nama: <input type="text" name="nama_txt"><br>
alamat: <input type="text" name="alamat_txt"><br>
komentar: <textarea name="komentar_txt" rows="10" cols="10" ></textarea><br>
<input type="submit" name="kirim" value="kirim">

</form>

<% 
call lihat
end sub

sub lihat
set cn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
cn.open db
rs.open "select top 10 * from [bukutamu]",cn,1,2
if not rs.eof then

while not rs.eof
response.write "<b>" & rs("nama") & "</b> di  " & rs("alamat")
response.write "<br>" & rs("komentar") & "<br><small>" & rs("tanggal") & "</small> <br><hr>"
rs.movenext ''  maju ke  records selanjutnya

wend
else

response.write "data kosong()<hr>"

end if
rs.close
cn.close
set rs=nothing
set cn=nothing

end sub

''main app

if request("tugas")="simpan" then
call simpan
else
call form
end if

%>
<!--#include file="tes04-footer.inc.htm"-->

<!-- eof: tes04.asp -->

 

 

 

asp002
Screenshoot ini salah 😀
fungsi call nya salah meletakkan. script sudah diperbaiki koq. 😀

 

asp003Tampilannya ga usah dipikirin dulu, bisa di skin dengan css nantinya. Karena saya bukan ahli css, saya tidak bisa memberikan tutorial css dengan baik.  CSS & javascript bisa ditaruh di header. sisipkan saja <stlye> <script> diatas </head>.

 

Situs ini kehilangan image dan files penunjang; karena terjadi storage failure dan saya tidak menyimpan backupnya - harap maklum
+