nha doankzzz

Kamis, 01 Desember 2011

Lanjutan yg kemaren & cara mudah na

<html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek
rs.Open "dbo_jurusan",cn
%>

<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
<tr>
<td width="29%">jurusan</td>
<td width="71%"><select size="1" name="kode">

<%
do while not rs.eof
%>

<option value="<%=rs("kode")%>"><%=rs("jurusan")%></option>

<%
rs.movenext
loop

rs.close
cn.close
set rs=nothing
set cn=nothing
%>

</select></td>
</tr>
</table>

<p><input type="submit" value="submit" name="B1">
<input type="reset" value="reset" name="B2"></p>
</table>
</body>
</html>

Selasa, 29 November 2011

ASP

==Gabungan ASP dan SQL Server==

<html>
<head>
<title>seleksi aplikan berdasarkan jurusan</title>
</head>
<body>
<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
<tr>
<td width="29%">jurusan</td>
<td width="71%"><select size="1" name="kode">
<option value="p001">business administration</option>
<option value="p002">sekretaris</option>
<option value="p003">komputer akutansi</option>
<option value="p004">informatika komputer</option>
<option value="p005">tour travel bussiness</option>
<option value="p006">office management</option>
</select></td>
</tr>
</table>
<p><input type="submit" value="submit" name="B1">
<input type="reset" value="reset" name="B2"></p>
</form>
<p> </p>
</body>
</html>

===Folder k2===

<html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rsj=Server.CreateObject("ADODB.Recordset")

konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek

Mysql="select * from dbo_aplikan Where kode='"
Mysql=Mysql & request.form("kode")&"'"
Mysql1="select * from dbo_jurusan Where kode='"
Mysql1=Mysql1 & request.form("kode")&"'"

rs.Open mysql,cn
rsj.Open mysql1,cn

if rs.eof or bof then
response.write "tidak ada data untuk jurusan" & rsj("jurusan")
response.end
end if
%>

<p><font size="4">daftar aplikan<br>
jurusan <%=rsj("jurusan")%></font></p>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="61%">
<tr>
<td width="8%"><font size="2"> No.</font></td>
<td width="41%">
<p align=center"><font size="2"> Nama aplikan</font></td>
<td width="26%"><font size="2"> tempat lahir</font></td>
<td width="25%"><font size="2"> tanggal lahir</font></td>
</tr>

<%
n=0
do while not rs.eof
n=n+1
%>

<tr>
<td width="8%"> <%=n%></td>
<td width="41%"> <%=rs("Namaaplikan")%></td>
<td width="26%"> <%=rs("tempatlahir")%></td>
<td width="25%"> <%=rs("tanggallahir")%></td>
</tr>

<%
rs.movenext
loop

rs.close
rsj.close
cn.close
set rs=nothing
set rsj=nothing
set cn=nothing
%>
</table>
</body>
</html>

Minggu, 27 November 2011

SQL sqrver

""" mengisi tabel"""
insert into barang values ('B001','nama','alamat')

"""melihat isi tabel"""
select * from barang

SQL server

"""membuat tabel"""
create database mhs1
on primary
(name = mhs1_dat,
filename = 'E:\ik1s\mhs1_dat.mdf',
size = 2MB,
filegrowth = 1MB,
maxsize = 20MB)
log on
(name = mhs1_log,
filename = 'E:\ik1s\mhs1_log.ldf',
size = 4MB,
filegrowth = 1MB,
maxsize = 10MB)

Kamis, 10 November 2011

membaca sebuah record buku

<html>
<head>
<title>membaca sebuah record buku</title>
</head>
<body>
<%
dim rsbuku
set rsbuku=server.createobject("ADODB.recordset")
rsbuku.open "buku", "DSN=profesi; uid=; pwd="

response.write rsbuku("JUDUL") & "<br>"

rsbuku.close
set rsbuku=nothing
%>
</body>
</html>

Selasa, 18 Oktober 2011

gabungan function dg if

<html>
<head>
<title>Function</title>
</head>
<body>
<%
function nilai
nilai=75
If nilai > 65 then
Grade="lulus"
Else
Grade="tidak lulus"

End If
Response.Write "Grade deliana : "&Grade&"<br>"

Hasil="Tidak Lulus"
If nilai >65 then
Hasil ="""anda lulus...!"""
End If
End Function

Response.Write"Dengan Nilai : "&nilai&"<br>"
Response.Write strhasil

%>
</body>
</html>

belajar asp

<html>
<head>
<title>penggunaan if</title>
<body>
<form>
Masukkan nilai ujian(0-100):<input type=text name=nilai> <br>
<nilai type=submit value="proses"> <br>
</form>
<%
dim strnilai, strhasil , grade
dim nilai
strnilai =request.querystring("nilai")
if strnilai=""then
strnilai="0"
end if

nilai=cint(strnilai)
response.write "Nilai Ujian Anda :"&nilai&"<br>"

if nilai<50 then
   grade="E"
elseif nilai<60 then
   grade="D"
elseif nilai<80 then
   grade="C"
elseif nilai<90 then
   grade="B"
else
   grade="A"
end if
response.write "dengan grade:"&grade& "<br>"

strhasil="Anda Gagal"
if nilai>=60 then
    strhasil="""Anda Lulus...!!!"""
end if

response.write strhasil
%>
</body>
</html>