Contoh Tip ASP: Tentang Program untuk Formulir Operasi

Memasukkan konten formulir ke dalam basis data dengan ASP.

<%

' -loader.asp -

' - Versi 1.5.2

' - Terakhir diperbarui 12/5/2002

'

'Faisal Khan

'[email protected]

'www.stardeveloper.com

'Kelas untuk menangani unggahan biner

Kelas Loader

Dikt Pribadi

Private Sub Class_initialize

Set Dict = Server.CreateObject (Scripting.Dictionary)

Akhir sub

Sub Class_Terminate pribadi

Jika IsObject (Intdict) maka

Intdict.removeall

Atur intdict = tidak ada

Akhiri jika

Jika isObject (dikt) lalu

dikt.removeall

Atur dict = tidak ada

Akhiri jika

Akhir sub

Properti Publik Hitung

Count = Dict.Count

Akhir properti

Sub umum diinisialisasi

Jika request.totalbytes> 0 lalu

Redup bindata

bindata = request.binaryread (request.totalbytes)

GetData Bindata

Akhiri jika

Akhir sub

Fungsi publik getFiledata (nama)

Jika dict.exists (nama) lalu

getFiledata = dict (name) .item (value)

Kalau tidak

getFiledata =

Akhiri jika

Fungsi akhir

Fungsi publik getValue (nama)

Redup gv

Jika dict.exists (nama) lalu

gv = cstr (dict (name) .item (value))

GV = kiri (GV, Len (GV) -2)

GetValue = GV

Kalau tidak

getValue =

Akhiri jika

Fungsi akhir

Fungsi publik savetofile (nama, jalur)

Jika dict.exists (nama) lalu

Suhu redup

temp = dict (name) .item (value)

Redup fso

Atur fso = server.createObject (scripting.filesystemObject)

File redup

Setel file = fso.createTextFile (path)

Untuk tpoint = 1 ke lenb (temp)

file.write chr (ascb (midb (temp, tpoint, 1))))

Berikutnya

file.close

savetofile = true

Kalau tidak

savetofile = false

Akhiri jika

Fungsi akhir

Fungsi publik getFileName (nama)

Jika dict.exists (nama) lalu

Redup suhu, Temppos

temp = dict (nama) .item (nama file)

Temppos = 1 Instrev (Temp, /)

getFileName = mid (temp, temppos)

Kalau tidak

getFileName =

Akhiri jika

Fungsi akhir

Fungsi publik getFilePath (nama)

Jika dict.exists (nama) lalu

Redup suhu, Temppos

temp = dict (nama) .item (nama file)

Temppos = instrrev (temp, /)

getFilePath = mid (temp, 1, temppos)

Kalau tidak

getFilePath =

Akhiri jika

Fungsi akhir

Fungsi publik getFilePathComplete (nama)

Jika dict.exists (nama) lalu

getFilePathComplete = dict (name) .item (nama file)

Kalau tidak

getFilePathComplete =

Akhiri jika

Fungsi akhir

Fungsi Publik GetFileSize (Nama)

Jika dict.exists (nama) lalu

getFilesize = lenb (dikt (nama) .item (nilai))

Kalau tidak

getFileSize = 0

Akhiri jika

Fungsi akhir

Fungsi publik getFilesizetrantslated (nama)

Jika dict.exists (nama) lalu

temp = lenb (dict (name) .item (value))

Jika temp <= 1024 maka

getFilesizetRanslated = Temp & bytes

Kalau tidak

Temp = FormatNumber ((Temp / 1024), 2)

getFilesizetRanslated = Temp & Kilobytes

Akhiri jika

Kalau tidak

getFilesizetRanslated =

Akhiri jika

Fungsi akhir

Fungsi publik getContentType (nama)

Jika dict.exists (nama) lalu

getContentType = dict (name) .item (contentType)

Kalau tidak

getContentType =

Akhiri jika

Fungsi akhir

Sub GetData Pribadi (RawData)

Pemisah redup

pemisah = midb (rawdata, 1, instrb (1, rawdata, chrb (13)) - 1)

Redup lenseparator

lenseparator = lenb (pemisah)

Redup arus

CurrentPos = 1

Redup instrbyte

instrbyte = 1

Nilai redup, mvalue

Redup Tempuale

TempValue =

Sedangkan instrbyte> 0

