BDE10B0000這支文書科的程式

BDE10B0000這支程式裡頭有一支單稿及多稿製稿的功能。
裡頭使用的巨集主要功能如下：
巨集 Copyer ：複製一份文貼在書籤"NextPage"之後。
巨集 ReNum：搜尋指定字串，並將其後的編號予以重新編號
巨集 FixStyle：修正執行ReNum後，部份樣式跳掉（第一階層至第五階層樣式）

一支叫ReNum的word巨集

這支是在BDE10B0000裡的多稿產生程式，ReNum這支的巨集主要的功能是搜尋文件中指定的字串，並且在其字串後會有個大綱編號。
命令其大綱編號「重新編號」
但此程式放在ASP迴圈中執行會造成類似疆屍程序的狀況。ASP沒當，但就是卡在那裡直到逾時。
拿掉這段指令，就正常。
將此巨集單獨放入WORD中，並以呼叫巨集的方式執行，則一切正常。
為何無法放入ASP中執行，原因不明。
此巨集是以WORD「錄製巨集」的方式製成，語法上應無問題。

宏誠AP跑報表會發生文號跑不出來

文號轉發文字號跑不出來
目前已知asp檔有
ADAR702001.asp存取MAAOP
ADAR101072.asp存取MAA　　　已完成
ADAR101072_S2.asp存取MAA 　
ADAR201153_S.asp 存取MAA
ADBR101092_S.asp 存取MBA
ADCR101082_S2.asp 存取MCA
ADCR101082_S1.asp 存取MCAA
ADCR201082_S.asp 存取MCAA
ADCR501132_S.asp 存取MCAH
ADCR701062_S.asp 存取MCG
ADA6010003_S.asp 存取MAA

Recordset 操作

RecordSet.BOF	判斷指標是否超過最前面
RecordSet.EOF	判斷指標是否超過最後面
RecordSet.MoveFirst	將資料錄指標移至第一筆
RecordSet.MoveLast	將資料錄指標移至最後一筆
RecordSet.MoveNext	將資料指標往後移一筆
RecordSet.MovePrevious	將資料指標往前移一筆
RecordSet.Fields.Count	傳回Recordset中的欄位數
RecordSet(i).Name	傳回Recordset中第i個欄位的名稱
RecordSet.RcordCount	傳回Recordset中資料錄的筆數
RecordSet("欄位名稱")	傳回指定欄位名稱的資料內容
RecordSet(i)	傳回RecordSet中的第i個欄位資料
RecordSet.Fields(i).DefinedSize	傳回RecordSet中的第i個欄位資料欄位長度
RecordSet.Fields(i).Type	傳回RecordSet中的第i個欄位資料欄位資料型別
RecordSet.BookMark	傳回設定的書籤以儲存現在紀錄的位置。RecordSet.AbsolutePostition 將指標移至RecordSet中的某一筆資料上
RecordSet.PageSize	設定每頁顯示的資料筆數
RecordSet.PageCount	傳回分頁後的總頁數
RecordSet.AbsolutePage	傳回目前所在的頁數
RecordSet.AddNew	新增資料至資料表中
RecordSet.Update	更新目前這筆資料
RecordSet.Delete	刪除目前這筆資料
RecordSet.Find	尋找資料值
RecordSet.GetRows	可將Recordset中的資料儲存至陣列中
RecordSet.Sort	可將Recordset中的資料排序

資料來源：http://blog.blueshop.com.tw/mars/archive/2004/09/08/177.aspx

電腦中毒了Virus.Win32.Tenga.a

今天電腦掃出一堆的毒，執行檔大概都中了吧

1.病毒簡介
Worm@W32.Licum(別名：W32/Tenga.A)

Licum駭蟲透過微軟漏洞進行散播，而目前微軟只提供Windows NT 以上作業系統的修補程式，在此提供解決Windows 98 作業系統不會被感染的方法，以此作為參考。

Licum駭蟲是利用微軟DCOM RPC 介面中的緩衝區滿溢漏洞進行散播，駭蟲執行後，會感染電腦內的執行檔，而目前微軟只針對Windows NT以上的作業系統提供修補程式，而沒有提供Windows 98 作業系統的修補程式，所以使用Windows98的使用者請小心，為了避免使用Windows 98 作業系統的電腦受到感染，解決的方法如下，請修改登錄檔"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Ole" 下列的值："EnableDCOM"="N"，如果是"N"即為關閉，此時類似 NetMeeting 相關軟體會無法使用，但此方法可先關閉漏洞，以避免駭蟲入侵。

