MODUL MATA KULIAH PEMROGRAMAN WEB I STMIK ASIA MALANG

!

" #

$

%

#

&' %

#

$

# (

% %

$

$

) %

#

*

$

%

&' % %

(

* !

$

# !

+

, -

#-

$ " # $ ! .%

%

#(

i

$

( ( ' - 0 (

.

#( . . . .

, $

. ) (

3

., 2 '

. . . . .0

345

' ' ' ' '

8 .. . .

% 3 9 ! "#

' - '

( '

!

. %

&

! " ( # ' 9

" !

' " < ) *+ " ) *-+" 8 ) "

.

. ' . ' . ' .( % . 9 . % . )

' )

) (

/5 , $ /4 0 /= /= /= /= /= /= /= /= /= /< ,2 16 17 ,3 1; 1; 1= ,(

"/

'

% !

"

1 . (

' )

"

&'

%

. ' > /

? '

&

"

4

/ / / / / 1 1 1 6 6 6 6 7 7 7 7 7 7 : $ 4 4 ; ; ( <

'

ii

> ' /

* ( > 14 (

' , / " '

%% 8

%

1

*

( 14 ( >

"

&4

)

& 5

iii

1< 1< 6/ 22 66 6: 20 6= 6<

Sekolah Tinggi Manajemen Informatika & Komputer

BAB I INTERNET DAN SEARCH ENGINE +

+

+ 2 -

.

. 8

6 + !

+ (

#

*

%

?

%

%

%

/<4< 2

?

?

23

?

23

$ ,2 @

% - )

% -

#

(

#,

% )

(

(

% $

$ .

*

% ? , * >

23 -

6 , * %

' /<4<

?

%

, ?

23

/<;1 *

?

23 > A ? 23 A 9

7

6 •

?

23

#

•

,

.

*

% %

8

5

4&

&

#

+ ( "

( % % % +

%

8

(2 5

' #

+

( " % % 9. !

. $

" "

" 5

% 1

* 1

:+ 9 ?

%

+

( " #( $

(

%

5

*

'

'

•

"23 A

+ 1 ( &

•

A .

( ?

5

% %

9

#

//:

:

54' B

-

1 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

B

,

, " -

55;" - % - % - %

4'

+

" - % -

1 (

- %

%

"

. )

( - %

C 2 E

%

- %

<

D

%

% F

+-

- %

& $

%

#-> /$G - - % - - % - > . ? - - % - - % - - % 2

# - - % - ( 8 4

< * % # " -' 75

?-+

% - %

% % 5

" ' 5 41 + #

1

'

' 3-

+

81 $

=

% %

14

7

* 1

&7

=

4

>

E

- % . - %

- - %

-

5

7

- 58 - - % - - %

!

= >

# - %

%

-' ''

- %

-'

<

'

5 1 55:

%

Area code:

Telephone number:

@2A 7 4

@0@(0(((( 8 #41$

A "

- % - %

%! #

< * % %

-"

( +

9

+

., 2

+) 7

+-)

+: # ?

+ *

( -

% ( ,

% %

+ %

telkomnet@instan 2 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer "

5' 5=5<=<<<< % % )

2 '

34 5

%

#

+-%+ "

+-?

+

$@

' %

1

3E

4

3

2

+

45

5

5 ,

"

4 + 8 #

2

! * $

(

3

&

8

. %

8

5 + & 5

'

( & 5

<

(

# & 5

% % 1

% $

' & 5+ = '

H

%

& 5! ' & 5 % 3 & 5* . *

3 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer & 5! & 5"

8 5

,

%

. >

A

B

*

I I 6

+)) +))C 5

" "

C

3* %

' %

75

I

C

# " ,?" #,

?

% " %

$ 1 5'

7 , " 5 -

5

4

,?" 9> 4 & # ) " + ! "

- .♦ ' ♦ ,

4 C 4D4

www.weaneseducation.com 32 3? )

$

% %

.

0 E

4

F

E %

E

4 'F

3

.

4 'F ,

% '

J

%

www.YAHOO.com B

% E

E

3 %

B

. %

B .

4 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer ,

www.Altavista.com &

B %

%

%

B

% 3

2

www.Google.com & B

% B

K

"

%

&

%L

#

% "

+

%

' ' % '

•

3 # 3

•

3

%

.

#-

..

#-

-$

$

&$

& 9 *

%

5 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

>

6 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

BAB II DASAR-DASAR HTML ! # !

" !

"

# ' '

$ -3?2

." ."

%

% "

0

/<=< E

+ %

•

% *

• %

• #

)

.

$ '

+ 8

+

! !

-

"

!

%

!

"

.

!

! "#

" " *

8

."

!

"

%

8

!

"

"

" 2 ! " E

E 2 %

%

+ Ini adalah teks yang ditampilkan di browser !! !

"

M! .

N

M M)! M

N

M)

N

N N

*

*

7 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer -

M' !

7

%

-

N

M)

N

"

! "#

'

!

" .

M)

N

M

'

M

N

N

+

&4 # # ! # %

$

8

% %

0 ' '

K8 E

L

% E E

& E + Contoh atribut body :

"

= (

!

'4 "

! "# . +

M'?N M'?N

•

3 M N M N

•

-

+


Ini baris pertama
dan ini baris kedua

Sedangkan ini adalah sebuah paragraf panjang yang berisikan beberapa baris teks dalam satu paragraf.

Ini Paragraf kedua.

M!?N

•

+ &4

*4 +"

?

%

" O

8 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer 2 -

9 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer -

+


Ini baris pertama
dan ini baris kedua

---

M! N

• ( -

P /. 4

+

Ini Heading 1

Ini Heading 2

Ini Heading 3

Ini Heading 4

Ini Heading 5

Ini Heading 6

M-

• ( -

N

+

Ini Heading 1

Ini Heading 2

•

% %

8 8

. + *4 M'N M N M N M,N M N M' 9N M N M N M N

•

M8 N 8 M8 F8 % PL +

LG F-

P

! ! ! 9 ! ! !

% % % %

G F O P,

GN

Ini Heading 1

10 email : [email protected], blog : http://tit4ni4.wordpress.com

%

Sekolah Tinggi Manajemen Informatika & Komputer

Ini Heading 2

11 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

BAB III GAMBAR DAN LINK " (

"

! ! "

% "

+ 8 + 9 8 0 9 !

"

-@ M

29 9 8 9N

8 2 0 9 , M 9N

+ &4 ?" 92

2 ' "

"

? E E

! E -

+ Contoh gambar dalam HTML

% # " % %

0 % % M N !

-

M N !?38 2 3

2

3

!?38

"

+

12 email : [email protected], blog : http://tit4ni4.wordpress.com

.

Sekolah Tinggi Manajemen Informatika & Komputer

 Some example of hyperlink

VISIO TECHNICAL 4.5 NETWORK.TXT FILE

Copyright (c) 1997 Visio Corporation. Visit Visio Homepage

All rights reserved.

This file contains information about Setting up and running Visio Technical 4.5 on a network. We recommend that you read this file and keep a printed copy with your Visio Technical documentation. For other late-breaking information about installing and running Visio Technical, see the README.TXT file. For a listing of all the files copied to your hard drive if you install the complete version of Visio Technical 4.5, see the FILELIST.TXT file. Tip: If necessary, choose Word Wrap from the Notepad Edit menu or Wrap To Window from the WordPad View/Options menu to wrap the text within the document window.

7

# . •

+ M

N

' + &4 ' % ' ' ' ' ' !

9

%

" ( 0 "

&

* M !N

• ,

M ?N

• ,

M (N

• ,

&4

13 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

' % ' ' ' ' ' ? !

9

-

" ( 0 0 "

&

*

14 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer +

No	Barang			Jumlah	Total
	Kode	Nama	Harga
1	BK-001	Gudang Garam International	Rp. 3.300,00	2	6.600,00
2	BE-555	Sampoerna A-Mild	Rp. 3.500,00	1	3.500,00

15 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

BAB IV FRAME 8

. !

M8

N

" N

M8

, M2

M8

N

N &4

+

? -

*

'

M8

N

+ &4

%

2 '

!

!

"

E ' E % 2 ? 2 ' -

% O

0 2 ,

+

4

&

5 <

16 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

(

) 1

#%

+ 6

#

$

$ ,

<

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 4 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

	Account
	Password
	* Baca syarat daftar di menu syarat di atas

& <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

17 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer 5 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<strong>SELAMAT DATANG di BELANJA On Line....

Site ini merupakan contoh amat dasar sekali deh yang dibangun dan ditata sedemikan rupa hingga memakan waktu kurang lebih <strong>2 hari saja. Jadi diharap maklum jika dari segi tampilan, isi dan bobot transaksi jauh dari nilai sempurna. Saat kalimat ini diketikpun masih disambi makan siang. Jadi waktu pengerjaanpun juga disambi itupun 'kalo ingat' dan 'kalo mood bagus' (plus kalo sempat => biar kliatan sibuk kayak yg lain... ssstttt). Pada intinya diharapkan dengan site yang tidak bagus ini, <strong>mahasiswa dapat membuat yang lebih baik dari segi tampilan, isi maupun bobot transaksi hingga diharapkan <strong>mahasiswa yang mempunyai ilmu lebih buanyuak dan pengalaman mendesain dapat (<em>at least) membuat site yang dapat mendukung <em>ecommerce sesuai yang diinginkan. <strong>Tool atau perangkat yang digunakan membangun site ini lumayan sedikit seperti <strong>Adobe Photoshop 7.0 dan Macromedia Dreamweaver saja. Tanpa <strong>CMS (<em>Content Management System) atau <strong>MSG (<em>Monosodium Glutamat) ???. Database hanya menggunakan <strong>Microsoft Access dan Bahasa yang digunakan hanya <strong>HTML (<em>Hypertext Markup Language), <strong>ASP (<em>Active Server Pages) dan sedikit bahasa <strong>VBscript (<em>Visual Basic Script). <strong>Save your soul, save your earth, down to earth (intinya jangan berlebihan (Narzis)). Let's make things better. Courious in IT, IT developer is nice but IT copycat is worse. Open source is good but your mind must open...

 

 

1 & = < <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

18 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

<noframes>

19 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

BAB V FORM *-+" ,

. M8

•

+

N % % # %

M

•

E

$

N

(

E

6

+

&4 ? 2

0 0 2 M

•

E E E

%N

(

#%

E$

+ &4 2

2 0

O

% 0

/ 0

1 , M

•

%

N

(

. E %

E

%

E

. +

. &4 2

2 O E"

, 0 , %

&

-

%

% % E E %

E

E

E ,

?

! ,

%

%

E +

81 E ? ?

-

E E %

E

? ' '

E E %

E ' .

+

20 email : [email protected], blog : http://tit4ni4.wordpress.com

E

Sekolah Tinggi Manajemen Informatika & Komputer

Form Registrasi Mahasiswa

Nama
Alamat
Pendidikan terakhir	<select size="1" name="Pdk"> SMA STM MAN Pondok Pesantren
Jenis Kelamin	Laki-laki  Perempuan
Hobi	Sepak Bola Membaca majalah sepak bola Nonton Sepak bola
Catatan

 

21 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

BAB VI MACROMEDIA DREAMWEAVER MX %

# %

(

*

*

@ '

8

% '

Q ( ( -

*

* @ "

!

% %

(

0 *

&'

-R

.

*

'

'

9

( %

'

'

%

%

'

. -

"

.

5& 4

-

5

-

+

4

.

%

? 5 1

" " , -

%

5& ( % 41

.

. (

-

?

( 1

%

;"

-

( *

.

%

! "# ! " )

.

6

) %

.

!

"

22 email : [email protected], blog : http://tit4ni4.wordpress.com

'

Sekolah Tinggi Manajemen Informatika & Komputer ) )

( ) %

!

) %

" '

+

7

0

%

% !

M N

N

" %

(

*

0 . )

,

*

7 ,

" "

%

"

%!

% * *

2

8

% (

+ "

#

$

+

23 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer / 2 E 1

* *

2

&' % &' % 6' 1

D

23 .

5 .

+ -RD

23

' 8 ;

&'D '

D 0

14

5

5

! 4 4

B 0 * S" ' &

%

4

D

.

J

+

'5 '

* 5

'

D

E ,?" 1 ;;5 5

!

'

+

2 E

* 2

2 E (

6' D

5

'

. # ' 5 ; # 5: 8

1

5

; 4

' 4

&

55 4&4

'

24 email : [email protected], blog : http://tit4ni4.wordpress.com

4 & 4&4 * 9* 5

' = +

Sekolah Tinggi Manajemen Informatika & Komputer

'5 '

* 5

'

D

? D&

' =

2 E

8

8 % #

+

'

*

$ +1/1/$

8

8 +

25 email : [email protected], blog : http://tit4ni4.wordpress.com

#

Sekolah Tinggi Manajemen Informatika & Komputer

2 E

,?" )

%

+

+)) 0 '

,?" %%

L

, #

>

) K

%

%

$

,?"

E

2 E

2

)

2 E (

"

8 * )

*

#

$

*

# .

$ *

*

26 email : [email protected], blog : http://tit4ni4.wordpress.com

0

Sekolah Tinggi Manajemen Informatika & Komputer

BAB VII VB SCRIPT +

+) ! " >

7+ . !

"

%

! M -?

# % " ,

N

% '

%

&' %

0 *

%

a. Contoh Penggunaan Tag Script di halaman HTML yang diletakkan di bagian tag head <script language=VBSCRIPT> Dim strNilai Dim strCount Sub cmdHitung_Onclick()

-- Command / Perintah -End sub

b. Contoh Penggunaan Tag Script di halaman HTML yang diletakkan di bagian tag body <script language=VBSCRIPT> document.write “Selamat datang di Dunia Maya” &' % %

&

'

%

&'

% &' %

. E % %

&' &' %

!

&'

"

3E , ' &'

' % &' %

) &

'

&' %

%

2 /55T

27 email : [email protected], blog : http://tit4ni4.wordpress.com

&'

&

$

Sekolah Tinggi Manajemen Informatika & Komputer

&' % &' +

-

&

' "

)

% '

(

(

<Script Language=VBScript> nJumlah = 100000 nRata2 = 78.25 strNama = "Agoestira" document.write document.write document.write document.write document.write

Cstr(nJumlah) + " <-- ini adalah tipe data LONG" "
" Cstr(nRata2) + " <-- ini adalah tipe data Single" "
" strNama + " <-- ini adalah tipe data String"

!

5

(

&

7 -' -' -( -( -" -

' ' ( ( "

&' %

!

!

"

28 email : [email protected], blog : http://tit4ni4.wordpress.com

>

8

+

Sekolah Tinggi Manajemen Informatika & Komputer

Contoh 1 <Script Language=VBScript> Sub pesan() Msgbox “Hay … aku sudah bisa… VBSCript” End Sub

!

5

Contoh 2 <Script Language=VBScript> dim myForm Set myForm = document.frm Sub Cek(obj) If if myform.obj=”” then Msgbox “Nim Tidak Boleh Kosong Bos” End If End Sub

Nim:

Nama:

29 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

!

5

30 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

BAB VIII DASAR-DASAR ASP ! # !

"

%

2

, % ,2 @$ -

*

-9 # 8

% *

*

.

% &' % 8 !

"

%

. %

( % * &'

* &'

&' %

#

0 *

$

%

%

.

, +

/

> 2

1

* # $*

* :5

<= # $ 2

-

% $

<=

#

+

HTML Pages

ODBC

ASASP

Internet User Web Server PWS/IIS

Microsoft Access Table

45

GH

' 1

HI -

&' -? ?,2 E

M -?

N

P 3?&3? %

<Script Language=VBScript RUNAT=”SERVER”> function cetak(str1) cetak = Cstr(str1) end function

Fungsi cetak menghasilkan string : <%=cetak(“Wearnes Education Center”)%>

31 email : [email protected], blog : http://tit4ni4.wordpress.com

/

+

Sekolah Tinggi Manajemen Informatika & Komputer

>

- 6 ? *

+

. %

'

+ 1

+

1

' ?

* % ,?"#

-

%

1

<% response.write response.write response.write response.write response.write response.write response.write response.write response.write response.write

“” “” “<TITLE> SINTAKSIS ASP MURNI ” “” “” “TEKS INI DI TULIS MENGUNAKAN SKRIP ASP MURNI” “
” “Skrip ini menggunakan perintah response.write” “” “”

%>

32 email : [email protected], blog : http://tit4ni4.wordpress.com

$

+

Sekolah Tinggi Manajemen Informatika & Komputer

BAB IX KONEKSI DATABASE MENGGUNAKAN ASP >

+) + *

* *

(>('

* 1 -

>

-&8 ' %

. % * -

+

Server.CreateObject(“ADODB.Connection”)

B

%

* (>(' *

* % -

+

Server.MapPath(“/dbase/mydata.mdb”) Server.MapPath(“images/gambar1.jpg”)

"

"

#

+

,

(

77 %% %% * #

*

-

> >

% %$

+ Set Koneksiku = Server.CreateObject(“ADODB.Connection”) ‘ Membuat koneksi baru Set rsTabel = Server.CreateObject(“ADODB.Recordset”) ‘ Membuat Recordset baru <% ‘ Deklarasi Variabel Dim Koneksi, RecSet, strKoneksi, strSQL ‘ Membuat koneksi database baru Set Koneksi = Server.CreateObject("ADODB.Connection") ‘ Membuat Recordset baru untuk menampung data/tabel dari server ke memori Set RecSet = Server.CreateObject("ADODB.Recordset") ‘ Menghubungkan Driver database dengan database ‘ dengan menggunakan koneksi string strKoneksi = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " strKoneksi = strKoneksi + Server.MapPath("mhs.mdb") ‘Membuka koneksi Koneksi.Open strKoneksi ‘Definisikan field dan tabel yang akan di tampilkan menggunakan SQL statement strSQL = "SELECT * FROM [DATA PRIBADI MAHASISWA] ORDER BY [DATA PRIBADI MAHASISWA].NPM" ‘ Membuka Data sesuai dengan SQL Statemen dari Data source MHS RecSet.Open strSQL, Koneksi, 1, 3 %> DATA PRIBADI MAHASISWA

---

<%

33 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer ‘ Mengecek apakah recordset sudah terbuka ‘ jika belum maka akan di buka If RecSet.State = 0 then RecSet.Open ‘ Memindahkan pointer record ke awal record RecSet.MoveFirst ‘ Menuliskan Nama fields yang akan di tampilkan Response.Write “NPM Nama Alamat
” ‘ membuat perulangan untuk menampilkan record DO ‘ Tampilkan Record yang aktif Response.Write RecSet(“NPM”)&” “& RecSet(“Nama”)& ” “& RecSet(“Alamat”)& “
” ‘ Baca record selanjutnya RecSet.MoveNext ‘ Jika Sudah pada record yang terakhir maka perulangan akan berhenti Loop Until RecSet.EOF Response.Write("

---

") Response.Write "Total Mahasiswa : " ‘ Menunjukan jumlah record yang berada di dalam tabel Data pribadi Mahasiswa Response.Write Cstr(RecSet.RecordCount) ‘ Menutup recordset dan koneksi RecSet.Close Set RecSet = Nothing Set Koneksi = Nothing %>

% % (

%

+

<% Dim Koneksi, RecSet, strKoneksi, strSQL Set Koneksi = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") strKoneksi = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " strKoneksi = strKoneksi + Server.MapPath("mhs.mdb") Koneksi.Open strKoneksi strSQL = "SELECT * FROM [DATA PRIBADI MAHASISWA]" RecSet.Open strSQL, Koneksi, 1, 3 %> DATA PRIBADI MAHASISWA <%

34 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer If RecSet.State = 0 then RecSet.Open RecSet.MoveFirst Response.write "" Response.write "" DO Response.write "" Response.write "" Response.write "" Response.write "" Response.Write "" RecSet.MoveNext Loop Until RecSet.EOF Response.write "

NPM	Nama	Alamat
"& RecSet("NPM") &"	"& RecSet("Nama") &"	"& RecSet("Alamat") &"
" Response.Write "Total Mahasiswa : " Response.Write Cstr(RecSet.RecordCount) Response.write "

" RecSet.Close Set RecSet = Nothing Set Koneksi = Nothing %>

7

" -

%%

-

*-+"

7

-

% 8 '

% 8

Filter Berdasarkan Fields : <select name="namaField" > NPM NAMA ALAMAT KOTA        

! <% Dim Koneksi, RecSet, strKoneksi, strSQL Dim nField, nValue

35 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer Set Koneksi = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") strKoneksi = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " strKoneksi = strKoneksi + Server.MapPath("mhs.mdb") Koneksi.Open strKoneksi nField nValue strSQL strSQL

= = = =

Request.Form("namaField") Request.Form("isi") "SELECT * FROM [DATA PRIBADI MAHASISWA] " strSql & " WHERE "& nField &"='" & nValue & "'"

RecSet.Open strSQL, Koneksi, 1, 3 %> DATA PRIBADI MAHASISWA <% If RecSet.State = 0 then RecSet.Open RecSet.MoveFirst Response.write "" Response.write "" DO Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.Write "" RecSet.MoveNext Loop Until RecSet.EOF Response.write "" Response.write "

NPM	Nama	Nama	Kota
"& RecSet("NPM") &"	"& RecSet("Nama") &"	"& RecSet("Alamat") &"	"& RecSet("KOTA") &"
" Response.Write "Total Mahasiswa yang berasal dari " & nValue & " " Response.Write Cstr(RecSet.RecordCount) & " Orang." Response.write "

" RecSet.Close Set RecSet = Nothing Set Koneksi = Nothing %> Filter Data

!

36 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

BAB X INPUT DATA DAN UPDATE DATA DENGAN FORM DI ASP % *

.%

% %

, +

• •

! ! %

) $

* M

#

N

Langkah 1: %

+

Type = Text

Type = TextArea Select Option

Type = Reset Type = Submit

,

K %

L

‘ ----- Tag HTML ----

‘ ----- Tag HTML -----

Halaman tujuan

‘ ----- Tag HTML -----

Langkah 2 :

!

! ? U 1 8 S

+

+ J4 ( %

37 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer ,?" -

+

<% Response.Buffer=True %> <% Dim t_npm,t_nama,t_alamat Dim t_kota,t_tgl,t_jkel t_npm = Request.Form("txtNpm") t_nama = Request.Form("txtnama") t_alamat = Request.Form("txtAlamat") t_kota = Request.Form("txtKota") t_tgl = Request.Form("txttgl") t_jkel = Request.Form("jKel") %> Input Data Mahasiswa :

---

NPM : <%=t_npm%>
Nama : <%=t_nama%>
Alamat : <%=t_alamat%>
Kota : <%=t_kota%>
Tanggal Lahir : <%=t_tgl%>
Jenis Kelamin : <% if t_Jkel = 1 then response.write “Laki-laki” else response.write “Perempuan” End If %>

---

&x2=<%=t_nama%>& x3=<%=t_Alamat%>&x4=<%=t_kota%>&x5=<%=t_tgl%>& x6=<%=t_jkel%>">Simpan

Langkah 3 :

!

(

<% Response.buffer = true Dim Koneksi, RecSet, strKoneksi, strSQL Set Koneksi = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") strKoneksi = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " strKoneksi = strKoneksi + Server.MapPath("mhs.mdb") Koneksi.Open strKoneksi strSQL = "SELECT * FROM [DATA PRIBADI MAHASISWA]" RecSet.Open strSQL, Koneksi, 1, 3

(

!

RecSet.Addnew

( RecSet("npm") = Request.QueryString("x1") RecSet("nama") = Request.QueryString("x2") RecSet("alamat") = Request.QueryString("x3") RecSet("kota") = Request.QueryString("x4") RecSet("tgl_lahir") = Request.QueryString("x5") RecSet("JK") = Request.QueryString("x6") RecSet.Update

38

Recset.Close Set Recset = Nothing Set Koneksi = nothing Response.Redirect("tampil.asp") %>

email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer U

, %

'

%

.

. / 1 6 7

( %

.

.

Script formedit.asp

Pengeditan Data

NPM
Nama Mahasiswa

%

%

% 8

% %

(

<% Dim Koneksi, RecSet, strKoneksi, strSQL Set Koneksi = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") strKoneksi = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " strKoneksi = strKoneksi + Server.MapPath("mhs.mdb") Koneksi.Open strKoneksi strSQL = "SELECT * FROM [DATA PRIBADI MAHASISWA] " strSQL = strSQL & " WHERE NPM ='" & Request.Form("txtNPM") & "'" strSQL = strSQL & " and NAMA = '" & Request.Form("txtNama") & "'" RecSet.Open strSQL, Koneksi, 1, 3 %>

39 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer % <% IF RECSET.RECORDCOUNT < 1 THEN %> IDAK DI TEMUKAN NPM <%=Request.Form("TXTNPM")%> EGAN NAMA <%=Request.Form("TXTNAMA")%>
<% else %>

Hasil Pencarian

NPM	" size="10"> "> ">
NAMA	" size="20">
ALAMAT	<% Response.write RecSet("ALAMAT") %>
KOTA	" size="10">
TANGGAL LAHIR	" size="10" maxlength="10"> Format tanggal mm/dd/yyyy
JENIS KELAMIN	<select name="jKel" id="jKel"> <% if recset("jk")=1 then %> Laki-laki Perempuan <% else %> Laki-laki Perempuan <%end if%>

    <% RecSet.Close Set RecSet = Nothing <% END IF %> Set Koneksi = Nothing CARI LAGI %> ‘ baris selanjutnya



40 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

.

.

<% Dim Koneksi, RecSet, strKoneksi, strSQL Set Koneksi = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") strKoneksi = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " strKoneksi = strKoneksi + Server.MapPath("mhs.mdb") Koneksi.Open strKoneksi Request.Form("isi") strSQL = "SELECT * FROM [DATA PRIBADI MAHASISWA] " strSQL = strSQL & " WHERE NPM ='" & Request.Form("crNPM") & "'" strSQL = strSQL & " and NAMA = '" & Request.Form("crNama") & "'" RecSet.Open strSQL, Koneksi, 1, 3 RecSet("npm") = Request.Form("txtNPM") RecSet("nama") = Request.Form("txtNAMA") RecSet("alamat") = Request.Form("txtALAMAT") RecSet("kota") = Request.Form("txtKOTA") RecSet("tgl_lahir") = Request.Form("txtTGL") RecSet("JK") = Request.Form("JKEL") RecSet.Update

SQL = memfilter data/mencari data yang sesuai

Perintah untuk mengupdate

RecSet.Close Set RecSet = Nothing Set Koneksi = Nothing Response.Redirect("tampil2.asp") %>

41 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

BAB XI MENGHAPUS DATA dan MEMBUAT VARIABEL SESSION " ,

%! %

/ 1 6 7

'

%

.

.

( %

"

)

B

, +

/

1

%

”> hapus

42 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

6 ! <% Dim Koneksi, RecSet, strKoneksi, strSQL Set Koneksi = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") strKoneksi = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " strKoneksi = strKoneksi + Server.MapPath("mhs.mdb") Koneksi.Open strKoneksi

Menerima data dari halaman sebelumnya.

strSQL = "SELECT * FROM [DATA PRIBADI MAHASISWA] " strSQL = strSQL & " WHERE NPM ='" & Request.QueryString("kriteria") & "'" RecSet.Open strSQL, Koneksi, 1, 3 RecSet.delete RecSet.Close Set RecSet = Nothing koneksi.close Set Koneksi = Nothing Response.Redirect("tampil2.asp") %>

" " >

-

*

B

*

%

* " * !

"

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

43

<strong>Login User
NIM		isi dengan Nim Anda
NAMA		- isi dengan Nama Anda

email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

<% Response.Buffer=true %> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> & 2

44 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

NIM & :<%=Session("sNIM")%> 2 Nama :<%=Session("sNama")%>
Operasi Database
Lihat Tabel Mahasiswa
Input Data
Edit Data Mahasiswa
Hapus Data Mahasiswa

Hasil pengiriman Variable Session dari Halaman Login.asp

45 email : [email protected], blog : http://tit4ni4.wordpress.com

Sekolah Tinggi Manajemen Informatika & Komputer

Ref: Kurniawan, Andy, Belajar Sendiri Microsoft Active Server Pages, PT. Elex Media Komputindo Jakarta 2000 +)) ) Lenawati, Mei, Mahir dalam 7 hari Macromedia Dreamweaver 8 dengan PHP, Andi Offset Yogyakarta 2007

46 email : [email protected], blog : http://tit4ni4.wordpress.com