往資料庫中新增資料不成功

　　可能在加資料庫的時候，會遇到提示“拒絕訪問“。

　　解決辦法：

　　1、找到資料庫檔案，右鍵單擊mdf檔案，選擇“屬性”，開啟屬性面板；

　　2、點選“安全”，然後點選其中的“編輯”按鈕，進入mdf檔案的許可權設定面板，單擊“新增”按鈕；

　　3、進入“選擇使用者和組”面板。單擊左下角的“高階”，進入高階設定介面，然後點選“立即查詢”；

　　4、選擇“NETWORK SERVICE”,然後單擊“確定”按鈕；

　　5、選擇了“NETWORK SERVICE”

　　1、小表情小符號類似於QQ表情，但是比QQ表情更加豐富，使用場景更加靈活多變，甚至可以在微信文章的標題裡使用。

　　2、使用方法：點選首頁“通用樣式”裡的“小符號”即可看到很多表情符號，它是按使用場景來劃分的，有微信圖文標題專用表情，也有水果食物、運動休閒、生肖星座等多個系列，可以滿足我們不同的使用需求。

　　下面是asp中的程式碼

　　Set rs2=Server.CreateObject(ADODB.recordset)

　　sql=select * from eq where eqbumen='&dep;&' order by eqbumen desc

　　rs2.open sql,conn,1,1

　　set objExcel=CreateObject(Excel.Application)

　　objExcel.Workbooks.Open(server.mappath(test)&book1.xlt) '開啟Excel模板

　　objExcel.Sheets(1).select '選中工作頁

　　set sheetActive=objExcel.ActiveWorkbook.ActiveSheet

　　num=2 '從Excel的第2行開始

　　Do while not rs2.eof '迴圈直至資料集中的資料寫完

　　strRange=b#&:k# '設定要填寫內容的單元區域

　　sheetActive.range(strRange).font.size=10 '設定字型大小

　　sheetActive.range(strRange).WrapText=false '設定文字回捲

　　sheetActive.range(strRange).ShrinkToFit=true '設定是否自動適應表格單元大小

　　sheetActive.range(strRange).value=array(rs2(zcid),rs2(eqname),rs2(eqchangjia),rs2(eqxinghao),rs2(eqnengli),rs2(eqweizhi),rs2(eqxianzhuang),rs2(eqno),rs2(eqbumen),rs2(eqchejian)) '把資料集中的資料填寫到相應的單元中

　　num=num+1

　　rs2.MoveNext

　　loop

　　function getTemporaryFile(myFileSystem)

　　dim tempFile,dotPos

　　tempFile=myFileSystem.getTempName

　　dotPos=instr(1,tempFile,.)

　　getTemporaryFile=mid(tempFile,1,dotPos)&xls;end function

　　set myFs=createObject(scripting.FileSystemObject)

　　filePos=server.mappath(test)&temp '要存放列印臨時檔案的臨時目錄

　　fileName=getTemporaryFile(myFs) '取得一個臨時檔名

　　'myFs.DeleteFile filePos&*.xls '刪除該目錄下所有原先產生的臨時列印檔案

　　set myFs=nothing

　　objExcel.ActiveWorkbook.saveas filePos&filename;

　　objExcel.quit

　　set objExcel=Nothing。