致支持和关注本Blog的朋友:
感谢你访问PaulLeder--程序部落。
在这里包括一些与计算机有关知识的讨论和学习。
我希望能以这个网站为平台，和大家一起交流计算机程序设计的经历和心得。
衷心祝福大家在学业和事业上不断进步，体会成功、自信和快乐。

 
预览模式: 普通 | 列表

建立转换字典，指定拼音和编码的对应关系

作者:PaulLeder  日期:2005-12-24

<%
'建立转换字典，指定拼音和编码的对应关系
Set objDictonary = CreateObject("Scripting.Dictionary")
objDictonary.Add "a",-20319
objDictonary.Add "ai",-20317

查看更多...

Tags:

分类:ASP | 固定链接 | 评论: 0 | 引用: 49 | 查看次数: 1161

将Str中每个单词的首个字母改成大写

作者:PaulLeder  日期:2005-12-24

<%
'将Str中每个单词的首个字母改成大写
Public Function WordsUpper(Str)
    Dim I, TempStr, Words, TempWords
    Str = Trim(Str)

查看更多...

Tags:

分类:ASP | 固定链接 | 评论: 0 | 引用: 49 | 查看次数: 1058

转换字符串Str中英文字符大小写

作者:PaulLeder  日期:2005-12-24

<%
'转换字符串Str中英文字符大小写
Public Function SwapCase(Str)
Dim I,CurStr,ReturnStr,Upper,Lower
For I = 1 To Len(Str)

查看更多...

Tags:

分类:Script | 固定链接 | 评论: 0 | 引用: 107 | 查看次数: 1020

数组和字符串相互转化

作者:PaulLeder  日期:2005-12-24

<%
'将字符串String1转换为数组
Public Function StringToArray(ByVal String1)
Dim I,Array1()
Redim Array1(Len(String1))

查看更多...

Tags:

分类:Script | 固定链接 | 评论: 0 | 引用: 110 | 查看次数: 1068

在Str中截取长度为Length的字符串

作者:PaulLeder  日期:2005-12-24

<%
'在Str中截取长度为Length的字符串
Public Function InterceptStr(Str,Length)
 Dim Str1,StrLength,I,Counter
 '定义标志位Flag，记录是否是中文字符，0代表"否"，1代表"是"

查看更多...

Tags:

分类:Script | 固定链接 | 评论: 0 | 引用: 49 | 查看次数: 898

过滤字符串Str中的HTML代码

作者:PaulLeder  日期:2005-12-24

<%
'过滤字符串Str中的HTML代码
Public Function FilterHtml(Str)
    If Trim(Str) = "" or IsNull(Str) Then
        FilterHtml=""

查看更多...

Tags:

分类:ASP | 固定链接 | 评论: 0 | 引用: 99 | 查看次数: 1008

检测字符串Str1在字符串Str2中出现的次数

作者:PaulLeder  日期:2005-12-24

<%
'检测字符串Str1在字符串Str2中出现的次数
Public Function SearchChar(Str1, Str2)
    Dim I, Counter
        Counter = 0

查看更多...

Tags:

分类:ASP | 固定链接 | 评论: 0 | 引用: 106 | 查看次数: 890

判断字符Char是否是英文字符

作者:PaulLeder  日期:2005-12-24

<%
 '判断字符Char是否是英文字符
Public Function IsAlphabet(ByVal Char)
    Dim AscValue
    AscValue = CInt(Asc(Char))

查看更多...

Tags:

分类:ASP | 固定链接 | 评论: 0 | 引用: 108 | 查看次数: 894