Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > ทำยังไงถึงจะปิด read only ของ xp pack2 ได้ครับ ผมทำไม่ได้

ทำยังไงถึงจะปิด read only ของ xp pack2 ได้ครับ ผมทำไม่ได้

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

Guest

ผมลองเขียนโค้ดให้มัน อัพโหลดรูปภาพลงแฟ้ม กับเก็บพาธเอาไว้ในฐานข้อมูล
เวลาที่รันแล้วนี่ จะ error ครับ แต่ในโฟลเดอร์ที่เก็บรูป มีรูปอยู่0 byte เหมือนกับว่ามัน
พยายามจะเขียนลง แต่ทำไม่ได้

อ.บอกว่ามันน่าจะเกี่ยวกับ read only แต่เวลาที่ผมคลิกเอา read only ออก แล้วปิดไป พอเรียก property ขึ้น
มาใหม่ มันก็ยังมีอยู่อ่ะครับ แก้ไม่ได้
ทั้งๆที่ชื่อ user ก็เป็น admin นะครับ

ใครรู้วิธี set ช่วยบอกด้วยครับ
ขอบคุณฮ้าบบบ

add_product.asp+++++++++++++++++++++++++


<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
</head>

<body>
<form action="act_add_product.asp" method="post" enctype="multipart/form-data" name="form1">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="16%"> </td>
<td width="27%"> </td>
<td width="31%"> </td>
<td width="26%"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="40"> </td>
<td>ÃËÑÊÊÔ¹¤éÒ</td>
<td><div align="left"><font size="2">
<input name = product_id type = text id="product_id2" onKeyPress="return keyCheck(event, this)" size="30" maxlength="10">
<br>
</font></div></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>ª×èÍÊÔ¹¤éÒ</td>
<td><font size="2">
<input name = product_name type = text id="product_name6" onKeyPress="return keyCheck(event, this)" size="30" maxlength="10">
<br>
<br>
</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>ÃÒÂÅÐàÍÕÂ´</td>
<td><font size="2">
<textarea name = product_detail cols = 60 rows = 7 id="textarea"></textarea>
<br>
</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>ÃÙ»ÀÒ¾</td>
<td><font size="2">
<INPUT name="blob" TYPE="file" class="input_button3" size="30">
<br>
<br>
</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>¡ÅØèÁ</td>
<td><font size="2">
<%
Sql="Select * From group_product"
Set Rs1=conn.execute(sql)
%>
<select name="select" >
<option>Select Group Product</option>
<%while Not Rs1.EOF%>
<option value=<% =Rs1("group_product_id")%>>
<% =Rs1("group_product")%>
</option>
<%
Rs1.MoveNext
wend
rs1.close
%>
</select>
<br>
<br>
</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>¨Ó¹Ç¹µèÓÊØ´</td>
<td><font size="2">
<input name = product_stock_min type = text id="product_stock_min" onKeyPress="return keyCheck(event, this)" size="30" maxlength="10">
<br>
<br>
</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>¨Ó¹Ç¹ÊÙ§ÊØ´</td>
<td><font size="2">
<input name = product_stock_max type = text id="product_stock_max" onKeyPress="return keyCheck(event, this)" size="30" maxlength="10">
<br>
<br>
</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>¨Ó¹Ç¹·Õèá¹Ð¹Ó</td>
<td><font size="2">
<input name = product_stock_advise type = text id="product_stock_advise2" onKeyPress="return keyCheck(event, this)" size="30" maxlength="10">
<br>
<br>
</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>ÃÐÂÐàÇÅÒÃÑº»ÃÐ¡Ñ¹</td>
<td><font size="2">
<input name = product_guarantee type = text id="product_guarantee" onKeyPress="return keyCheck(event, this)" size="30" maxlength="10">
<br>
<br>
</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td><input name="submit" type = submit value = "ºÑ¹·Ö¡¢éÍÁÙÅ" class="input_button3" >
   <input name="reset" type = reset value = "Åº¢éÍÁÙÅ" class="input_button3"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

act_add_product.asp++++++++++++++++++++++++++++++

<head>
<style>

</style>
</head>
<%

if uploaddata.Item("product_id").Item("value")="" or _
uploaddata.Item("product_name").Item("value")="" or _
uploaddata.Item("product_detail").Item("value")="" or _
uploaddata.Item("blob").Item("value")="" or _
uploaddata.Item("select").Item("value")="" or _
uploaddata.Item("product_stock_min").Item("value")="" or _
uploaddata.Item("product_stock_max").Item("value")="" or _
uploaddata.Item("product_stock_advise").Item("value")="" or _
uploaddata.Item("product_guarantee").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("file/"&filename_new))
uploadfile.write uploaddata.Item("blob").Item("value")
uploadfile.close

filename_new="file\"&filename_new
userid = session("uname")
sql2 = "Select * from product where product_id='"&uploaddata.Item("product_id").Item("value")&"'"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql2, conn, 1,3
if (Rs1.EOF) Then
sql="select * from product"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1,3
if rs.recordcount <> 0 then
rs.addnew
rs("product_id")=uploaddata.Item("product_id").Item("value")
rs("product_name")=uploaddata.Item("product_name").Item("value")
rs("product_detail")=uploaddata.Item("product_detail").Item("value")
rs("product_pics")=filename_new
rs("product_stock_min")=uploaddata.Item("product_stock_min").Item("value")
rs("product_stock_max")=uploaddata.Item("product_stock_max").Item("value")
rs("product_stock_advise")=uploaddata.Item("product_stock_advise").Item("value")
rs("product_guarantee")=uploaddata.Item("product_guarantee").Item("value")
rs.Update
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=picturs/icon_mini_register.gif >ºÑ¹·Ö¡¢éÍÁÙÅà¢éÒÊÙèÃÐººàÃÕÂºÃéÍÂáÅéÇ "
.Write "</td></tr></table>"
.Write "</td></tr></table>"
End With
rs.close
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
%>

