printtohtml.asp

客户管理系统使用ASP.NET和Access

<!--#include file="islogin.asp"-->
<% 
if request("act")="ok" then 
fname=makefilename(date())
mbStr=request("mbstr") 
set fso=createobject("scripting.filesystemobject") 
set fw=fso.createtextfile(server.mappath("log/"&fname&".html"),true) 
fw.writeline mbStr 
fw.close 
set fso=nothing 
response.Write("导出成功，请点右键下载，<a target='_blank' href='log/"&fname&".html'>"&fname&".html</a>") 
else 
%> 
<form name="form1" method="post" action="?act=ok">
<input type="submit" name="Submit" value="导出<%=date()%>的报表"> 
<textarea name="mbstr"  rows="25" id="mbstr" style="width:100%;"><!--#include file="PrintPage.asp"-->
</textarea>
</form> 
<% 
end if
function makefilename(fname)
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname
end function 
%>