Set ScriptObject = server.CreateObject("Scripting.FileSystemObject")
'upload ได้เฉพาะ jpg เท่านั้น
if instr(filename,"jpg") = 0 then
Response.Redirect("errupload.asp?errtype=upload ได้เฉพาะ jpg เท่านั้น")
end if
'ตรวจสอบว่าไฟล์ซ้ำหรือไม่
if (ScriptObject.FileExists(filepath &"\"& filename)) then
Response.Redirect("errupload.asp?errtype=ผิดผลาดไฟล์ช้ำ")
end if
'ตรวจสอบว่ามีไฟล์หรือไฟล์มีขนาดเป็นศูนย์หรือไม่
if lenB(value) = 0 then
Response.Redirect("errupload.asp?errtype=ผิดพลาด ไม่มีไฟล์นี้/ขนาดเป็นศูนย์")
end if
'ตรวจสอบว่าไฟล์มีขนาดใหญ่กว่า 30k หรือไม่
LimitSize = 50*1024 '=30KByte
if lenB(value) > limitsize then
Response.Redirect("errupload.asp?errtype=ผิดพลาด ขนาดไฟล์ใหญ่กว่า 30 Kbyte")
end if
'เริ่มการ upload file
set fileObj = ScriptObject.CreateTextFile(filepath &"\"& filename,true)
for i=1 to lenB(value)
fileObj.Write(chr(AscB(MidB(value,i,1))))
next
fileObj.Close
if warranty_y <> "" or warranty_d <> "0" then
warranty = cint((Warranty_y*12)) + Warranty_d
end if
set ProRS = server.CreateObject ("ADODB.Recordset")
ProSQL = "SELECT * FROM Product ORDER BY ProID DESC"
ProRS.Open ProSQL,conn,1,3
if ProRS.RecordCount = 0 then
ProID = "P00001"
else
'กำหนดรหัสสินค้า โดยใช้คำสั่ง Right เอาเฉพาะค่าตัวเลข 5 หลัก และใช้คำสั่ง Cint แปลง string เป็น integer แล้วบวกด้วย 1
ID = Cint(Right(ProRS("ProID"),5)) + 1
'หาความยาวของตัวเลขท้าย แล้วเติม 0 ด้านหน้าให้ครบ 5 หลัก
for i = 1 to (5 - len(ID))
ID = "0" & CStr(ID)
next
'กำหนดค่ารหัสสินค้า โดยเติม P ไว้ที่หน้าสุด
ProID = "P" & ID
end if
ProRS.AddNew
ProRS("ProID") = ProID
ProRS("ProName") = name
if color <> "" then
ProRS("ProColor") = color
end if
ProRS("ProPic") = "D:\MusicShop\shop\pic\product\" & filename
ProRS("ProQuantity") = qty
ProRS("ProWage") = wage
ProRS("ProCost") = cost
ProRS("ProPrice") = price
ProRS("ProWarranty") = warranty
if discount = "" then
ProRS("ProDiscount") = 0
else
ProRS("ProDiscount") = discount
end if
ProRS("ProDetail") = detail
ProRS("BrandID") = brand
ProRS("CateID") = cate
ProRS.Update
'ปิดการเชื่อมโยงและคืนทรัพยากรสู่ระบบ
ProRS.Close
set ProRS = nothing
set conn = nothing
Load balance : Server 05
