javascript函数已经有了，有没有Asp的函数？？？ 或者有没有高手可以把下面的写成asp的 ,万分感谢~！！ 代码如下: asp 不等于 vbs, 只是个框架而已 这段代码你在 script 里加个 runat="server" 然后直接调用这个函数就可以了 ... toEncode(xxx) %>JavaScript教程/参考手册 JavaScript热搜 解决vue-router中的query动态传参问题解决使用vue.js路由后失效的问题微信小程序实现换肤功能JS中touchstart事件与clic...
函数代码： 代码如下:<%******************************************************* 过滤数组重复函数名称：array_no(cxstr1,cxstr2,cxstr3) cxstr1：任意的字符串，自动识别 cxstr2：cxstr1中分割符号。 cxstr3：提取结果中的某一位置字串，等于0时返回为全部，大于数组下标时返回最后. 使用于二维数组 ******************************************************* function array_no(cxstr1,cxstr2,cxstr3) if len(cxstr3) > 0 the...
前些天我就碰到了用Ajax提交表单, 然后发送邮件的情况. 于是写出了下面的两个函数来解决这两个问题. 第一个函数把HTML中的数据转成HTML实体, 而HTML标签则自动不转, 这样无论到哪里都不会乱码, 可以在发送邮件时选择发送HTML格式的邮件. 第二个函数把JS数据同样是换成转义字符, 同样避开了JS关键词等字符的转换, 不管网页是什么编码它都不会乱码. 废话少说, 看下面的代码. 代码如下:Function htmlentities(str) Dim a,i,char For ...
javascript 日期验证正则 代码如下:var pattern = /^((((1[6-9]|[2-9]\d)\d{2})-(0?[13578]|1[02])-(0?[1-9]|[12]\d|3[01]))|(((1[6-9]|[2-9]\d)\d{2})-(0?[13456789]|1[012])-(0?[1-9]|[12]\d|30))|(((1[6-9]|[2-9]\d)\d{2})-0?2-(0?[1-9]|1\d|2[0-8]))|(((1[6-9]|[2-9]\d)(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00))-0?2-29-))$/ if (!pattern.test(document.form1.pro_date.value)) { alert("日期格式不...
javascript函数已经有了，有没有Asp的函数？？？ 或者有没有高手可以把下面的写成asp的 ,万分感谢~！！ 代码如下: <SCRIPT LANGUAGE="JavaScript"> <!-- function toEncode(s,l) {enc=new ActiveXObject("Scripting.Encoder"); return enc.EncodeScriptFile("."+l,s,0,l+"cript"); } var STATE_COPY_INPUT = 100 var STATE_READLEN = 101 var...
代码如下:<!-- //ASP分页函数 function ShowListPage(page,Pcount,TopicNum,maxperpage,strLink,ListName){ var alertcolor = '#FF0000'; maxperpage=Math.floor(maxperpage); TopicNum=Math.floor(TopicNum); page=Math.floor(page); var n,p; if ((page-1)%10==0) { p=(page-1) /10 }else{ p=(((page-1)-(page-1)%10)/10) } if(TopicNum%maxperpage==0) { n=TopicN...
代码如下:/// <summary> /// 过滤字符串中的html代码 /// </summary> /// <param name="Str"></param> /// <returns>返回过滤之后的字符串</returns> public static string LostHTML(string Str) { string Re_Str = ""; if (Str != null) { if (Str != string.Empty) { string Pattern = "<\\/*[^<>]*>"; Re_Str = Regex.Replace(Str, Pattern, ""); } } return (Re_Str.Replace("\\r\\n", "")).Replace("\\r", ""); }
过滤超级链接 代码如下:Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "<A[^>]+>(.+?)<\/A>" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function 过滤所有HTML代码 代码如下:Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<...
代码如下:Function DRexPage(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.pattern="(\&)?page=(\d)+" DRexPage=regEx.replace(Str,"") '(Str,"$1") Set RegEx=Nothing End Function
Function DRexPage(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.pattern="(\&)?page=(\d)+" DRexPage=regEx.replace(Str,"") '(Str,"$1") Set RegEx=Nothing End Function 在分页系统里面用到的把page后面得东西都给丢掉
说明 Match 对象只能通过 RegExp 对象的 Execute 方法来创建，该方法实际上返回了 Match 对象的集合。所有的 Match 对象属性都是只读的。 在执行正则表达式时，可能产生零个或多个 Match 对象。每个 Match 对象提供了被正则表达式搜索找到的字符串的访问、字符串的长度，以及找到匹配的索引位置等。 下面的代码说明了 Match 对象的用法： Function RegExpTest(patrn, str...
'#################################### '函数：ishttp[str] '参数：str，待处理的字符串 '作者：木木 '日期：2007/7/12 '描述：检测HTTP连接地址或地址栏是否以HTTP开头 '示例：<%=ishttp(http://www.alixixi.com)%> '#################################### Function ishttp(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "^(http|HTTP)[A-Za-z]{0,1}\:\/\/" ishttp = regEx.Test(str) End function验证邮件地址是否符合...
代码如下:Function AutoLinkURLs(strString) Dim match, matches, offset, url, email, link, relnkAutoLinkURL relnkAutoLinkURL = "<a href=""[[%URL%]]"">[[%URLText%]]</a>" If Not IsObject(regExp) Then Set regExp = New RegExp regExp.Global = True regExp.IgnoreCase = True Look for URLs regExp.Pattern = "(((ht|f)tps?://)|(www\.))([\w-]+\.)+[\w-:]+(/[\w- ./?%#;&=]*)...
代码如下: function unHtml(content) unHtml=content if content <> "" then unHtml=replace(unHtml,"&","&") unHtml=replace(unHtml,"<","<") unHtml=replace(unHtml,">",">") unHtml=replace(unHtml,chr(34),""") unHtml=replace(unHtml,chr(13),"<br>") unHtml=replace(unHtml,chr(32)," ") 'unHtml=ubb(unHtml) end if end function function ubb(content) Dim nowtime,i ubb=content nowtime=now() UBB=Convert(ubb,"code") U...
核心代码 <% 功能:多功能日期格式化函数 来源:http://jorkin.reallydo.com/article.asp?id=477Function FormatDate(sDateTime, sReallyDo)Dim sJorkinsJorkin = GetLocale()If Not IsDate(sDateTime) Then sDateTime = Now()sDateTime = CDate(sDateTime)Select Case UCase(sReallyDo & "")Case "0", "1", "2", "3", "4"FormatDate = FormatDateTime(sDateTime, sReallyDo)Case "00"FormatDate = FormatDate(sDateTime, "YYYY-MM-D...