2020-02-16 标签:asp,返回,千分,显示,数字,格式化,数值,函数,comma,str,参数,待处理,作者,阿里,西西,日期,2007,12

'****************************** function comma(str)if not(isnumeric(str)) or str = 0 thenresult = 0elseif len(fix(str)) 0 thendec = mid(str,pos)end

2020-02-16 标签:asp,实现,检测,字符串,是否,字母,和数,字组,函数,checkstring,strng,参数,验证,作者,阿里,西西,日期

'****************************** Function CheckString(strng)CheckString = trueDim regEx, MatchSet regEx = New RegExpregEx.Pattern = "^[A-Za-z0-9]+$"re

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,生成,任意,英文,数字,位数,长度,随机,函数,generator,length,参数,数值,码位,作者,阿里,西西,日期

2020-02-16 标签:asp,实现,sql,注入,危险,字符,进行,编码,处理,函数,checkstr,byval,chkstr,参数,验证,作者,阿里,西西

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,通用,数据库,连接,过程,函数,connstr,参数,代码,作者,阿里,西西,日期,2007,13,描述,示例,provider

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

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,验证,ip,格式,函数,checkip,par,strip,参数,str,检测,字符串,作者,阿里,西西,日期,2007,13,描述

验证Ip格式 '****************************** Function CheckIp(paR_strIp)CheckIp =0Dim tmpLoop, tmpStrtmpStr =paR_strIpIf tmpStr ="" Or IsNull(tmpStr) Then E

2020-02-16 标签:去除,html,代码,标签,两种,方法,实现,如下,函数,removehtml,a,strtext,参数,待处理,字符串,作者,阿里,西西,日期,2007

去除HTML代码中所有标签实现代码如下：欢迎光临阿里西西")%> '****************************** Function RemoveHTML_A(strText)Dim nPos1Dim nPos2nPos1 = InStr(strText, "0nPos2 = I