2分快三

<script type="text/javascript">

//获取字符串长度，1个中文=2个英文【凌陈亮（QQ：57404811）】

//参数：对象
function gw_js_checkform_str_len(str){
 var value=str;
 var length=value.length;
 if(length>0){
  for(var i=0;i<length;i++){
   var value_substr=value.substr(i,1); //截取字符串
   var value_escape=escape(value_substr); //编码
   if(value_escape.indexOf('%u')>-1){length++;} //是否搜索到指定字符串
   //if(value_escape.length>3){length++;} //也可使用此语句替换上一条语句
  }
 }
 return length;
} 

写法一：

<script type="text/javascript">
function checknum(){
 var obj = document.getElementById("num");
 var reg = new RegExp("^[0-9]*$");
 if(!reg.test(obj.value)) alert("请输入数字!");
}
</script>

2分快三验证数字：^[0-9]+$

2分快三验证n位的数字：^\d{n}$

验证至少n位数字：^\d{n,}$

验证m-n位的数字：^\d{m,n}$

同类文章：

ASP判断字符串是否为数值型或全数字

<%

'正则表达式验证邮政编码格式【凌陈亮（QQ：57404811）】

'参数：返回类型（0：返回提示信息，其它：返回值），验证字符串，提示信息，跳转页面地址

function checkpostcode(typ,str,msg,url)

dim f_return : f_return=0 'false

if len(str)>0 then

if len(str)=6 then 'Len函数：返回字符串位数

<%

2分快三'判断字符串是否小于等于/大于等于/不等于指定长度，1个中文=2个英文=2位【凌陈亮（QQ：57404811）】

'参数：返回类型（0：返回提示信息，其它：返回值），验证类型（0：小于等于，1：大于等于，其它：不等于），验证字符串，位数，提示信息，跳转页面地址

2分快三function checklen(typ,typ2,str,n,msg,url)

2分快三    dim f_return : f_return=0 'false

<%

'判断字符串是否为数值型或全数字【凌陈亮（QQ：57404811）】

2分快三'参数：返回类型（0：返回提示信息，其它：返回值），验证类型（0：数值型验证，其它：全数字不包括小数点验证），验证字符串，提示信息，跳转页面地址

2分快三function checknum(typ,typ2,str,msg,url)

dim f_return : f_return=0 'false

if len(str)<1 or isnumeric(str)=false then

<%

'判断字符串是否为空值【凌陈亮（QQ：57404811）】

'参数：返回类型（0返回提示信息，非0返回值），验证字符串，提示信息，跳转页面地址

function checknull(typ,str,msg,url)

2分快三dim f_return : f_return=0 'false

if typ=0 then

<%

'显示弹窗提示并跳转页面代码【凌陈亮（QQ：57404811）】

'参数：弹出窗口信息，跳转页面地址

2分快三sub alert(msg,url)

2分快三response.write("<script type=""text/javascript"">") & vbcrlf

2分快三response.write("<!--//") & vbcrlf

<%

2分快三'禁止站外提交页面和数据【凌陈亮（QQ：57404811）】

sub isselfrefer()

dim gw_http_referer : gw_http_referer=cstr(request.servervariables("HTTP_REFERER")) '获取前一个页面的全URL

dim gw_server_name : gw_server_name=cstr(request.servervariables("SERVER_NAME")) '获取当前页面所在服务器域名

<%

2分快三'转发时请保留此声明信息,这段声明不并会影响你的速度!

'*******************    无组件上传类   *******************************

2分快三'ASP稻香老农无组件上传类UTF-8【已修正元素集合错误】

'元素集合：指提交表单中有复选框（多选项）、或有多个名称相同的元素

2分快三'修改者：郭佰鸿，凌陈亮

2分快三'原作者：稻香老农

<%

2分快三'自动生成JS表单验证函数【凌陈亮（QQ：57404811）】

2分快三'函数名称：gw_js_checkform(jsname,errstr)

2分快三'功能：用asp动态写出javascript的表单验证的函数jsname()，可自由设置验证项

'

'【调用方法】在表单当前页面中，表单<form>标签前调用

'例：

'将此文件保存为gw_js_checkform.asp，包含此文件

<%

'数据库连接文件【凌陈亮（QQ：57404811）】

'参数：ACCESS数据库路径，SQL数据库请留空

'如：根目录：call connopen("/")

'    上级目录：call connopen("../")

dim conn '定义打开数据库变量

sub connopen(selfdir)

