[Computer] 圖片隨位置而移動 Java Script

＜!--圖片隨位置而移動--＞
＜DIV id="waterMark" style="position:absolute"＞
＜A href="#top"＞＜IMG SRC="images/icon_top.gif" width=16 height=18 border=0＞＜/A＞＜/DIV＞
＜script language="JavaScript1.2"＞
＜!--// Watermark script by Paul Anderson, CNET Builder.com. All rights reserved.

markW = 16; // 圖檔的寬
markH = 18; // 圖檔的長
markX = 80; // percent right
markY = 95; // percent down
markRefresh = 5; // milliseconds

// set common object reference
if (!document.all) document.all = document;
if (!document.all.waterMark.style) document.all.waterMark.style = document.all.waterMark;

wMark = document.all.waterMark.style;
wMark.width = markW;
wMark.height = markH;
navDOM = window.innerHeight; // Nav DOM flag

function setVals() {
barW = 0; // scrollbar compensation for PC Nav
barH = 0;
if (navDOM) {
if (document.height ＞ innerHeight) barW = 20;
if (document.width ＞ innerWidth) barH = 20;
} else {
innerWidth = document.body.clientWidth;
innerHeight = document.body.clientHeight;
}
posX = ((innerWidth - markW)-barW) * (markX/100);
posY = ((innerHeight - markH)-barH) * (markY/100);
}

function wRefresh() {
wMark.left = posX + (navDOM?pageXOffset:document.body.scrollLeft);
wMark.top = posY + (navDOM?pageYOffset:document.body.scrollTop);
}

function markMe() {
setVals();
window.onresize=setVals;
markID = setInterval ("wRefresh()",markRefresh);
}

window.onload=markMe; // safety for Mac IE4.5

//--＞
＜/script＞
＜!--圖片隨位置而移動結束--＞

[Computer] 線上手冊

PostgreSQL 7.3 文件

---

PHP 手冊

---

MySQL 4.1.1a 手冊

[Computer] Word Macro - fixmail

Sub MAIN

dowhat = 1
If SelType() = 2 Then
dowhat = 0
End If

EditReplace .Find = "^p", .Replace = "@@@", .Direction = 0, .ReplaceAll, .Wrap = dowhat
EditReplace .Find = "@@@@@@", .Replace = "^p^p", .Direction = 0, .ReplaceAll, .Wrap = dowhat
EditReplace .Find = "@@@", .Replace = " ", .Direction = 0, .ReplaceAll, .Wrap = dowhat

End Sub

[Phonetics] 台灣國語、閩南語、客語族群元音

數據來源：
張月琴. (1998). 從聲學角度描寫台灣國語的單元音. 清華學報, 28(3), 255.

我自己重新在Execl 上畫圖：

[Computer] Excel Macro - 隔行著色

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False Cells.Select

Selection.Interior.ColorIndex = xlNone
i = 1
Do Until Cells(i, 1).Value = ""
Rows(i + 1).Select
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
i = i + 2
Loop

Application.ScreenUpdating = True

End Sub