levellistnew.asp
资源名称:图书管理系统.rar [点击查看]
上传用户:llrg7406
上传日期:2007-03-02
资源大小:654k
文件大小:1k
源码类别:
教育系统应用
开发平台:
Delphi
- <%@ 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>