<%
'-สามารถนำไปใช้เกี่ยวกับเรื่องการป้องกันการแก้ไขเอกสารต้นฉบับ Apply กับ ระบบ ISO ได้ดีมากๆครับ
'-ที่ web server จะต้องลง MS-OFFICE 2000 (ไม่ได้ลองกับ 2003 อาจจะใช้ได้ครับ)
'-Create Floder Uploads ที่ Web Appl และให้มี Permission ในการ Write
'-สร้าง File Excel (ควรเป็น version 2000 ครับ) เอาไปเก็บไว้ที่ Folder Uploads
'-นำ code นี้ไปสร้างเป็น File Asp และ Run ได้เลยครับ
'-หลักหารง่ายๆครับคือให้ server เป็นตัวเปิด Excel File แล้วให้ทำการ Save เป็น Html ครับ
Dim objExcel
Dim objWorkBook
Dim Fso,MyFile
Dim ExcelFile,HtmlFile
ExcelFile = "book2.xls"
HtmlFile = "book2.htm"
Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.open(Server.MapPath("./Uploads/"&ExcelFile))
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists(Server.MapPath("./Uploads/"&HtmlFile))) Then
Set MyFile = Fso.GetFile(Server.MapPath("./Uploads/"&HtmlFile))
MyFile.Delete
End If
objWorkBook.SaveAs Server.MapPath("./Uploads/"&HtmlFile),44
objWorkBook.Close
objExcel.Application.Quit
Set objWorkBook = Nothing
Set objExcel = Nothing
%>
<html>
<head><title>Open Excel at Server and Save To Html Format</Title></Head>
<body>
Process Complete!! Click Here To <a href="./Uploads/<%=HtmlFile%>">Open</a> Html FileAfter Convert!!
</body>
</html>
%>
Load balance : Server 03
