利用cookie收藏网站

1 不用每次都询问别人是否收藏,烦!
2 < SCRIPT LANGUAGE = " JavaScript " >
3 <!-- Begin
4 var expDays = 100 ;
5 url = " http://softet.6to23.com " ;;
6 title = " Come on " ;
7 function GetCookie (name) { 
8 var arg = name + " = "
9 var alen = arg.length; 
10 var clen = document.cookie.length; 
11 var i = 0
12 while (i < clen) {   
13 var j = i + alen;   
14 if (document.cookie.substring(i, j) == arg)     
15 return getCookieVal (j);   
16 i = document.cookie.indexOf( " " , i) + 1 ;   
17 if (i == 0 ) break ;  
18
19 return null ;
20 }
21 function SetCookie (name, value) { 
22 var argv = SetCookie.arguments; 
23 var argc = SetCookie.arguments.length; 
24 var expires = (argc > 2 ) ? argv[ 2 ] : null
25 var path = (argc > 3 ) ? argv[ 3 ] : null
26 var domain = (argc > 4 ) ? argv[ 4 ] : null
27 var secure = (argc > 5 ) ? argv[ 5 ] : false
28 document.cookie = name + " = " + escape (value) +
29 ((expires == null ) ? "" : ( " ; expires= " + expires.toGMTString())) +
30 ((path == null ) ? "" : ( " ; path= " + path)) +  
31 ((domain == null ) ? "" : ( " ; domain= " + domain)) +    
32 ((secure == true ) ? " ; secure " : "" );
33 }
34 function DeleteCookie (name) { 
35 var exp = new Date(); 
36 exp.setTime (exp.getTime() - 1 ); 
37 var cval = GetCookie (name); 
38 document.cookie = name + " = " + cval + " ; expires= " + exp.toGMTString();
39 }
40 var exp = new Date();
41 exp.setTime(exp.getTime() + (expDays * 24 * 60 * 60 * 1000 ));
42 function amt(){
43 var count = GetCookie('count')
44 if (count == null ) {
45 SetCookie('count',' 1 ')
46 return 1
47 }
48 else {
49 var newcount = parseInt(count) + 1 ;
50 DeleteCookie('count')
51 SetCookie('count',newcount,exp)
52 return count
53    }
54 }
55 function getCookieVal(offset) {
56 var endstr = document.cookie.indexOf ( " ; " , offset);
57 if (endstr == - 1 )
58 endstr = document.cookie.length;
59 return unescape(document.cookie.substring(offset, endstr));
60 }
61
62 function checkCount() {
63 var count = GetCookie('count');
64 if (count == null ) {
65 count = 1 ;
66 SetCookie('count', count, exp);
67
68 if ((navigator.appName == " Microsoft Internet Explorer " ) && (parseInt(navigator.appVersion) >= 4 )) {
69 window.external.AddFavorite (url,title);
70 }
71 else {
72 var msg = " Don't forget to bookmark us! " ;
73 if (navigator.appName == " Netscape " ) msg += "   (CTRL-D) " ;
74 alert(msg);
75    }
76 }
77 else {
78 count ++ ;
79 SetCookie('count', count, exp);
80    }
81 }
82 checkCount();
83 //   End -->
84 </ script >
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
/* 豆腐制作 都是精品 www.asp888.net 豆腐技术站 如果转载 请添加这个 版权信息 */ [removed] Const COOKIE_NAME As String = "豆腐站点" Const COOKIE_VALUE As String = "http://www.asp888.net" ' 声明 Cookie 对象 Dim objCookieObject As HttpCookie Sub btnSetCookie_OnClick(Sender As Object, E As EventArgs) ' Create a cookie object - I'm passing name and value, ' but you can also pass in a name and set the value later. objCookieObject = New HttpCookie(COOKIE_NAME, COOKIE_VALUE) ' 另外的一种操作Cookie 的 方法 'objCookieObject = New HttpCookie(COOKIE_NAME) 'objCookieObject.Name = COOKIE_NAME 'objCookieObject.Value = "sdsd" ' 设置Cookie 的 过期时间 2001/12/31 23:59:59 objCookieObject.Expires = New DateTime(2001, 12, 11, 23, 59, 59) ' 下面的这些可以不使用 objCookieObject.Domain = "www.asp888.net" objCookieObject.Path = "/path/" objCookieObject.Secure = True Response.AppendCookie(objCookieObject) End Sub Sub btnRemoveCookie_OnClick(Sender As Object, E As EventArgs) objCookieObject = New HttpCookie(COOKIE_NAME) ' 删除Cookie objCookieObject.Expires = New DateTime(1974, 11, 12) Response.AppendCookie(objCookieObject) End Sub Sub btnGetCookie_OnClick(Sender As Object, E As EventArgs) objCookieObject = Request.Cookies(COOKIE_NAME) If Not(objCookieObject = null) Then lblCookieDetails.Text = objCookieObject.Name lblCookieDetailsName.Text = objCookieObject.Name lblCookieDetailsValue.Text = objCookieObject.Value lblCookieDetailsExpires.Text = objCookieObject.Expires.ToString lblCookieDetailsDomain.Text = objCookieObject.Domain lblCookieDetailsPath.Text = objCookieObject.Path lblCookieDetailsSecure.Text = objCookieObject.Secure.ToString lblCookieDetailsHasKeys.Text = objCookieObject.HasKeys.ToString Else lblCookieDetails.Text = "Cookie Not Set!" lblCookieDetailsName.Text = "" lblCookieDetailsValue.Text = "" lblCookieDetailsExpires.Text = "" lblCookieDetailsDomain.Text = "" lblCookieDetailsPath.Text = "" lblCookieDetailsSecure.Text = "" lblCookieDetailsHasKeys.Text = "" End If End Sub [removed] <html> <head>

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值