📄 declare.asp
字号:
<%@language="vbscript"%>
<!--METADATA TYPE="TypeLib" NAME="Microsoft ActiveX Data Objects 2.5 Library" UUID="{00000205-0000-0010-8000-00AA006D2EA4}" VERSION="2.5"-->
<object id="fso" progid="Scripting.FileSystemObject" runat="server"></object>
<object id="xml" progid="MSXML2.FreeThreadedDOMDocument" runat="server"></object>
<%
Option Explicit
Server.ScriptTimeOut = 999999
Session.LCID = 2052
Response.Buffer = True
Response.CacheControl = "no-cache, max-age=0"
Response.Expires = 0
Response.AddHeader "Pragma", "no-cache"
Public Const KBYTE = 1024
Public Const MBYTE = 1048576
Public Const GBYTE = 1073741824
Private Const ITEM_QUERY = 0
Private Const ITEM_FORM = 1
Private Const ITEM_FILE = 2
Public Const adAccess = 0
Public Const adSQLServer = 1
Public Const adOracle = 2
Public Const adMySQL = 3
Public Const vbUpperCase = 1
Public Const vbLowerCase = 2
Public Const vbProperCase = 3
Public Const vbWide = 4
Public Const vbNarrow = 8
Public Const vbUnicode = 64
Public Const vbFromUnicode = 128
Public Const WAPMO_CODEPAGE = 65001
Public Const LOCAL_CODEPAGE = 936
Public Const WAPMO_CHARSET = "utf-8"
Public Const LOCAL_CHARSET = "gb2312"
Public Const MEMORY_LENGTH = 24
Public Const GMT_TIMEZONE = 8
Public Const PROGID_FSO = "Scripting.FileSystemObject"
Public Const PROGID_HASH = "Scripting.Dictionary"
Public Const PROGID_XMLDOM = "MSXML2.FreeThreadedDOMDocument"
Public Const PROGID_XMLHTTP = "MSXML2.ServerXMLHTTP"
Public tmStart
tmStart = Timer
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -