ASP Classic

Redirect url pada javascript

Jumat, 09 November 2012 , 0

Baik pada asp classic maupun php terkadang kita membutuhkan suatu redirect url (menuju kesuatu url tertentu tanpa mengetikan pada address browser atau tanpa menggunakan <a href).

berikut script nya

pada asp classic
<%

response.write "<script language=javascript>alert('Anda tidak mempunyai otoritas !!!!!.');window.location = 'keluar.asp';</script>"

%>

artinya coding diatas adalah menampilkan suatu alert kemudian jika sudah diklik tombol ok akan menjalankan url yang ada pada windows.location secara otomatis.

sedangkan pada php
<?php
echo "<script language=javascript>alert('Anda tidak mempunyai otoritas !!!!!.');window.location = 'keluar.asp';</script>";
?>


cara cek isian form pada web dengan JavaScript

Senin, 29 Oktober 2012 , 0

Sebelum isian pada suatu form html diproses, maka perlu diproses/dilihat apakah isian tersebut sudah benar atau belum. Perhatikan form berikut:

<html>
<head>

<SCRIPT Language="JavaScript">
<!--
function cekField(frm){
  var salah=0;
  if((frm.nama.value==""))
  {
       alert("Nama Mahasiswa belum diisi!!!");
       document.isian.nama.focus();
       salah=1;
  }


  if((frm.alamat.value=="")&& (salah==0))
  {
       alert("Alamat belum diisi!!!");
       document.isian.alamat.focus();
       salah=1;
  }



  if((frm.notelp.value=="")&& (salah==0))
  {
       alert("No.Telp belum diisi!!!");
       document.isian.notelp.focus();
       salah=1;
  }

 if(salah==0)
  {
  document.forms["formulirS2"].submit();
  }
</SCRIPT>

</head>

<body>

<form method=post action="simpan.asp" name="isian">


Nama<input type="text" name="nama" size='100' maxlength='250' >


Alamat<input type="text" name="alamat" size='100' maxlength='250' >


No.Telp<input type="text" name="notelp" size='100' maxlength='250' >
<input type="button" value=" Simpan " onClick="cekField(this.form)"  />

</form>

</body>


Perhatikan script diatas jika button simpan diklik maka akan menjalankan script JavaScript bernama cekField dengan membawa passing variabel this.form (yg dalam hal ini adalah form dengan nama isian)

sekarang perhatikan script
<SCRIPT Language="JavaScript">
<!--
function cekField(frm){
  var salah=0;
  if((frm.nama.value==""))
  {
       alert("Nama Mahasiswa belum diisi!!!");
       document.isian.nama.focus();
       salah=1;
  }
  if((frm.alamat.value=="")&& (salah==0))
  {
       alert("Alamat belum diisi!!!");
       document.isian.alamat.focus();
       salah=1;
  }


  if((frm.notelp.value=="")&& (salah==0))
  {
       alert("No.Telp belum diisi!!!");
       document.isian.notelp.focus();
       salah=1;
  }
 if(salah==0)
  {
  document.forms["formulirS2"].submit();
  }
</SCRIPT>

Script tersebut harus diletakan diantara <head> dan </head>
perhatikan function cekField(frm)
variabel frm disini menerima passing parameter dari onClick="cekField(this.form)
sedangkan untuk cek isian nama adalah

 if((frm.nama.value==""))
  {
       alert("Nama Mahasiswa belum diisi!!!");
       document.isian.nama.focus();
       salah=1;
  }

 Artinya jika isian yang bernama "nama" berisi kosong maka akan ditampilkan alert.
dan kursor secara otomatis akan mengarah ke field nama, demikian juga dengan isian alamat dan no.telp.

nah apabila sudah bebas dar kesalahan maka akan menjalankan script

 if(salah==0)
  {
  document.forms["isian"].submit();
  }

artinya akan menjalan form tersebut ke file simpan.asp

Demikian semoga bermanfaat

Akses MySQL pada ASP Classic

Rabu, 17 Oktober 2012 0

Dim sConnection
Dim oConnection
Dim oRS

sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=[ipserver]; DATABASE=[namaDataBase]; UID=[user];PASSWORD=[password]"

Set oConnection = Server.CreateObject("ADODB.Connection")

oConnection.Open(sConnection)

Set oRS = oConnection.Execute("SELECT * FROM siswa")

While Not oRS.EOF
  Response.Write oRS ("namafield") & "  " & oRS ("namafield") & "<br>"
  oRS.MoveNext
Wend

oRS.Close
Set oRS = Nothing

oConnection.Close
Set oConnection = Nothing


Namun sebelumnya server IIS harus diinstall Connector/ODBC
bisa didownload di disini

Demikian

 

Cek suatu variabel apakah Numeric ataukah string

Minggu, 07 Oktober 2012 0

Berikut adalah script untuk memeriksa apakah suatu variabel Numeric/Angka ataukah suatu variabel string/karakter
script berikut mengunakan ASP Classic

<%
abc="123"
If IsNumeric(Abc) Then
   response.write "Ini adalah numeric"
Else
   response.write "ini adalah string"
End If
%>

 hasilnya adalah 
ini adalah numeric
lain halnya kalau script nya sbb:

<%
abc="a"
If IsNumeric(Abc) Then
   response.write "Ini adalah numeric"
Else
   response.write "ini adalah string"
End If
%>

 hasilnya adalah 
ini adalah string



demikian semoga bermanfaat

Membuat Link pada HTML dan ASP Classic

Minggu, 02 September 2012 , 0

Link atau tautan di HTML sering kita jumpai pada suatu blog ataupun website
bagaimana cara menambahkan link pada blog atau website kita,

1. Pada blog, klik HTML, kemudian ketik

   <a href='http://www.google.com'>GOOGLE</a>

perhatikan
     a. <a href adalah perintah untuk membuat link/tautan
     b. http://www.google.com : untuk mengarahkan alamat url jika link tersebut di klik
     c. sedangkan kata GOOGLE adalah kata yang tertampil di browser


2. Link pada ASP Classic

<%
response.write "<a href='http://www.google.com'>Google.com</a>"

%>

keterangan script
1. response.write digunakan oleh asp untuk menampilkan sesuatu ke browser
2. sehingga apa yang berada di dalam " " kurung akan di broser
3. nah yang didalam kurung masukan script lini (a href)

bagaimana sekarang kalau ada parameter dari suatu link url (atau querystring)

berikut contohnya.


<%
Nama="sunarto"
response.write "<a href='http://www.sunarto.web.id?vNama=" & Nama & "'>Nama Anda</a>"
%>


vNama adalah nama dari suatu parameter (querystring)
sedangkan Nama adalah variabel dari asp classic
perhatikan
"<a href='http://www.sunarto.web.id?vNama=" & Nama & "'>Nama Anda </a>

 perhatikan petik2 nya
demikian terima kasih

Membuat Koneksi ADODB.Connection pada Microsoft ASP Classic

Kamis, 02 Agustus 2012 0

Koneksi ADODB.Connection dengan mengunakan database Microsoft SQL pada programming ASP Classic (ASP Versi 3).
Seperti diketahui database dalam suatu Aplikasi sangat amat berperan penting. Tidak ada database akan terasa hambar suatu aplikasi tersebut. Dikarenakan data tidak bisa disimpan, yang mana tidak bisa diproses lebih lanjut dikemudian hari.
Baik, bagaimana cara koneksi ADODB pada ASP 3.0 ke Microsoft SQL

script berikut adalah untuk deklarasi variabel

set cn = server.CreateObject("ADODB.Connection") 
cn.open "driver={SQL server};server=192.168.0.12;uid=sa;pwd=m3rd3ka;database=SISWA"

cn.open digunakan untuk membuka koneksi database dg parameter yg harus di isi adalah
server : diisi alamat server database database (bisa berupa alamat ip server database)
uid : user dari database MS-SQL (boleh SA atau supervisor nya atau user lainnya)
pwd : adalah password dari user yg didefinisikan diatas
database : adalah ke dabatase mana koneksi tersebut di sambungkan

selanjut definisi query
vNoInduk = Request.Form("NoInduk")
vSQL="select * from siswa.dbo.dataSISWA where NoInduk='" & vNoInduk & "'"


Perintah query sql yang dimasukan ke dalam variabel vSQL diatas adalah
menampilkan  dataSISWA yang ber nomor induk sesuai isi variabel dari vNoInduk yang mana variabel tersebut didapat dari isian suatu form HTML.
Jangan lupa pada saat where : where NoInduk='" & vNoInduk & "'"
jadi harus ada tanda ' apabila field noInduk pada database tersebut adalah berupa string/varchar/character

sedangkan pada perintah siswa.dbo.dataSISWA
adalah perintah untuk mengarahkan kedatabase siswa dan ke table dataSISWA.

selanjutnya adalah script untuk execute ADODB
set rs = cn.Execute(vSQL)

perintah tersebut untuk execute dari adodb yang mana yg diexecute adalah query dari variabel vSQL yg telah didefinisikan sebelumnya, Hasil dari execute dimasukan ke variabel rs

script lengkap adalah sebagai berikut:

<%

vNoInduk= Request.Form("NoInduk")
set cn = server.CreateObject("ADODB.Connection")
cn.open "driver={SQL server};server=192.168.0.12;uid=sa;pwd=m3r3ka;database=SISWA"
vSQL="select * from siswa.dbo.dataSISWA where NoInduk='" & vNoInduk & "'"
set rs = cn.Execute(vSQL)

%>

demikian terimkasih dan mohon maaf

Baca variabel yang telah di passing oleh JSON

Kamis, 07 Juni 2012 0

Membaca passing variabel JSON  (JavaScript Object Notation) dengan memakai ASP Classic




berikut contoh script nya


<script language="JScript" runat="server" src='json21.js'></script>
<%

Dim myJSON
For each x in Request.Form
myJSON=x
Next


Set myJSON = JSON.parse(myJSON)
vNPM=myJSON.NPM
vPassword=myJSON.Password
vdata=myJSON.data

%>


dari program diatas terlihat bahwa
myJSON.NPM adalah variabel dari JSON yang nilai di masukan ke variabel vNPM
demikian juga dengan myJSON.Password dan myJSON.data

Membuat Jam berlogo Garuda di Web atau blog

Minggu, 25 Maret 2012 0

Apabila anda ingin Membuat Jam berlogo Garuda di Web atau blog
seperti tampilan berikut


untuk mendapatkan code nya, silahkan ke link berikut

Terima kasih

Memonitor Web site tiap 30 menit online

Senin, 12 Maret 2012 0

Kita tidak usah bingung, apakah web site kita download atau masih dalam kondisi UO (Hidup)
Karena ada satu jasa gratis untuk memeriksa website kita setiap 30 menit secara online, melalui beberapa tempat.
Namun hanya diperkenankan untuk satu user, diperkenan satu website yang diperiksa,
Apabila ingin lebih, bisa membeli jasa nya lebih detail lagi
Untuk medaftarkan nya silahkan ke


kemudian pilih register dan isi semua field nya.

Mengetahui Alamat IP Client dengan mengunakan ASP Classic

Jumat, 09 Maret 2012 0

Dengan Asp 3.0 kita bisa mengetahui IP client,
sehingga alamat url yang kita (script kita) bisa kita filter
dari IP mana saja url tersebut bisa jalan
perintahnya adalah

Request.ServerVariables("HTTP_X_FORWARDED_FOR")


dengan perintah tersebut ASP dapat mengetahui alamat IP client

sehingga jika kita mau filter ip tertentu dengan cara sbb:

if (Request.ServerVariables("HTTP_X_FORWARDED_FOR")="172.16.25.16") or (Request.ServerVariables("HTTP_X_FORWARDED_FOR")="172.16.25.215")  then
else
   response.write "error!!"
   response.end
end if

maksud dari script diatas adalah
jika script diatas dijalankan dan ip client nya tidak sama dengan
172.16.25.16 dan 172.16.25.215
maka akan muncul error.


Demikian terima kasih

mengetahui serial Hard Disk dengan asp classic

Kamis, 22 Desember 2011 0

Dengan asp Classic kita bisa mengetahui serial Hard Disk dengan coding dibawah

<%

dim fils,dri
set fils=Server.CreateObject("Scripting.FileSystemObject")
set dri=fils.GetDrive("c:")
Response.Write("serialnumber HardDIak anda adalah : " & dri.SerialNumber)
set dri=nothing
set fils=nothing

%>

Demikian, semoga bermanfaat

Membuat enkripsi dengan Crypt Midori memakai program PHP ver 5

Senin, 12 Desember 2011 0

Midori Crypt adalah program untuk memproses suatu kata menjadi ter-enkrip.
program ini bisa didownload di http://www.paipai.net/texts/MidCrypt.zip

installasi di Windows Server 2008 R2
1. copy MidoriCrypt.dll  ke C:\Windows\SysWOW64
2. Set Application di IIS boleh menjalankan program 32 bit dengan cara
        a. masuk ke IIS
        b. Application Pools
        c. set Application pool defaults
       d. set enable 32 bit application
3. execute MidoriCrypt.dll dengan cara C:\Windows\SysWOW64\MidoriCrypt.dll

nah bagaimana cara mengunakan Program midori ini dari program PHP
berikut contoh script nya


<?php
$obj = new COM("cast.cipher");                                                 //baris 1

$vCoba1=$obj->Cast128Encode('0924010026','123');             // baris 2
$vCoba2=$obj->Cast128Decode('0924010026',$vCoba1);     // baris 3

echo $vCoba1 . "<br>";  //untuk menampilkan hasil enkrip data
echo $vCoba2;     //untuk menampilkan hasil de-krip data
?>



baris 1 untuk aktifkan program midori
baris 2.. untuk cara enkrip
baris 3 : untuk cara membuka enkrip

tentunya php nya diinstall terlebih dahulu di IIS

demikian terima kasih

Membuat Grafik pada HTML

Selasa, 06 Desember 2011 0

Bagaimana cara membuat Grafik pada program HTML
semacam ini


tidaklah mudah
namun ada script untuk mempermudah kita dalam membuat script tersebut
silahkan download script nya pada alamat http://www.jscharts.com/
silahkan mencoba dengan script example nya.

membuat format currency pada html

Rabu, 26 Oktober 2011 0


 <script type="text/javascript">
<!-- Begin
function formatCurrency(num) {
num = num.toString().replace(/\Rp.|\,/g,'');
if(isNaN(num))
num = "0";
sign = (num == (num = Math.abs(num)));
num = Math.floor(num*100+0.50000000001);
cents = num%100;
num = Math.floor(num/100).toString();
if(cents<10)
cents = "0" + cents;
for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++)
num = num.substring(0,num.length-(4*i+3))+','+
num.substring(num.length-(4*i+3));
return (((sign)?'':'-') + 'Rp.' + num + '.' + cents);
}
//  End -->
</script>


kemudian pada code htmlnya

Jumlah<br><input type="text" name="jumlah" onBlur="this.value=formatCurrency(this.value);"><br><br>

coba perhatikan onBlur
perintah ini jika kursor dialihkan dari isian ini akan menjalankan function formatCurrency

demikian
semua saya ambil dari situs
http://javascript.internet.com/forms/currency-format.html

CAPTCHA Generator With tipstricks.org

Sabtu, 01 Oktober 2011 0

Captcha Generator With tipstricks.org
silahkan berkunjung ke

http://www.tipstricks.org/

Export ASP Classic to Power Point

Minggu, 18 September 2011 0

 Export  ASP Classic ke Power Point

<%
Response.Buffer = true
Response.ContentType = "application/vnd.ms-powerpoint"
Response.AddHeader "content-disposition", "inline; filename=nombre.pps"
Response.write "<TABLE><TR><TD> Surabaya </TD> </TR></TABLE>"
Response.write "<TABLE><TR><TD> Indonesia</TD> </TR></TABLE>"
Response.Flush
Response.End
%>

Free Internet Captcha

0

Captcha internet dirancang untuk melindungi bentuk-bentuk html Anda dimana pengguna mengirim informasi ke pengguna lain atau database. ada satu script captcha gratis baik untuk script PHP atau ASP Classic alamat url nya di : http://www.icaptcha.com/



Klik menu config 

Merubah ukuran maksimal file yang bisa di upload di Program ASP pakai IIS 6

Rabu, 27 April 2011 0

 rubah file : MBSchema.xml

file tersebut di folder:
c:\Windows\System32\Inetsrv\


rubah variable AspMaxRequestEntityAllowed menjadi 1073741824

stop service inet
kemudian save file MBSchema.xml

Menambahkan pdf di web menggunakan embedded

0

<embed src="test.pdf#toolbar=0&navpanes=0&scrollbar=0" width="500" height="375">

width = lebar
height = tinggi
scrollbar = 0:off, 1:on

Test Script ASP Classic dengan Baby Web Server

Sabtu, 27 November 2010 0

Jika anda ingin mencoba Script ASP Classic, anda bisa mencoba dengan menggunakan Baby Web Server.
Sebelumnya anda download di http://www.pablosoftwaresolutions.com/html/baby_web_server.html
donwload dan install.
setelah install selesai, buat direktori di c: dengan nama webpages
taruh semua file asp classic anda di folder tersebut.

selamat mencoba

Postingan Lama