Secara otomatis membuat tabel, menyelesaikan penghapusan, pengeditan, pengisian, fungsi paging secara otomatis, dan menyesuaikan
kode gaya header menggunakan dua kelas
.Pada awalnya, saya berpikir terlalu banyak dan fungsinya terlalu kuat. Semakin kuat keserbagunaannya, kelas asp berjalan Semakin lambat dimulainya, semakin kurang tertarik pada akhirnya Masih banyak fungsi yang belum selesai, seperti verifikasi jenis lapangan, tampilan gambar, kontrol, dll. Kode diposting agar semua orang dapat belajar dan belajar bersama. Bagi yang berminat dapat menambahkan
contoh fungsi berikut:
set a = new DataGrid
'a.Connstr="Provider=SQLOLEDB.1;ID Pengguna=sa;Kata Sandi=servser;Katalog Awal=temp_blue;Sumber Data=server;Batas Waktu Sambungan=30;Terjemahan Otomatis=True;Ukuran Paket=4096;"
a.Connstr="Provider=Microsoft.Jet.OLEDB.4.0;"&" Sumber Data="&server.mappath("test.mdb") 'Hubungkan string ACCSS
a.SQLString="pilih * dari tabel1" 'Buat pernyataan sql untuk kumpulan data yang ditampilkan oleh datagrid
a.isAddnew = 1 'Apakah record baru dapat ditambahkan
a.Table = "table1" 'Tabel utama dikendalikan oleh datagrid
a.UniqueField = "ID" 'Bidang bendera, semua record tidak boleh mengulang bilangan bulat
a.PagePosition = "bawah" 'Posisi tampilan halaman, atas atas, bawah bawah, atas bawah, atas dan bawah, yang lainnya tidak ditampilkan
a.pagesize = 5 'Menampilkan jumlah record per halaman
a.Pagenumber = 10 'Tampilkan nomor halaman
a.BorderColor="#ff0000" 'Default adalah merender tampilan
a.BackGround="#00ff00" 'Default adalah merender tampilan
a.BorderWidth=1 Default adalah 1
a.
setel b1 = kolom baru
b1.Field = "id" 'Field database terikat pada kolom ini
b1.Judul = "Logo" 'Judul
b1.Align = "tengah" ' Penjajaran
a.AddColumn(b1) 'Masukkan kolom ini ke dalam datagrid
setel b2 = kolom baru
b2.Field="nama depan"
b2.Judul="Nama belakang"
a.AddColumn(b2)
set b3 = kolom baru
b3.Field = "nama belakang"
b3.Judul = "Nama"
a.AddColumn(b3)
set b4 = kolom baru
b4.Field = "waktu masuk"
b4.Title = "Jumlah login"
b4.ReadOnly = true 'Ditetapkan sebagai hanya-baca dan tidak akan muncul di kotak edit dan catatan baru
a.AddColumn(b4)
set b5 = kolom baru
b5.Judul="Sunting"
b5.Columntype ="edit" 'Edit kolom
b5.EditCommandText = "Edit" 'Edit teks tombol
a.AddColumn(b5)
set b6 = kolom baru
b6.align = "tengah"
b6.Lebar = 200
b6.Columntype = "hapus"
b6.DeleteCommandText = "Tombol Hapus"
b6.Title="Hapus"
a.Tambahkan Kolom(b6)
a.CreateGrid()
setel b1 = tidak ada
atur b2 = tidak ada
atur b3 = tidak ada
atur b4 = tidak ada
atur b5 = tidak ada
atur b6 = tidak ada
File kelasnya adalah sebagai berikut:
<%Class DataGrid
Halaman pribadi
strSQLString pribadi
Koneksi Publik
Kolom Pribadi
Indeks swasta
strUniqueField pribadi,strTable
Swasta rs
strCellspacing pribadi,strCellpadding,strCssClass
strBorderColorDark pribadi,strBorderColorLight,strBackGroundColor
Pribadi intBorderWidth
strHeadStyle pribadi,strHeadBackgroudColor
strStyle pribadi,strAlternateStyle
UniqueKey Pribadi,dg_action,currPage
URL tindakan pribadi, URL laman, URL operasi, URL formulir
Posisi Halaman Publik, Ukuran Halaman, Nomor Halaman
Publik adalah Addnew
Sub Kelas Pribadi_Inisialisasi()
set Kolom = Server.CreateObject("Scripting.Dictionary")
indeks = 0
Ukuran halaman = 10
Nomor halaman = 10
PagePosition = "atas bawah"
strSQLString = Sesi("DSN")
kunci unik = Permintaan("kunci unik")
dg_action = Permintaan("dg_action")
currPage = Permintaan("Halaman")
actionURL = Permintaan.ServerVariables("Nama_Script") & "?page=" & currPage
jika dg_action= "edit" maka formURL = actionURL& "&dg_action=update&uniquekey="&uniquekey
operasionalURL = Permintaan.ServerVariables("Nama_Script") & "?page=" & currPage& "&uniquekey=" & kunci unik
pageURL = Permintaan.ServerVariables("Nama_Script")&"?1=1"
jika currPage = "" atau isnull(currPage) maka currPage = 1
strBorderColorDark="#f7f7f7"
strBorderColorLight = "#cccccc"
strBackgroundColor = "#f7f7f7"
strHeadBackgroudColor = "#F2F2F2"
intLebar Perbatasan = 1
strAlternateStyle="bgcolor=#f6f6f6"
adalahTambahkanbaru = 1
Setel rs = Server.CreateObject("Adodb.Recordset")
Akhiri Sub
Sub Kelas_Terminate() Pribadi
rs.tutup
setr=tidak ada
setel Kolom = tidak ada
Akhiri Sub
Properti Publik Dapatkan SQLString()
SQLString = strSQLString
Properti Akhir
Properti Publik Biarkan SQLString (Nilai)
strSQLString = Nilai
Properti Akhir
Properti Publik Biarkan Gaya (Nilai)
strGaya = Nilai()
Properti Akhir
Properti Publik Dapatkan Gaya()
Gaya = strGaya
Properti Akhir
Properti Publik Biarkan UniqueField (Nilai)
strUniqueField = lcase(Nilai)
Properti Akhir
Properti Publik Dapatkan UniqueField()
UniqueField = strUniqueField
Properti Akhir
Tabel Izin Properti Publik (Nilai)
strTable = lcase(Nilai)
Properti Akhir
GetTable Properti Publik()
Tabel = strTabel
Properti Akhir
Properti Publik Biarkan DbConn(Nilai)
strConn = Nilai
Properti Akhir
Properti Publik Dapatkan Versi()
Versi = "1.0"
Properti Akhir
Properti Publik Let Cellspacing (Nilai)
strcellspace = Nilai
Properti Akhir
Properti Publik Dapatkan Cellspacing()
Jarak sel = spasi strcell
Properti Akhir
Properti Publik Biarkan cellpadding(Nilai)
strcellpadding = Nilai
Properti Akhir
Properti Publik Dapatkan cellpadding()
cellpadding = strCellspacing
Properti Akhir
Properti Publik Biarkan CssClass(Nilai)
strCssClass = Nilai
Properti Akhir
Properti Publik Dapatkan CssClass()
CssClass = strCssClass
Properti Akhir
Properti Publik Biarkan BorderColor(nilai)
strBorderColorDark = nilai
Properti Akhir
Properti Publik GetBorderColor()
BorderColor = strBorderColorDark
Properti Akhir
Properti Umum Biarkan Latar Belakang(nilai)
strBorderColorDark = nilai
strBackgroundColor = nilai
Properti Akhir
Properti Publik Dapatkan BackGround()
Latar Belakang = strBorderColorLight
Properti Akhir
Properti Publik Biarkan BorderWidth(nilai)
intBorderWidth = nilai
Properti Akhir
Properti Publik GetBorderWidth()
BorderWidth = intBorderWidth
Properti Akhir
Properti Publik Dapatkan nColumns(intIndex)
nkeys = Kolom.Kunci
nItem = Kolom.Item
untuk i = 0 hingga Kolom. Hitung - 1
jika intIndex = nkeys(i) maka
atur tmp = nItem(i)
berakhir jika
Berikutnya
atur nKolom = tmp
Properti Akhir
Halaman Fungsi Pribadi (halaman total, nomor halaman, Halaman ini)
MinPage = Halaman ini - nomor halaman/2
jika MinPage <= 0 maka MinPage = 1
'jika MinPage + nomor halaman/2 > total halaman maka Maxpage = total halaman lain Maxpage = MinPage + nomor halaman
untuk i = MinPage ke MinPage + nomor halaman -1
jika saya <= total halaman maka
jika cint(Halaman ini)<> cint(i) maka
strtemp = strtemp & "<a href="&pageURL&"&page=" & i &">" & i & "</a> "
kalau tidak
strtemp = strtemp & i&" "
berakhir jika
kalau tidak
halaman = strtemp
Fungsi Keluar
berakhir jika
Berikutnya
halaman = strtemp
Fungsi Akhir
Sub Publik CreateGrid()
nkeys = Kolom.Kunci
nItem = Kolom.Item
Jika dg_action="perbarui" maka
redupkan strsql
strsql = "perbarui" & tabel & " set "
redup j
j=0
Untuk i = 0 untuk mengindeks - 1
jika nItems(i).Columntype<>"edit" dan nItems(i).Columntype <> "delete" dan bukan nItems(i).readonly dan nItems(i).field<>uniquefield maka
jika j <> 0 maka strsql = strsql & ","
Pilih kasus nItems(i).DataType
Kasus "teks"
strsql = strsql & nItems(i).field & "='" & Permintaan(nItems(i).field)&"' "
Huruf besar/kecil "angka", "int", "bigint", "tinyint"
strsql = strsql & nItems(i).field & "=" & Permintaan(nItems(i).field) & " "
Kasus "tanggal", "waktu", "tanggalwaktu"
strsql = strsql & nItems(i).field & "=convert(datetime,'" & Permintaan(nItems(i).field)&"',102) "
Kasus lain
strsql = strsql & nItems(i).field & "='" & Permintaan(nItems(i).field)&"' "
Akhiri pilihan
j=j+1
Berakhir jika
Berikutnya
strsql = strsql & " di mana " & UniqueField &" = "& kunci unik
set pertama = Server.CreateObject("adodb.recordset")
pertama.Buka strsql,konstr
'pertama.Tutup
setel pertama = tidak ada
atur strsql = tidak ada
Berakhir jika
Jika dg_action="hapus" maka
strsql = ""
strsql = "hapus dari " & tabel & " di mana " & UniqueField &" = "& kunci unik
respon.Tulis strsql
set pertama = Server.CreateObject("adodb.recordset")
pertama.Buka strsql,konstr
'pertama.Tutup
setel pertama = tidak ada
Berakhir jika
JIKA dg_action = "addnew" dan isAddnew = 1 maka
'redupkan strsql
set pertama = Server.CreateObject("adodb.recordset")
tabel pertama.buka,konstr,1,3,2
pertama.tambahkan baru
j=0
Untuk i = 0 untuk mengindeks - 1
jika nItems(i).Columntype<>"edit" dan nItems(i).Columntype <> "delete" dan bukan nItems(i).readonly dan nItems(i).field<>uniquefield maka
jika j <> 0 maka strsql = strsql & ","
Pilih kasus nItems(i).DataType
Kasus "teks"
pertama(nItem(i).bidang) = Permintaan(nItem(i).bidang)
Huruf besar/kecil "angka", "int", "bigint", "tinyint"
pertama(nItems(i).field) = Permintaan(nItems(i).field)
Kasus "tanggal", "waktu", "tanggalwaktu"
pertama(nItems(i).field) = Permintaan(nItems(i).field)
Kasus lain
pertama(nItems(i).field) = Permintaan(nItems(i).field)
Akhiri pilihan
j=j+1
Berakhir jika
Berikutnya
pertama.perbarui
setel pertama = tidak ada
Berakhir jika
rs.Buka strSQLString,koneksi,1,1
strTable= "<tabel border=" & intBorderWidth & " bordercolordark=" & strBorderColorDark & " bordercolorlight=" & strbordercolorlight & "class=" &cssclass & " Cellspacing=0>" 'Tambahkan gaya
strTable = strTable & "<form action=" & formURL & " name=""gridform"" metode=post>"
jika PagePosition="up" atau PagePosition="updown" maka strTable = strTable & "<tr><td colspan="& index &">"& page(rs.PageCount,Pagenumber,currPage )&"</td>< /tr>"
strTable = strTable & "<tr bgcolor=" & strHeadBackgroudColor & ">"
untuk i = 0 untuk mengindeks - 1
jika nItems(i).Judul<>"" lalu
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & nItems(i).Judul &"</td>"
kalau tidak
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs.Fields(i).Item.Nama &"</td>"
berakhir jika
Berikutnya
strTabel = strTabel & "</tr>"
jika cint(currPage) > cint(rs.PageCount) maka currPage = rs.PageCount
intPage = Ukuran Halaman
rs.PageSize = ukuran halaman
rs.AbsolutePage = halaman saat ini
lakukan saat bukan rs.eof dan intPage > 0
halaman int = halaman int - 1
dbuniquekey = rs(bidang unik)
Jika intPage mod 2 maka
strTabel = strTabel & "<tr>"
Kalau tidak
strTable = strTable & "<tr "& strAlternateStyle &">"
Berakhir jika
'response.Tulis len(dg_action)>0 dan int(dbuniquekey) = int(uniquekey)
jika dg_action ="edit" dan int(dbuniquekey) = int(uniquekey) maka
untuk i = 0 untuk mengindeks - 1
jika nItems(i).Columntype<>"edit" dan nItems(i).Columntype <> "delete" dan bukan nItems(i).readonly dan nItems(i).field<>uniquefield maka
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &""" value="" " & rs(nItem(i).bidang) &"""></td>"
kalau tidak
Pilih kasus lcase(nItems(i).Columntype)
Kasus "label"
strTable = strTable & "<td "& nItems(i).HTMLstr &">" & rs(nItems(i).field) &"</td>"
Kasus "radio"
Kasus "gambar"
Kasus "kotak centang"
Kasus "kotak teks"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=text name=""" & rs.Fields(i).Name &""" value=" & rs(nItems(i) ).bidang) &"></td>"
Kasus "tautan"
Kasus "edit"
jika UniqueField="" maka ErrorMsg="UniqueField tidak disetel"
jika dg_action = "edit" maka
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href=""JavaScript:document.gridform.submit()"">"&nItems(i).UpdateCommandText&"</a> <a href ="&actionURL&">"&nItem(i).CancelCommandText&"</a></td>"
kalau tidak
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href="&actionURL&"&dg_action=edit&uniquekey=" & rs(UniqueField) &">"&nItems(i).EditCommandText&"</a>< /td>"
berakhir jika
Kasus "hapus"
jika UniqueField="" maka ErrorMsg="UniqueField tidak disetel"
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href="&actionURL&"&dg_action=delete&uniquekey=" & rs(UniqueField) &">"&nItems(i).DeleteCommandText&"</a>< /td>"
Kasus "perbarui"
Kasus lain
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs(nItems(i).field) & "</td>"
Akhiri pilih
berakhir jika
Berikutnya
kalau tidak
untuk i = 0 untuk mengindeks - 1
pilih kasus lcase(nItems(i).Columntype)
Kasus "label"
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs(nItems(i).field) &"</td>"
Kasus "radio"
Kasus "gambar"
Kasus "kotak centang"
Kasus "kotak teks"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=text value=" & rs(nItems(i).field) &"></td>"
Kasus "tautan"
Kasus "edit"
jika UniqueField="" maka ErrorMsg="UniqueField tidak disetel"
strTable = strTable & "<td " & nItems(i).HTMLstr & "><a href=" & actionURL & "&dg_action=edit&uniquekey=" & rs(UniqueField) & ">" & nItems(i).EditCommandText & " </a></td>"
Kasus "hapus"
jika UniqueField="" maka ErrorMsg="UniqueField tidak disetel"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><a href=" & actionURL & "&dg_action=delete&uniquekey=" & rs(UniqueField) &">" & nItems(i).DeleteCommandText&"< /a></td>"
Kasus "perbarui"
Kasus lain
strTable = strTable & "<td " & nItems(i).HTMLstr &">" & rs(nItems(i).Field) & "</td>"
Akhiri pilih
Berikutnya
Berakhir jika
'Berakhir jika
rs.movenext
strTable = strTable & "</tr>"& vbcrlf
lingkaran
jika PagePosition="down" atau PagePosition="updown" maka strTable = strTable & "<tr><td colspan="& index &">"& page(rs.PageCount,Pagenumber,currPage )
'strTable =strTable&"<tr>"
untuk i = 0 untuk mengindeks - 1
jika nItems(i).Columntype<>"edit" dan nItems(i).Columntype <> "delete" dan bukan nItems(i).readonly dan nItems(i).field<>uniquefield maka
'strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &"""></ td>"
kalau tidak
'strTable = strTable & "<td " & nItems(i).HTMLstr &"> </td>"
berakhir jika
Berikutnya
strTabel =strTabel&"</tr>"
strTabel = strTabel & "</form></table>"
Jika isAddnew = 1 maka
strTable = strTable & "<form action=""?dg_action=addnew"" name=""dgridadd"" method=""post""><table border=" & intBorderWidth & " bordercolordark=" & strBorderColorDark & " bordercolorlight= " & strbordercolorlight & " spasi sel=0><tr>"
untuk i = 0 untuk mengindeks - 1
jika nItems(i).Columntype<>"edit" dan nItems(i).Columntype <> "delete" dan bukan nItems(i).readonly dan nItems(i).field<>uniquefield maka
strTable = strTable & "<td " & nItems(i).HTMLstr &">" & rs.Fields(nItems(i).field).Nama &"</td>"
kalau tidak
'strTable = strTable & "<td " & nItems(i).HTMLstr &">"&nItems(i).Judul&"</td>"
berakhir jika
Berikutnya
strTable = strTable & "<td rowpan=2><a href=""JavaScript:document.dgridadd.submit()"">Baru</a></td></tr><tr>"
untuk i = 0 untuk mengindeks - 1
jika nItems(i).Columntype<>"edit" dan nItems(i).Columntype <> "delete" dan bukan nItems(i).readonly dan nItems(i).field<>uniquefield maka
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &"""></td >" & vbcrlf
kalau tidak
'strTable = strTable & "<td " & nItems(i).HTMLstr &"> </td>"
berakhir jika
Berikutnya
strTabel = strTabel &"</tr></table></form>"
Berakhir jika
Respon.Tulis strTable
Akhiri Sub
Kolom Tambahan Sub Publik(cKolom)
'set tem = Kolom baru
'tem = cKolom
'response.Tulis cColumn.ColumnHTMLstr
Kolom.Tambahkan indeks,cKolom
indeks = indeks + 1
'Kolom.Item(i)
Akhiri Sub
Kelas Akhir
Kolom Kelas
strType pribadi
strAlign pribadi
strStyle pribadi
Teks Kolom Pribadi
Lebar dalam pribadi
IntHight pribadi
Strfield pribadi
Judul str pribadi
Acara pribadi
strCssClass pribadi
strTeks pribadi
strEditCommandText pribadi,strUpdateCommandText,strCancelCommandText,strDeleteCommandText
strRegExp pribadi
strReadOnly pribadi
strDataType pribadi
MaxValue Publik,MinValue,MaxLength,MinLength,IsEmpty,IsChar,IsNumber,isCharNumber,isDate,isEmail
Sub Kelas Pribadi_Inisialisasi()
Tipe Kolom = "Teks"
strEditCommandText = "EDIT"
strUpdateCommandText = "PEMBARUAN"
strCancelCommandText = "BATAL"
strDeleteCommandText = "HAPUS"
Akhiri Sub
Sub Kelas_Terminate() Pribadi
Akhiri Sub
Tipe Kolom Biarkan Properti Publik (Nilai)
strType = lcase(Nilai)
Properti Akhir
Properti Publik Dapatkan Columntype()
Tipe Kolom = strTipe
Properti Akhir
Milik Umum Biarkan Para(Nilai)
Para=Nilai
Properti Akhir
Properti Umum Izinkan ParaLink(Nilai)
ParaLink = Ganti(Nilai,"{0}",Para)
Properti Akhir
Properti Publik Biarkan Nama Kontrol (Nilai)
NamaKontrol = Nilai
Properti Akhir
Properti Publik Biarkan Gaya (Nilai)
strStyle = Nilai
Properti Akhir
Properti Publik Biarkan Eventstr(Nilai)
strEvent = Nilai
Properti Akhir
Milik Umum Biar Sejajar (Nilai)
strAlign = Nilai
Properti Akhir
GetAlign Properti Publik()
Sejajarkan = strSejajarkan
Properti Akhir
Properti Publik GetEventstr()
Eventstr = strEvent
Properti Akhir
Lebar Izin Properti Umum (Nilai)
intLebar = Nilai
Properti Akhir
Bidang Izin Properti Umum (Nilai)
strField = lcase(Nilai)
Properti Akhir
Bidang Dapatkan Properti Publik()
Bidang = strField
Properti Akhir
Hak Milik Umum Izinkan (Nilai)
jika nilai="" maka strTitle = strField lain strTitle = Nilai
Properti Akhir
Properti Publik Dapatkan Judul()
jika strTitle="" maka Judul = strField lain Judul = strTitle
Properti Akhir
Properti Publik Biarkan CssClass(Nilai)
strCssClass = Nilai
Properti Akhir
Properti Publik Dapatkan CssClass()
CssClass = strCssClass
Properti Akhir
Properti Publik Biarkan Tipe Data (Nilai)
strDataType = lcase(Nilai)
Properti Akhir
Properti Publik Dapatkan DataType()
Tipe Data = strDataType
Properti Akhir
Teks Biarkan Properti Publik (Nilai)
pilih nilai kasus
kasus ""
strTeks = strType
kasus nol
strTeks = strType
kasus lain
strTeks = Nilai
akhir pilih
Properti Akhir
Properti Publik Dapatkan Teks()
Teks = strTeks
Properti Akhir
Properti Publik Izinkan ReadOnly(Nilai)
jika nilai = "" atau isnull (nilai) maka strReadOnly = False jika tidak strReadOnly = nilai
Properti Akhir
Properti Publik Dapatkan ReadOnly()
Hanya Baca = strHanya Baca
Properti Akhir
Properti Publik Biarkan EditCommandText(Nilai)
strEditCommandText = Nilai
Properti Akhir
Properti Publik Dapatkan EditCommandText()
EditCommandText = strEditCommandText
Properti Akhir
Properti Publik Biarkan UpdateCommandText(Nilai)
strUpdateCommandText = Nilai
Properti Akhir
Properti Publik GetUpdateCommandText()
UpdateCommandText = strUpdateCommandText
Properti Akhir
Properti Publik Biarkan CancelCommandText(Nilai)
strCancelCommandText = Nilai
Properti Akhir
Properti Publik Dapatkan CancelCommandText()
CancelCommandText = strCancelCommandText
Properti Akhir
Properti Publik Biarkan DeleteCommandText(Nilai)
strDeleteCommandText = Nilai
Properti Akhir
Properti Publik Dapatkan DeleteCommandText()
HapusCommandText = strDeleteCommandText
Properti Akhir
Properti Publik Biarkan RegExp(Nilai)
strRegExp = Nilai
Properti Akhir
Properti Publik Dapatkan RegExp()
RegExp = strRegExp
Properti Akhir
Properti Publik Dapatkan HTMLstr()
tempstr = ""
jika intWidth <> "" maka tempstr = tempstr & " width=""" & intWidth & """"
jika intHeight <> "" maka tempstr = tempstr & " height =""" & intHeight & """"
jika strStyle <> "" maka tempstr = tempstr & " style=""" & strStyle & """"
jika strEvent <> "" maka tempstr = tempstr & " " & strEvent
jika strAlign <> "" maka tempstr = tempstr & " align=""" & strAlign & """"
HTMLstr = tempstr
Properti Akhir
Kelas Akhir
%>