<%
'-- ¿Ñ§¤ìªÑè¹à»ÅÕèÂ¹ ¢éÍ¤ÇÒÁ à»ç¹ ¢éÍÁÙÅäº¹ÒÃÕ --
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

'-- ¡ÓË¹´¡ÒÃãªé Dictionary ·ÓãËéà¡çº¢éÍÁÙÅä´éÁÒ¡¤ÅéÒÂ¡Ñº 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")

'--µÑ´ª×èÍ (ª×èÍµÑÇá»Ã¢Í§ªèÍ§) ªèÍ§¡ÃÍ¡¢éÍÁÙÅ§·Ø¡ÃÙ»áºº àªè¹ textbox radio combobox à»ç¹µé¹ --
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

'---¢éÍÁÙÅà»ç¹ª¹Ô´ä¿ÅìÍÑ¾âËÅ´ ãËé·Ó¡ÒÃµÑ´ª×èÍä¿ÅìÍÍ¡ÁÒ (ª×èÍä¿Åìà»ç¹ Value ¢Í§µÑÇÍÑ¾âËÅ´ä¿Åì)--
pos_filebegin = pos_file + 10
pos_fileend = InstrB(pos_filebegin,data,TextToBinary(chr(34)))
filename = BinaryToText(MidB(data,pos_filebegin,pos_fileend - pos_filebegin))

'--à¡çº¢éÍÁÙÅª×èÍä¿ÅäÇéã¹ÍÍºà¨ç¤ Dictionary--
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))

'--à¡çº¢éÍÁÙÅ ª¹Ô´¢Í§ä¿Åì·ÕèÍÑ¾âËÅ´ (Content - Type) ã¹ÍÍºà¨ç¤ 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))

'--à¡çº¢éÍÁÙÅÀÒÂã¹ä¿ÅìÃÙ»ÀÒ¾ Å§ã¹ÍÍºà¨ç¤ Dictionary--
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))

'--à¡çº¢éÍÁÙÅÀÒÂã¹ä¿Åì·ÑèÇä» Å§ã¹ÍÍºà¨ç¤ Dictionary--
sub_uploaddata.add "value",value

end if

'-- à¡çº¢éÍÁÙÅ·Ñé§ËÁ´Å§ã¹ Dictionary ª×èÍ uploaddata--
uploaddata.add name,sub_uploaddata

'--à»ÅÕèÂ¹µÓáË¹è§ Header ä»ÂÑ§¢éÍÁÙÅ¶Ñ´ä»(¶éÒËÒ¡ÁÕ) â´Â·Ó¡ÒÃÇ¹ÅÙ»àªç¤à§×èÍ¹ä¢--
pos_header = InstrB(pos_header+LenB(header),data,header)
loop
%>

Tag : - - - -

Date : 2 พ.ย. 2547 10:34:56

By : gototon

View : 3973

Reply : 2

No. 1

Guest

คือ ถ้าทำได้ไงก็มาบอกผมหน่อยนะ ต้องไปเซ็ทที่ตัว Security ครับ ที่ละ Step นะ

1. คลิ๊กขวาที่โฟล์เดอร์ที่ฐานข้อมูลของเรา เข้า Properties

2. คุณเห็นแท็บ Security ไหมครับ (ถ้าเกิดไม่เห็นข้ามไปข้อที่ 5)

3. กำหนดสิทธ์ให้แก่ผู้ใช้ตามสะดวก ไม่ว่าจะเป็น Read Write Modify อื่นๆ

4. ปิดโฟล์เดอร์แล้วลอง อัพโหลดดูอีกครั้ง

5. หากคุณยังไม่เจอแท็บ Security ให้ทำตามนี้

6. เปิด Mycomputer ขึ้นมา

7. ในเมนูTools ให้เลือก Folders Options

8. ในที่นี้จะมี General View FileTypes Offline.....

9. ให้เลือก View

10. ในช่องให้ติ๊กเครื่องหมายถูกที่ User simple file sharing (Recommended) ออกไปซะ

11.กด Ok

12. ย้อนกลับไปทำตามขั้นตอยที่ 1 อีกครั้ง

หวังว่าคุณคงจะทำได้นะครับ แต่ถ้าทำไม่ได้ยังไงก็มาบอกแล้วกัน บายๆๆๆ

คติพจน์:เมื่อรู้จักรับความรู้ จงรู้จักให้ความรู้กับผู้อื่น (ดัดแปลงมาจาก pantip.com)

Date : 3 พ.ย. 2547 12:54:26

By : NimKab

No. 2

gototon

โพสกระทู้ ( 96 )
บทความ ( 0 )

ขอบคุณฮ้าบ....

ทำได้แล้วครับ

thank you very much !!!

Date : 6 พ.ย. 2547 10:15:46

By : gototon

ค้นหาข้อมูล

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

Re : ทำยังไงถึงจะปิด read only ของ xp pack2 ได้ครับ ผมทำไม่ได้

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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