ตัวอย่างเคล็ดลับ ASP: เกี่ยวกับโปรแกรมสำหรับแบบฟอร์มการทำงาน

การแทรกเนื้อหาฟอร์มลงในฐานข้อมูลด้วย ASP

-

' -loader.asp -

' - เวอร์ชัน 1.5.2

' - อัปเดตล่าสุด 12/5/2002

-

'Faisal Khan

'[email protected]

'www.stardeveloper.com

'คลาสสำหรับการจัดการอัพโหลดไบนารี

ตัวโหลดชั้นเรียน

คำสั่งส่วนตัว

คลาสย่อย class_initialize

ตั้งค่า dict = server.createObject (Scripting.dictionary)

สิ้นสุดย่อย

คลาสย่อย class_terminate

ถ้า isObject (intdict) แล้ว

intdict.removeall

ตั้งค่า intdict = ไม่มีอะไร

สิ้นสุดถ้า

ถ้า isObject (dict) แล้ว

dict.removeall

ตั้งค่า dict = ไม่มีอะไร

สิ้นสุดถ้า

สิ้นสุดย่อย

ทรัพย์สินสาธารณะได้รับนับ

นับ = dict.count

จุดสิ้นสุดของทรัพย์สิน

สาธารณะเริ่มต้น

ถ้า request.totalbytes> 0 แล้ว

สลัว bindata

bindata = request.binaryRead (request.totalbytes)

getData bindata

สิ้นสุดถ้า

สิ้นสุดย่อย

ฟังก์ชั่นสาธารณะ getFiledata (ชื่อ)

ถ้า dict.exists (ชื่อ) จากนั้น

getFiledata = dict (ชื่อ) .item (ค่า)

อื่น

getFiledata =

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นสาธารณะ getValue (ชื่อ)

Dim GV

ถ้า dict.exists (ชื่อ) จากนั้น

gv = cstr (dict (ชื่อ) .item (ค่า))

GV = ซ้าย (GV, LEN (GV) -2)

getValue = gv

อื่น

getValue =

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นสาธารณะ savetofile (ชื่อเส้นทาง)

ถ้า dict.exists (ชื่อ) จากนั้น

อุณหภูมิหรี่

temp = dict (ชื่อ) .item (ค่า)

สลัว fso

ตั้งค่า fso = server.createObject (scripting.filesystemobject)

หรี่ไฟล์

ตั้งค่าไฟล์ = fso.createTextFile (พา ธ )

สำหรับ tpoint = 1 ถึง lenb (อุณหภูมิ)

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

ต่อไป

file.close

savetofile = true

อื่น

savetofile = false

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นสาธารณะ getFilename (ชื่อ)

ถ้า dict.exists (ชื่อ) จากนั้น

อุณหภูมิหรี่

temp = dict (ชื่อ) .item (ชื่อไฟล์)

Temppos = 1 Instrrev (Temp, /)

getFileName = mid (temp, temppos)

อื่น

getFilename =

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นสาธารณะ getFilePath (ชื่อ)

ถ้า dict.exists (ชื่อ) จากนั้น

อุณหภูมิหรี่

temp = dict (ชื่อ) .item (ชื่อไฟล์)

temppos = instrrev (temp, /)

getFilePath = mid (temp, 1, temppos)

อื่น

getFilePath =

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นสาธารณะ getFilePathcomplete (ชื่อ)

ถ้า dict.exists (ชื่อ) จากนั้น

getFilePathcomplete = dict (ชื่อ) .item (ชื่อไฟล์)

อื่น

getFilePathcomplete =

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นสาธารณะ getFilesize (ชื่อ)

ถ้า dict.exists (ชื่อ) จากนั้น

getFilesize = lenb (dict (ชื่อ) .item (ค่า))

อื่น

getFilesize = 0

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นสาธารณะ getFilesizetranslated (ชื่อ)

ถ้า dict.exists (ชื่อ) จากนั้น

temp = lenb (dict (ชื่อ) .item (ค่า))

ถ้าอุณหภูมิ <= 1024 แล้ว

getFilesizetranslated = temp & bytes

อื่น

temp = formatNumber ((temp / 1024), 2)

getFilesizetranslated = temp & kilobytes

สิ้นสุดถ้า

อื่น

getFilesizetranslated =

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นสาธารณะ getContentType (ชื่อ)

ถ้า dict.exists (ชื่อ) จากนั้น

getContentType = dict (ชื่อ) .item (ContentType)

อื่น

getContentType =

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

GetData ย่อยส่วนตัว (RAWDATA)

ตัวคั่นหรี่

ตัวคั่น = MIDB (RAWDATA, 1, InstrB (1, RawData, CHRB (13)) - 1)

เครื่องรางหรี่

LenseParator = Lenb (ตัวคั่น)

Dim CurrentPos

currentPos = 1

Dim Instrbyte

Instrbyte = 1

ค่าสลัว mvalue

อุณหภูมิหรี่

tempvalue =

ในขณะที่ instrbyte> 0

