一小段代码,求助。。

来源:百度知道 编辑:UC知道 时间:2024/05/13 19:26:48
'页面访问统计
''''''''''''''''''''''''''''''''''''''''''''''''''''''
if statpage=true then
dim sql_page
If databaseType = 1 Then
sql_page = "SELECT * FROM t_page WHERE f_date=#"&strDate&"# and f_pageurl='"&pageUrl&"'"
Else
sql_page = "SELECT * FROM t_page WHERE datediff(d,f_date,'"&strDate&"') =0 and f_pageurl='"&pageUrl&"'"
End If
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open sql_page,conn,3,3
if Rs.eof then
Rs.addnew
Rs("f_pageurl")=pageUrl
Rs("f_date")=strDate
Rs("f_time")=strTime
Rs("f_hits")=1
Rs.update
else
Rs.MoveFirst
R

思路是:取"/"的位置,然后再LEFT取左部分.OK!

/^http:\/\/[^\/]*\//ig
匹配"http://"后第一次出现"/"字符串

直接先把pageUrl处理!

如果前面有“http://”先处理
pageUrl=replace(pageUrl,"http://","")

然后
pageUrl=left(pageUrl,instr(pageUrl,"/"))

直接加到前面就可以了