asp下实现对HTML代码进行转换的函数
欢迎访问阿里西西") '****************************** Function HTMLEncode(reString)Dim Str:Str=reStringIf Not IsNull(Str) ThenStr = UnCheckStr(Str)Str = Replace(
欢迎访问阿里西西") '****************************** Function HTMLEncode(reString)Dim Str:Str=reStringIf Not IsNull(Str) ThenStr = UnCheckStr(Str)Str = Replace(
'****************************** function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)on error resume nextDim JMailS
'****************************** Function IsObjInstalled(strClassString)On Error Resume NextIsObjInstalled = False'Err = 0Dim xTestObjSet xTestObj = S
'#################################### '函数:ishttp[str] '参数:str,待处理的字符串 '作者:木木 '日期:2007/7/12 '描述:检测HTTP连接地址或地址栏是否以HTTP开头 '示例: '#########################
'****************************** Function CheckString(strng)CheckString = trueDim regEx, MatchSet regEx = New RegExpregEx.Pattern = "^[A-Za-z0-9]+$"re
'********************************************************* '函数:IsValidEmail[str] '参数:str,待处理的字符串 '作者:木木 '日期:2007/7/12 '描述:检测邮箱格式是否为xxxx@xxx.com或者xxxx@
'****************************** function FormatFileSize(l1)dim l2,l3l3=formatnumber(l1,0,true)if l1>1048576 thenl2="("&formatnumber(l1/1048576
asp 字符串截取函数'********************************************************* '函数:cutStr[str(strlen)] '参数:str,待处理的字符串,strlen,截取的长度 '作者:木木 '日期:2007/7/12 '描述:截取
'****************************** function bbimg(l1,maximgheight,maximgwidth)dim l2,I2:l2=l1set I2=new regexpI2.global=trueI2.ignorecase=trueI2.pattern