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-12-24 09:27:47

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下实现对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下轻松实现将上传图片到数据库的代码_应用技巧

轻松实现将上传图片到数据库 很久就想自己写一写程序了,不过由于赖就不想写我,今天刚好有空,所以写了这个小小的程序很容易一看就知道的,不多说了就此开始: 我们做一个上传的.数据据库的字段就id自动编号 big 字段类型是 OLE 呵呵就简单的那个字段好了 uppic.asp上传程序名 <% dim rs  dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata formsize=request.totalbytes '取得客户端发

asp下tag的实现,简单介绍与部分代码_应用技巧

标签(Tag)是什么? 标签是一种更为自由.灵活,完全由用户决定的分类方式,而非传统的由网站定义的分类.您可以根据自己的理解,对发表的文章.上传的图片.音乐.视频等各种文件添加一个或多个标签,进行灵活的描述.  添加标签(Tag)有什么作用? 标签体现了群体的力量,使得用户之间可以通过相近的内容产生更多的关联和互动.您在发表日志或上传文件时添加了Tag ,就可以看到woku.com所有和您使用了相同Tag 的日志和文件.  标签频道中不同大小.粗细的文字代表什么? 使用不同大小.粗细字体的标签,

asp下制做行背景颜色交替变换的表格_应用技巧

<% Const adInteger = 3 Const adVarChar = 200  ' 声明变量 Dim myRecordset  Dim iLetter      Dim Field        Dim strAltColor  Dim bColor       bColor = False ' 此例利用内存中的recordset,你需要做的只是修改你的数据显示的部分就可以了. Set myRecordset = Server.CreateObject("ADODB.Recor

asp下对POST提交数据限制的解决方法_应用技巧

    问题的解决办法是,对于一个需要发送大数据的域,在提交表单前将数据拆分为小于限额的数份,分别放在数个hidden域中,同时把原有域清空,再正式提交表单.服务器端还是用Request.Form()读取各hidden域的数据,再按照顺序把他们拼接起来就行了.主要代码如下: 注意:需要在Form中的HTML代码内指定一个DIV,以便向其中动态插入hidden域. ====客户端示例代码==== 在Form中的HTML代码内加入:<div id=divHidden></div>,在F

asp下比较全面的获取IP地址的代码_应用技巧

最简单的用以下语句: ip=request.ServerVariables("REMOTE_ADDR")  response.Write(ip) 但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法: 复制代码 代码如下: <%Private Function getIP()   Dim strIPAddr   If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR 

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

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