网站开发与移动开发

博客园 首页 新随笔 管理

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 txf2004 阅读(119) 评论(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 txf2004 阅读(145) 评论(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 txf2004 阅读(219) 评论(0) 推荐(0)