a sp编程通用函数收藏大全.docVIP

PAGE PAGE 1 ASP编程通用函数收藏大全 Case \ strDateTime = y \ Case \ strDateTime = right(y,2) \ Case \ strDateTime = right(y,2) \ Case \ strDateTime = m \ Case Else strDateTime = DateAndTime End Select FormatDate = strDateTime End Function % 产生任意位数随机密码 % ‘****************************** ‘函数：MakePassword(byval maxlen) ‘参数：maxlen，要生成的密码位数长度 ‘作者：阿里西西 ‘日期：2007/7/12 ‘描述：产生任意位数随机密码 ‘示例：%=MakePassword(8)% ‘****************************** function MakePassword(byval maxlen) dim strnewpass dim whatsnext, upper, lower, intcounter randomize for intcounter = 1 to maxlen whatsnext = int((1 - 0 + 1) * rnd + 0) if whatsnext = 0 then ‘character upper = 90 lower = 65 else upper = 57 lower = 48 end if strnewpass = strnewpass chr(int((upper - lower + 1) * rnd + lower)) next makepassword = strnewpass end function % 返回以千分位显示数字格式化的数值 % ‘****************************** ‘函数：comma(str) ‘参数：str，待处理的数字 ‘作者：阿里西西 ‘日期：2007/7/12 ‘描述：返回以千分位显示数字格式化的数值 ‘示例：%=comma(\’****************************** function comma(str) if not(isnumeric(str)) or str = 0 then result = 0 elseif len(fix(str)) pos = instr(1,str,\ if pos 0 then dec = mid(str,pos) end if res = strreverse(fix(str)) loopcount = 1 while loopcount tempresult = tempresult + mid(res,loopcount,3) loopcount = loopcount + 3 if loopcount result = strreverse(tempresult) + dec end if comma = result end function % 返回上一页，一般用在判断信息提交是否完全之后 % ‘****************************** ‘函数：GoBack() ‘参数：无 ‘作者：阿里西西 ‘日期：2007/7/13 ‘描述：返回上一页，一般用在判断信息提交是否完全之后 ‘示例： ‘****************************** Sub GoBack() Response.write (\End Sub % 重定向到另外的链接 % ‘****************************** ‘函数：Go(url) ‘参数：url,相对或绝对路径及网址 ‘作者：阿里西西 ‘日期：2007/7/13 ‘描述：重定向到另外的链接 ‘示例： ‘****************************** Sub Go(url) Response.write (\End Sub % 指定秒数重定向另外的连接 % ‘****************************** ‘函数：GoPage(url,s) ‘参数：url,相对或绝对路径及网址;s,以秒为单位的时间后跳转 ‘作者：阿里西西 ‘日期：2007/7/13 ‘描述：指定秒数重定向另外的连接 ‘示例：Response.Write \