网站开发代码

function ClearHTML(ByVal reString)    
    Dim Str:Str=reString    
    If Not IsNull(Str) Then   
        Str = Replace(Str, "&", "&")    
        ClearHTML = Str     ...

Function HTMLDecode(ByVal reString)     
    Dim Str:Str=reString    
    If Not IsNull(Str) Then   
        Str = Replace(Str, ">", ">")    
        Str = Replace(Str, &...

Function HTMLEncode(ByVal reString)     
    Dim Str:Str=reString    
    If Not IsNull(Str) Then   
        Str = Replace(Str, ">", ">")    
        Str = Replace(Str, &...

Function CheckStr(byVal ChkStr)     
    Dim Str:Str=ChkStr    
    If IsNull(Str) Then   
        CheckStr = ""   
        Exit Function     
    End If   
    Str = Replace(Str, &quo...

Function FixName(UpFileExt)    
    If IsEmpty(UpFileExt) Then Exit Function   
    FixName = Ucase(UpFileExt)    
    FixName = Replace(FixName,Chr(0),"")    
    FixName = Replace(FixN...

Function checkURL(ByVal ChkStr)    
    Dim str:str=ChkStr    
    str=Trim(str)    
    If IsNull(str) Then   
        checkURL = ""   
        Exit Function     
    End If   
    D...

Function highlight(byVal strContent,byRef arrayWords)    
    Dim intCounter,strTemp,intPos,intTagLength,intKeyWordLength,bUpdate    
    if len(arrayWords)<1 then highlight=strContent:exit funct...

Function IsValidChars(str)    
    Dim re,chkstr    
    Set re=new RegExp    
    re.IgnoreCase =true    
    re.Global=True   
    re.Pattern="[^_\.a-zA-Z\d]"   
    IsValidChars=Tru...

Function IsvalidFile(File_Type)    
    IsvalidFile = False   
    Dim GName    
    For Each GName in UP_FileType    
        If File_Type = GName Then   
            IsvalidFile = True   
    ...

Function DateTimeToGMT(sDate)
   Dim dWeek,dMonth
   Dim strZero,strZone
   strZero="00"
   strZone="+0800"
   dWeek=Array("Sun","Mon","Tue",&quo...