Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > มีปัญหากับการ upload รูปภาพ ปัญหาคือ uploads แล้วติด Error Type: Microsoft VBScript runtime (0x800A0046) Permission denied /

มีปัญหากับการ upload รูปภาพ ปัญหาคือ uploads แล้วติด Error Type: Microsoft VBScript runtime (0x800A0046) Permission denied /

เริ่มหัวข้อใหม่

Guest

ปัญหาคือ uploads แล้วติด

Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/project/act_add_member.asp, line 22

*** หน้า form คือ ** member.asp

<%session("id")=1200100096579
Set Rs=Server.CreateObject("ADODB.Recordset")
SQL="Select * From sq_file Where sqp_id='1200100096579'"
Rs.Open Sql,conn,1,3
%>
<form action = "act_add_member.asp" method = "post" enctype="multipart/form-data">
<table width='80%' border=0 align=center cellpadding=1 cellspacing=1>
<tr>
<td bgcolor=#ffffff align=center> <Br>
<table width="402" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#eeeeee">
<td colspan="2" align="center"> <img src="file:///D|/all%20project/gift/picturs/xx.gif" width="13" height="16">
ÊÁÑ¤ÃÊÁÒªÔ¡ </td>
</tr>
<tr>
<td width="131" height="24"><font color="#000000" size="2">ชื่อ</font></td>
<td width="263"><font size="2">
<input name = name type = text id="name" value="<%=Rs("sq_name")%>" size="15" maxlength="25">
<font color="#FF0000">* </font></font></td>
</tr>
<tr>
<td><font size="2">รูปภาพfont></td>
<td><font size="2">
<INPUT name="blob" TYPE="file" class="input_button3" size="20">
</font></td>
</tr>
<tr>
<td colspan="2" align="center"><input name="submit" type = submit value = "ADD" class="input_button3" >
   <input name="reset" type = reset value = "Clear" class="input_button3">
</td>
</tr>
</table>

**** หน้ารับ ***** act_add_member.asp

<%

if uploaddata.Item("name").Item("value")="" or _
uploaddata.Item("blob").Item("value")="" then

response.write"<center><input type=button class=input_button3 value='¡¡ÃÍ¡¢éÍÁÙÅäÁè¤Ãº ¡ÅÑºä»¡ÃÍ¡¢éÍÁÙÅãËÁ!!' onClick='history.go(-1)' ></center>"
else

