Function: Generate file(txt,htm,xls etc.) from HTML file

<%

tpl_file="c:/test.xls"

url="http://localhost/test.asp"

 

function create_file(tpl_file,url)
 On Error Resume Next
 
 XmlHttp.Open "GET", url, false
 XmlHttp.Send()
 mhtml=XmlHttp.ResponseText

 Set objTextFile = objFSO.CreateTextFile(tpl_file)
 objTextfile.write mhtml 

 if err.number<>0 then
  response.write err.description,

  response.write err.source

  err.clear
 end if
 
 objTextFile.Close
 set objTextFile=nothing 
end function

 

'調用

a=create_file(tpl_file,url)

 

%>