 |
|
โค้ดที่ผมอัพโหลดขึ้นเป็นแบบนี้ แล้วผมจะแทรกโค้ดที่เป็นวันเวลาปัจจุบันเพื่อไม่ให้ไฟล์ซ้ำกันตรงไหนครับ ช่วยบอกด้วยครับ ขอบคุณมากครับ (ขอบคุณไว้ก่อน  )
-----------------------------###########################33-----------------------------
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
Temple_ID=UploadFormRequest("Temple_ID")
Near_Name=UploadFormRequest("Near_Name")
Discription=UploadFormRequest("Discription")
Img1=UploadFormRequest("Img1")
'-------------------------------------------------------------------
AF_keys = UploadRequest.Keys
Dim imgFileName(), imgMaxFileSize
Redim imgFileName(UploadRequest.Count)
imgMaxFileSize = 1000 * 1024
for AF_i = 0 to UploadRequest.Count - 1
AF_curKey = AF_keys(AF_i)
if UploadRequest.Item(AF_curKey).Item("FileName") <> "" then
AF_valueLen = UploadRequest.Item(AF_curKey).Item("ValueLen")
select case LCase(Right(UploadRequest.Item(AF_curKey).Item("FileName"), 3))
case "gif", "jpg", "png"
'Warning if file size is 0 byte
if AF_valueLen = 0 then
Response.Write "<B>An error has occured saving uploaded file!</B><br><br>"
Response.Write "Filename: " & Trim(AF_curPath) & UploadRequest.Item(AF_curKey).Item("FileName") & "<br>"
Response.Write "File does not exists or is empty.<br>"
Response.Write "Please correct and <A HREF=""javascript:history.back(1)"">try again</a>"
Response.End
'Response.Redirect("../error_nopic.asp")
end if
'Warning if file size is more than max one
if AF_valueLen > imgMaxFileSize then
Response.Write "<B>An error has occured saving uploaded file!</B><br><br>"
Response.Write "Filename: " & Trim(AF_curPath) & UploadRequest.Item(AF_curKey).Item("FileName") & "<br>"
Response.Write "File size (" & FormatNumber(AF_valueLen,0) & " Bytes) is more than max file size (" & FormatNumber(imgMaxFileSize,0) & " Bytes).<br>"
Response.Write "Please correct and <A HREF=""javascript:history.back(1)"">try again</a>"
Response.End
'Response.Redirect("../error_piclimit.asp")
end if
case else
Response.Write "<B>An error has occured saving uploaded file!</B><br><br>"
Response.Write "Filename: " & Trim(AF_curPath) & UploadRequest.Item(AF_curKey).Item("FileName") & "<br>"
Response.Write "File extensions should only be ""gif, jpg, png"".<br>"
Response.Write "Please correct and <A HREF=""javascript:history.back(1)"">try again</a>"
Response.End
'Response.Redirect("../error_pictype.asp")
end select
end if
next
'-------------------------------------------------------------------
for AF_i = 0 to UploadRequest.Count - 1
AF_curKey = AF_keys(AF_i)
'Save all uploaded files
if UploadRequest.Item(AF_curKey).Item("FileName") <> "" then
AF_value = UploadRequest.Item(AF_curKey).Item("Value")
AF_valueBeg = UploadRequest.Item(AF_curKey).Item("ValueBeg")
AF_valueLen = UploadRequest.Item(AF_curKey).Item("ValueLen")
'Create a Stream instance
Dim AF_strm1, AF_strm2
Set AF_strm1 = Server.CreateObject("ADODB.Stream")
Set AF_strm2 = Server.CreateObject("ADODB.Stream")
'Open the stream
AF_strm1.Open
AF_strm1.Type = 1 'Binary
AF_strm2.Open
AF_strm2.Type = 1 'Binary
AF_strm1.Write RequestBin
AF_strm1.Position = AF_ValueBeg
AF_strm1.CopyTo AF_strm2,AF_ValueLen
'Create and Write to a File
AF_curPath = Request.ServerVariables("PATH_INFO")
AF_curPath = Trim(Mid(AF_curPath,1,InStrRev(AF_curPath,"/")) & "")
if Mid(AF_curPath,Len(AF_curPath),1) <> "/" then
AF_curPath = AF_curPath & "/"
end if
on error resume next
'------
Dim imgFolderName, imgFolderFileName
Dim fs
'กำหนดพาธของไฟลEูปภาพ สำหรับจัดเก็บรูปภาพสินค้า
imgFolderName = Server.Mappath("Picture1")
'กำหนดชื่อพาธ และชื่อไฟลEนเซิรEเวอรE
imgFolderFileName = imgFolderName & "\" & UploadRequest.Item(AF_curKey).Item("FileName")
'ตรวจสอบว่าชื่อไฟลEีEupload ซ้ำหรือไมEหากซ้ำจะไม่ใหEupload
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(imgFolderFileName) Then
Response.Write "<B>An error has occured saving uploaded file!</B><br><br>"
Response.Write "Filename: <font color='#FF0000'>[" & UploadRequest.Item(AF_curKey).Item("FileName") & "]</font><br>"
Response.Write "It duplicates the existing file.<br>"
Response.Write "Please correct and <A HREF=""javascript:history.back()"">try again</a>"
Response.End
'Response.Redirect("../error_exitpic.asp")
End If
Set fs = Nothing
'บันทึกไฟลEูปภาพสินค้าลงในโฟลเดอรEี่กำหนดไวE
AF_strm2.SaveToFile imgFolderFileName,2
'------
end if
next
'-------------------------------------------------------------------
if Near_Name <> session("Near_Name") and Img1 <> session("Img1") then
adminprorect=False
adminalldata=2
else
adminprorect=True
adminalldata=1
end if
if adminprorect <> true and Near_Name <>"" and Img1 <>"" then
strsql="Select * From Near_Station WHERE Near_Name='"&Near_Name&"'"' and Abbot_Pic='"Abbot_Pic&"'"
Set rs1=strcon.execute(strsql)
if not rs1.eof then
adminallmember=1
else
adminallmember=0
end if
rs1.close
Set rs1=Nothing
if adminallmember=0 then
Set rs=Server.CreateObject("ADODB.Recordset")
strsql="Select * From Near_Station order by Near_ID"
rs.open strsql,strcon,1,3
rs.Addnew
rs("Near_Name")=Near_Name
rs("Discription")=Discription
rs("Img1")=Img1
rs("Temple_ID")=Temple_ID
rs.Update
rs.Close
strcon.Close
Set rs=Nothing
Set strcon=Nothing
adminstate=1
session("Near_Name")=Near_Name
session("Img1")=Img1
end if
end if
%>
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
9 ก.พ. 2549 10:19:34 |
By :
M.soontoon |
View :
2915 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
