判断是不是从百度来的

1. <!--判断开始-->
   
2. <%
   
3. dim urlstr
   
4. urlstr=request.servervariables("http_referer")
   
5. if urlstr<>"" then
   
6. if instr(urlstr,"http://www.baidu.com")=1 or instr(urlstr,"http://www.ermudi.cn")=1  then  
   
7. %>
   
8. 
   
9. 
   
10. <%
    
11. response.Cookies("guanggao")="1"
    
12. response.cookies("guanggao").expires=dateadd("d",1,datevalue(date))
    
13. %>
    
14. 
    
15. <%
    
16. end if
    
17. end if
    
18. %>
    
19. <!--判断结束-->

复制代码

1. <%
   
2. dim urlstr
   
3. urlstr=request.servervariables("http_referer")
   
4. if urlstr<>"" then
   
5.   if (instr(urlstr,"http://www.baidu.com")=1 or instr(urlstr,"http://www.ermudi.cn")=1) then
   
6.       if request.Cookies("guanggao")="" then
   
7. %>
   
8. 
   
9. 
   
10. <%
    
11. response.Cookies("guanggao")="1"
    
12. response.cookies("guanggao").expires=dateadd("d",1,datevalue(date))
    
13. %>
    
14. 
    
15. <%
    
16. end if
    
17. end if
    
18. end if
    
19.   %>

复制代码

1. <%
   
2.   if request.Cookies("guanggao")="" then
   
3. %>
   
4. 
   
5. <!--开始广告-->
   
6. 
   
7. 
   
8. <!--结束广告-->
   
9. 
   
10. <%
    
11.   response.Cookies("guanggao")="1"
    
12.   response.cookies("guanggao").expires=dateadd("d",1,datevalue(date))
    
13.   end if
    
14. %>

复制代码