Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > upload to database ส่งรหัสรถไปฟอร์ม uploadpic.asp Then Set fs=Server.CreateObject("Scripting.FileSystemObject") Set

[ASP] upload to database ส่งรหัสรถไปฟอร์ม uploadpic.asp Then Set fs=Server.CreateObject("Scripting.FileSystemObject") Set

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

Guest

ส่งรหัสรถไปฟอร์ม uploadpic.asp
<a href="uploadpic.asp?car=<%=rs("carid")%>">edit picture</a>

----------------------------------------------------------------
uploadpic.asp

<%car=request("car")%>
<form name="form1" method="post" action="uploadpic1.asp" enctype="multipart/form-data">
<input type="text" name="car" value=<%=car%>><br>
<input type="file" name="file">
<input type="submit" name="Submit" value="Uploads">
</form>

----------------------------------------------------------------
uploadpic1.asp

<html>
<body bgcolor="#FFFFFF">
<%
bytecount=Request.TotalBytes
If bytecount<80000 Then
%>

<%
filename=uploaddata.Item("file").Item("filename")
pos_filebegin=InStrRev(filename,"\")
pos_fileend=Len(filename)
filename_new=Mid(filename,pos_filebegin+1,pos_fileend-pos_filebegin)

If Instr(filename_new,".jpg")<>0 Or Instr(filename_new,".gif")<>0 Or Instr(filename_new,".jpeg")<>0 Then

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set uploadfile=fs.CreateTextFile(Server.Mappath("pic"&"/"&filename_new))
uploadfile.Write uploaddata.Item("file").Item("value")

Response.write(" Uploads ไฟล์สำเร็จ")
Response.write("<br> ไฟล์ชื่อ" &filename_new)

uploadfile.Close
set fs=Nothing

Else
%>
กรุณาเลือก file นามสกุล .gif , .jpg , และ .jpeg เท่านั้น
<br>
กลับไปแก้ไข <a href="javascript:history.back()">คลิ๊กที่นี่</a>
<%
End If
Else
%>
ขนาดไฟล์เกิน80 KB กรุณาเลือกไฟล์ใหม่<br>
<br>
กลับไปแก้ไข<a href="javascript:history.back()">คลิ๊กที่นี่</a>
<%
End If
%>

</body>
</html>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open Server.MapPath("db\database.mdb")
Sql="Select * from product '"
Set rs=Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
idcar=request.QueryString("car")
filename_new = "pic\"+filename_new

rs("pic")=filename_new
rs.update
rs.close
%>
<a href="index.asp">home</a>

Tag : - - - -

Date : 1 มี.ค. 2549 14:37:03

By : sontiwaree

View : 2477

Reply : 1

No. 1

Guest

ต้องการให้ได้ ชื่อรูป เก็บลงฐานข้อมูลตรงกับ รหัสรถครับ
แต่อันนี้จะเก็บได้เฉพาะ เรคคอร์ดที่อยู่บนสุดอ่ะคับ
ต้องทำไงช่วยทีนะครับ ติดมานานมากครับ ขอบคุณครับ

Date : 1 มี.ค. 2549 14:43:04

By : sontiwaree

ค้นหาข้อมูล

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

Re : upload to database ส่งรหัสรถไปฟอร์ม uploadpic.asp Then Set fs=Server.CreateObject("Scripting.FileSystemObject") Set

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); [ASP] upload to database ส่งรหัสรถไปฟอร์ม uploadpic.asp Then Set fs=Server.CreateObject("Scripting.FileSystemObject") Set

No. 1

ค้นหาข้อมูล

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

Notice

[ASP] upload to database ส่งรหัสรถไปฟอร์ม uploadpic.asp Then Set fs=Server.CreateObject("Scripting.FileSystemObject") Set