2020-02-16 标签:asp,实现,重新,排序,数字,数组,代码,函数,neworder,arrstr,参数,rstr,逗号,分隔,作者,阿里,西西,日期,2007

'****************************** Function NewOrder(ArrStr) For i = 0 To Ubound(Split(ArrStr,","))If n > 0 ThenArrStr = Replace(ArrStr,n,0)End Ifsp

2020-02-16 标签:asp,下去,除数,重复,方法,实现,代码,如下,function,mover,rstr,dim,i,spstr,split,ubound,else

实现代码如下：结果是：abc,dge,gcg,die,dir如果是两个数组进行对比，去掉相同的数组元素：实现代码如下： "" Then dic.Add "_" & a(k), a(k)Nexta = Split(sarray, ",")For k=0 To UBound(a)If a(k)&

2020-02-16 标签:asp,定向,页面,方法,总结,返回,一页,一般,用在,判断,信息,提交,是否,完全,函数,goback,参数,作者,阿里

返回上一页，一般用在判断信息提交是否完全之后 '****************************** Sub GoBack() Response.write ("history.go(-1)") End Sub%> 重定向到另外的链接 '************************

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,产生,任意,位数,随机,密码,代码,函数,byval,maxlen,参数,生成,长度,作者,阿里,西西,日期,2007

'****************************** function MakePassword(byval maxlen)dim strnewpassdim whatsnext, upper, lower, intcounterrandomizefor intcounter = 1 to

2020-02-16 标签:asp,日期,格式化,需要,格式,函数,formatdate,dateandtime,para,参数,时间,样式,作者,阿里,西西,2007,12,描述,示例

'****************************** Public Function FormatDate(DateAndTime, para)On Error Resume NextDim y, m, d, h, mi, s, strDateTimeFormatDate = DateA

2020-02-16 标签:asp,实现,取得,数组,最大值,代码,函数,getmax,str,参数,待处理,数字,分隔,多了,作者,阿里,西西,日期,2007

'****************************** function GetMax(str) num=split(str,",") max=num(0) for ii=0 to ubound(num) if cint(num(ii))>cint(max) then max=num

2020-02-16 标签:asp,取得,客户端,ip,地址,函数,转换,userip,参数,作者,阿里,西西,日期,2007,12,描述,示例,function,dim

'****************************** Function Userip() Dim GetClientIP '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.S

2020-02-16 标签:asp,实现,截取,字符串,特定,部分,内容,函数,getkey,html,start,last,参数,tart,标记,结束,作者,阿里

截取字符串特定部分内容函数 '****************************** Function GetKey(HTML,Start,Last) filearray=split(HTML,Start) filearray2=split(filearray(1),Last) GetKey=

2020-02-16 标签:asp,去除,所有的,超级链接,两种,方法,替换,正则,函数,removehref,a,htmlstr,参数,链接,字符串,作者,阿里,西西,日期

测试")%> '****************************** Function RemoveHref_A(HTMLstr) Dim n,str1,str2,str3,str4 HTMLstr = Lcase(HTMLstr) For n=1 to Ubound(Split(HT