LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

常用ASP函数封装

admin
2010年7月3日 14:15 本文热度 6123
[p]<%[br]'-------------------------------------[br]'天枫asp class v1.0,集常用asp函数于一体[br]'天枫版权所有http://52515.net[br]'qq:76994859 email:chenshaobo@gmail.com[/p] [p]'所有功能函数名如下:[br]' strlength(str) 取得字符串长度[br]' cutstr(str,strlen) 字符串长度切割[br]' checkisempty(tstr) 检测是否为空[br]' isinteger(para) 整数检验[br]' checkname(str) 名字字符校验[br]' checkpassword(str) 密码检验[br]' checkemail(email) 邮箱格式检验[br]' alert(msg,gourl) 弹出对话框提示[br]' goback(str1,str2,isback) 出错信息提示[br]' suc(str1,str2,url) 操作成功信息提示[br]' chkpost() 检测是否站外提交表单[br]' psql() 防止sql注入[br]' filtratehtmlcode(str) 防止生成html[br]' htmlcode(str) 过滤html[br]' replacehtml(tstr) 清滤html[br]' getip() 获取客户端ip[br]' getbrowser 获取客户端浏览器信[br]' getsystem 获取客户端操作系统[br]' geturl() 获取当前页面url包含参数[br]' curl() 获取当前页面url[br]' getextend 取得文件扩展名[br]' checkexist(table,fieldname,fieldcontent,isblur) 检测某个表中某个字段的内容是否存在[br]' getnum(table,fieldname,resulttype,args) 检测某个表某个字段有多少条,最大值 ,最小值等[br]' getfoldersize(folderpath) 计算某个文件夹的大小[br]' getfilesize(filename) 计算某个文件的大小[br]' isobjinstalled(strclassstring) 检测组件是否安装[br]' sendmail jmail发送邮件[br]' responsecookies 写入cookies[br]' cleancookies 清除cookies[br]' gettimeover 取得程序页面执行时间[br]' formatsize 大小格式化[br]' formattime 时间格式化[br]' zodiac 取得生肖[br]' constellation 取得星座[br]'-------------------------------------[/p] [p]class cls_fun[/p] [p]'--------字符处理--------------------------[br] [br]'****************************************************[br]'函数名:strlength[br]'作 用:取得字符串长度(汉字为2)[br]'参 数:str ----字符串内容[br]'返回值:字符串长度[br]'****************************************************[br]public function strlength(str)[br] dim rep,lens,i[br] set rep=new regexp[br] rep.global=true[br] rep.ignorecase=true[br] rep.pattern="[\u4e00-\u9fa5\uf900-\ufa2d]"[br] for each i in rep.execute(str)[br] lens=lens+1[br] next[br] set rep=nothing[br] lens=lens + len(str)[br] strlength=lens[br] end function[br] [br]'****************************************************[br]'函数名:cutstr[br]'作 用:字符串长度切割,超过显示省略号[br]'参 数:str ----字符串内容[br]' strlen ------要显示的长度[br]'返回值:切割后字符串内容[br]'****************************************************[br]public function cutstr(str,strlen)[br] dim l,t,i,c[br] if str="" then[br] cutstr=""[br] exit function[br] end if[br] str=replace(replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<"),"|","|")[br] l=len(str)[br] t=0[br] for i=1 to l[br] c=abs(asc(mid(str,i,1)))[br] if c>255 then[br] t=t+2[br] else[br] t=t+1[br] end if[br] if t>=strlen then[br] cutstr=left(str,i) & "..."[br] exit for[br] else[br] cutstr=str[br] end if[br] next[br] cutstr=replace(replace(replace(replace(replace(cutstr," "," "),chr(34),"""),">",">"),"<","<"),"|","|")[br] end function[/p] [p]'--------------系列验证----------------------------[/p] [p] '****************************************************[br]'函数名:checkisempty[br]'作 用:检查是否为空[br]'参 数:tstr ----字符串[br]'返回值:true不为空,false为空[br]'****************************************************[br]public function checkisempty(tstr)[br] checkisempty=false[br] if isnull(tstr) or tstr="" then exit function [br] dim str,re[br] str=tstr[br] set re=new regexp[br] re.ignorecase =true[br] re.global=true[br] str= replace(str, vbnewline, "")[br] str = replace(str, chr(9), "")[br] str = replace(str, " ", "")[br] str = replace(str, " ", "")[br] re.pattern="]*)>"[br] str =re.replace(str,"94kk")[br] re.pattern="<(.[^>]*)>"[br] str=re.replace(str,"")[br] set re=nothing[br] if str<>"" then checkisempty=true[br]end function[/p] [p] '****************************************************[br]'函数名:isinteger[br]'作 用:整数检验[br]'参 数:tstr ----字符[br]'返回值:true是整数,false不是整数[br]'****************************************************[br]public function isinteger(para)[br] on error resume next[br] dim str[br] dim l,i[br] if isnull(para) then [br] isinteger=false[br] exit function[br] end if[br] str=cstr(para)[br] if trim(str)="" then[br] isinteger=false[br] exit function[br] end if[br] l=len(str)[br] for i=1 to l[br] if mid(str,i,1)>"9" or mid(str,i,1)<"0" then[br] isinteger=false [br] exit function[br] end if[br] next[br] isinteger=true[br] if err.number<>0 then err.clear[br]end function[br][br] '****************************************************[br]'函数名:checkname[br]'作 用:名字字符检验 [br]'参 数:str ----字符串[br]'返回值:true无误,false有误[br]'****************************************************[br]public function checkname(str)[br] checkname=true[br] dim rep,pass[br] set rep=new regexp[br] rep.global=true[br] rep.ignorecase=true[br] '匹配字母、数字、下划线、汉字且必须以字母或下划线或汉字开始[br] rep.pattern="^[a-za-z_u4e00-\u9fa5][\w\u4e00-\u9fa5]+$"[br] set pass=rep.execute(str)[br] if pass.count=0 then checkname=false[br] set rep=nothing[br]end function[br][br]'****************************************************[br]'函数名:checkpassword[br]'作 用:密码检验[br]'参 数:str ----字符串[br]'返回值:true无误,false有误[br]'****************************************************[br]public function checkpassword(str)[br] dim pass[br] checkpassword=true[br] if str <> "" then[br] dim rep[br] set rep = new regexp[br] rep.global = true[br] rep.ignorecase = true[br] '匹配字母、数字、下划线、点号[br] rep.pattern="[a-za-z0-9_\.]+$"[br] pass=rep.test(str)[br] set rep=nothing[br] if not pass then checkpassword=false[br] end if[br]end function [br][br]'****************************************************[br]'函数名:checkemail[br]'作 用:邮箱格式检测[br]'参 数:str ----email地址[br]'返回值:true无误,false有误[br]'****************************************************[br]public function checkemail(email)[br] checkemail=true[br] dim rep[br] set rep = new regexp[br] rep.pattern="([\.a-za-z0-9_-]){2,10}@([a-za-z0-9_-]){2,10}(\.([a-za-z0-9]){2,}){1,4}$"[br] pass=rep.test(email)[br] set rep=nothing[br] if not pass then checkemail=false[br]end function[/p] [p]'--------------信息提示---------------------------- [br]'****************************************************[br]'函数名:alert[br]'作 用:弹出对话框提示[br]'参 数:msg ----对话框信息[br]' gourl ----提示后转向哪里[br]'返回值:无[br]'****************************************************[br] public function alert(msg,gourl)[br] msg = replace(msg,"'","\'")[br] if gourl="" then[br] gourl="history.go(-1);"[br] else[br] gourl="window.location.href='"&gourl&"'"[br] end if[br] response.write ("")[br] response.end[br]end function[/p] [p] '****************************************************[br]'函数名:goback[br]'作 用:错误信息提示[br]'参 数:str1 ----信息提示标题[br]' str2 ----信息提示内容[br]' isback ----是否显示返回[br]'返回值:无[br]'****************************************************[br]public function goback(str1,str2,isback)[br] if str1="" then str1="错误信息"[br] if str2="" then str2="请填写完整必填项目"[br] if isback="" then [br] str2=str2&" 返回重填"[br] else[br] str2=str2[br] end if[br] response.write"
"&str1&"
×
"&str2&"
"[br] response.end[br]end function[/p] [p] '****************************************************[br]'函数名:suc[br]'作 用:成功提示信息[br]'参 数:str1 ----信息提示标题[br]' str2 ----信息提示内容[br]' url ----返回地址[br]'返回值:无[br]'****************************************************[br]public function suc(str1,str2,url)[br] if str1="" then str1="操作成功"[br] if str2="" then str2="成功的完成这次操作!"[br] if url="" then url="javascript:history.go(-1)"[br] str2=str2&"  返回继续管理"[br] response.write"
"&str1&"
"&str2&"
"[br]end function[br][br]'--------------安全处理---------------------------- [/p] [p]'****************************************************[br]'函数名:chkpost[br]'作 用:禁止站外提交表单[br]'返回值:true站内提交,flase站外提交[br]'****************************************************[br]public function chkpost()[br] dim url1,url2[br] chkpost=true[br] url1=cstr(request.servervariables("http_referer"))[br] url2=cstr(request.servervariables("server_name"))[br] if mid(url1,8,len(url2))<>url2 then[br] chkpost=false[br] exit function[br] end if[br]end function[/p] [p]'****************************************************[br]'函数名:psql[br]'作 用:防止sql注入[br]'返回值:为空则无注入,不为空则注入并返回注入的字符[br]'****************************************************[br]public function psql()[br] psql=""[br] badwords= "'防''防;防and防exec防insert防select防update防delete防count防*防%防chr防mid防master防truncate防char防declare防|"[br] badword=split(badwords,"防")[br] if request.form<>"" then[br] for each tf_post in request.form[br] for i=0 to ubound(badword)[br] if instr(lcase(request.form(tf_post)),badword(i))>0 then[br] psql=badword(i)[br] exit function[br] end if[br] next[br] next[br] end if[br] if request.querystring<>"" then[br] for each tf_get in request.querystring[br] for i=0 to ubound(badword)[br] if instr(lcase(request.querystring(tf_get)),badword(i))>0 then[br] psql=badword(i)[br] exit function[br] end if[br] next[br] next[br] end if[br]end function[/p] [p] '****************************************************[br]'函数名:filtratehtmlcode[br]'作 用:防止生成html代码 [br]'参 数:str ----字符串[br]'****************************************************[br]public function filtratehtmlcode(str)[br] if not isnull(str) and str<>"" then[br] str=replace(str,chr(9),"")[br] str=replace(str,"|","|")[br] str=replace(str,chr(39),"'")[br] str=replace(str,"<","<")[br] str=replace(str,">",">")[br] str = replace(str, chr(13),"")[br] str = replace(str, chr(10),"")[br] filtratehtmlcode=str[br] end if[br]end function[/p] [p] [/p] [p]'函数名:htmlcode[br]'作 用:过滤html标签[br]'参 数:str ----字符串[br]'****************************************************[br]public function htmlcode(str)[br] if not isnull(str) and str<>"" then[br] str = replace(str, ">", ">")[br] str = replace(str, "<", "<")[br] str = replace(str, chr(32), " ")[br] str = replace(str, chr(9), " ")[br] str = replace(str, chr(34), """)[br] str = replace(str, chr(39), "'")[br] str = replace(str, chr(13), "")[br] str = replace(str, chr(10), "")[br] str = replace(str, "script", "script")[br] htmlcode = str[br] end if[br]end function[/p] [p] '****************************************************[br]'函数名:replacehtml[br]'作 用:清理html[br]'参 数:tstr ----字符串[br]'****************************************************[br]public function replacehtml(tstr)[br] dim str,re[br] str=tstr[br] set re=new regexp[br] re.ignorecase =true[br] re.global=true[br] re.pattern="<(p|\/p|br)>"[br] str=re.replace(str,vbnewline)[br] re.pattern="]*src(=| )(.[^>]*)>"[br] str=re.replace(str,"[img]$2[/img]")[br] re.pattern="<(.[^>]*)>"[br] str=re.replace(str,"")[br] set re=nothing[br] replacehtml=str[br]end function[/p] [p][br]'---------------获取客户端和服务端的一些信息-------------------[/p] [p] '****************************************************[br]'函数名:getip[br]'作 用:获取客户端ip地址[br]'返回值:客户端ip地址[br]'****************************************************[br] public function getip()[br] dim temp[br] temp = request.servervariables("http_x_forwarded_for")[br] if temp = "" or isnull(temp) or isempty(temp) then temp = request.servervariables("remote_addr")[br] if instr(temp,"'")>0 then temp="0.0.0.0"[br] getip = temp[br]end function[/p] [p] '****************************************************[br]'函数名:getbrowser[br]'作 用:获取客户端浏览器信息[br]'返回值:客户端浏览器信息[br]'****************************************************[br] public function getbrowser()[br] info=request.servervariables(http_user_agent) [br] if instr(info,"netcaptor 6.5.0")>0 then[br] browser="netcaptor 6.5.0"[br] elseif instr(info,"myie 3.1")>0 then[br] browser="myie 3.1"[br] elseif instr(info,"netcaptor 6.5.0rc1")>0 then[br] browser="netcaptor 6.5.0rc1"[br] elseif instr(info,"netcaptor 6.5.pb1")>0 then[br] browser="netcaptor 6.5.pb1"[br] elseif instr(info,"msie 5.5")>0 then[br] browser="internet explorer 5.5"[br] elseif instr(info,"msie 6.0")>0 then[br] browser="internet explorer 6.0"[br] elseif instr(info,"msie 6.0b")>0 then[br] browser="internet explorer 6.0b"[br] elseif instr(info,"msie 5.01")>0 then[br] browser="internet explorer 5.01"[br] elseif instr(info,"msie 5.0")>0 then[br] browser="internet explorer 5.00"[br] elseif instr(info,"msie 4.0")>0 then[br] browser="internet explorer 4.01"[br] else[br] browser="其它"[br] end if[br]end function[/p] [p] '****************************************************[br]'函数名:getsystem[br]'作 用:获取客户端操作系统[br]'返回值:客户端操作系统[br]'****************************************************[br] function getsystem()[br] info=request.servervariables(http_user_agent) [br] if instr(info,"nt 5.1")>0 then[br] system="windows xp"[br] elseif instr(info,"tel")>0 then[br] system="telport"[br] elseif instr(info,"webzip")>0 then[br] system="webzip"[br] elseif instr(info,"flashget")>0 then[br] system="flashget"[br] elseif instr(info,"offline")>0 then[br] system="offline"[br] elseif instr(info,"nt 5")>0 then[br] system="windows 2000"[br] elseif instr(info,"nt 4")>0 then[br] system="windows nt4"[br] elseif instr(info,"98")>0 then[br] system="windows 98"[br] elseif instr(info,"95")>0 then[br] system="windows 95"[br] elseif instr(info,"unix") or instr(info,"linux") or instr(info,"sunos") or instr(info,"bsd") then[br] system="类unix"[br] elseif instr(thesoft,"mac") then[br] system="mac"[br] else[br] system="其它"[br] end if[br]end function[br][br]'****************************************************[br]'函数名:geturl[br]'作 用:获取url包括参数[br]'返回值:获取url包括参

该文章在 2010/7/3 14:15:14 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved