Beranda>Kode sumber ASP>Kategori lainnya
Unduh

#: Pembangunan Berlanjut - Pembangunan Berlanjut :#

Pembantu ASP Klasik

(TR) Ini adalah perpustakaan utilitas ASP Klasik kompak pertama yang diketahui (menurut penelitian saya). Ini memiliki struktur yang mempersingkat operasi yang sering Anda lakukan, membantu Anda mempercepat pekerjaan database dan tahapan pengembangan perangkat lunak dengan praktis, dan membuat pengembangan Anda lebih mudah. Anda dapat mengintegrasikannya dengan perpustakaan yang ada, mengembangkan dan mendistribusikannya. Tolong jangan lupa untuk memberikannya Bintang dan menambahkannya ke daftar Tontonan Anda.

(ID) Utilitas Pembantu Pengodean ASP Klasik Pertama

Penggunaan

(TR) Pertama, sertakan file dari jalur fisiknya ke dalam file proyek Anda. (ID)... 

 <!--#include file= "/{path}/casphelper.asp" -->

(TR) Jika Anda ingin memulai perpustakaan sendiri, tambahkan kode di bawah ini ke proyek Anda untuk dijalankan terlebih dahulu (EN) ... 

 < %
Set Query = New QueryManager
% >

(TR) Sekarang Anda hanya perlu menggunakan variabel Query untuk semua operasi Anda. (ID)... 

 < %
Dim Query
Set Query = New QueryManager
  Query.Debug          = False
  Query.Host           = "localhost"
  Query.Database       = "my_db_name"
  Query.User           = "my_db_username"
  Query.Password       = "MyS3c3tP4ssw0d"
  Query.Connect()
% >

SQL

Sisipkan/Perbarui

Jika kita ingin INSERT atau UPDATE query SQL, kita perlu menjaga nilai nama input form kita sama dengan nama kolom tabel yang relevan. Perpustakaan melakukan beberapa hal di sini.

  • Apakah parameter nama FORM/POST yang masuk dan nama kolom tabel target cocok? Jika tidak cocok maka data di luar field tidak akan diimpor.
  • Apakah data yang masuk sesuai dengan tipe data kolom target? (INT, VARCHAR/TEKS PANJANG, TANGGAL/TANGGAL WAKTU)
  • Apakah data yang masuk kosong?

Hasilnya, dua jenis respons dikembalikan dari perpustakaan.

  • Jika operasi INSERT berhasil, parameter ID dan nomor catatan terakhir yang ditambahkan (INT) dikembalikan.
  • Jika operasi UPDATE berhasil, ia mengembalikan nilai benar, jika gagal, ia mengembalikan salah (BOOLEAN).

- JalankanPerluas(MASUKKAN)

(TR) Fungsi RunExtend adalah fungsi pengembalian sederhana dan parameter INSERT mengembalikan nilai primaryKey (ID) (INT) dari baris yang ditambahkan sebagai hasil operasi. Hasil ini menginformasikan apakah operasi INSERT berhasil atau tidak. (ID)... 

 Query.RunExtend( "INSERT" , "table_name" , Null)

(TR) Struktur berikut dapat digunakan sebagai contoh penggunaan. (ID)... 

 < %
If Query.Data( "Cmd" ) = "InsertSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "INSERT" , "tbl_users" , Null)
    If IsNumeric( QueryResult ) Then
        Response.Write "Başarılı / Success"
        Response.Write "ID: " & QueryResult
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) Struktur formulirnya harus sebagai berikut. (ID)... 

 < form action =" /?Cmd=InsertSample " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Insert </ button >
</ form >

(TR) Struktur databasenya sebagai berikut (EN)...

NAMA BIDANG JENIS
PENGENAL (INT) Kunci Utama
NAMA (VARCHAR)
NAMA BELAKANG (VARCHAR)
HARI ULANG TAHUN (TANGGAL)

- JalankanPerluas(PEMBARUAN)

(TR) Fungsi RunExtend adalah fungsi pengembalian sederhana dan parameter UPDATE mengembalikan nilai benar atau salah (boolean) sebagai hasil operasi. Hasil ini menginformasikan apakah operasi UPDATE berhasil atau tidak (EN)... 

 Query.RunExtend( "UPDATE" , "table_name" , "ID={ID}" )

(TR) Struktur berikut dapat digunakan sebagai contoh penggunaan. (ID)... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "UPDATE" , "tbl_uyeler" , "ID={ID}" )
    If QueryResult = True Then 
        Response.Write "Başarılı / Success"
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) Struktur formulirnya harus sebagai berikut. (ID)... 

 < form action =" /?Cmd=UpdateSample&ID=123 " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Update </ button >
</ form >

(TR) Struktur databasenya sebagai berikut (EN)...

NAMA BIDANG JENIS
PENGENAL (INT) Kunci Utama
NAMA (VARCHAR)
NAMA BELAKANG (VARCHAR)
HARI ULANG TAHUN (TANGGAL)

-CollectForm & Run (tidak digunakan lagi)

(TR) Kombinasi perintah Collector dan Run pada perpustakaan versi pertama adalah sebagai berikut. Fungsi CollectForm mengumpulkan parameter Request.Form yang disertakan dengan metode FORM Post dan menggabungkannya untuk INSERT atau UPDATE. Tidak ada mekanisme kontrol. Parameter error kembali ke Error Raise. (ID)... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
	Query.CollectForm( "INSERT" )
	Query.AppendRows    = "EKSTRA1, EKSTRA2"
	Query.AppendValues  = "'Manuel Eklenecek Veri 1', 'Manuel Eklenecek Veri 2'"
	Query.Run( "INSERT INTO tbl_tableName(" & Query.Rows & ") VALUES(" & Query.Values & ")" )
	Query.Go( "?Msg=Success" )
