asp下实现格式化文件大小以MB显示的函数

<%

'******************************

'函数：FormatFileSize(l1)

'参数：l1,字节数

'作者：阿里西西

'日期：2007/7/12

'描述：格式化文件大小样式

'示例：<%=FormatFileSize(l1)%>

'******************************

function FormatFileSize(l1)

 dim l2,l3

 l3=formatnumber(l1,0,true)

 if l1>1048576 then

 l2="("&formatnumber(l1/1048576,0,true)&" MB) "&l3

 else

  if l1>1024 then

   l2="("&formatnumber(l1/1024,0,true)&" KB) "&l3

  else

   l2=formatnumber(l1,0,true)

  end if

 end if

 llI=l2

end function

%>

时间： 2024-07-29 20:19:31

asp下实现格式化文件大小以MB显示的函数的相关文章

asp下实现格式化文件大小以MB显示的函数_应用技巧

<% '****************************** '函数:FormatFileSize(l1) '参数:l1,字节数 '作者:阿里西西 '日期:2007/7/12 '描述:格式化文件大小样式 '示例:<%=FormatFileSize(l1)%> '****************************** function FormatFileSize(l1)  dim l2,l3  l3=formatnumber(l1,0,true)  if l1>104

asp下正则实现URL自动链接的一个函数_正则表达式

复制代码 代码如下: Function AutoLinkURLs(strString)       Dim match, matches, offset, url, email, link, relnkAutoLinkURL       relnkAutoLinkURL = "<a href=""[[%URL%]]"">[[%URLText%]]</a>"       If Not IsObject(regExp) The

asp下实现对HTML代码进行转换的函数_应用技巧

<% '****************************** '函数:HTMLEncode(reString) '参数:reString,待编码转换处理的字符串 '作者:阿里西西 '日期:2007/7/15 '描述:对HTML代码进行转换 '示例:HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString)

asp下的一个检测链接是否正常的函数_应用技巧

Function urlChk(sUrl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",sUrl,false xmlHttp.send     if xmlHttp.Status <> 200 then         urlChk=false     else         urlChk=true     

asp下的一个检测链接是否正常的函数

Function urlChk(sUrl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",sUrl,false xmlHttp.send     if xmlHttp.Status <> 200 then         urlChk=false     else         urlChk=true     

asp下正则实现URL自动链接的一个函数

复制代码 代码如下:Function AutoLinkURLs(strString)       Dim match, matches, offset, url, email, link, relnkAutoLinkURL       relnkAutoLinkURL = "<a href=""[[%URL%]]"">[[%URLText%]]</a>"       If Not IsObject(regExp) Then

asp下实现对HTML代码进行转换的函数

<% '****************************** '函数:HTMLEncode(reString) '参数:reString,待编码转换处理的字符串 '作者:阿里西西 '日期:2007/7/15 '描述:对HTML代码进行转换 '示例:HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString)

ASP下经常用的字符串等函数参考资料_ASP基础

参考资料之ASP函数  整理下asp下常用的字符串,数据等操作函数,大家在平时操作中也经常遇到的 1.函数 array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: 结果: i 被赋予为数组 2.函数 Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子:   结果: 236 函数Cint()

ASP下经常用的字符串等函数参考资料

参考资料之ASP函数  整理下asp下常用的字符串,数据等操作函数,大家在平时操作中也经常遇到的 1.函数 array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: 结果: i 被赋予为数组 2.函数 Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子:   结果: 236 函数Cint()