2005-04-20

[CALL] SCORM & Language Learning

今天想在網路上找一些關於SCORM和語言學習相關的資料
在Google裡鍵入關鍵字、選擇中文網頁後
發現排名第一的
居然是自己寫的東西.......
這種感覺還蠻詭異的..... :p

http://www.elet.org.tw/icice2005/html/paper/paper66.htm

2005-04-14

[Computer] VBA 判斷文字是否相同

Sub Macro1()

Dim rwIndex As Integer
For rwIndex = 2 To 1346
If Cells(rwIndex, 4) = "" Then
Cells(rwIndex, 4) = Cells(rwIndex, 2)
Else Cells(rwIndex, 4).Select
Selection.Font.ColorIndex = 3
End If
Next rwIndex

End Sub

2005-04-13

[Computer] Meta tag

轉址
<META HTTP-EQUIV="redirect" CONTENT="3; URL=../index.htm">
'content = 秒數

關鍵字
<META NAME="keywords" CONTENT="key,word,keyword,關鍵字">

製作軟體
<META NAME="generator" CONTENT="Notepad">


網頁內容摘要 語法如下: <META NAME="description" CONTENT="好棒的網頁啊!">

作者、版權、有效期間...... 語法如下:
<META NAME="author" CONTENT="艾爾弗烈德"> 告訴搜尋引擎這篇網頁是由誰製作的。


<META NAME="copyright" CONTENT="本網頁著作權屬艾爾弗烈德所有"> 告訴搜尋引擎這篇網頁是......你知道嘛!

<META NAME="expires" CONTENT="31 December 2002"> 告訴搜尋引擎這篇網頁何時需要從登錄資料庫中刪除。

<META NAME="distribution" CONTENT="global"> 告訴搜尋引擎這篇網頁是全世界性的。

<META NAME="revisit-after" CONTENT="30 days"> 告訴搜尋引擎30天之後再來一次這篇網頁,也許要重新登錄。

<META NAME="robots" CONTENT="all"> 告訴所有的搜尋引擎的"小機器人",來登錄這篇網頁吧!

<META NAME="expires" CONTENT="-1"> 或 <META NAME="pragma" CONTENT="no-cache"> (僅IE適用)
告訴瀏覽程式不要將這篇網頁放在電腦暫存檔中,當然同時告訴搜尋引擎這篇網頁不需要登錄至資料庫。

From:
http://www.geocities.com/alfredcave/Meta.html

2005-04-07

[Computer] CSS對表格隔行設背景色

不同顏色的行,用不同的css
有三行不同顏色的,就要設置3各樣式
---------------------------------------------------------------

<style>
.row1 {background-color:#0000ff}
.row2 {background-color:#ffffff}
</style>

<table>
<tr class="row1"><td> something 1</td></tr>
<tr class="row2"><td> something 2</td></tr>
<tr class="row1"><td> something 3</td></tr>
<tr class="row2"><td> something 4</td></tr>
</table>

2005-04-04

[Computer] 內容根據輸入時的換行而換行?

怎麼才能輸入的文本框中的內容會根據輸入時的換行而換行?
答:文本區 <textarea>的話屬性wrap="OFF"


問:如何實現會根據輸入文本的換行。而不是你輸入了一大段的文字(中間有回車符)可是從記錄中再次調出的時候就沒回車符了,只是在應該換行的地方變成了空格。
答:
<%
if rsLink.Fields.Item("txtIntro").Value <> "" then
sContent = (rsLink.Fields.Item("txtIntro").Value)
sContent = Replace(sContent, Chr(13) & Chr(10), "
")
'sContent = Replace(sContent," "," ")
Response.Write(sContent)
else
Response.Write(rsLink.Fields.Item("txtIntro").Value)
End if
%>


Ps. Content的內容不得為空,否則會出現錯誤

2005-04-01

[Miscellaneous] 鑰匙

今天收到excellent還給我的鑰匙
我想,我們兩個人最後的一絲聯繫
就這樣被切斷了.....

那是excellent當初在我腳受傷為我送飯時我給她的
當時走路得要拄著柺杖
上下樓梯很是不便
為了方便她上來
我把備份的鑰匙給了她

後來兩人漸行漸遠
我卻始終沒跟她要回來
也許,心裡還想讓她保有我的一點點東西吧....
雖然這只是一個小小的妄想罷了
而今,我還是收到她退回來的東西了

我受傷至今也超過一年了
雖然常常想著她、念著她
但卻也始終不敢再去自討沒趣
偶爾從別人口中聽到關於她的事情
但真正與她面對面時
卻發現變得好陌生...


本來就沒有交集的兩個人
現在最多就是偶然碰見了說聲嗨

也許
就像兩條平行線
永會不會有交會的一天吧....