2005-03-27

[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>
<!--圖片隨位置而移動結束-->

2005-03-17

[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

2005-03-16

[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