2014年4月21日 星期一

ASP如何載入utf-8格式的文件到字串

參考網址:http://www.lslnet.com/linux/f/docs1/i28/big5225614.htm






使用檔案:
1. sample01.html 要載入的 utf-8 檔案,內容如下:






測試中文
test123 Table


2. out_file.asp 要執行的檔案 使用 utf-8 檔案,內容如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Function LoadFile(ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File)
If Err.Number<>0 Then
Response.Write "出錯,文件不存在"
Err.Clear
Response.End
End If
.Charset = "utf-8"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function
%>






<%=LoadFile("./sample01.html")%>
<%=replace(LoadFile("./sample01.html"),"123","一二三")%><-- font="">

我的魚菜共生雜記(一)

我的魚菜共生雜記(一)
2014-04-10(四)
不小心在youtube上看到 魚菜共生 的片子,感覺非常的有趣。

2014-04-14(一)
露天找到一個「太陽能水族套組」的東西感覺好像蠻節能環保的,噴泉 太陽能板4W+無刷抽水馬達(5-12V)+6V4A電瓶 邊用邊充,共1300

2014-04-15(二)
太陽能組一直沒時間看它 日照工作 先試做 「虹吸排水系統」,水族套組沒有附出水管,在水電材料行找到到可以直接接到出水口的水管,只好到水族管買打氣泡用的軟管在接,可以順利接上;搞了一晚上沒有成功做出排水系統。原因是用了太大的罩子吸不到水,但倒是找到了一個可以試做上部的種菜盆和一個很久都沒在用的金魚缸(圓的)。

2014-04-16(三)
「虹吸排水系統」晚上繼續實驗,換了較小的罩子,又做了一個排水管,發現進水量會造成系統是否可以正常排水的問題,水族套組+打氣軟管 出水量實在太小了,實在不知是不是哪小電瓶不夠力還是這「太陽能水族套組」實在打不出什麼水來!!(發現這套組附的馬達有一些套件可以做小噴泉用的,剛好可以拿去找有沒大一點的管子可以用)

2014-04-17(四)
中午 跑了一趟園藝店,找「發泡煉石」,店員說現在沒有,明晚會進貨。
晚上 又跑了一趟水電材料行合了一下馬達配件套管,結果最小的冷氣機排水管可以接上馬上買了10尺(1尺3元,共30元)回家實驗。水量有加大許多,但還是不夠大,無法正常排水。

2014-04-18(五)
晚上 跑了一趟園藝店買到了發泡煉石,順手買了一包青梗白菜的種子。
煉石買好,又跑了一趟水電材料行,主要是要買接在排水下部的彎頭,結果沒有4分的,最小只有6分的,只好買了 6分彎頭2個+6分三通1個。
今天 的實驗不小心把 哪可愛的玻璃魚缸給弄破了,主要是因為要將水倒出,但只單手抓缸口來倒,缸裡的水太重,就一把給弄破了。(以後拿這類易碎的東西最好還是雙手托底拿安全點)

2014-04-19(六)
昨天將玻璃缸給弄破了,只好拿了個小塑料盆來頂上。(一整個質感掉了很多 >"<)
「虹吸排水系統」的進水實在還是太小了,總是沒法正常的做排放。最後想到馬桶的排水原理(應該也算是虹吸原理),就用哪冷氣排水管試做了一下,總算可以正常的排水了。
發泡煉石就定位了,暫時先用塑料小水杯裝,一杯先投一顆菜種籽看看情況。
PS1. 無法正常排水的問題,主要是進水太小造成排水時無法產生水封將水從上盆內吸出,以致造成無法正常排水的問題。
PS2.馬桶的排水原理會有水封的問題,就是會把 上罩給撐起。
PS3.這煉石還蠻用浮的。不知用久了會不會沉下去 = =a

2014-04-20(日)
早上把電瓶的電用完了沒法再做排水實驗了 >"<。家中找了一個9V的DC變壓器(電錶量有10.3V 這是我可以找到 最接近6V的了,一般應用7.5V的電壓來充6V的電)
中午跑了一趟電子材料行,買DC變壓器要用來對接的端子頭,要拿來自己做線。(太久沒拿鉻鐵了銲了半天才銲好)
小魚也順路買回來了 朱文錦 1兩20元(差不多20-30尾),另在 10元店買了 一罐魚飼料 45元。

本篇完。(改天來補照片)