关于用asp操作word表格的有关问题
日期：2014-05-17 浏览次数：20757 次
关于用asp操作word表格的问题?
<%Dim fso, MyFile
Set fso = CreateObject( "Scripting.FileSystemObject ")
sFileName = "temp.doc "
Set MyFile = fso.CreateTextFile(Server.MapPath( ". ") & "\word\ "&sFileName, True)
myString= " <html xmlns:v=““urn:schemas-microsoft-com:vml”“ xmlns:o=““urn:schemas-microsoft-com:office:office”“ xmlns:w=““urn:schemas-microsoft-com:office:word”“ xmlns=““http://www.w3.org/TR/REC-html40”“> <head> <meta http-equiv=Content-Type content=““text/html; charset=gb2312”“> <meta name=ProgId content=Word.Document> <meta name=Generator content=““Microsoft Word 11”“> <meta name=Originator content=““Microsoft Word 11”“> <link rel=File-List href=““Doc1.files/filelist.xml”“> <title> 石油化工学院教师业务档案 </title> <!--[if gte mso 9]> <xml> <o:DocumentProperties> <o:Author> lyz </o:Author> <o:LastAuthor> lyz </o:LastAuthor> <o:Revision> 2 </o:Revision> <o:TotalTime> 48 </o:TotalTime> <o:Created> 2004-03-27T04:56:00Z </o:Created> <o:LastSaved> 2004-03-27T04:56:00Z </o:LastSaved> <o:Pages> 1 </o:Pages> <o:Words> 92 </o:Words> <o:Characters> 527 </o:Characters> <o:Company> 602 </o:Company> <o:Lines> 4 </o:Lines> <o:Paragraphs> 1 </o:Paragraphs> <o:CharactersWithSpaces> 618 </o:CharactersWithSpaces> <o:Version> 11.5606 </o:Version> </o:DocumentProperties> </xml> <![endif]--> <!--[if gte mso 9]> <xml> <w:WordDocument> <w:View> Print </w:View> <w:SpellingState> Clean </w:SpellingState> <w:GrammarState> Clean </w:GrammarState> <w:PunctuationKerning/> <w:DrawingGridVerticalSpacing> 7.8 磅 </w:DrawingGridVerticalSpacing> <w:DisplayHorizontalDrawingGridEvery> 0 </w:DisplayHorizontalDrawingGridEvery> <w:DisplayVerticalDrawingGridEvery> 2 </w:DisplayVerticalDrawingGridEvery> <w:ValidateAgainstSchemas/> <w:SaveIfXMLInvalid> false </w:SaveIfXMLInvalid> <w:IgnoreMixedContent> false </w:IgnoreMixedContent> <w:AlwaysShowPlaceholderText> false </w:AlwaysShowPlaceholderText> <w:Compatibility> <w:SpaceForUL/> <w:BalanceSingleByteDoubleByteWidth/> <w:DoNotLeaveBackslashAlone/> <w:ULTrailSpace/> <w:DoNotExpandShiftReturn/> <w:AdjustLineHeightInTable/> <w:BreakWrappedTables/>
<%Dim fso, MyFile
Set fso = CreateObject( "Scripting.FileSystemObject ")
sFileName = "temp.doc "
Set MyFile = fso.CreateTextFile(Server.MapPath( ". ") & "\word\ "&sFileName, True)
myString= " <html xmlns:v=““urn:schemas-microsoft-com:vml”“ xmlns:o=““urn:schemas-microsoft-com:office:office”“ xmlns:w=““urn:schemas-microsoft-com:office:word”“ xmlns=““http://www.w3.org/TR/REC-html40”“> <head> <meta http-equiv=Content-Type content=““text/html; charset=gb2312”“> <meta name=ProgId content=Word.Document> <meta name=Generator content=““Microsoft Word 11”“> <meta name=Originator content=““Microsoft Word 11”“> <link rel=File-List href=““Doc1.files/filelist.xml”“> <title> 石油化工学院教师业务档案 </title> <!--[if gte mso 9]> <xml> <o:DocumentProperties> <o:Author> lyz </o:Author> <o:LastAuthor> lyz </o:LastAuthor> <o:Revision> 2 </o:Revision> <o:TotalTime> 48 </o:TotalTime> <o:Created> 2004-03-27T04:56:00Z </o:Created> <o:LastSaved> 2004-03-27T04:56:00Z </o:LastSaved> <o:Pages> 1 </o:Pages> <o:Words> 92 </o:Words> <o:Characters> 527 </o:Characters> <o:Company> 602 </o:Company> <o:Lines> 4 </o:Lines> <o:Paragraphs> 1 </o:Paragraphs> <o:CharactersWithSpaces> 618 </o:CharactersWithSpaces> <o:Version> 11.5606 </o:Version> </o:DocumentProperties> </xml> <![endif]--> <!--[if gte mso 9]> <xml> <w:WordDocument> <w:View> Print </w:View> <w:SpellingState> Clean </w:SpellingState> <w:GrammarState> Clean </w:GrammarState> <w:PunctuationKerning/> <w:DrawingGridVerticalSpacing> 7.8 磅 </w:DrawingGridVerticalSpacing> <w:DisplayHorizontalDrawingGridEvery> 0 </w:DisplayHorizontalDrawingGridEvery> <w:DisplayVerticalDrawingGridEvery> 2 </w:DisplayVerticalDrawingGridEvery> <w:ValidateAgainstSchemas/> <w:SaveIfXMLInvalid> false </w:SaveIfXMLInvalid> <w:IgnoreMixedContent> false </w:IgnoreMixedContent> <w:AlwaysShowPlaceholderText> false </w:AlwaysShowPlaceholderText> <w:Compatibility> <w:SpaceForUL/> <w:BalanceSingleByteDoubleByteWidth/> <w:DoNotLeaveBackslashAlone/> <w:ULTrailSpace/> <w:DoNotExpandShiftReturn/> <w:AdjustLineHeightInTable/> <w:BreakWrappedTables/>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