filename = uploaddata.item("blob").item("filename") '--ÍéÒ§¶Ö§ª×èÍ¢Í§ ªèÍ§ÃÑºÊè§¢éÍÁÙÅáÅéÇµÒÁ´éÇÂ ¤èÒ value ËÃ×Í filename(¶éÒËÒ¡¢éÍÁÙÅà»ç¹ªèÍ§Êè§ÃÙ»ÀÒ¾)--
pos_filebegin = InStrRev(filename,"\")
pos_fileend = Len(filename)
filename_new = Mid(filename,pos_filebegin+1,pos_fileend - pos_filebegin)
set fs = Server.CreateObject("Scripting.FileSystemObject")
set uploadfile = fs.CreateTextFile(Server.MapPath("image/student/"&filename_new))
uploadfile.write uploaddata.Item("blob").Item("value")
uploadfile.close

filename_new="image\student\"&filename_new
userid = session("id")
sql2 = "Select * from sq_file where sq_name='"&uploaddata.Item("name").Item("value")&"'"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql2, conn, 1,3
if (Rs1.EOF) Then
sql="select * from sq_file"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1,3
if rs.recordcount <> 0 then
rs.addnew
rs("sq_name")=uploaddata.Item("name").Item("value")
rs("path_pic")=filename_new
rs.Update
rs.close

conn.close
With Response
.Write "<br><br><table align=center width=400 cellspacing=0 cellpadding=0 bgcolor=#ff6600><tr><td>"
.Write "<table align=center border=0 width='100%' cellpadding=1 cellspacing=1>"
.Write "<tr><td bgcolor=#ffffcc align=center>"
.Write "<b>Status : </b>  <IMG SRC=picture/icon_mini_register.gif >ºÑ¹·Ö¡¢éÍÁÙÅà¢éÒÊÙèÃÐººàÃÕÂºÃéÍÂáÅéÇ "
.Write "</td></tr></table>"
.Write "</td></tr></table>"
End With

else
end if
else
With Response
.Write "<br><br><table align=center width=400 cellspacing=0 cellpadding=0 bgcolor=#ff6600><tr><td>"
.Write "<table align=center border=0 width='100%' cellpadding=1 cellspacing=1>"
.Write "<tr><td bgcolor=#ffffcc align=center>"
.Write "<b>Status : </b>  ÃËÑÊ¹Õéä´é·Ó¡ÒÃÊÁÑ¤ÃáÅéÇ¤ÃÑº"
.Write "</td></tr></table>"
.Write "</td></tr></table>"
End With
rs1.close
end if
end if
%>

*** ตัว upload **** getuploaddata.asp

<%
Function TextToBinary(text)
for i = 1 to Len(text)
character = mid(text,i,1)
TextToBinary = TextToBinary & ChrB(Asc(character))
next
End Function

Function BinaryToText(Binary)
BinaryToText=""
for i =1 to LenB(Binary)
character = MidB(Binary,i,1)
BinaryToText = BinaryToText & Chr(AscB(character))
next
End Function

Array --
set uploaddata = CreateObject("Scripting.Dictionary")

data = request.BinaryRead(request.TotalBytes)
posend = InstrB(1,data,TextToBinary(chr(13)))
header = MidB(data,1,posend-1)

endheader = header & TextToBinary("---")
pos_header = 1
pos_endheader = InstrB(1,data,endheader)

Do While pos_header <> pos_endheader

set sub_uploaddata = CreateObject("Scripting.Dictionary")

pos_name = InstrB(pos_header,data,TextToBinary("name="))
pos_namebegin = pos_name + 6
pos_nameend = InstrB(pos_namebegin,data,TextToBinary(chr(34)))
name = BinaryToText(MidB(data,pos_namebegin,pos_nameend - pos_namebegin))

pos_file = InstrB(pos_nameend,data,TextToBinary("filename"))
enddata = InstrB(pos_nameend,data,header)
if (pos_file <> 0) and (pos_file < enddata) then

pos_filebegin = pos_file + 10
pos_fileend = InstrB(pos_filebegin,data,TextToBinary(chr(34)))
filename = BinaryToText(MidB(data,pos_filebegin,pos_fileend - pos_filebegin))

sub_uploaddata.add "filename", filename

pos_content = InstrB(pos_fileend,data,TextToBinary("Content-Type:"))
pos_contentbegin = pos_content + 14
pos_contentend = InstrB(pos_contentbegin,data,TextToBinary(chr(13)))
contenttype = BinaryToText(MidB(data,pos_contentbegin,pos_contentend - pos_contentbegin))

Dictionary--
sub_uploaddata.add "contenttype", contenttype

pos_valuebegin = pos_contentend + 4
pos_valueend = InstrB(pos_valuebegin,data,header) - 2
value = BinaryToText(MidB(data,pos_valuebegin,pos_valueend - pos_valuebegin))

sub_uploaddata.add "value",value

else

pos_valuebegin = pos_nameend + 5
pos_valueend = InstrB(pos_valuebegin,data,header) - 2
value = BinaryToText(MidB(data,pos_valuebegin,pos_valueend - pos_valuebegin))

sub_uploaddata.add "value",value

end if

uploaddata.add name,sub_uploaddata

pos_header = InstrB(pos_header+LenB(header),data,header)
loop
%>

Tag : - - - -

Date : 25 ส.ค. 2548 21:54:32

By : mido22

View : 2559

Reply : 1

No. 1

Guest

โหย ยาวจังขี้เกียจอ่าน

ผมว่าคงเกี่ยวกับการกำหนด การเข้าถึง folder ที่ใช้เก็บรูปครับ ต้องไปกำหนดให้ เป็นแบบอ่าน-เขียนได้ (ปกติจะเป็นแบบอ่านอย่างเดียว)

แต่ไม่แน่ใจนะครับว่า server เป็น linux หรือ windows แล้วจะกำหนดยังไง

ผมใช้ linux server ก็จะไปกำหนด permission ของ folder นั้นผ่านโปรแกรม FTP โดยกำหนดเป็น 777 ครับ

Date : 26 ส.ค. 2548 02:26:23

By : prayat_multi

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : มีปัญหากับการ upload รูปภาพ ปัญหาคือ uploads แล้วติด Error Type: Microsoft VBScript runtime (0x800A0046) Permission denied /

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); มีปัญหากับการ upload รูปภาพ ปัญหาคือ uploads แล้วติด Error Type: Microsoft VBScript runtime (0x800A0046) Permission denied /

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

มีปัญหากับการ upload รูปภาพ ปัญหาคือ uploads แล้วติด Error Type: Microsoft VBScript runtime (0x800A0046) Permission denied /