📄 wcee.htm

📁 很好用的ftp源码
💻 HTM
📖 第 1 页 / 共 2 页
字号:
上一页 12

        if( y < 0 )
            break;        
    }

    document.cSteps = i;
    document.yPixel = new Array(i);
    document.ptSize = new Array(i);

    for(i=0; i<document.cSteps; i++)
    {
        document.yPixel[i] = yPixel[i];
        document.ptSize[i] = ptSize[i];
    }

    var spans = document.all.tags( "span" );
    document.cNames    = spans.length;
    document.iStart    = spans[0].sourceIndex;
    document.iName     = 0;
    document.divNames  = document.all.item( "DivName" );

    window.setTimeout( "AnimAddName(0);", 100 );
}

function CancelEvent()
{
    // Disable dragging to prevent the user from selecting text in the tips area.
	return false;
}
function OnKeyDown()
{
	if (window.event.keyCode==27) //Respond to ESC key
		window.close();
}

function OnLoad()
{
    if (DecodeStr("gurjPRR") != window.name)
        return;

    document.ondragstart   = CancelEvent;
    document.onselectstart = CancelEvent;
    document.onkeydown     = OnKeyDown;
    ELogo.style.visibility = "";

    LoadHashTable();
    LoadAnimation();
}
</SCRIPT>


<SCRIPT LANGUAGE="vbscript">
Const g_nEncodeOffset = 13
Const g_nEndOfLineEncoding = 123
Const g_nBeginningOfCharSet = 65
Const g_nCharSetSize = 52
Const g_nStartOfUpperSet = 90
Const g_nSetDelta = 6


Function DecodeChar(chIn)
	Dim nOut
	Dim nIn

    nIn = Asc(chIn)

	if 32 = nIn then
		nOut = nIn
	else
        if nIn > g_nStartOfUpperSet then
            nIn = nIn - g_nSetDelta
        end if

    	nOut = (nIn - g_nEncodeOffset)

		if nOut < g_nBeginningOfCharSet then
			nOut = (nOut + g_nCharSetSize)
		end if

        if nOut > g_nStartOfUpperSet then
            nOut = nOut + g_nSetDelta
        end if

    end if

	DecodeChar = Chr(nOut)
end Function

Function DecodeStr(strIn)
	Dim strOut
	strOut = ""

	While 0 < Len(strIn)
		if Asc(strIn) = g_nEndOfLineEncoding then
			strOut = strOut & vbCrLf
		else
			strOut = strOut & DecodeChar(strIn)
		end if

		strIn = Right(strIn, Len(strIn) - 1)
	Wend

	DecodeStr = strOut
end Function
</SCRIPT>

<STYLE>
.DivName { 
    position:absolute; width:200%; height:50px; left:-50%; top:0; font-family:Verdana,Arial; visibility:hidden; text-align : center;
}
body { 
    border:none; margin:0; color:white; background: black;
}
</STYLE>
</HEAD>

<BODY onload="OnLoad()" scroll=no>

<IMG ID=ELogo src="ierocks.gif" style="position:absolute; left: 0; top: 0; visibility:hidden">

<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>
<DIV ID=DivName CLASS=DivName>&nbsp</DIV>

<DIV ID=DivHolder STYLE="display:none">&nbsp</DIV>

</BODY>
</HTML>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -