ASP常用函数:Trace（）

2017年02月06日 69 阅读

复制代码 代码如下:<% "//----输入字符串并结束当前页面（调试用）,函数可以也命名为Debug----// FunctionTrace（s） OnErrorResumeNext Response.Write（s&vbCrLf） Response.End（） EndFunction %>下面的是个修改升级版,还在测试中... 复制代码 代码如下:<% "//----输入字符串并结束当前页面（调试用）----// FunctionTr...

[转]ASP实现关键词获取（各搜索引擎,GB2312及UTF-8）

2017年02月06日 80 阅读

不知道为什么现在各大搜索引擎编码居然不一样.当然不是GB2312就是UTF-8了.编码问题是比较头疼的问题...头疼的不要命...我们获得关键词,一般是通过来访页面的url进行分析的.比如http://www.google.com/search？hl=zh-CN&q=%E5%AD%A4%E7%8B%AC&lr=各位肯定知道这个是通过urlencode编码的.我们得到其中的信息,需要进行2步.第一步是进行urldecode,在我们普通参数活得的时候,这个是由...

ServerVariables集合检索预定的环境变量

2017年02月06日 67 阅读

服务器环境变量说明Request.ServerVariablesALL_HTTP客户端发送的所有 HTTP 标题文件。ALL_RAW检索未处理表格中所有的标题。ALL_RAW 和 ALL_HTTP 不同，ALL_HTTP 在标题文件名前面放置 HTTP_ prefix，并且标题名称总是大写的。使用 ALL_RAW 时，标题名称和值只在客户端发送时才出现。APPL_MD_PATH检索 ISAPI DLL 的 （WAM） Application 的元数据库路径...

HTTP_HOST 和 SERVER_NAME 的区别详解

2017年02月06日 79 阅读

相关资料:查看所有的Server VariablesServerVariables集合检索预定的环境变量意义今天突然想起每次请求 HTTP_HOST 和 SERVER_NAME 的值总是一样的,干嘛还有用两个名称,它们之间有什么区别呢？网上也没有一个确定的说法,到Microsoft上找到了一个解释:在Windows2000下SERVER_NAME等于HTTP_HOST在Windows2003下>> 下面的*号为Request.ServerVar...

[转]ASP常用函数:TimeZone

2017年02月06日 71 阅读

功能:获取服务器所在时区 复制代码 代码如下:<% FunctionTimeZone（） SetoShell=CreateObject（"WScript.Shell"） atb="HKEY_LOCAL_MACHINESystemCurrentControlSet"&_ "ControlTimeZoneInformationActiveTimeBias" TimeZone=-oShell.RegRead（atb）/60 EndFunction %>...

Eval 函数 | Execute 语句 | ExecuteGlobal 语句使用说明

2017年02月06日 86 阅读

Eval 函数计算一个表达式的值并返回结果。[result = ]Eval（expression）参数result可选项。 是一个变量，用于接受返回的结果。如果未指定结果，应考虑使用 Execute 语句代替。expression必选项。可以是包含任何有效 VBScript 表达式的字符串。说明在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二种解释是测试 x 和 y 是否相等。如果相等，result 为...

IIS 错误 Server Application Error 详细解决方法

2017年02月06日 116 阅读

Server Application ErrorThe server has encountered an error while loading an application during the processing of your request.Please refer to the event log for more detail information.Please contact the server administrator for a...

On Error Resume Next 语句

2017年02月06日 85 阅读

启用或禁用错误处理程序。 说明 如果在您的代码中未使用OnErrorResumeNext语句,所发生的运行时错误将显示错误信息，同时，代码的执行也随之终止。但是具体操作由运行代码的主机决定。主机有时可有选择地处理各类错误。在有些情况下，它可以在出错的地方激活脚本调试器。而在另一些情况下,由于主机无法通知用户，因此对所发生的错误没有明确说明。至于如何处理错误则完全取决于主机的功能。 在任意一个特殊过程中，只要在调用堆栈的地方启用错误处理程序，所发生的错误一般...

ASP常用函数:CStrIP（）

2017年02月06日 77 阅读

作用:把长整型数字转为IP地址 <% FunctionCStrIP（ByValanNewIP） DimlsResults DimlnTemp DimlnIndex ForlnIndex=3To0Step-1 lnTemp=Int（anNewIP/（256^lnIndex）） lsResults=lsResults&lnTemp&"." anNewIP=anNewIP-（lnTemp*（256^lnIndex）） Next lsResults=Left...

ASP常用函数:CLngIP（）

2017年02月06日 74 阅读

