如何创建Word文件？.doc

!DOCTYPE HTML PUBLIC -//W3C/DTD HTML 3.2 Final//ENHEADTITLE 精彩春风之创建Word文件/TITLEMETA HTTP-EQUIV=Refresh CONTENT=30;URL=orderForm.asp/HEAD% dotLocation=servernamedirectory heTemplate.dot intRowCount = Request.Form(rowCount) 初始化行计数%BODY Language=VBScript onLoad=creatdoc document.theForm, %=dotLocation%,intRowCountFORM NAME=theForm ---------------------------------------------------------------------------------------------------------------- 在Body标记中对onLoad调用调用creatdoc VB脚本子程序向它传递3个参数页面中表单的内容（所有的隐含域）、Word模板文件的位置、从输入表单中收到的行数读所有的输入表单域然后当页面装载后调用creatdoc子程序% itemCount = 0 设置域计数器为0  For Each Item in Request.Form 总计表格域itemCount = itemCount + 1 使用For..Next 循环% INPUT TYPE=hidden NAME=%=Item% VALUE=%=Request(Item)%% Next % INPUT TYPE=hidden NAME=numbRows VALUE=%=intRowCount% INPUT TYPE=hidden NAME=fieldCount VALUE=%=itemCount%/FORM/BODY/HTML ---------------------------------------------------------------------------------------------------------------- 　　创建一个Word 文件对象Internet Explorer 4 以上版本中要将浏览器的安全性设置为Low或Custom %Set objWordDoc = CreateObject(Word.Document)ObjWordDoc.Applica theTemplate, FalseObjWordDoc.Application.Visible=True% ---------------------------------------------------------------------------------------------------------------- 调整数组的维数使它与网页表单所包含的行数相同将Y轴设为4个常量这是输出文件中所需要的栏数X轴包含从表单中接收的行数% Redim Preserve theArray(4,intTableRows) %  开始检查所有的表单行在所有输入的网页表单域中循环收集每个表单域名及其相应的值逐个检查将其放入数列元素内使用不确定编码的CASE选择%For intCount = 0 to frme strOkay = Y strSearch = frmData.elements(intCount).name 装入表单域名strValue = frmData.elements(intCount).value 装入表单域值strPosition = Instr(1,strSearch,_) intStringLen=strPosition-1 If intStrLen 0 Then strLeft = Left(strSearch,intStringLen) strRight = Right(strSearch,(Len(strSearch)-Len(strLeft)-1)) Select Case strLeft Select Case命令决定表单域属于哪一列Case SKU intArrayY=0 Case description intArrayY=1 Case price intArrayY=2 Case quantity int ArrayY=3 End Select IntArrayX = strRight If strOkay N Then The