博文
asp生成word(2007-09-26 08:58:00)
摘要：<%
'这里写你的数据库连接,自己写上数据库连接代码
Response.Buffer = True '这个好像得留着
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ceshi where id=1"
rs.open sql,conn,3,3
Dim fso, MyFile
dim sFileName
dim mystring
mystring="这里的内容下面有说明"
Set fso = CreateObject("Scripting.FileSystemObject") '用到fso
sFileName = ""&rs("id")&".doc" //根据id来取名称，可以自行修改
Set MyFile = fso.CreateTextFile(Server.MapPath(".") & "\word\"&sFileName, True) '文件放在当前目录的word/下myString="这里是你预先排好的word文档，要填的地方都空好了，怎么弄底下告诉！"
MyFile.WriteLine(myString)
MyFile.Close '关闭文件
%>
'=============下面是如何弄mystring里的内容
注：myString="" 里面到底是什么？
用word做一个你要的格式的文档，都排好了，
把要填的地方做好标记，比如写几个字什么......
Microsoft VBscript运行时错误(2007-08-20 13:07:00)
摘要：MicrosoftVBscript运行时错误(0x000A0005) 无效的过程调用或参数
MicrosoftVBscript运行时错误(0x000A0005) 无效的过程调用或参数
MicrosoftVBscript运行时错误(0x000A0006) 溢出
MicrosoftVBscript运行时错误(0x000A0007) 内存不够
MicrosoftVBscript运行时错误(0x000A0009) 下标越界
MicrosoftVBscript运行时错误(0x000A000A) 该数组为定长的或临时被锁定
MicrosoftVBscript运行时错误(0x000A000B) 被零除
MicrosoftVBscript运行时错误(0x000A000D) 类型不匹配
MicrosoftVBscript运行时错误(0x000A000E) 字符串空间不够
MicrosoftVBscript运行时错误(0x000A0011) 不能执行所需的操作
MicrosoftVBscript运行时错误(0x000A001C) 堆栈溢出
MicrosoftVBscript运行时错误(0x000A0023) 未定义过程或函数
MicrosoftVBscript运行时错误(0x000A0030) 加载 DLL 时出错
MicrosoftVBscript运行时错误(0x000A0033) 内部错误
MicrosoftVBscript运行时错误(0x000A0034) 错误的文件名或号码
MicrosoftVBscript运行时错误(0x000A0035) 文件未找到
MicrosoftVBscript运行时错误(0x000A0036) 错误的文件模式
MicrosoftVBscript运行时错误(0x000A0037) 文件已经打开
MicrosoftVBscript运行时错误(0x000A0039) 设备 I/O 错误
MicrosoftVBscript运行时错误(0x000A003A) 文件已存在
MicrosoftVBscript运行时错误(0x000A003D) 磁盘已满
MicrosoftVBscript运行时错误......