function replacestr(str)dim reset re=new regexpre.ignorecase=truere.global=truere.pattern="\D"str=re.replace(str,"")replacestr=strset re=nothingend function...
http://www.jb51.net//article/13232.htm
//把全角数字转为半角数字function GetAlabNum($fnum){ $nums = array('０','１','２','３','４','５','６','７','８','９','．','－','＋','：'); $fnums = array('0','1', '2','3', '4','5', '6', '7','8', '9','.',&nb...
http://www.jb51.net//article/13105.htm
随便输入多个字符，就会发现四个数字自动加空格的[html]<html><script language=javascript> function test(){ var len=document.getElementById('card').value.length; &nb...
http://www.jb51.net//article/12776.htm
[code]'************************************************** '函数ID：0014[检测ID是否为数字类型] '函数名：JCID '作 用：检测ID是否为数字类型 '参 数：ParaValue ---- 被检测的ID值 '返回值：返回ID值，如果不为数字类型返回0 '************************************************** Function JCID(ByVal Par...
http://www.jb51.net//article/12717.htm
不错的一个用正则检测输入的字符是否为数字的代码，也是一种并不常见的写法[html]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"><html> <head> <meta http-equiv="Content-Typ...
http://www.jb51.net//article/12610.htm
<%'ASP生成随机字符串(数字+大小写字母)练习'阿会楠练习，为我所用，非我所想 Function randKey(obj) Dim char_array(80) Dim temp For i = 0 To 9 char_array(i) = Cstr(i) Next For i = 10 To 35 char_array(...
http://www.jb51.net//article/12516.htm
[html]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" ><head> <title>无标题页</title></...
http://www.jb51.net//article/12327.htm
<%’******************************’函数：Generator(Length)’参数：Length,任意长度的数值，随机码位数’作者：阿里西西’日期：2007/7/15’描述：生成任意英文+数字位数长度的随机码函数’示例：Generator(80)’******************************Function Generator(Length) Dim i, tempS tempS = "abcdefghijklmnopqrstuvwxyz1234567890" ...
http://www.jb51.net//article/10901.htm
<%’******************************’函数：CheckString(strng)’参数：strng,待验证字符串’作者：阿里西西’日期：2007/7/13’描述：检测字符串是否为纯字母和数字组合’示例：<%=CheckString(strng)%>’******************************Function CheckString(strng) CheckString = true Dim regE...
http://www.jb51.net//article/10893.htm
<%’******************************’函数：gen_key(digits)’参数：digits----要生成随机数的位数’作者：阿里西西’日期：2007/7/13’描述：生成由数字，大写字母，小写字母指定位数的随机数；返回值:要生成的指定倍数的随机数’示例：<%=gen_key(8)%>’******************************Function gen_key(digits)’定义并初始化数组 dim char_array(80) &nbs...
http://www.jb51.net//article/10883.htm
<%’******************************’函数：NewOrder(ArrStr)’参数：Rstr,以逗号做分隔的数字数组’作者：阿里西西’日期：2007/7/13’描述：重排序数字数组’示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%>’******************************Function NewOrder(ArrStr)For i = 0 To Ubound(Split(ArrStr,",")) If ...
http://www.jb51.net//article/10880.htm