【2009-03-25】asp截取字符串

<%'在Str中截取长度为Length的字符串Public Function InterceptStr(Str,Length) Dim Str1,StrLength,I,Counter '定义

【2009-03-25】asp过滤字符串中的HTML代码

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

【2009-03-25】asp检测字符串出现的次数

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

【2009-03-25】asp判断字符是否是英文字符

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

【2009-03-25】asp判断字符串是否以指定字符串开头或结尾

<%'判断字符串Str1是否以指定字符串Str2开头Public Function BeginWith(ByVal Str1, ByVal Str2) Dim Length Length = L

【2009-03-25】asp计算中英文混合字符串的长度

<%'计算中英文混合字符串Str的长度Public Function StrCount(ByVal Str) Dim I, Counter If Trim(Str) = "" Or IsNull

【2009-03-25】asp创建和调整动态数组

<%Dim I'声明动态数组Dim Array1()'分配存储空间ReDim Array1(6)For I=1 To 5 '初试化数组 Array1(I)=INext'调整Array大小，保留原

【2009-03-13】asp阳历转农历

<% Function Nongli() Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXia

【2009-03-13】asp上传漏洞

对于非法的木马图片,检查文件内容. <% set MyFile = server.CreateObject("Scripting.FileSystemObject")set MyText =

【2009-03-13】点击下载文件而不是在浏览器中打开

如word,txt,pdf文件,点击时会在浏览器中打开. <% filename = Request.QueryString("filename")if filename = "" Th