| 网站地图 
| English  
| 工业洗衣机
| 寻找老用户
maxlong then
maxlong=match.length
getos=match.value
end if
Next
end function
private function getsoft(strUA)
dim regEx ,match,matches,maxlong
getsoft=""
Set regEx = New RegExp
regEx.Pattern = "(Konqueror|Opera|Safar|Firebird|NetCaptor|MSN |Netscape|MSIE|MyIE|OmniWeb|AOL|WebTV|iCab|Mozilla)[\d\/]?\d*\.?\d*\.*\d*[^;\(\)\[]*"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strUA)
For Each Match in Matches
if instr(getsoft,"Mozilla") then
getsoft = match.value
else
getsoft = getsoft & "," & match.value
end if
Next
getsoft=replace(getsoft,"/"," ")
end function
private function cwin(strUA)
dim regEx
Set regEx = New RegExp
regEx.Pattern = "Win\s?(\d+|NT)"
regEx.IgnoreCase = True
regEx.Global = True
cwin=regEx.Replace (strUA,"Windows $1")
end function
end class
%>
0 then
response.write "Error!There was an error when the system try to open the database."
response.end
end if
end sub
call openconn
sub closeconn
conn.Close
set conn=nothing
end sub
%>
0 then CFG_SaveOnline=false
SSS = split(rsSite("S_Style"),",")
if ubound(SSS)=1 then
S_Oldip=SSS(0):S_Oldpv=SSS(1)
else
S_Oldip=0:S_Oldpv=0
end if
dim site_CanS(15)
for i=0 to 15
if instr("," & Site_Can & ",","," & i & ",") then
site_CanS(i)=true
else
site_CanS(i)=false
end if
next
%>
"" then
ffurl= split(furl,"/")
findhost= ffurl(2)
if left(findhost,8)="192.168." or left(findhost,3)="10." or findhost="127.0.0.1" or instr(findhost,".")=0 then findhost="LAN"
else 
findhost= ""
end if
end function
' 找到文件地址的全路径
Function finddir(filepath)
finddir=left(filepath,instrRev(filepath,"/")-1)
end Function
' 从URL中获取关键词
function findKeystr(urlstr)
dim regEx,vKey,vP,findKeystr1
findkeystr=""
vP = "(?:yahoo.+?[\?|&]p=|openfind.+?q=|google.+?q=|lycos.+?query=|aol.+?query=|onseek.+?keyword=|search\.tom.+?word=|search\.qq\.com.+?word=|zhongsou\.com.+?word=|search\.msn\.com.+?q=|yisou\.com.+?p=|sina.+?word=|sina.+?query=|sina.+?_searchkey=|sohu.+?word=|sohu.+?key_word=|sohu.+?query=|sogou.+?query=|163.+?q=|baidu.+?w=|baidu.+?wd=|baidu.+?word=|3721\.com.+?name=|3721\.com.+?p=|Alltheweb.+?q=)([^&]*)"
set regEx=new regexp
regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern = vP

set Matches = regEx.Execute(urlstr)
for each Match in Matches
' 没有使用subMatches是因为有的服务器可能并没有安装VBS5.5版本
findKeystr1 = regEx.replace(Match.value,"$1")
next

if findKeystr1="&inipnum&" and ip1= Site_SaveNum then exit for
next
Application.Lock
Application(CacheName)=strOut
Application.UnLock 
end if
end sub
' 更新要保存的IP
function vsaveips(inips)
vsaveips=left(inips,len(inips)-1)
vsaveips=right(vsaveips,len(vsaveips)-1)
howip=split(vsaveips,"#")
if ubound(howip) 3 then isvalidhex=false:exit function
if left(str,1)="0") and (c="A") and (c="0") and (c="A") and (c
0.01 then Application(canCacheName) = 0:Application(LastTCacheName)=now()
if Application(canCacheName) >= 2 then isCan=false
' 网页立即超时，防止漏统计
Response.Expires = 0
if isCan then
Application.Lock
Application(canCacheName) = Application(ca