2020-02-16 标签:asp,代码,实现,检测,组件,是否,安装,函数,参数,对象,作者,阿里,西西,日期,2007,13

'****************************** Function IsObjInstalled(strClassString)On Error Resume NextIsObjInstalled = False'Err = 0Dim xTestObjSet xTestObj = S

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

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

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,实现,生成,数字,大写字母,小写字母,指定,位数,随机数,函数,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

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