代码如下:<% class SQLString ************************************ 变量定义 ************************************ sTableName ---- 表名 iSQLType ----SQL语句类型：0-增加，1-更新，2-删除,3-查询 sWhere ---- 条件 sOrder ---- 排序方式 sSQL ----值 Private sTableName,iSQLType,sWhere,sOrder,sSQL ************************************ 类初始化/结束 ************************************ Private Sub Class_Initializ...
FSO文件（File）对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的Drive对象 Name 设定或返回文件的名字 ParentFolder 返回该文件的父文件夹的Folder对象 Path 返回文件的绝对路径，可使用长文件名 ShortName 返回DOS风格的8.3形式的文件名 ShortPath 返回DOS风格的8.3形式的文件绝对...
代码如下:Function CutStrX(ByVal Str,ByVal StrLen) Dim l,t,c,i,r 过滤全部HTML标记 Set r=New RegExp r.Global=True r.MultiLine=True r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)" str=r.Replace(str," ") Set r=Nothing l=Len(str) t=0 For i=1 To l c=AscW(Mid(str,i,1)) If c<0 Or c>255 Then t=t+2 Else t=t+1 IF t>=StrLen Then CutStrX=Left(Str,i)&"..." Exit For Else CutStrX=Str End If Next End Function
代码如下:'===================================== '转换内容，防止意外 '===================================== Function Content_Encode(ByVal t0) IF IsNull(t0) Or Len(t0)=0 Then Content_Encode="" Else Content_Encode=Replace(t0,"<","<") Content_Encode=Replace(Content_Encode,">",">") End IF End Function '===================================== '反转换内容 '===================================== Function Con...
asp中怎么替换最后一个逗号为空字符串 举例 aaa,bbb,ccc,eee, 这个字符串 怎么让最后一个逗号变没，其他的不变啊 问题补充：举例 aaa,bbb,ccc,eee, 这个字符串 怎么让最后一个逗号变没，其他的不变啊 如果是aaa,bbb,ccc,eee则不做修改 <% str="aaa,bbb,ccc,eee," if right(str,1)="," then str=left(str,len(str)-1) end if %> asp Right 函数 可从字符串右边返回指定数目的字符。提示：要确定 string 参数中的字符数目，使...
Access 连接字符串 strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb;” Access 2007 连接字符串 strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Mode=Share Exclusive;Data Source=C:\MyDatabase.accdb;” MSSQL Server 连接字符串 strConnect = “Provider=SQLOLEDB;Data Source=ServerName\InstanceName;Initial Catalog=DatabaseName;User ID=UserName;Password=password;” Excel 连接字符...
代码如下:'************************************ '截取文字长度函数，支持UTF-8 '输入参数： ' 1、文字内容 ' 2、文字最大长度 '************************************ Public Function Cut_Title(Title,TLen) Dim k,i,d,c Dim iStr Dim ForTotal If CDbl(TLen) > 0 Then k=0 d=StrLen(Title) iStr="" ForTotal = Len(Title) For i=1 To ForTotal c=Abs(AscW(Mid(Title,i,1))) If c>255 Then k=k+2 Else k=k+1 End If iStr=iStr&M...
LCase：转成小写 UCase：转成大写 下面是ASP中的代码，可以直接演示效果的。 代码如下:<% dim str,str1,str2 str="AbCdEf" str1=LCase(str) str2=UCase(str) Response.write("LCase转换小写"&str1 & ",UCase转换大写" & str2) %> 而.NET中将字符串转换为大写ToUpper()，将字符串转换为小写ToLower()。
代码如下:去掉字符串头尾的连续的回车和空格 function trimVBcrlf(str) trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str)) end function 去掉字符串开头的连续的回车和空格 function ltrimVBcrlf(str) dim pos,isBlankChar pos=1 isBlankChar=true while isBlankChar if mid(str,pos,1)=" " then pos=pos+1 elseif mid(str,pos,2)=VBcrlf then pos=pos+2 else isBlankChar=false end if wend ltrimVBcrlf=right(str,len(str)-pos+1) end f...
'************************************* 'asp计算随机数 '************************************* Function randomStr(intLength) Dim strSeed, seedLength, pos, Str, i strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" seedLength = Len(strSeed) Str = "" Randomize For i = 1 To intLength Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) Next randomStr = Str End Function
a1="sp2=20;sp1=34;" a2="sp3=2;sp2=3;sp1=4;" 两组字符串数据，将字符串中相同的数据值相加后得到新的一组数据 即“sp3=2;sp2=23;sp1=38” (p.s 一个简单的应用：商品二原有数量20件，商品一原有数量34件，新进货或者新出售了商品二3件，商品一4件等类型模拟情况下计算出进货量，销售量和库存量，小型的进销存系统可采用这样的方法) 那么如何实现两组字符串数据比较合并相同数据？ 第一，将两组字符串数据进行连接组合 a3=a1&a2 那...
说明：本函数作用是截取指定英汉混合字符串，并保持显示长度一至。就是将一个汉字当两英文来截取。 用途：一般会用在标题显示列表，可以避免截取的字符串参插不齐的现象。 程序代码 代码如下:'//A_strString要处理的字符串 '//A_intLen以英文字符数为准 '//A_strAddString如果A_strString有截取字符时添中的后缀，如：...，可以为空 function CutString(byval A_strString,byval A_intLen,byval A_strAddString) dim MM_objRe,MM_...
函数名:getHTMLContent参数:NO-->要取得的字符数, txtContent-->要处理的字符串 功能: 从字符串里截取N个带HTML的字符,现在的实现方法还不完善,过程是:从字符串里找各种控件的开始,然后依些分开,放到数组里,然后一个一个数组的加上来看看字符是否大于给定的字符如果是,那么,返回这个数组. 作者:柳永法 时间:2007-6-1 20:03 :)Function getHTMLContent(NO, txtContent) If Len(txtContent)<= NO Then getHTMLContent = txtContent ...
<% '字段内网址加上联接。 Function ToLink(Str) Dim RE '正则表达式对象 Dim strContent If IsNull(Str) Then Str = "" Set RE = New RegExp '创建正 则表达式对象 With RE .Global = True '搜索应用于整个字符串 .IgnoreCase = True '搜索不区分大小写的 strContent = Str '*************************************************************** '邮件地址链接自动设置...
当初只是为了玩玩写的，没想到写了之后不断有人询问，所以改写了一下代码，完善了一下，支持了正则替换，避开了会导致出错的二进制（ole对象），并且做了一个EXE的程序。感谢虚拟帮忙。 附asp代码： 代码如下:<% #################################### 批量替换数据库内容2008-3-17 替换是不可逆的，所以操作前做好能备份 #################################### Dim Db,conn,Rs1,Rs2,Str1,Str2,I,Re str1...