Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > คำสั่ง readfile ของ ASP คำสั่ง readfile ของ ASP มี syntax ยังไงครับ คือว่า ผมจะมีลิ้งในการดาวน์โหลดไฟล์ .txt

คำสั่ง readfile ของ ASP คำสั่ง readfile ของ ASP มี syntax ยังไงครับ คือว่า ผมจะมีลิ้งในการดาวน์โหลดไฟล์ .txt

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

tutordroid.com

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

คำสั่ง readfile ของ ASP มี syntax ยังไงครับ คือว่า ผมจะมีลิ้งในการดาวน์โหลดไฟล์ .txt แต่พอกด มันเป็นการเปิดแทนดาวน์โหลด
ลองหาดูแล้วเห็นแต่ของ php

Code (PHP)

<?
header('Content-Disposition: attachment; filename="test.txt"'); 
readfile('test.txt');
?>

Tag : - - - -

Date : 2010-07-17 21:09:18

By : blacklion

View : 2245

Reply : 7

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Code (ASP)

<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP TextStream Object</title>
</head>
<body>
<%
	Dim objFSO, objStream
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objStream = objFSO.OpenTextFile(Server.MapPath("MyFiles/thaicreate.txt"))
	Do Until objStream.AtEndOfStream			
	  Response.Write objStream.ReadLine & "<br>"
	Loop
	objStream.Close

	Set objStream = Nothing
	Set objFSO = Nothing
%>
</body>
</html>

ASP Read Text File

Date : 2010-07-18 08:05:41

By : webmaster

No. 2

tutordroid.com

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

โอ้...ขอบคุณครับ

Date : 2010-07-18 12:56:35

By : blacklion

No. 3

tutordroid.com

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

แต่ว่านี่มันเป็นการอ่านไฟล์นี่ครับ คือผมอยากรู้ว่าการทำลิ้งค์ download ไฟล์ .txt อ่ะครับมันทำยังไง
ถ้าเป็น <a href="doc.txt">download</a> มันจะเป็นการเปิดไฟล์น่ะครับ

Date : 2010-07-18 12:59:47

By : blacklion

No. 4

PlaKriM

โพสกระทู้ ( 11,835 )
บทความ ( 10 )

http://classicasp.aspfaq.com/general/how-do-i-prompt-a-save-as-dialog-for-an-accepted-mime-type.html

Date : 2010-07-18 13:07:44

By : PlaKriM

No. 5

tutordroid.com

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

เว็บฝรั่งมา มืดตึ๊บ แต่ก็ขอบคุณครับ

Date : 2010-07-19 00:26:26

By : blacklion

No. 6

PlaKriM

โพสกระทู้ ( 11,835 )
บทความ ( 10 )

งะ มันมีตัวอย่างอยู่ด้านบน แค่ลิงค์ไปที่ไฟล์ๆ นั้น เค้าเรียก force download ครับผม

ถ้าเป็นการโหลดจากฐานข้อมูลที่เก็บชื่อ ก็สามารถ ปรับใช้ได้ โดยส่งไอดีหรือชื่อไฟล์ไปแล้ว ก็ไปจัดการมันในไฟล์นั้น อย่าให้มี output ออกมาละกัน

พอดีผมก็ไม่เคยเขียน force download ด้วย asp เหมือนกัน แต่หลักการเหมือน php นั่นแหละ แค่กำหนด header ให้มัน

ลองดูครับ ถ้ายังไม่ได้ ลองเอาโค๊ดมาแปะ เดี๋ยวช่วยดูอีกแรง

Date : 2010-07-19 00:35:08

By : PlaKriM

No. 7

tutordroid.com

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

เหอๆ ขอบคุณพี่ PlaKriM ไว้ล่วงหน้าครับ ผมแปะโค้ดให้นะครับ
Code (ASP)

<%
sql2 = "select *  from sentwork,exercise where sw_exid="&request("exid")&" and sw_exid=ex_id "
Set objRec2 = Server.CreateObject("ADODB.Recordset") 
objRec2.Open sql2, Conn

	Dim objFSO, objStream,i
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objStream = objFSO.CreateTextFile(Server.MapPath("ex_score/ex"&request("exid")&"_score.txt"),true)	
	
	do while not objRec2.eof
	
	objStream.WriteLine objRec2("sw_std")&" = "&objRec2("sw_score")
	
	objRec2.movenext
  loop
  objRec2.close
	
	objStream.Close
	Set objStream = Nothing
	Set objFSO = Nothing
	
	response.redirect "ex_score/ex"&request("exid")&"_score.txt" 'ตรงนี้ผมกะจะให้มันลิ้งค์ไปที่ไฟล์นั้นเลย
%>

ผมแปะไปแบบนี้ผิดตรงไหนหรือเอาโค้ดมาไม่หมดครับ

Code (ASP)

<%
	 sql2 = "select *  from sentwork,exercise where sw_exid="&request("exid")&" and sw_exid=ex_id "
   Set objRec2 = Server.CreateObject("ADODB.Recordset") 
   objRec2.Open sql2, Conn

	Dim objFSO, objStream,i
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objStream = objFSO.CreateTextFile(Server.MapPath("ex_score/ex"&request("exid")&"_score.txt"),true)	
	
	objStream.WriteLine "ª×èÍãº§Ò¹ "&objRec2("ex_name")
	do while not objRec2.eof
	
	objStream.WriteLine objRec2("sw_std")&" = "&objRec2("sw_score")
	
	objRec2.movenext
  loop
  objRec2.close
	
	objStream.Close
	Set objStream = Nothing
	Set objFSO = Nothing
	
	  Response.ContentType = "application/x-unknown" ' arbitrary 
    fn = "ex"&request("exid")&"_score.txt" 
    FPath = "ex_score\" & fn 
    Response.AddHeader "Content-Disposition","attachment; filename=" & fn 
 
    Set adoStream = CreateObject("ADODB.Stream") 
    adoStream.Open() 
    adoStream.Type = 1 
    adoStream.LoadFromFile(FPath) 
    Response.BinaryWrite adoStream.Read() 
    adoStream.Close 
    Set adoStream = Nothing 
 
    Response.End 
%>

Date : 2010-07-19 01:53:09

By : blacklion

ค้นหาข้อมูล

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

Re : คำสั่ง readfile ของ ASP คำสั่ง readfile ของ ASP มี syntax ยังไงครับ คือว่า ผมจะมีลิ้งในการดาวน์โหลดไฟล์ .txt

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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