ASP常用函数:CLngIP()
作用:把IP地址转为长整型
<%
Function CLngIP(ByVal asNewIP)
Dim lnResults
Dim lnIndex
Dim lnIpAry
lnIpAry = Split(asNewIP, ".", 4)
For lnIndex = 0 To 3
If Not lnIndex = 3 Then
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
End If
lnResults = lnResults + lnIpAry(lnIndex)
Next
CLngIP = lnResults
End Function
%>
相关推荐
-
ASP常用函数:CLngIP()
作用:把IP地址转为长整型 <% Function CLngIP(ByVal asNewIP) Dim lnResults Dim lnIndex Dim lnIpAry lnIpAry = Split(asNewIP, ".", 4) For lnIndex = 0 To 3 If Not lnIndex = 3 Then lnIpAry(lnIndex) = lnIpAry(lnIndex) *
-
ASP常用函数收藏乱七八糟未整理版
<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip() Dim GetClientIP '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&
-
asp 常用函数用法
Array() FUNCTION: 返回一个数组 SYNTAX: Array(list) ARGUMENTS: 字符,数字均可 EXAMPLE: <% Dim myArray() For i = 1 to 7 Redim Preserve myArray(i) myArray(i) = WeekdayName(i) Next %> RESULT: 建立了一个包含7个元素的数组myArray myArray("Sunday",&
-
ASP常用函数:XMLEncode
输出RSS和XML时经常用到,和HTMLEncode还不完全一样 原理: Character Converted To " " ' ' & & < < > > 代码<%Function XMLEncode(byVal sText) sText = Replace(sText, "&" , "&") sText = Replace(sText, "
-
ASP常用函数:Trace()
复制代码 代码如下: <% '//---- 输入字符串并结束当前页面(调试用),函数可以也命名为Debug ----// Function Trace(s) On Error Resume Next Response.Write(s & vbCrLf) Response.End() End Function %> 下面的是个修改升级版,还在测试中... 复制代码 代码如下: <% '//---- 输入字符串并结束当前页面(调试用) ---
-
ASP常用函数:Delay()
代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% Function Delay(s) Dim t = Now() While DateDiff("s", t, Now) < s Wend End Function %> 转载自:http://jorkin.reallydo.com/article.asp?id=224
-
ASP常用函数:CStrIP()
作用:把长整型数字转为IP地址 <% Function CStrIP(ByVal anNewIP) Dim lsResults Dim lnTemp Dim lnIndex For lnIndex = 3 To 0 Step -1 lnTemp = Int(anNewIP / (256 ^ lnIndex)) lsResults = lsResults & lnTemp & "." a
-
ASP常用函数:ReplaceHTML
<% '去掉HTML标记 Public Function ReplaceHTML(Textstr) Dim Str, re Str = Textstr Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = "<(.[^>]*)>" Str = re.Replace(Str, "") Set R
-
ASP常用函数:ArrayToxml
<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot) Dim i, node, rs, j If xmlroot = "" Then xmlroot = "xml" Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
-
ASP常用函数:HTMLDecode
<% Function HTMLDecode(sText) Dim I sText = Replace(sText, "&" , Chr(38)) sText = Replace(sText, """", Chr(34)) sText = Replace(sText, "<" , Chr(60)) sText = Replace(sText, ">&q
随机推荐
- 前端常用正则表达式汇总
- jsp连接MySQL实现插入insert操作功能示例
- Oracle 10G:PL/SQL正规表达式(正则表达式)手册
- c#生成图片缩略图的类(2种实现思路)
- php防止伪造的数据从URL提交方法
- go语言执行等待直到后台goroutine执行完成实例分析
- bootstrap multiselect 多选功能实现方法
- oracle怎么删除用户提供解决方案
- MongoDB db.serverStatus()输出内容中文注释
- jQuery倒计时代码(超简单)
- 如何在Mozilla Gecko 用Javascript加载XSL
- js实现五星评价功能
- node.js中express-session配置项详解
- 从Java的jar文件中读取数据的方法
- 手动清除rundll2kxp.exe病毒的方法,无需专杀
- 杰奇一些安装详细说明文件,比官方更细
- MongoDB中ObjectId的误区及引起的一系列问题
- thinkphp 手机号和用户名同时登录
- java组件SmartUpload和FileUpload实现文件上传功能
- 堆排序实例(Java数组实现)