www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/i5808_config.asp

     
<% 
set config=server.createobject("adodb.recordset") 
exec="select * from config" 
config.open exec,conn,1,1 

Function DelHtml(Str1)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = "(<[^>]*?>)"
  regEx.Global = True
  regEx.IgnoreCase = True
  DelHtml = replace(regEx.Replace(""&str1,""),"&nbsp;","")
End Function
Function InterceptString(txt,length)
    txt=trim(txt)
    x = len(txt)
    y = 0
    if x >= 1 then
        for ii = 1 to x
            if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then 
                y = y + 2
            else
                y = y + 1
            end if
            if y >= length then
                txt = left(trim(txt),ii) 
                exit for
            end if
        next
        InterceptString = txt
    else
        InterceptString = ""
    end if
End Function
%>
<%
Function i5808(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
                 i5808=Left(Str,i)&"..."
                 Exit For
           Else
                 i5808=Str
           End If
     Next
End Function
%>

<%
function TD_home()
TD_home=""&config("title")&""
end function
function TD_keywords()
TD_keywords=""&config("keywords")&""
end function
function TD_description()
TD_description=""&config("description")&""
end function
function TD_url()
TD_url=""&config("url")&""
end function
function TD_logo()
TD_logo=""&config("logo")&""
end function
function TD_logoiwidth()
TD_logoiwidth=""&config("logoiwidth")&""
end function
function TD_logoheight()
TD_logoheight=""&config("logoheight")&""
end function
function TD_name()
TD_name=""&config("name")&""
end function
function TD_mail()
TD_mail=""&config("mail")&""
end function
function TD_tel()
TD_tel=""&config("tel")&""
end function
function TD_fax()
TD_fax=""&config("fax")&""
end function
function TD_dz()
TD_dz=""&config("dz")&""
end function
function TD_copyright()
TD_copyright=""&config("copyright")&""
end function
function TD_beian()
TD_beian="<a href=""http://www.miibeian.gov.cn""  target=""_blank"">"&config("beian")&"</a>"
end function
function TD_qq1()
TD_qq1=""&config("qq1")&""
end function
function TD_qq2()
TD_qq2=""&config("qq2")&""
end function
function TD_qqkg()
TD_qqkg=""&config("qqkg")&""
end function
function TD_syabout()
TD_syabout=""&config("syabout")&""
end function
function TD_newsclass()
TD_newsclass=""&config("newsclass")&""
end function
function TD_productsclass()
TD_productsclass=""&config("productsclass")&""
end function
function TD_downclass()
TD_downclass=""&config("downclass")&""
end function
function TD_jobclass()
TD_jobclass=""&config("jobclass")&""
end function
function TD_lyclass()
TD_lyclass=""&config("lyclass")&""
end function
%>