<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>
<%
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="&|"|<|>| |©|®|»|Θ|´|Æ|æ|À|à|Å|å|Ã|ã|Ä|ä|¦|Ç|ç|¸|¢|ˆ|Á|¤|°|÷|É|é|Ê|ê|È|è|Ð|ð|Ë|ë|€|ƒ|½|¼|¾|Í|í|Î|î|¡|Ì|ì|¿|Ï|ï|«|¯|µ|·|¬|Ñ|ñ|Ó|ó|Ô|ô|Œ|œ|Ò|ò|ª|º|Ø|ø|Õ|õ|Ö|ö|¶|±|£|á|Â|Š|š|§|­|¹|²|³|ß|Þ|þ|˜|×|Ú|ú|Û|û|Ù|ù|¨|Ü|ü|Ý|ý|¥|Ÿ|ÿ| | | |‌|‍|‎|‏|–|—|‘|’|‚|“|”|„|‹|›|†|‡|‰|•|…|″|‾|⁄|℘|ℑ|ℜ|™|ℵ|←|↑|→|↓|↔|↵|⇐|⇑|⇒|⇓|⇔|∀|∂|∃|∅|∇|∈|∉|∋|∏|∑|−|∗|√|∝|∞|∠|∧|∨|∩|∪|∫|∴|∼|≅|≈|≠|≡|≤|≥|⊂|⊃|⊄|⊆|⊇|⊕|⊗|⊥|⋅|⌈|⌉|⌊|⌋|⟨|⟩|◊|♠|♣|♥|♦|Α|α|Β|β|Γ|γ|Δ|δ|Ε|ε|Ζ|ζ|Η|η|â|θ|ϑ|Ι|ι|Κ|κ|Λ|λ|Μ|μ|Ν|ν|Ξ|ξ|Ο|ο|Π|π|ϖ|Ρ|ρ|Σ|σ|ς|Τ|τ|Υ|υ|ϒ|Φ|φ|Χ|χ|Ψ|ψ|Ω|ω" 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"
%>