DateDiff 函数 描述 返回两个日期之间的时间间隔。 语法 DateDiff(interval, date1, date2 [,firstdayofweek][, firstweekofyear]]) DateDiff 函数的语法有以下参数: 参数 描述 interval 必选。字符串表达式,表示用于计算 date1 和 date2 之间的时间间隔。有关数值,请参阅“设置”部分。 date1, date2 必选。日期表达式。用于计算的两个日期。 firstdayofweek 可选。指定星期中第一天的常数。如果没有指定,则默认为星...
代码如下:'============================== '功能描述: 用正则除去HTML标记 '不能保留<b><strong>等以及用户自定义的<和> '============================== Function RemoveHTMLTag(fString) Dim re Set re = New RegExp re.IgnoreCase = True re.Pattern = "<(.[^>]*)>" fString = re.Replace(fString, "") Set re = Nothing RemoveHTMLTag = fString End Function '==...
经脚本之家站长测试可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集作用: 本函数适用于随机显示小数量的随机不重复数字 本函数适用于显示小数量的随机不重复记录集 为了不影响效率, 上限超过一千, 不建议使用本函数 shawl.qiu 2006-09-06 http://blog.csdn.net/btbtd 主内容: 函数及应用函数随机显示100条记录 linenum 代码如下:<% dim rs, rNum dim temp set rs=createObject("adodb.record...
存成.asp文件,执行,你用ASPHTTP抓内容的时候用这个很爽,当然自己要改进一下了 <% Option Explicit Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < ...
如何把日期2007-03-02格式化成[03.02]?假设2007-03-02放在一个叫datestring的变量中.[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
函数,就是该语言封装了的一个功能块,以方便用户的调用。比如“now()”在VBScript中就是一个能显示出当前日期和时间的函数。至于具体为什么能显示,则是该语言内核所定的,用户只需明白“now()”就是用来能显示日期时间的。那么,我们当前接触的VBScript还有其他什么功能的函数么? 1,日期/时间函数 这些函数包括对“年”、“月”、“日”、“时”、“分”、“秒”、“星期”等的显示。 (1)Now函数:根据计算机系统设定...
现在不写asp了,这次我将我以前沉淀下的一些函数库共享给大家,希望能给初学者启示,给老手也有所帮助吧,先谢谢大家支持! <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% StartTime=timer() '程序执行时间检测 '############################################################### '┌──VIBO───────────────────┐ '│ VIBO STUDIO 版权所有 │ '└──────────────────...
从数据库输出信息时有转换函数,可以将回车空格按原样式输出。这段代码可向文本框原样输出代码。 代码如下:Function cc_f_textarea_html_encode(cc_f_t_h_e_str) If Not IsNull(cc_f_t_h_e_str) And cc_f_t_h_e_str <> "" Then cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, ">", ">") cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, "<", "<") cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, CHR(13), "") cc_f_t_h_e_str = Replace(cc...
'****************************** 'Function CheckIp(cInput_Ip,cBound_Ip) 'Created by qqdao, qqdao@263.net 2001/11/28 '说明:首先需要根据;号循环,然后判断是否含有"-",如果有则进行拆分处理,最后判断是否在范围内 '参数: cInput_Ip,代检查的ip 'cBound_Ip,给定的范围格式为,单个ip,和范围ip,范围ip最后使用”-“分割,如果是“*”则必须放到最后一位 '每个范围后添加":ALLOW"表示允许登陆,添加":REFUSE"表示拒绝登陆。...
ASP函数集 '========取得带端口的URL,推荐使用================ Function Get_ScriptNameUrl() If request.servervariables("SERVER_PORT")="80" Then Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name")) Else Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&lcase(request.serve...
asp之字符串函数示例用字符串函数对字符串进行截头去尾、大小写替换等操作。 函数 语法 功能Len Len(string|varname) 返回字符串内字符的数目,或是存储一变量所需的字节数。Trim Trim(string) 将字符串前后的空格去掉Ltrim Ltrim(string) 将字符串前面的空格去掉Rtrim Rtrim(string) 将字符串后面的空格去掉Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串,如果省略第三个参数表示从start字符...
在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp <% rem 在ASP中实现加密与解密,加密方法:根据RSA rem 联系:hnsoso@sina.com Class clsRSA Public PrivateKey Public PublicKey Public Modulus Public Function Crypt(pLngMessage, pLngKey) On Error Resume Next Dim lLngMod Dim lLngResult Dim lLngIndex ...
各位都把ASP用的函数和详细说明贴出来,供大家学习. 我知道的如下: 1.函数array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: <% i = array ("1","2","3") %> 结果: i 被赋予为数组 2.函数Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子: <% ...
<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot) Dim i, node, rs, j If xmlroot = "" Then xmlroot = "xml" Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion) ArrayToxml.appendChild(ArrayToxml.createElement(xmlroot)) If row = "" Then row = "row" For i = 0 To UBound(DataArray, 2) Set Node = ArrayToxml.createNode(1, row,...
<% '去掉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 Re = Nothing ReplaceHTML = Str End Function %>