作用:把IP地址转为长整型 <% FunctionCLngIP（ByValasNewIP） DimlnResults DimlnIndex DimlnIpAry lnIpAry=Split（asNewIP,".",4） ForlnIndex=0To3 IfNotlnIndex=3Then lnIpAry（lnIndex）=lnIpAry（lnIndex）*（256^（3-lnIndex）） EndIf lnResults=lnResults+lnIp...

ASP常用函数:XMLEncode

2017年02月06日 70 阅读

输出RSS和XML时经常用到,和HTMLEncode还不完全一样原理:CharacterConverted To"""'&&<<>>代码<%Function XMLEncode（byVal sText） sText = Replace（sText, "&" , "&"） sText = Replace（sText, "<" , "<"） sText = Replace（sText...

查看所有的Server Variables的环境变量

2017年02月06日 74 阅读

下列代码保存为ASP文件就可以了 <tableborder=0cellpadding=0cellspacing=1bgcolor="#d0c0F0"> <tr> <td><tableborder=0cellpadding=3cellspacing=0bgcolor="#F0F0F8"> <tRbgcolor="#d0c0f0"> <td><b>VariableName<...

随机提取N条记录 推荐

2017年02月06日 84 阅读

随机提取10条记录的例子： Sqlserver： selecttop10*from表orderbynewid（） Access： Selecttop10*FROM表orDERBYRnd（id） Rnd（id）其中的id是自动编号字段，可以利用其他任何数值来完成 比如用姓名字段（UserName） Selecttop10*FROM表orDERBYRnd（len（UserName）） MySql： Select*From表orderByrand（）Limit1...

一个可以自动创建多级目录的函数

2017年02月06日 68 阅读

<% "创建多级目录，可以创建不存在的根目录 "参数：要创建的目录名称，可以是多级 "返回逻辑值，True成功，False失败 "创建目录的根目录从当前目录开始 "--------------------------------------------------- FunctionCreateMultiFolder（ByValCFolder） DimobjFSO,PhCreateFolder,CreateFolderArray,CreateFold...

ASP常用函数收藏乱七八糟未整理版

2017年02月06日 71 阅读

<% "******************************************************************* "取得IP地址 "******************************************************************* FunctionUserip（） DimGetClientIP "如果客户端用了代理服务器，则应该用ServerVariables（"HTTP_X_FORW...

ASP常用函数:HTMLDecode

2017年02月06日 70 阅读

<% FunctionHTMLDecode（sText） DimI sText=Replace（sText,"&",Chr（38）） sText=Replace（sText,"""",Chr（34）） sText=Replace（sText,"<",Chr（60）） sText=Replace（sText,">",Chr（62）） sText=Replace（sText,"",Chr（32）） ForI=1To255 sText=Repl...

15种ASP技巧

2017年02月06日 67 阅读

*技巧1：给应用层文件使用GLOBAL.ASA 将文件加载GLOBAL.ASA中的一个应用层数组中，而不是通过使用ASP文件系统对像在页面上读取文件。 GLOBAL.ASA可用于指定事件脚本，也可用于声明拥有session或应用程序范围的对象。它不直接显示给用户，而是存储应用层事件的信息和对象。然后通过页面就可以指向存有数据的应用层数组。这就意味着每有一个服务器端请求就读一次文件，不是每个用户每页读一次。你可以运行一个独立的ASP文件去刷新应用层数组的内容...

ASP常用函数:IIF（）

2017年02月06日 68 阅读

用法:IIF（条件表达式,为真时返回值,为假时返回值） <% FunctionIIf（bExp1,sVal1,sVal2） If（bExp1）Then IIf=sVal1 Else IIf=sVal2 EndIf EndFunction %> ...

ASP常用函数:ArrayToxml

2017年02月06日 84 阅读

<% PublicFunctionArrayToxml（DataArray,Recordset,row,xmlroot） Dimi,node,rs,j Ifxmlroot=""Thenxmlroot="xml" SetArrayToxml=Server.CreateObject（"msxml2.FreeThreadedDOMDocument"&MsxmlVersion） ArrayToxml.appendChild（ArrayToxml.create...

ASP常用函数:ReplaceHTML

2017年02月06日 75 阅读

<% "去掉HTML标记 PublicFunctionReplaceHTML（Textstr） DimStr,re Str=Textstr Setre=NewRegExp re.IgnoreCase=True re.Global=True re.Pattern="<（.[^>]*）>" Str=re.Replace（Str,""） SetRe=Nothing ReplaceHTML=Str EndFunction %> ...