2009年10月4日

ASP正则函数替换分页后的参数

摘要： 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后面得东西都给丢掉阅读全文

posted @ 2009-10-04 20:24 corange 阅读(101) 评论(0) 推荐(0)

asp 图片正则替换，替换前检查图片是不是本地地址的方法

摘要：这个图片正则先检查图片的地址，不是本地的则用本地的asp突破盗链，方便使用直接用正则替换，但没有判断功能 Function FormatImg(content) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(script)" Content=re.Replace(Content,"script") re.Pattern="<img.[^>]*src(=| )(.[^>]*)>" Content=re.repla 阅读全文

posted @ 2009-10-04 20:22 corange 阅读(154) 评论(0) 推荐(0)

正则文本框只能输入正整数

摘要： <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=GB2312" /> <title><a href="http://www.jb51.net/list/list_ 阅读全文

posted @ 2009-10-04 20:21 corange 阅读(273) 评论(0) 推荐(0)

PHP开发记录 PHP以及web前端（ajax，js，jquery等）
博客园首页新随笔管理

2009年10月4日

公告