2020-02-16 标签:asp,正则,表达式,检测,邮箱,格式,函数,str,参数,待处理,字符串,作者,日期,2007,12,描述,是否

'********************************************************* '函数：IsValidEmail[str] '参数：str，待处理的字符串 '作者：木木 '日期：2007/7/12 '描述：检测邮箱格式是否为xxxx@xxx.com或者xxxx@

2020-02-16 标签:asp,实现,格式化,文件,大小,mb,显示,函数,l,参数,字节数,作者,阿里,西西,日期,2007,12

'****************************** function FormatFileSize(l1)dim l2,l3l3=formatnumber(l1,0,true)if l1>1048576 thenl2="("&formatnumber(l1/1048576

2020-02-16 标签:asp,字符串,截取,函数,cutstr,str,strlen,参数,待处理,长度,作者,日期,2007,12,描述,指定,示例,欢迎光临

asp 字符串截取函数'********************************************************* '函数：cutStr[str(strlen)] '参数：str，待处理的字符串,strlen，截取的长度 '作者：木木 '日期：2007/7/12 '描述：截取

2020-02-16 标签:asp,实现,图片,右键,滑轮,控制,大小,函数,bbimg,l,maximgwidth,参数,路径,最大,允许,高度,宽度,作者

'****************************** function bbimg(l1,maximgheight,maximgwidth)dim l2,I2:l2=l1set I2=new regexpI2.global=trueI2.ignorecase=trueI2.pattern

2020-02-16 标签:asp,通用,数据库,连接,过程,函数,connstr,参数,代码,作者,阿里,西西,日期,2007,13,描述,示例,provider

'****************************** Sub ConnectionMssql(ConnStr) On Error Resume Next Set objConn = Server.Createobject("ADODB.Connection") objConn.Conne

2020-02-16 标签:asp,实现,视频,显示,效果,函数,selplay,strurl,strwidth,strheight,参数,动画,路径,高度,作者,阿里,西西,日期,2007

'****************************** Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" ThenisExt = LCase(Mid(strUrl,InStrRev(str

2020-02-16 标签:asp,取得,用户,真实,ip,代理地,仍然,有效的,函数,参数,作者,阿里,西西,日期,2007,13,描述

'****************************** Function GetUserTrueIP()dim strIPAddrIf Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerV

2020-02-16 标签:asp,实现,显示,所有的,服务器,变量,值的,函数,varname,参数,提供,作者,阿里,西西,日期

'****************************** Function ShowServerVar(VarName)dim destif VarName="" thenfor each dest in Request.ServerVariablesShowServerVar=ShowSe

2020-02-16 标签:asp,格式化,sql,字符串,函数,str,参数,语句,作者,阿里,西西,日期,2007,13,描述,示例,function,dim

'****************************** function formatQueryStr(str)dim nstrnstr = strnstr = replace(nstr,chr(0),"")nstr = replace(nstr,"'","''")nstr = repla

2020-02-16 标签:asp,实现,生成,数字,大写字母,小写字母,指定,位数,随机数,函数,gen,key,digits,参数,作者,阿里,西西,日期,2007

'****************************** Function gen_key(digits) '定义并初始化数组dim char_array(80)'初始化数字For i = 0 To 9char_array(i) = CStr(i)Next'初始化大写字母For i = 10