<%
'函数：ASP过滤HTML标签、JS代码、CSS样式，只获取纯文本【凌陈亮（QQ：57404811）】
'参数：字符串，左边字符数（空为全文，1个中文字符=2个英文字符），超出部分的连接字符串
function gw_nohtml(content,n,nexttext)
	dim f_content : f_content=content
	if len(f_content)>0 then
		dim re : set re=New RegExp	'建立正则表达式
		re.Global=true		'设置全局可用性
		re.Ignorecase=false	'设置是否区分字符大小写
		re.MultiLine=true	'设置多行标记可用性
		re.Pattern="<[sS][tT][yY][lL][eE][^>]*?>[\s\S]*?<\/[sS][tT][yY][lL][eE]>" '去STYLE样式正则式
		f_content=re.replace(f_content,"") '执行搜索测试
		re.Pattern="<[sS][cC][rR][iI][pP][tT][^>]*?>[\s\S]*?<\/[sS][cC][rR][iI][pP][tT]>" '去SCRIPT脚本正则式
		f_content=re.replace(f_content,"") '执行搜索测试
		re.Pattern="<(.|\n)+?>"	'去HTML标签正则式
		f_content=re.replace(f_content,"") '执行搜索测试
		'自适应UNICODE特殊字符
		const utf8str_const="&amp;|&quot;|&lt;|&gt;|&nbsp;|&copy;|&reg;|&raquo;|&Theta;|&acute;|&AElig;|&aelig;|&Agrave;|&agrave;|&Aring;|&aring;|&Atilde;|&atilde;|&Auml;|&auml;|&brvbar;|&Ccedil;|&ccedil;|&cedil;|&cent;|&circ;|&Aacute;|&curren;|&deg;|&divide;|&Eacute;|&eacute;|&Ecirc;|&ecirc;|&Egrave;|&egrave;|&ETH;|&eth;|&Euml;|&euml;|&euro;|&fnof;|&frac12;|&frac14;|&frac34;|&Iacute;|&iacute;|&Icirc;|&icirc;|&iexcl;|&Igrave;|&igrave;|&iquest;|&Iuml;|&iuml;|&laquo;|&macr;|&micro;|&middot;|&not;|&Ntilde;|&ntilde;|&Oacute;|&oacute;|&Ocirc;|&ocirc;|&OElig;|&oelig;|&Ograve;|&ograve;|&ordf;|&ordm;|&Oslash;|&oslash;|&Otilde;|&otilde;|&Ouml;|&ouml;|&para;|&plusmn;|&pound;|&aacute;|&Acirc;|&Scaron;|&scaron;|&sect;|&shy;|&sup1;|&sup2;|&sup3;|&szlig;|&THORN;|&thorn;|&tilde;|&times;|&Uacute;|&uacute;|&Ucirc;|&ucirc;|&Ugrave;|&ugrave;|&uml;|&Uuml;|&uuml;|&Yacute;|&yacute;|&yen;|&Yuml;|&yuml;|&ensp;|&emsp;|&thinsp;|&zwnj;|&zwj;|&lrm;|&rlm;|&ndash;|&mdash;|&lsquo;|&rsquo;|&sbquo;|&ldquo;|&rdquo;|&bdquo;|&lsaquo;|&rsaquo;|&dagger;|&Dagger;|&permil;|&bull;|&hellip;|&Prime;|&oline;|&frasl;|&weierp;|&image;|&real;|&trade;|&alefsym;|&larr;|&uarr;|&rarr;|&darr;|&harr;|&crarr;|&lArr;|&uArr;|&rArr;|&dArr;|&hArr;|&forall;|&part;|&exist;|&empty;|&nabla;|&isin;|&notin;|&ni;|&prod;|&sum;|&minus;|&lowast;|&radic;|&prop;|&infin;|&ang;|&and;|&or;|&cap;|&cup;|&int;|&there4;|&sim;|&cong;|&asymp;|&ne;|&equiv;|&le;|&ge;|&sub;|&sup;|&nsub;|&sube;|&supe;|&oplus;|&otimes;|&perp;|&sdot;|&lceil;|&rceil;|&lfloor;|&rfloor;|&lang;|&rang;|&loz;|&spades;|&clubs;|&hearts;|&diams;|&Alpha;|&alpha;|&Beta;|&beta;|&Gamma;|&gamma;|&Delta;|&delta;|&Epsilon;|&epsilon;|&Zeta;|&zeta;|&Eta;|&eta;|&acirc;|&theta;|&thetasym;|&Iota;|&iota;|&Kappa;|&kappa;|&Lambda;|&lambda;|&Mu;|&mu;|&Nu;|&nu;|&Xi;|&xi;|&Omicron;|&omicron;|&Pi;|&pi;|&piv;|&Rho;|&rho;|&Sigma;|&sigma;|&sigmaf;|&Tau;|&tau;|&Upsilon;|&upsilon;|&upsih;|&Phi;|&phi;|&Chi;|&chi;|&Psi;|&psi;|&Omega;|&omega;"
		dim utf8str : utf8str=split(utf8str_const,"|")
		
		dim f_return
		if len(n)>0 then
			dim f_k : f_k=0
			dim f_i,f_j,f_a,f_b
			for f_i=1 to len(f_content)
				f_a=mid(f_content,f_i,1)
				
				for f_j=0 to ubound(utf8str)
					f_b=mid(f_content,f_i,len(utf8str(f_j)))
					if f_b=utf8str(f_j) then
						f_a=f_b
						f_i=f_i+len(utf8str(f_j))-1
						exit for
					end if
				next
				
				re.Pattern="[^\x00-\xff]"	'设置模式，即建立正则式规则
				f_k=f_k+len(re.replace(f_a,"$2"))	'执行搜索测试
				if f_k<=n then
					f_return=f_return & f_a
				else
					f_return=f_return & nexttext
					exit for
				end if
			next
		else
			f_return=f_content
		end if
		set re=nothing
		gw_nohtml=f_return
	end if
end function
%>

第一：ASP代码

ASP文件头写下如下代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
session.codepage=65001
response.charset="utf-8"
%>