代码收藏

ispage-是否是分页数字

function ispage($number) { return !empty($number) && preg_match ("/^([0-9]+)$/",...

dvHTMLEncode-文本字段存入、显示用代码

...

FilterJS-过滤JS代码

Function FilterJS(v) if not isnull(v) then dim t dim re dim reContent Set re=new RegExp re.IgnoreCase...

nohtml-去掉html代码

function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True ...

isemail-判断是否是Email格式

function isemail($email) { return strlen($email) > 6 && preg_match("/^[\w\-\.]+@[\w\-]+(\.\w+)+$/",...

csubstr-截取中文字符

...

连接MSSQL数据库

<% Dim Conn Sub OpenConn() Dim ConnStr 'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） connstr = "Provider=SQLOLEDB.1;Password='密码';Persist Security Info=True;User ID='用户名';Initial Catalog='数据库名';Data Source='localhost'" On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write ...

strLength-求字符串长度。汉字算两个字符，英文算一个字符

...

ShowPage-显示“上一页 下一页”等信息

...

JoinChar-向地址中加入 ? 或 &

...