基本介紹

病毒名稱 Worm@W32.Licum
病毒別名 Backdoor.Win32.Small.gl [Kaspersky Lab], Virus.Win32.Tenga.a [Kaspersky Lab], BackDoor-CTM [McAfee], W32/Gael.worm.a [McAfee], W32/Tenga-A [Sophos], PE_TENGA.A [Trend Micro],W32.Licum[symantec]
病毒型態 Worm
病毒發現日期 2005/07/29
利用漏洞
MS03-026(英文)
MS03-026(中文)
影響平台 Windows 95/98/ME , Windows NT/2000/XP/2003

風險評估

散播程度：低
破壞程度：低

Worm@W32.Licum 行為描述：
駭蟲會下載下列檔案：

[http://]utenti.lycos.it/[REMOVED]/dl.exe

[http://]utenti.lycos.it/[REMOVED]/CBACK.EXE

[http://]utenti.lycos.it/[REMOVED]/GAELICUM.EXE

駭蟲會感染電腦內的執行檔。

駭蟲是利用微軟的漏洞進行散播病毒，而目前微軟只針對Windows NT 以上的作業系統提供修補漏洞程式，所以使用Windows 98 作業系統的用戶請小心。

請到Windows Update網站，或按[開始]→[Windows Update]

來更新你的作業系統，並安裝所有重大安全性更新，會比較好

如果你目前只想解決您現在的問題，請連線至以下網頁

下載安裝此安全性修補程式：

http://www.microsoft.com/taiwan/security/bulletins/MS03-026.asp

2.解毒方法

(1)安裝上述更新修補程式

(2)關閉系統還原

如何關閉或啟用Windows XP「系統還原」
http://service1.symantec.com/SUPPORT/INTER/traditionalchinesekb.nsf/twdocid/20020517102945932
如何關閉或啟用Windows Me「系統還原」
http://service1.symantec.com/SUPPORT/INTER/traditionalchinesekb.nsf/twdocid/20020517101224932
(3)線上更新病毒碼至最新定義

(4)重新開機按住F8進入安全模式掃描

(5)將所有中毒的檔案直接刪除，解毒完畢

以上資訊轉貼自http://www.pczone.com.tw/vbb3/archive/t-118122.html

在Excel VBA 開關存檔

以下是花了很多時間嘗試的VBA 操控EXCEL
'建立Excel物件
Set ExcelObj = Server.CreateObject("Excel.Application") '建立Excel物件
ExcelObj.DisplayAlerts = false '不顯示警告訊息
ExcelObj.Application.Visible = true '顯示應用程式

'開啟Excel文件
Set ExcelApp = ExcelObj.WorkBooks.Open(ExcelTmp) '設定Excel物件開啟ExcelTmp這個檔案
Set ExcelBook = ExcelObj.ActiveWorkBook '指定ExcelBook為作用工作表
ExcelBook.Sheets("table6").Select '選擇作用工作表
Set ExcelSheets = ExcelBook.Worksheets("table6")
ExcelObj.Interactive = false
ExcelObj.Application.DisplayAlerts = false

'儲存檔案
ExcelSheets.Range("B6").Select '選取B6這個儲存格
With ExcelObj.ActiveWindow '對該Excel物件做分割於左方1 格下方5格的位置分割
.SplitColumn = 1
.SplitRow = 5
End With

ExcelObj.ActiveWindow.FreezePanes = True '凍結視窗

ExcelObj.activewindow.Zoom = 75 'Zoom 75%

SaveFileName = "abcde.xls" '設定檔名
ExcelApp.SaveAs Server.MapPath("./" & SaveFileName) '將檔案另存於本機目錄下的abcde.xls
Set Excelsheets = ExcelBook.Sheets(1) '將Excelsheets設為第一工作簿

'關閉程式
ExcelObj.Quit '離開Excel
Set ExcelObj = nothing '釋放Excel物件所使用的記憶體

進入銓敘部

今天終於進入傳說中的難搞的銓敘部。
看到Excel格式的Oracle資料表差點沒昏倒
資料欄位有夠多而且重點是程式看不懂
Oracle 的資料表很難解析，而且我懷疑大部份都被VIEW起來了。真正的資料表內容無法直接查到。
今天找那個SHOW資料表內容的指令找了一個下午還是找不到！真是氣死了。
我要找的指令就是這個：
SHOW COLUMNS FROM table_name
目前還有個難題就是要分辨出查到的table是table還是view？
不管了！星期一再好好研究。