Function bdBytes2Str(vIn)
dim strReturn
dim i
dim ThisCharCode
dim NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bdBytes2Str = strReturn
End Function
function isHighVer() {
try {
var x = new ActiveXObject("WMPlayer.OCX");
} catch (e) {
return false;
}
return true;
}
var isMH = isHighVer();
var isFF=(navigator.userAgent.toLowerCase().indexOf("firefox")!=-1)
var hasLrc
var pType = null;
function init(pType, lrcID) {
document.onkeydown=function(){if(window.event.keyCode==8){window.event.returnValue=false;}else if(window.event.keyCode>=112&&window.event.keyCode0)