📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -