檔案列表

函式說明

傳回值說明

HEX轉字串函式 (每二個 Byte 合成一個字串的方法)

<SCRIPT LANGUAGE=VBScript> Function HEX2CHR(H)     Dim OutCHR     Dim I     If Len(H) > 0 Then         For I = 1 To Len(H) Step 2             If Clng("&H"& Mid(H, I, 2)) > 127 Then                OutCHR = OutCHR & Chr(Clng("&H" & Mid(H, I, 4)))                I = I + 2             Else                 OutCHR = OutCHR & Chr(Clng("&H" & Mid(H, I, 2)))             End If         Next     End If     HEX2CHR = OutCHR End Function </SCRIPT>

物件ID

控制項	CLSID	物件名稱
GSPTsmc.ocx	7C31A56E-AF68-4BEE-A073-5E75F8CF77F0	GSPTsmcCtrl1

在網頁中的宣告

<OBJECT CLASSID="CLSID:7C31A56E-AF68-4BEE-A073-5E75F8CF77F0"ID="GSPTsmcCtrl1" CODEBASE="http://your URL and path/GSPTsmc.ocx#version=1,0,0,1"> </OBJECT>