 |
| |
[ASP]
กำหนดขนาดและประเภทของไฟล์ If bytecount<80000 Then ' กำหนดขนาดไฟล์ไม่เกิน 80 K ผมต้องการกำหนดขนาดไฟล์เปน 80 M หรือ 80 G |
| |
 |
|
|
 |
 |
|
Remark this code
'If Instr(filename_new,".jpg")<>0 Or Instr(filename_new,".gif")<>0 Or Instr(filename_new,".jpeg")<>0 Then ' กำหนด ประเภทของไฟล์ที่จะ สามารถ uploads ได้
|
 |
 |
 |
 |
| Date :
30 พ.ค. 2551 09:10:06 |
By :
Rac |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
<%
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)
' กำหนด ประเภทของไฟล์ที่จะ สามารถ uploads ได้
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("picture"&"/"&filename_new))
uploadfile.Write uploaddata.Item("file").Item("value")
Response.write(" Uploads ไฟล์สำเร็จ ")
Response.write("<br> ไฟล์ชื่อ " &filename_new)
%>
|
| |
|
|
| |
| Date :
30 พ.ค. 2551 09:24:06 |
By :
puan64 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อยากรู้ข้อมูลเกี่ยวกับผังงาน end , if
|
| |
|
|
| |
| Date :
30 พ.ค. 2551 09:39:31 |
By :
เอกสิทธิ์ วรรณกิจ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
<%
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)
' กำหนด ประเภทของไฟล์ที่จะ สามารถ uploads ได้
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("picture"&"/"&filename_new))
uploadfile.Write uploaddata.Item("file").Item("value")
Response.write(" Uploads ไฟล์สำเร็จ ")
Response.write("<br> ไฟล์ชื่อ " &filename_new)
%>
<a href="download.aspx"><br>
ดูไฟล์ทั้งหมด</a>
<%
' หากต้องการ นำชื่อไฟล์ไปเก็บใว้ในฐานข้อมูล ให้ทำการ Add ชื่อไฟล์ filename_new ลงในฐานข้อมูล จากนั้นเมื่อต้องการนำรูปภาพมาแสดง
' ให้อ้างอิง Path Picture/filename_new
uploadfile.Close
set fs=Nothing
Else
%>
กรุณาเลือกไฟล์นามสกุล .jpg , .gif หรือ .jpeg เท่านั้น <br>
กลับไปแก้ไข <a href="javascript:history.back()">คลิกที่นี่</a>
<%
End If
Else
%>
ขนาดไฟล์เกิน 80000 KB กรุณาเลือกไฟล์ใหม่<br>
<br>
กลับไปแก้ไข <a href="javascript:history.back()">คลิกที่นี่</a>
<%
End If
%>
|
| |
|
|
| |
| Date :
30 พ.ค. 2551 10:02:03 |
By :
puan64 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
มันต้องมี if ก่อนหน้านี้อีก หนึ่งอันครับ เอามาด้วย
เพื่อแก้ไขการกำหนดขนาด
ส่วนการกำหนด ชนิด ให้คุณ รีมาร์ค หรือลบคำสั่งออก ตามนี้ครับ
' กำหนด ประเภทของไฟล์ที่จะ สามารถ uploads ได้
'If Instr(filename_new,".jpg")<>0 Or Instr(filename_new,".gif")<>0 Or Instr(filename_new,".jpeg")<>0 Then
แล้วไล่ลงไปดูจนถึงส่วนนี้ ก็ลบทิ้งไปเลยครับ 6 บรรทัดนี้
Else
%>
กรุณาเลือกไฟล์นามสกุล .jpg , .gif หรือ .jpeg เท่านั้น <br>
กลับไปแก้ไข <a href="javascript:history.back()">คลิกที่นี่</a>
<%
End If
ต่อไปก็จะอัพไฟล์ได้ทุกประเภท แต่.... ยังคง 80mb เหมือนเดิม จนกว่าคุณจะไปเอา if มาอีกตัว
|
| |
|
|
| |
| Date :
30 พ.ค. 2551 13:02:40 |
By :
GTM |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
<html><style type="text/css">
<!--
body {
background-image: url();
}
-->
</style>
<body bgcolor="#FFFFFF">
<table width="696" height="990" border="1" align="center" cellspacing="0" bordercolor="#0000FF">
<tr>
<td valign="top"><br>
<table width="165" border="0" align="center">
<tr>
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="492" height="90">
<param name="movie" value="complete.swf">
<param name="quality" value="high">
<embed src="complete.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="492" height="90"></embed>
</object></td>
</tr>
</table>
<p> </p>
<%
bytecount=Request.TotalBytes
If bytecount<80000000 Then ' กำหนดขนาดไฟล์ไม่เกิน 80000 K
%>
<!--#Include File="uploads.aspx"-->
<div align="center">
<%
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)
' กำหนด ประเภทของไฟล์ที่จะ สามารถ uploads ได้
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("filedownload"&"/"&filename_new))
uploadfile.Write uploaddata.Item("file").Item("value")
Response.write(" Uploads ไฟล์สำเร็จ ")
Response.write("<br> ไฟล์ชื่อ " &filename_new)
%>
<a href="download.aspx"><br>
ดูไฟล์ทั้งหมด</a>
<%
' หากต้องการ นำชื่อไฟล์ไปเก็บใว้ในฐานข้อมูล ให้ทำการ Add ชื่อไฟล์ filename_new ลงในฐานข้อมูล จากนั้นเมื่อต้องการนำรูปภาพมาแสดง
' ให้อ้างอิง Path filedownload/filename_new
uploadfile.Close
set fs=Nothing
Else
%>
กรุณาเลือกไฟล์นามสกุล .jpg , .gif หรือ .jpeg เท่านั้น <br>
กลับไปแก้ไข <a href="javascript:history.back()">คลิกที่นี่</a>
<%
End If
Else
%>
ขนาดไฟล์เกิน 80000 KB กรุณาเลือกไฟล์ใหม่<br>
<br>
กลับไปแก้ไข <a href="javascript:history.back()">คลิกที่นี่</a>
<%
End If
%>
</td>
</tr>
</table>
</body>
</html>
เอามาให้ดูทั้งหมดเลย ช่วยตอบให้ด้วยนะคับ ขอบคุณคับ
|
| |
|
|
| |
| Date :
30 พ.ค. 2551 15:27:09 |
By :
puan64 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ส่วนบนสุด remark หรือลบ สองบรรทัดนี้ออก
กำหนด ประเภทของไฟล์ที่จะ สามารถ uploads ได้
If Instr(filename_new,".jpg")<>0 Or Instr(filename_new,".gif")<>0 Or Instr(filename_new,".jpeg")<>0 Then
ส่วนกลาง remark หรือลบ หนึ่งบรรทัด นี้ออก
If bytecount<80000000 Then ' กำหนดขนาดไฟล์ไม่เกิน 80000 K
ส่วนล่างลบออกทั้งหมด 13 บรรทัด
Else
%>
กรุณาเลือกไฟล์นามสกุล .jpg , .gif หรือ .jpeg เท่านั้น <br>
กลับไปแก้ไข <a href="javascript:history.back()">คลิกที่นี่</a>
<%
End If
Else
%>
ขนาดไฟล์เกิน 80000 KB กรุณาเลือกไฟล์ใหม่<br>
<br>
กลับไปแก้ไข <a href="javascript:history.back()">คลิกที่นี่</a>
<%
End If
ต่อจากนี้ อยากอัพไฟล์ mob ซัก 3GB ก็เชิญเลย
หรือจะอัพ ไฟล์ mdf ซัก 20GB เอาไปเลย
|
| |
|
|
| |
| Date :
30 พ.ค. 2551 22:33:31 |
By :
GTM |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
