|
Client-Server
Programming Apa yang Kita Pakai dengan Aplikasi Client-Server Kita? Di sini kita akan mempergunakan teknologi ASP
dengan script VBScript, Personal Web Server atau IIS5.0 sebagai Internet
Server, MS-Access atau SQL Server sebagai database nya. Sebagai informasi,
WEB kita ini dibangun dengan Sistem Operasi Windows 2000 Server, bahasa
srcipt VBScript, MS SQL Server 2000 sebagai databasenya, Internet
Information Server (IIS) 5.0 sebagai WEB server nya (produk Microsoft
semuanya-red). Inilah yang akan kita buat sebagai servernya. Eh ada yang
kelupaan, Internet Explorer 5.0 ke atas sebagai aplikasi Client
nya. <FONT face="Courier
New"> <FORM
name="frmInput">
<BR> Nama <input
name="txtNama">
<BR> Email <input
name="txtEmail"> <BR>
<BR>
Komentar: <BR><TEXTAREA
name=txtKomentar rows=10
cols=60></TEXTAREA> <br>
<input type="button"
value="OK" name="btnSubmit"> <input type="reset"
value="Batal" name="btnReset"> <BR>
</form> </FONT> <script
LANGUAGE="VBScript"> <!-- Sub
btnSubmit_OnClick
dim kesalahan dim objForm
if frmInput.txtNama.value = ""
then kesalahan=chr(13)
& "Nama harus di isi" end if if
instr(frmInput.txtEmail.value,"@")=0 then kesalahan=kesalahan
& chr(13) & "Alamat email harus memiliki tanda @" end if
If frmInput.txtKomentar.value=""
then kesalahan=kesalahan &
chr(13) & "Tolong Isi Komentar..." end if
if kesalahan <> ""
then Alert
"
Else
frmInput.submit
End if
End Sub sub
btnReset_OnClick
frmInput.txtNama.value = ""
frmInput.txtEmail.value = ""
frmInput.txtKomentar.value = "" end sub --> </script> </BODY> </HTML>
<% ' ambil data dan
masukkan ke database --- dim
ObjConn dim
ObjComm dim
ObjPar dim
strSQL dim
filePath dim
reqTanggal dim
reqNama dim
reqEmail dim
reqTahuDari dim
reqKomentar reqTanggal =
Date ' ambil data dari form
sebelumnya reqNama =
Request.Form("txtNama") reqEmail =
Request.Form("txtEmail") reqTahuDari=
Request.Form("txtTahuDari") reqKomentar =
Request.Form("txtComment") 'deklarasi
SQL strSQL = "INSERT INTO
Guest (Tanggal, Nama, Email,TahuDari, Komentar) VALUES
(?,?,?,?,?)" 'buka koneksi ke
database set ObjConn =
Server.CreateObject("ADODB.connection") ObjConn.Open
"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=BukuTamu" 'deklarasi objek
command set ObjComm =
Server.CreateObject("ADODB.command") objComm.ActiveConnection
= ObjConn ObjComm.CommandText =
strSQL 'deklarasi
parameter Set objPar =
objComm.CreateParameter("", adDate, ,8, reqTanggal) objComm.Parameters.Append
objPar
objComm.Parameters.Append
objPar objComm.Parameters.Append
objPar Set objPar =
objComm.CreateParameter("", adChar, ,255,
reqTahuDari) objComm.Parameters.Append
objPar Set objPar =
objComm.CreateParameter("", adLongVarChar, ,100000,
reqKomentar) objComm.Parameters.Append
objPar 'eksekusi
SQL ObjComm.Execute () 'tutup
koneksi objConn.Close %>
Terima
Kasih<br> Anda Telah Mengisi
Buku Tamu<hr> <A
href="/DaftarTamu.asp" >Klik di sini </A> untuk melihat yang
telah mengisi buku tamu </center> </body> </html>
|