教育系统应用

开发平台：

Delphi

levellistnew.asp：源码内容

							<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="xcss.css">
</head>
<body>
<script LANGUAGE="VBScript">
<!--
Function Dec(strHex)
    Dec = InStr("123456789ABCDEF", UCase(Left(strHex,1))) * 16
    Dec = Dec + InStr("123456789ABCDEF", UCase(Mid(strHex,2,1)))
End Function
Function FixHex(ByVal strURL)
    Dim x
    FixHex = ""    
    x = InStr(1,strURL,"%")
    Do While (x > 0)
        FixHex = FixHex & Left(strURL,x-1)
        FixHex = FixHex & Chr(Dec(Mid(strURL,x+1)))
        strURL = Mid(strURL,x+3)
        x = InStr(1,strURL,"%")
    Loop
    FixHex = FixHex & strURL
End Function
-->
    </script>
<object id="hhctrl" type="application/x-oleobject"
classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
codebase="../../common/i386.cab#version=4,72,7291,0" width="180" height="70%">
  <param name="Command" value="Contents">
  <param name="flags" value="0x0,0x35,0xFFFFFFFF">
  <param name="Item1" value="cohhc.hhc">
</object>
</p>
</body>
</html>

						