Ferry I wrote:
>
> At 09:10 08/09/01 +0700, Ahmad Gunawan wrote:
> >1. Kalau saya punya input type BUTTON, gimana caranya supaya
> >kalau di-click bisa jump ke whatever.asp misalnya, atau kalau
> >bisa sekalian jump ke whatever.asp?x=v1&y=v2 ???
> Input type image kalau di click memang langsung submit formnya kok
> Jadi biasa aja <input type="image" border="0" name="Search"
> src="file_buitton.gif" width="25" height="25">
Kalau yg versi submit form sudah bisa, justru ini yg model input
type button yg pada event onClick akan jump ke suatu URL.
Tapi sekarang sudah bisa, caranya:
<input type="button" ... onclick="MyFunction(<%=rst("fieldname")%>)">
pada bagian head, buat function MyFunction( arg1 ), lalu pada
fungsi tsb isi dgn:
Document.Location = "something.asp?par1=" & arg1
> Mmmmm..... kalau saya dng MySQL/Perl logikanya begini (pakai CGI.pm):
> * User input nama file yg akan diupload (Form content type=multipart)
> $CONTENT .=
> $q->start_multipart_form().
> "Enter the file to process:<br>"
> .$q->filefield('image_to_upload','',25)
> .$q->reset.$q->submit('submit','Process File');
>
> * Script Perl A :
> * upload file itu ke suatu direktori tertentu di server
>
> sub upload {
> my($file,$server_dir, $nama_file_upload) = @_;
> # $file = $q->param('filename') i.e. MUST BE a filehandle
> my($CONTENT);
> $nama_file_upload = $file unless ($nama_file_upload);
> $nama_file_upload =~ s!^.*(\\|\/)!!;
> print $q->h5($nama_file_upload );
> open (FILE,">$server_dir/$nama_file_upload");
> binmode(FILE);
> while (read($file, my $buffer,1024))
> {
> print FILE $buffer;
> }
> close (FILE);
> #$CONTENT .= $q->p('File uploaded as ',$q->b($nama_file_upload));
> return $nama_file_upload;
> }
> $image_file=$q->param('image_to_upload');
> $file_name = &upload($image_file,'/home/your_server/www/images');
>
> * Menyimpan nama file itu di database
> $dbh->do(qq~insert into $sql_table set file_image='$file_name'~);
>
> * Script Perl B :
> * mengambil nama file dr database & tampilkan sebagai code HTML
> $sth = $dbh->prepare( qq~select file_image from $sql_table ~);
> $sth->execute();
> $sth->bind_columns( undef, \$file_image);
> while($sth->fetch) {
> print $q->img({-src=>$file_image}),'<br>';
> }
>
> Coba ambil aja logikanya & konversi sintax2nya buat ASP/SqlServer
OK, thanks atas responnya. Saya sedang coba konversikan script perl
Anda.
Salam,
-agun-
-----------
Berhenti langganan kirim email ke [EMAIL PROTECTED]
Arsip di http://www.mail-archive.com/[email protected]/
