ASP+模板生成Word、Excel、静态页
日期：2011-08-17 浏览次数：21325 次
用模板生成Excel、Word最大优点：
Word、Excel文档样式易于控制和调整，以往用Excel.Application来生成Excel、Word，需要写很多代码来控制排版的样式，用模版几乎不受任何限制，只需要打开word或Excel，编辑文档，选择"文件->另存为web页"，即可方便的做好模板 ，用office生成的模板要比直接在DW中做好模板更加符合office偏好，生成后文件样式可与原word、Excel格式99%一样，因此建议大家用office（office97～office2003）直接来生成模板框架。
演示：http://mysheji.com/aspCreate/
主要的代码
function.asp
Word、Excel文档样式易于控制和调整，以往用Excel.Application来生成Excel、Word，需要写很多代码来控制排版的样式，用模版几乎不受任何限制，只需要打开word或Excel，编辑文档，选择"文件->另存为web页"，即可方便的做好模板 ，用office生成的模板要比直接在DW中做好模板更加符合office偏好，生成后文件样式可与原word、Excel格式99%一样，因此建议大家用office（office97～office2003）直接来生成模板框架。
演示：http://mysheji.com/aspCreate/
主要的代码
function.asp
复制内容到剪贴板
代码:
<%
'欢迎与我交流和学习
'作者：幸福的子弹
'BLOG:http://mysheji.com/blog
'E-mail:zhaojiangang@gmail.com
'QQ:37294812
'-----------------------------------------------------------------------------
'开启容错机制
on error resume next
'功能，检测服务器是否支持指定组件
Function object_install(strclassstring)
on error resume next
object_install=false
dim xtestobj
set xtestobj=server.createobject(strclassstring)
if -2147221005 <> Err then object_install=true
set xtestobj=nothing
end function
if object_install("Scripting.FileSystemobject")=false then
Response.Write "<div style='font-size:12px;color:#333;height:20px;line-height:20px;border:1px solid #DDCF8F;padding:6px;background:#FFFFED;font-family:verdana'>对不起，您的空间不支持FSO组件，请与管理员联系!</div>"
Response.End
end if
if object_install("adodb.stream")=false then
Response.Write "<div style='font-size:12px;color:#333;height:20px;line-height:20px;border:1px solid #DDCF8F;padding:6px;background:#FFFFED;font-family:verdana'>对不起，您的空间不支持adodb.stream功能，请与管理员联系!</div>"
Response.End
end if
'-----------------------------------------------------------------------------
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取文本文件
'参数：FileUrl文件相对路径，FileCharSet:文件编码
Function ReadFromTextFile (FileUrl,FileCharSet)'函数
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '指定或返回的数据类型,
stm.mode=3 '指定打开模式，现在为可以读写模式，类似于word的只读或锁定功能
stm.charset=FileCharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
ReadFromTextFile=str
End Function
'-----------------------------------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入文本文件
sub WriteToTextFile(FileUrl,Str,FileCharSet) '方法
set stm=server.CreateObject("adodb.stream")
stm.Type=2
stm.mode=3
stm.charset=FileCharSet
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
End sub
'-----------------------------------------------------------------------------
'功能：自动创建文件夹
'创建一级或多级目录，可以创建不存在的根目录
'参数：要创建的目录名称，可以是多级
'返回逻辑值，True成功，False失败
'创建目录的根目录从当前目录开始
Function CreateMultiFolder(ByVal CFolder)
Dim objFSO,PhCreateFolder,CreateFolderArray,CreateFolder
Dim i,ii,CreateFolderSub,PhCreateFolderSub,BlInfo
BlInfo = False
CreateFolder = CFolder
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Err Then
Err.Clear()
Exit Function
End If
CreateFolder = Replace(CreateFolder,"","/")
If Left(CreateFolder,1)="/" Then
CreateFolder = Right(CreateFolder,Len(CreateFolder)-1)
End If
If Right(CreateFolder,1)="/" Then
CreateFolder = Left(CreateFolder,Len(CreateFolder)-1)
End If
CreateFolderArray = Split(CreateFolder,"/")
For i = 0 to UBound(CreateFolderArray)
CreateFolderSub = ""
Fo
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
