ASP常用函数:getpy()

<% '取字段数据每个汉字的拼音首字母 Function getpychar(char)     tmp = 65536 + Asc(char)     If(tmp>= 45217 And tmp<= 45252) Then         getpychar = "A"     ElseIf(tmp>= 45253 And tmp<= 45760) Then         getpychar = "B"     ElseIf(tm

<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip()     Dim GetClientIP     '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&

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",&

输出RSS和XML时经常用到,和HTMLEncode还不完全一样 原理: Character Converted To " " ' &apos; & & < < > > 代码<%Function XMLEncode(byVal sText)    sText = Replace(sText, "&" , "&")    sText = Replace(sText, "

复制代码 代码如下: <%  '//---- 输入字符串并结束当前页面(调试用),函数可以也命名为Debug  ----// Function Trace(s)      On Error Resume Next      Response.Write(s & vbCrLf)      Response.End()  End Function  %> 下面的是个修改升级版,还在测试中... 复制代码 代码如下: <%  '//---- 输入字符串并结束当前页面(调试用)  ---

代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% Function Delay(s)     Dim t = Now()     While DateDiff("s", t, Now) < s     Wend End Function %> 转载自:http://jorkin.reallydo.com/article.asp?id=224

作用:把长整型数字转为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

<% '去掉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

<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot)     Dim i, node, rs, j     If xmlroot = "" Then xmlroot = "xml"     Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)

<% Function HTMLDecode(sText)     Dim I     sText = Replace(sText, "&" , Chr(38))     sText = Replace(sText, """", Chr(34))     sText = Replace(sText, "<" , Chr(60))     sText = Replace(sText, ">&q