悠悠博客 关注Ajax技术与web开发

此功能一般用来生成姓名的首字母简写，比如说我今天下午写程序的时候就要用，对于国标码的很简单，因为其ANSII编码是按汉字拼音首字母顺序排列的，只要查出汉字的ANSII值，再对比一下范围就可以了。 但是问题是，我用的是UTF-8编码，而UNICODE的汉字编码毫无规则可言，这可愁坏人了，如果用中文的操作系统的话，装了MSSQL，可以从MSSQL的系统表里把这个对应关系select 出来，但是我现在用AC数据库，犯不着去为了查个字母就动MSSQL，所以最需要的还是一张UNICODE的汉字编码对照表。...

作者：静￠脉(hayden) 网址：myhhe.cn大家都知道 在ASP里,实际上是不支持函数重载的 可能有些人要问了 到底什么是函数重载呢? 在这里给出解释:函数重载允许用同一个函数名定义多个函数,被重载的函数必须要有不同的形参列表,不可以根据函数返回值类型来重载函数. 如 replace("aaddbbeea","a","b") replace("aaddbbeea","a","b&...

一个转化时间的函数。kingcms中的时间处理也是很强大的，有时间可以看看。PHP中的date()函数功能实在是太强大了，忍不住用ASP模仿写了个.... 但只是写到日，还没写小时，分，秒的.. 所以这个函数还没能格式化小时，分，秒的，有时间以后再加上。 <% '****************************** '名称：时间处理函数 '函数：FormatDate(Str,DateTime) '参数：Str 字符串，DateTime 时间 '作者：西楼冷月 '日期：2006/1/...

函数需要调用cmd和winrar.exe，一般只能以管理组启动这些程序，合适的权限分配下才能正常使用这个函数。需要使得匿名账户有执行权限，和ntfs文件系统的读写权限。没有自己服务器的还是算了。有些虚拟主机程式是支持解压缩和压缩的，实现的道理类似，无外乎就是winrar的使用。     要想实现这种功能，首先要得到Rar程序的解压缩核心文件支持（可以下载WinRar软件，再把其中的Rar.exe文件单独“拿”出来。），并且还需要Wi...

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Design by www.Szdaxue.Com ' ' Copyright 2007 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function int2chn(n) dim i,j,k,strlen,retval,x,y,z,str z=array(&quo...

今天遇到自己上网拼命找资料了。无数个urlencode可以供使用，还可以找到很多版本的utf-8转gb的函数。但是都不是很好用。特别在遇到中文的时候。下面的函数该是您收藏的。<% ----------------------------------- 'utf-8 -> gb2312 '----------------------------------- function UTF2GB(UTFStr) UTFStr=replace(UTFStr,"+",&quo...

'********************************************** ' 类型：函数 ' 目的：判断E-MAIL地址是否正确 ' 参数：a_sEmail,待检测的E-Mail地址 ' 返回： ture或false ' 作者：cjj ' 时间：2006-6-14 ' 版本：v1.0 ' 备注：(记录过程或函数的修改说明) '********************************************** Function isEmail(ByVal a_sEm...

FSO中有个方法是...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% StartTime=timer() '程序执行时间检测 '############################################################### '┌──VIBO───────────────────┐ '│ VIBO STUDIO 版权所有 │ '└───────────────────────┘ ' Autho...

<% '============================================================================================================================ '函数列表： '1： 建立数据库的连接 ConnOpen(DataBaseConnectStr,DBType,Conn_object) '2： 断开数据库的连接 ConnClose(Conn_object) '3： 防止SQL注入 Sa...

function checkIDCard(s, d, g) { if (!s) return false; d = new Date(d); if (!d.getTime()) return false; var t, r; t = "" + d.getFullYear() + dblNum(d.getMonth() + 1) + dblNum(d.getDate()); if (g == null || isNaN(g)) return false; g = pa...

<% Sub Calendar() Dim y, m, d Dim i, j, n, c, w Dim iEnd ' y, m, d 年 月 日 y = Year(Date()) m = Month(Date()) d = Day(Date()) ' n 一年的天数 If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then n = 366 Else n = 365 End If ' c 当前月的天数 Select Cas...

'个人代码风格注释（变量名中第一个小写字母表表示变量类型） 'i:为Integer型; 's:为String; Function U2UTF8(Byval a_iNum) Dim sResult,sUTF8 Dim iTemp,iHexNum,i iHexNum = Trim(a_iNum) If iHexNum = "" Then Exit Function End If sResult = "" If (iHexNum < 128) Then s...

原文：http://yuhua.yfidc.com/post/401.shtml这是我看完几个base64编码、解码函数后自己改写的。 因为，在中文操作系统的VBscript中，使用的是unicode字符集，所以很多base64编码、解码函数在理论上是正确的，但实际不能运行！ 文件名称base64.asp <% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789...

此函数,用于生成流水号.sub subcode dim startyear dim startmon dim startday dim code startyear = <%=year(now())%> startmon = <%=month(now())%> startday = <%=day(now())%> if startmon<10 then startmon="0"&month(date) end if if st...