End If
% >

Rekam Ada (sql)

(TR) Mengembalikan hasil kueri SQL sebagai true atau false . Ini digunakan sebagai pengganti EOF dalam metode tradisional. (ID)... 

 < %
Dim QueryResult
QueryResult = Query.RecordExist( "SELECT ID FROM tbl_users WHERE ID = 1" )
If QueryResult = True Then
    Response.Write "Record Exist"
Else
    Response.Write "Record Not Exist"
End If
% >

ID Maks

(TR) Memungkinkan nilai ID maksimum (PrimaryKey) dikembalikan dalam tabel dan kondisi apa pun. Tidak ada pemeriksaan kesalahan. (ID)... 

 Query.MaxID( "tbl_tableName" )

(TR) Untuk situasi bersyarat (EN) ... 

 Query.MaxID( "tbl_tableName WHERE EMAIL = '[email protected]'" )

Jalankan SQL [ samb.Execute(sqlQuery) ]

(TR) Satu-satunya penyesuaian untuk fungsi ini adalah data yang akan diterima dengan Request.Querystring dapat diganti . Jika struktur URL adalah /?Cmd=Update&ID=123, parameter {ID} diperbarui menjadi 123 dalam kueri. . Ini mengimplementasikan parameter obj.Execute(sql) standar. (ID)... 

 < %
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = {ID} " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = " & Query.Data( "ID" ) & " " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = 1 " )
% >

Permintaan dan Tanggapan

- Permintaan.Formulir/QueryString

(TR) Jika Anda ingin mendapatkan data formulir atau string kueri, Anda bisa mendapatkannya sebagai Query.Data("key") atau sebaris sebagai {key} . Perangkat lunak Anda akan menangkap semua parameter bahkan dalam struktur url 404. Dapat digunakan sebagai pengganti Requet.Form(key) atau Request.QueryString(key). (ID)... 

 < %
Dim SampleValue
SampleValue = Query.Data( "ID" )
% >

(TR) Jika keberadaan data tidak ditemukan (Null, Kosong), hasilnya selalu dapat dikembalikan dengan Kosong. (ID)... 

 /script.asp?Cmd=Test&Data1=value&Data2=&Data3=value3
/ 404 url/params/?Cmd=Test&Data1=value&Data2=&Data3=value3

< %
Response.Write Query.Data( "Cmd" )    ' return Test (String)
Response.Write Query.Data( "Data1" )  ' return value (String)
Response.Write Query.Data( "Data2" )  ' return 
Response.Write Query.Data( "Data3" )  ' return value3 (String)
% >

- Respon.Redirect

(TR) Response.Redirect adalah perintah yang dapat Anda gunakan sebagai pengganti "url.asp?some=string" setelah menyelesaikan transaksi Anda. Pembaruan Parametrik dapat digunakan untuk mengambil parameter formulir atau Querystring. (ID)... 

 < %
Query.Go( "url.asp?some=string" )
Query.Go( "url.asp?some={ID}" )
% >

- Respon.Tulis

(TR) Daripada menggunakan Response.Write("test") standar, Query.Echo("test") dapat digunakan. (EN)... 

 < %
Query.Echo( "test" )
% >

- Respon.Akhir

(TR) Query.Kill() dapat digunakan sebagai pengganti Response.End() standar. (ID)... 

 < %
Query.Kill()
% >

Pembantu

-Ada()

(TR) Dapat memeriksa keberadaan variabel apa pun. Melakukan pemeriksaan IsNull, IsEmpty, Len()>0 dan mengembalikan hasil benar atau salah (boolean) (EN) ... 

 < %
str_value1 = ""
str_value2 = 2
If Query.Exist(str_value1) = True Then
    ' return true
End If

If Query.Exist(str_value2) = False Then
    ' return false
End If
% >

- TemukanInArray(String, Array)

(TR) Mencari data string apa pun dalam grup array. Ia melakukan pemeriksaan pencocokan tepat dan menerapkan Trim otomatis(). Jika hasilnya ditemukan, nomor indeks dikembalikan. Jika tidak ada hasil yang ditemukan, hasil Null dikembalikan. (ID)... 

 < %
Dim str_array
str_array = Array( "test" , "apple" , "fruit" , "banana" , "mercedes" )

Dim QueryResult
QueryResult = Query.FindInArray( "apple" , str_array)
If IsNull( QueryResult ) Then
    Query.Echo "Not Found"
Else
    Query.Echo "apple found in array index: " & QueryResult
End If
% >

- Metode yang Diizinkan (Nama Metode)

(TR) Dalam beberapa kasus, Anda dapat membatasi akses ke area transaksi yang relevan hanya dengan metode tertentu. Misalnya, jika Anda menggunakan Method="POST" untuk suatu formulir, Anda dapat mengonfirmasi di salam bahwa metode tersebut memang "POST". (ID)... 

 < %
If Query.AllowedMethod( "POST" ) = False Then
    Query.Echo "Only POST Method Allowed"
    Query.Kill
End If
% >
Memperluas
Informasi Tambahan
Aplikasi Terkait
Direkomendasikan untuk Anda
Informasi Terkait Semua