Forgot Password ??

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

	Registered : 109,027

HOME > ASP > ASP Forum > ASP การ Export Database to Excel (Not Config IIS) เอามาฝากครับ ^_^

ASP การ Export Database to Excel (Not Config IIS) เอามาฝากครับ ^_^

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

TUMZACUB

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

Code (ASP)

<%
	Dim objFSO,oFiles
	Dim sFileName	
	
	//คำสั่ง Select
	
	If Not RS.EOF Then

		Set objFSO = CreateObject("Scripting.FileSystemObject") 
		xlsFileName = Day(Now)&Month(Now)&Year(Now)&"_report.xls"
		Set oFiles = objFSO.CreateTextFile(Server.MapPath("report/"&xlsFileName), true)
		i=0
		i=i+1
				oFiles.WriteLine("<html><body>")
				oFiles.WriteLine("<table border=""1"">")
				oFiles.WriteLine("<tr>")
				oFiles.WriteLine("<th nowrap>#</th>")
				oFiles.WriteLine("<th nowrap></th>")
				oFiles.WriteLine("<th nowrap></th>")
				oFiles.WriteLine("<th nowrap></th>")
				oFiles.WriteLine("</tr>")
			While Not objSelect.EOF
				oFiles.WriteLine("<tr>")
				oFiles.WriteLine("<td align=""Left"" nowrap>" & i & "</td>" )
				oFiles.WriteLine("<td align=""Left"" nowrap>" & & "</td>" )
				oFiles.WriteLine("<td align=""Left"" nowrap>" & RS & "</td>" )
				oFiles.WriteLine("<td align=""Left"" nowrap>" & RS & "</td>" )
				oFiles.WriteLine("</tr>")
				objSelect.MoveNext()
			Wend
				oFiles.WriteLine("</table></body></html>")
		oFiles.Close()
		Set oFiles = Nothing
		Set objFSO = Nothing
		Response.write"<a href='report/"&xlsFileName&"' ><img src='../icon/excel.png' title='Download' style='margin: 0 0 0 37px'></a>"&"<br>"&"<br>"
	Else
		Response.write"<script type='text/javascript'>alert('ไม่พบข้อมูลที่ค้นหา');window.close(); </script>"
	End If

	objSelect.Close()
	Set objSelect = Nothing
%>

Tag : ASP, VBScript

ประวัติการแก้ไข
2013-11-28 11:19:54

Date : 2013-11-28 03:33:18

By : biggest59

View : 1272

Reply : 1

No. 1

TC Admin

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

จัดไปครับ

Date : 2013-11-28 05:56:04

By : mr.win

ค้นหาข้อมูล

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

Re : ASP การ Export Database to Excel (Not Config IIS) เอามาฝากครับ ^_^

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

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

Load balance : Server 01

Registered : 109,027

document.write("<font color=996600>[ASP]</font>"); ASP การ Export Database to Excel (Not Config IIS) เอามาฝากครับ ^_^

No. 1

ค้นหาข้อมูล

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

Notice

ASP การ Export Database to Excel (Not Config IIS) เอามาฝากครับ ^_^