instrbyte = instrb (currentpos, rawdata, pemisah)

mValue = instrbyte - currentpos

Jika mvalue> 1 maka

nilai = midb (rawdata, currentpos, mValue)

Redup begpos, endpos, midvalue, nvalue

Intdict redup

Set Intdict = Server.CreateObject (Scripting.Dictionary)

begpos = 1 instrb (1, nilai, chrb (34))

endpos = instrb (begpos 1, nilai, chrb (34))

nValue = endpos

Namen redup

namen = midb (nilai, begpos, endpos - begpos)

Redup namevalue, isValid

isValid = true

If instrb (1, value, stringtobyte (tipe konten))> 1

begpos = 1 instrb (endpos 1, nilai, chrb (34))

endpos = instrb (begpos 1, nilai, chrb (34))

Jika endpos = 0 lalu

endpos = begpos 1

isValid = false

Akhiri jika

midvalue = midb (nilai, begpos, endpos - begpos)

Intdict.Add nama file, trim (bytetostring (midvalue))

begpos = 14 instrb (endpos 1, nilai, stringtobyte (tipe konten :))

endpos = instrb (begpos, nilai, chrb (13))

midvalue = midb (nilai, begpos, endpos - begpos)

intdict.add contentType, trim (bytetoString (midvalue))

begpos = endpos 4

endpos = lenb (nilai)

namevalue = midb (nilai, begpos, ((endpos - begpos) - 1))

Kalau tidak

namevalue = trim (bytetostring (midb (nilai, nvalue 5))))

Akhiri jika

Jika isValid = true maka

Nilai Intdict.add, NamEvalue

Intdict.add Name, Namen

Dict.Add Bytetostring (Namen), Intdict

Akhiri jika

Akhiri jika

currentpos = lenseparator instrbyte

Pergi ke

Akhir sub

Kelas akhir

Fungsi Pribadi StringTobyte (TOCONV)

Redup tempchar

Untuk i = 1 ke len (TOCONV)

tempchar = mid (toconv, i, 1)

StringToByte = StringToByte & Chrb (ASCB (Tempchar))

Berikutnya

Fungsi akhir

Fungsi Pribadi BytetoString (TOCONV)

Untuk i = 1 ke lenb (TOCONV)

BYTETOSTRING = BYTETOSTRING & CHR (ASCB (MIDB (TOCONV, I, 1))))

Berikutnya

Fungsi akhir

%>

1. Antarmuka pengguna:

<bahasa skrip = javascript>

Function Checkall (Form)

{for (var i = 0; i <form.elements.length; i)

{var e = form.elements [i];

if (e.name! = 'chkall')

E.Checked = Form.chkall.Checked;

}

}

</script>

</head>

<body>

<Form Method = Post Action = Del.asp Name = Form1>

<able>

<tr>

<td> <input type = nilai kotak centang = 111 name = tradename> Email 1 </td>

</tr>

<tr>

<td> <input type = nilai kotak centang = 111 name = tradename> Email 2 </td>

</tr>

<tr>

<td> <input type = nilai kotak centang = 111 name = tradename> Email 3 </td>

</tr>

<tr>

<td> <input type = nilai kotak centang = 111 name = tradename> Email 4 </td>

</tr>

<tr>

<td> <input type = nilai kotak centang = 111 name = tradename> Email 5 </td>

</tr>

<tr>

<td> <input type = nilai kotak centang = 111 name = tradename> email 6 </td>

</tr>

<tr>

<td bgcolor =#f1fbfc tinggi = 25 colspan = 2>

<p align = left> <input type = centang nama kotak = chkall value = on onClick = checkAll (this.form)> <font color =#ff9900> Pilih semua pesan yang ditampilkan </font> </p>

</td>

<senter>

</tr>

</boable>

</form>

2. Hapus file del.asp

<%

'Baris ini menulis kode yang menghubungkan ke database

redup id, strid

strid =

Untuk setiap strid in quest.form (tradename)

Id = cint (strid)

Jika Strid <> lalu

Delrs = server.createObject (adodb.recordset)

Conn.Execute Hapus dari TBName Where ID = & CSTR (ID)

strid =

akhiri jika

Berikutnya

Conn.Close

Setel Conn = Tidak Ada

Response.Redirect berhasil dihapus!

%>