Rem 将字符串转换为整形数据 function toInteger(str,num) str=trim(str) if str="" or not isnumeric(str) then toInteger=num else toInteger=clng(str) end if end function Rem 将字符串转换为双精度型数据 function toDouble(str) str=trim(str) if str="" or not isnumeric(str) then toDouble=0.0 else toDo...
代码如下:<% '功能:在一个字符串前后补全另一字符串 '来源:http://jorkin.reallydo.com/article.asp?id=452 Public Function Fill(ByVal sString, ByVal sStr) Fill = RFill(LFill(sString, sStr), sStr ) End Function %> 代码如下:<% '功能:在一个字符串前面补全另一字符串 '来源:http://jorkin.reallydo.com/article.asp?id=452 Public Function LFill(ByVal sString, ByVal sStr) Dim iStrLen : iStrLen = ...
我想做META关键字，比如我的标题显示ASP代码是：<% =objrs("Title")%> 如果<% =objrs("Title")%>最终显示的标题如“字符串分割如何实现？” 我想把字符串按两个汉字分割，如“字符,符串,串分,分割,割如,如何,何实,实现” 那ASP代码如何写？ 非常感谢。 代码如下:dim i, title title = objrs("Title") for i = 0 to len(Title") step 2 response.write mid(title, i, 2) & "," next代码如下:<% dim objRs,strSql Set objRs=Serv...
参考资料之ASP函数 整理下asp下常用的字符串，数据等操作函数，大家在平时操作中也经常遇到的1.函数 array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: 结果: i 被赋予为数组 2.函数 Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子: 结果: 236 函数Cint()将字符"234"转...
经常使用到有关数据库的操作。包括连接代码、SQL命令等等，又不曾刻意去记忆它们（我本人是不愿意去记这东东），所以常常在用到的时候又去查书本，翻来翻去。一些比较少用的数据库还不一定能顺利找到，所以现在把它们全归纳到这里，提供大家参考。（个人水平有限，有缺陷之处，欢迎大家指正。） <一>。数据库的连接方法： 1.Access数据库的DSN-less连接方法: set adocon=Server.Createobject("adodb.connection") adoconn.Open"Dri...
有段字符串： asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf 没任何规律的...我要把里面的{#kljlkkm#}和{#wdfs#}查找出来... 1、Split办法： 代码如下:<% Dim I, sCode, aCode, sNewCode sCode = "asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf" aCode = Split(sCode, "{#") sNewCode = "" For I = 0 To UBound(aCode) If InStr(aCode(I), "#}") > 0 Then sNewCode = sNewCode & "{#" & Spli...
<% 'ASP生成随机字符串(数字+大小写字母)练习 '阿会楠练习，为我所用，非我所想 Function randKey(obj) Dim char_array(80) Dim temp For i = 0 To 9 char_array(i) = Cstr(i) Next For i = 10 To 35 char_array(i) = Chr(i + 55) Next For i = 36 To 61 char_array(i) = Chr(i + 61) Next Randomize For i = 1 To obj 'rnd函数返回的随机数在0~1之间，可等于0，但不等于1 '公式：int((上限-下限+1)*Rnd+下限...
asp之字符串函数示例用字符串函数对字符串进行截头去尾、大小写替换等操作。 函数语法功能LenLen(string|varname)返回字符串内字符的数目，或是存储一变量所需的字节数。TrimTrim(string)将字符串前后的空格去掉LtrimLtrim(string)将字符串前面的空格去掉RtrimRtrim(string)将字符串后面的空格去掉MidMid(string,start,length)从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串...
截取字符串特定部分内容函数<% '****************************** '函数：GetKey(HTML,Start,Last) '参数：HTML,待截取的原字符串；tart,截取开始标记；last,截取结束标记 '作者：阿里西西 '日期：2007/7/12 '描述：截取字符串函数，从Start开始截取，到Last为结束 '示例：<%=GetKey("阿里西西，国内最大的WEB开发资源","最大的","资源")%> '****************************** Function GetKey(HTML,Start,Last) filearray=split(HTML...
'================================================== '函数名：GetBody '作 用：截取字符串 '参 数：ConStr ------将要截取的字符串 '参 数：StartStr ------开始字符串 '参 数：OverStr ------结束字符串 '参 数：IncluL ------是否包含StartStr '参 数：IncluR ------是否包含OverStr '================================================== Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR) If ConStr="$Fal...
<% '****************************** '函数：formatQueryStr(str) '参数：str,SQL语句 '作者：阿里西西 '日期：2007/7/13 '描述：格式化sql中的like字符串 '示例：<%=formatQueryStr(str)%> '****************************** function formatQueryStr(str) dim nstr nstr = str nstr = replace(nstr,chr(0),"") nstr = replace(nstr,"'","''") nstr = replace(nstr,"[","[[]") nstr = replace(nstr,"%","[%]") formatQuery...
asp 字符串截取函数'********************************************************* '函数：cutStr[str(strlen)] '参数：str，待处理的字符串,strlen，截取的长度 '作者：木木 '日期：2007/7/12 '描述：截取指定长度的字符串 '示例：<%=cutStr("欢迎光临阿里西西",5)%> '********************************************************* function cutStr(str,strlen) If str = "" Then cutStr = "cutStr函数异常：字符串为空" exit fu...
<% '****************************** '函数：CheckString(strng) '参数：strng,待验证字符串 '作者：阿里西西 '日期：2007/7/13 '描述：检测字符串是否为纯字母和数字组合 '示例：<%=CheckString(strng)%> '****************************** Function CheckString(strng) CheckString = true Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "^[A-Za-z0-9]+$" regEx.IgnoreCase = True Set Match...
<% A_Key=split("96,44,63,80",",") '定义密钥 '*********加密的过程********* Function EnCrypt(m) Dim strChar,iKeyChar,iStringChar,I k=0 for I = 1 to Len(m) iKeyChar =Cint(A_Key(k)) iStringChar = Asc(mid(m,I,1)) '获取字符的ASCII码值 iCryptChar = iKeyChar Xor iStringChar '进行异或运算 '对密钥进行移位运算 If k<3 Then k=k+1 Else k=0 End If c = c & Chr(iCryptChar) next EnCrypt = c End F...
若需要utf-8格式，请自行将下面的GB2312改成utf-8。 ' 二进制转字符串，否则会出现乱码的！ Function sTb(vin) Const adTypeText = 2 Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") With BytesStream .Type = adTypeText .Open .WriteText vin .Position = 0 .Charset = "GB2312" .Position = 2 StringRetur...