中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx

讓word文檔以附件的形式打開(kāi)的代碼:
Dim strFilePathConst adTypeBinary = 1 strFilePath = "word/temp.doc" Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile Server.MapPath(strFilePath) 'change the path if necessary Response.ContentType = "application/octet-stream" Response.AddHeader "Content-Disposition", "attachment; filename=化工學(xué)院教職工數(shù)據(jù)采集表--"&rs("name")&".doc" '如果文件名固定，那就直接filename=文件名.doc，這個(gè)名字就是用戶選“保存”時(shí)，出現(xiàn)的名字 Response.BinaryWrite objStream.Read Response.Flush objStream.Close Set objStream = Nothing '寫(xiě)完，釋放對(duì)象
[Ctrl+A 全部選擇 然后拷貝]

發(fā)現(xiàn)把a(bǔ)ttachment去掉，就會(huì)用ie直接打開(kāi)了。不讓它直接打開(kāi)！

以下為從庫(kù)中取資料并生成Wrod代碼：
<% Sub CreateWord(filename,content) Dim fso, MyFile '創(chuàng)建FSO對(duì)象，有些服務(wù)器有可能不支持這個(gè)對(duì)象，那就沒(méi)戲了 Set fso = CreateObject("Scripting.FileSystemObject") '生成新文件文件放在當(dāng)前目錄的word/下,當(dāng)前測(cè)試時(shí)必須有這個(gè)目錄 Set MyFile = fso.CreateTextFile(filename, True) 　MyFile.WriteLine(content) 　 　MyFile.Close '關(guān)閉文件 Set fso = Nothing End Sub '假設(shè)數(shù)據(jù)庫(kù)中有如下字段: 'FileName:生成的word文件名 'content:個(gè)人資料 Set conn = CreateObject("Adodb.Connection") strConn = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("你的Access庫(kù)文件名") conn.Open strConn '創(chuàng)建RecordSet對(duì)象 Set rs = Server.CreateObject("ADODB.Recordset") 'SQL語(yǔ)句根據(jù)實(shí)際情況調(diào)整 sql="select * from [TableName]" 'Open RecordSet，省略了創(chuàng)建及打開(kāi)connection對(duì)象的代碼，請(qǐng)自行添加 rs.open sql,conn,3,3 if rs.eof and rs.bof then Response.Write("對(duì)不起數(shù)據(jù)庫(kù)中還沒(méi)有任何記錄！") Response.End else sFilePath = "Word\" Do While Not rs.Eof sFileName = Server.Mappath(sFilePath & rs("filename")) sWordContent = rs("content") Call CreateWord(sFileName,sWordContent) rs.MoveNext Loop end if rs.Close Set rs=Nothing conn.Close Set conn = Nothing %>
[Ctrl+A 全部選擇 然后拷貝]

注：myString="" 里面到底是什么？
用word做一個(gè)你要的格式的文檔，都排好了，
把要填的地方做好標(biāo)記，比如寫(xiě)幾個(gè)字什么的。
然后“另存為”web頁(yè)面。本文所說(shuō)的是文檔里沒(méi)有圖片的情況，有的話我也不會(huì)。

到你的硬盤里找到這個(gè)web頁(yè)面，打開(kāi)，查看源文件，ctrl+a,ctrl+c,
在word里，ctrl+N,ctrl+v,ctrl+F，點(diǎn)“替換”標(biāo)簽，
第一步：查找內(nèi)容填雙引號(hào)"，替換為填兩個(gè)雙引號(hào)""，全部替換即可。
第二步：點(diǎn)“高級(jí)”，查找內(nèi)容里填“特殊字符”的“段落標(biāo)記”，替換為填“特殊字符”的“不間斷空格”，全部替換即可。
然后ctrl+a,ctrl+c,把東西paste在myString=""的兩個(gè)引號(hào)之間。
==========================================
這時(shí).asp文件已經(jīng)可以執(zhí)行，不過(guò)生成的是空word文檔，啥也沒(méi)填，沒(méi)用。
在myString后面的引號(hào)里，找你那些標(biāo)記，比如姓名一欄你填的是“西瓜”，
那么現(xiàn)在找到“西瓜”兩個(gè)字，刪除，打"&rs("name")&"，
包括前后兩個(gè)引號(hào)。以此類推，把所有的地方都用庫(kù)中的紀(jì)錄搞定。
========================================
哦，現(xiàn)在就行了�；�本滿足要求了。
注：幾個(gè)小問(wèn)題

1。有時(shí)保存你的word文檔到web頁(yè)面時(shí)，會(huì)生成”你的文件名.files"的文件夾。
那你用這個(gè).asp文件動(dòng)態(tài)生成word文檔時(shí)，會(huì)提示“XXXX丟失”，不爽！
解決辦法：在你保存的web頁(yè)面，查看源文件，查找“你的文件名.files“，
相關(guān)的地方都刪除掉。一般會(huì)有<link...>還有style里的�？粗鴦h吧。

2。這個(gè).asp文件執(zhí)行是會(huì)出現(xiàn)下載提示框，如果選“打開(kāi)”的話，
word就會(huì)打開(kāi)生成的這個(gè)文檔，我發(fā)現(xiàn)有時(shí)是以“web視圖”打開(kāi)的，
有時(shí)是“頁(yè)面視圖”打開(kāi)的。很是奇怪，仔細(xì)對(duì)比了一下，發(fā)現(xiàn)：
只要在你的myString里找<w:WordDocument>，在后面加上<w:View>Print</w:View>，那么就會(huì)以“頁(yè)面視圖”打開(kāi)了。好了！

出處：藍(lán)色理想
責(zé)任編輯：cjj

上一頁(yè) 將數(shù)據(jù)庫(kù)的內(nèi)容生成WORD文檔 [1] 下一頁(yè)

◎進(jìn)入論壇網(wǎng)絡(luò)編程版塊參加討論