instrbyte = instrb (currentpos, rawdata, ตัวคั่น)

mvalue = InstrByte - CurrentPos

ถ้า mvalue> 1 แล้ว

value = midb (rawdata, currentpos, mvalue)

Dim Begpos, endpos, midvalue, nvalue

ความหรี่

ตั้งค่า intdict = server.createObject (scripting.dictionary)

BegPos = 1 InstrB (1, ค่า, CHRB (34))

endpos = instrb (begpos 1, ค่า, chrb (34))

nvalue = endpos

นาเมนหรอก

namen = midb (ค่า, begpos, endpos - begpos)

Dim -namevalue, isvalid

isvalid = true

ถ้า instrb (1, value, stringtobyte (ประเภทเนื้อหา))> 1 แล้ว

BegPos = 1 InstrB (endpos 1, ค่า, Chrb (34))

endpos = instrb (begpos 1, ค่า, chrb (34))

ถ้า endpos = 0 แล้ว

endpos = begpos 1

isvalid = false

สิ้นสุดถ้า

midvalue = midb (ค่า, begpos, endpos - begpos)

intdict.add ชื่อไฟล์, trim (bytetostring (midvalue))

BegPos = 14 InstrB (endpos 1, ค่า, StringTobyte (ประเภทเนื้อหา :))

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

midvalue = midb (ค่า, begpos, endpos - begpos)

Intdict.Add ContentType, TRIM (BytetOstring (midvalue))

Begpos = endpos 4

endpos = lenb (ค่า)

NAMEVALUE = MIDB (ค่า, begpos, ((endpos - begpos) - 1))

อื่น

NAMEVALUE = TRIM (bytetOstring (MIDB (ค่า, nvalue 5)))))

สิ้นสุดถ้า

ถ้า isvalid = true แล้ว

Intdict.add value, namevalue

Intdict.add Name, Namen

dict.add bytetostring (namen), intdict

สิ้นสุดถ้า

สิ้นสุดถ้า

currentpos = lenseparator instrbyte

ใช้

สิ้นสุดย่อย

ชั้นเรียนจบ

ฟังก์ชั่นส่วนตัว StringTobyte (TONCONV)

อุณหภูมิหรี่

สำหรับ i = 1 ถึง len (toconv)

tempchar = mid (tonconv, i, 1)

StringTobyte = StringTobyte & Chrb (ASCB (Tempchar))

ต่อไป

ฟังก์ชันสิ้นสุด

ฟังก์ชั่นส่วนตัว bytetostring (TONCONV)

สำหรับ i = 1 ถึง lenb (tonconv)

BytetOstring = BytetOstring & Chr (ASCB (MIDB (TONCONV, I, 1))))

ต่อไป

ฟังก์ชันสิ้นสุด

-

1. ส่วนต่อประสานผู้ใช้:

<ภาษาสคริปต์ = JavaScript>

ฟังก์ชั่นตรวจสอบ (แบบฟอร์ม)

{สำหรับ (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>

<รูปแบบวิธี = โพสต์การกระทำ = del.asp name = form1>

<table>

<tr>

<td> <อินพุตประเภท = ค่ากล่องทำเครื่องหมาย = 111 name = tradename> อีเมล 1 </td>

</tr>

<tr>

<td> <อินพุตประเภท = ค่ากล่องทำเครื่องหมาย = 111 name = tradename> อีเมล 2 </td>

</tr>

<tr>

<td> <อินพุตประเภท = ค่ากล่องทำเครื่องหมาย = 111 name = tradename> อีเมล 3 </td>

</tr>

<tr>

<td> <อินพุตประเภท = ค่ากล่องทำเครื่องหมาย = 111 name = tradename> อีเมล 4 </td>

</tr>

<tr>

<td> <อินพุตประเภท = ค่ากล่องทำเครื่องหมาย = 111 name = tradename> อีเมล 5 </td>

</tr>

<tr>

<td> <อินพุตประเภท = ค่ากล่องทำเครื่องหมาย = 111 name = tradename> อีเมล 6 </td>

</tr>

<tr>

<td bgcolor =#f1fbfc ความสูง = 25 colspan = 2>

<p Align = ซ้าย> <อินพุตประเภท = ชื่อช่องทำเครื่องหมาย = chkall value = on onClick = checkall (this.form)> <font color =#ff9900> เลือกข้อความที่แสดงทั้งหมด </font> </p>

</td>

<enter>

</tr>

</table>

</form>

2. ลบไฟล์ del.asp

-

'บรรทัดนี้เขียนรหัสที่เชื่อมต่อกับฐานข้อมูล

สลัว id, strid

strid =

สำหรับแต่ละ strid ใน request.form (tradename)

id = cint (strid)

ถ้า strid <> แล้ว

delrs = server.createObject (adodb.recordset)

conn.execute ลบจาก tbname โดยที่ id = & cstr (id)

strid =

สิ้นสุดถ้า

ต่อไป

conn.close

ตั้งค่า conn = ไม่มีอะไร

Response.redirect ถูกลบไปแล้ว!

-