[转]ASP常用函数:TimeZone

功能:获取服务器所在时区

代码如下:

<% 
Function TimeZone() 
    Set oShell = CreateObject("WScript.Shell") 
    atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _ 
         "Control\TimeZoneInformation\ActiveTimeBias" 
    TimeZone = - oShell.RegRead(atb) / 60 
End Function 
%>

时间： 2007-02-04

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 " " ' &apos; & & < < > > 代码<%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