2分快三

<script type="text/javascript">

2分快三//取得字符串长度，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("请输入数字!");
}
2分快三</script>

验证数字：^[0-9]+$

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

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

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

同类文章：

ASP断定字符串能否为数值型或全数字

<%

2分快三'正则表达式验证邮政编码名堂【凌陈亮（QQ：57404811）】

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

function checkpostcode(typ,str,msg,url)

dim f_return : f_return=0 'false

if len(str)>0 then

2分快三if len(str)=6 then 'Len函数：前往字符串位数

<%

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

2分快三'参数：前往类型（0：前往提醒信息，其它：前往值），验证类型（0：小于即是，1：大于即是，其它：不即是），验证字符串，位数，提醒信息，跳转页面地址

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

    dim f_return : f_return=0 'false

<%

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

2分快三'参数：前往类型（0：前往提醒信息，其它：前往值），验证类型（0：数值型验证，其它：全数字不网罗小数点验证），验证字符串，提醒信息，跳转页面地址

function checknum(typ,typ2,str,msg,url)

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

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

<%

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

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

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

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

if typ=0 then

<%

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

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

2分快三sub alert(msg,url)

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

response.write("<!--//") & vbcrlf

<%

'榨取站外提交页面和数据【凌陈亮（QQ：57404811）】

sub isselfrefer()

2分快三dim gw_http_referer : gw_http_referer=cstr(request.servervariables("HTTP_REFERER")) '取得前一个页面的全URL

2分快三dim gw_server_name : gw_server_name=cstr(request.servervariables("SERVER_NAME")) '取得以后页面所在服务器域名

<%

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

2分快三'*******************    无组件上传类   *******************************

'ASP稻喷喷鼻老农无组件上传类UTF-8【已修改元素荟萃弱点】

2分快三'元素荟萃：指提交表单中有复选框（多选项）、或有多个称谓类似的元素

'修改者：郭佰鸿，凌陈亮

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

<%

'自动天生JS表单验证函数【凌陈亮（QQ：57404811）】

'函数称谓：gw_js_checkform(jsname,errstr)

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

'

'【挪用措施】在表单以后页面中，表单<form>标签前挪用

'例：

2分快三'将此文件生涯为gw_js_checkform.asp，网罗此文件

<%

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

2分快三'参数：ACCESS数据库蹊径，SQL数据库请留空

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

2分快三'    下级目录：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"
%>