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...
代码如下:/// <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", ""); }
代码如下:<% '数据库字段为类属性，添加、删除、修改、操作检查等函数为类的方法 Class Cls_Leibie Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量（类的属性，即数据库字段对应的变量） Private rs,sql,ErrorStr Private Sub Class_Initialize() ErrorStr="" '初始化错误信息为空 End Sub Private Sub Class_Termin...
最近因工作需要，要在静态页面上实现分页，想了下，决定用AJAX来实现，所以就捣鼓了下面这么个东西，截图如下： 代码如下:<html> <head> <title>AJAX静态分页</title> <meta http-equiv="content-type" content="text/html;charset=gb2312"> <style type="text/css"> <!-- body { text-align:center;font:14px Verdana,sans-serif; } a:link,a:visited { color:#00f;text-decoration:none; } a:hover ...
功能: 读取数据库内容的表格.读取数据方式为ajax,分页也是.代码写得不好.呵呵.供一些学习ajax的朋友参考参考.如有不妥请大家跟贴纠正.我会根据大家的提议不断修正代码. 目前还有一个小问题,如果有朋友有兴趣帮我解决一下在下不胜感激 你翻到最后一页的时候如果只有一行会出现空白和undefined.这个问题我试了很多方法一直没有很妥当的解决. 注:下面一些地方出现笑脸表情的是 大写的d 其实很多地方都可以根据asp文件中输出的字符来控...
常用的正则匹配表达式 正则表达式--验证手机号码:13[0-9]{9} 实现手机号前带86或是+86的情况:^((\+86)|(86))?(13)\d{9}$ 电话号码与手机号码同时验证:(^(\d{3,4}-)?\d{7,8})$|(13[0-9]{9}) 提取信息中的网络链接:(h|H)(r|R)(e|E)(f|F) *= *('|")?(\w|\\|\/|\.)+('|"| *|>)? 提取信息中的邮件地址:\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)* 提取信息中的图片链接:(s|S)(r|R)(c|C) *= *('|")?(\w|\\|\/|\.)+('|"| *|>)? 提取信息...
比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 代码如下:<% 过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.IgnoreCase=True RegEx.MultiLine = True RegEx.pattern="(.)\1+" str=regEx.replace(str,"$1") Set RegEx=Nothing Norepeat=str End Function 示例 s="1223445677777778aabbcccccccccc" response.write N...
比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 代码如下:<% '过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.IgnoreCase=True RegEx.MultiLine = True RegEx.pattern="(.)\1+" str=regEx.replace(str,"$1") Set RegEx=Nothing Norepeat=str ...
代码如下:去掉html中的table代码 Function OutTable(str) dim a,re set re=new RegExp re.pattern="<(?!img|br|p|div).*?>" re.global=true a=str OutTable=re.replace(a,"") End Function
今天在改一套b2b的电子商务系统时，发现ASP正则，虽然用ASP很久了，但从来没用过正则表达式，这套系统中有个正则的函数很不错，自己看吧。 代码如下:<% Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 建立变量。 Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = False ' 设置是否区分字符大小写。 regEx.Global = True...
函数 Function RegImg(TheStr) Dim RegEx Set RegEx = New RegExp 建立正则表达对象。 RegEx.IgnoreCase =True 是否区分大小写，True为不区分且默认 RegEx.Global = True 全部匹配还是只匹配第一个 RegEx.Pattern = "<img[^>]*src\s*=\s*["&CHR(34)&"]?([\w/\-\:.]*)["&CHR(34)&"]?[^>]*>" 搜索所使用的正则表达式 If Regex.test(TheStr) Then 判断是否有匹配值，返回True或者False。不受Global属性影...
核心代码： <title>asp批量添加修改删除操作示例</title> <% if request.Form("op")="update" then表单提交ids=request.Form("ids")if ids<>"" thenresponse.Write "要删除的数据id集合："&ids&"<br>"=========数据库删除操作 conn.execute("delete from xxx where id in("&ids&")")自己注意做安全验证，假定id为数字集合，自己正则RegExp判断有效性，pattern为^\d+(,\d+)*$end ifrows=request.Form("name").count提交的数据行数据...
核心代码： <% TempArray = Array("account_book","admin","ajaxFile","catalog","excel","excel_stu","frame","inc","lib","pub", "stock","student","sygl","temp","windows") url= LCase(Server.MapPath("./")) for i=0 to UBound(TempArray) url=Replace(url,"\"&TempArray(i),"") Next response.write url %>
这只是个asp小技巧类的东西，它虽然适合在每个不同文件名里调用这个函数，但是也是有前提的，下面让我们来仔细看看其中的原委。 下面这段是基本的分页代码：＜% sql = "select……………………省略了sql语句Set rs=Server.Createobject("ADODB.RECORDSET")rs.Open sql, conn, 1, 1if not rs.eof thenpages = 30 定义每页显示的记录数rs.pageSize = pages 定义每页显示的记录数allPages = rs.pageCount计算一共能分多少页page = Req...
先上一个完整代码 <!-- Name －ASP在线解压，压缩工具 copyright -脚本之家(www.gxlsystem.com) --><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <title>欢迎使用ASP在线解压，压缩工具</title> <body> <TABLE border=0 width=80% align=center cellspacing=1 cellpadding=3 style="FONT-FAMILY: Verdana;font-size:14px;BORDER: #000000 1px solid;background-color:#f7f7f7"> <tr> <th width="100%" height="24" bgcolor="#33CCFF"...