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,"")," ","") 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 %>