返回列表 回复 发帖

Cookie与PERL

作者:小歪歪
日期:2001-1-12 16:45:38
  1. #!/usr/bin/perl -w
  2. 让用户输入用户名和密码
  3. use strict;
  4. use CGI;
  5. #检查用户名和密码开始
  6. my $mycgi=new CGI;
  7. print <<HEADPART;
  8. content-type:text/html
  9. <html><head><title>test it :)</title>
  10. <meta http-equiv=';Content-Type'; content=';text/html; charset=gb2312';>
  11. <SCRIPT language="JavaScript">
  12. <!--
  13. var never = new Date()
  14. never.setTime(never.getTime() + 2000*24*60*60*1000);
  15. function SetCookie(name, value)
  16. {
  17. var expString = "; expires=" + never.toGMTString();
  18. documents&#46;cookie = name + "=" + escape(value) + expString;
  19. }
  20. // returns value of cookie or null if cookie does not exist
  21. function GetCookie(name)
  22. {
  23. var result = null;
  24. var myCookie = " " + documents&#46;cookie + ";";
  25. var searchName = " " + name + "=";
  26. var startOfCookie = myCookie.indexOf(searchName);
  27. var endOfCookie;
  28. if (startOfCookie != -1)
  29. {
  30. startOfCookie += searchName.length; // skip past name of cookie
  31. endOfCookie = myCookie.indexOf(";", startOfCookie);
  32. result = unescape(myCookie.substring(startOfCookie, endOfCookie));
  33. }
  34. return result;
  35. }
  36. function gogo()
  37. {
  38. SetCookie(';username';,document.form1.username.value);
  39. SetCookie(';password';,document.form1.password.value);
  40. document.form1.submit();
  41. }
  42. // -->
  43. </SCRIPT>
  44. </head>
  45. <body bgcolor="&#35;FFFFFF">
  46. <form name=form1 method=post action=';/***/other.pl'; enctype=';multipart/form-data';>
  47.   <p>用户名:
  48.    
  49. <script language=javascript>
  50. <!--
  51. var username=GetCookie("username");
  52. if (username==null)
  53. {
  54. document.write (';<input type=text name=username class=p1>';);
  55. }
  56. if (username !== null)
  57. {
  58. document.write ("<input type=text name=username value="+username+" class=p1>");
  59. }
  60. document.write ("<br>密 码: ");
  61. var password=GetCookie("password");
  62. if (password==null)
  63. {
  64. document.write (';<input type=password name=password class=p1>';);
  65. }
  66. if (password !== null)
  67. {
  68. document.write ("<input type=password name=password value="+password+" class=p1>");
  69. }
  70. // -->
  71. </script>
  72.     <br><br>
  73.     <input type=hidden name=pageid value="&#36;pageid">
  74.   </p>
  75. HEADPART
  76. print <<THEEND;
  77. <input type="button" name="Submit" value="进 入" onclick="gogo();"><br>
  78. </form>
  79. * 现已加入cookie,只需要第一次输入用户名和密码,以后系统即可自动记录,不用再输了
  80. </body>
  81. </html>
  82. THEEND
复制代码
——————以下内容由Cnangel2005年08月25日 07:49pm时添加———————

    这个Cookie的方式并不是很详细,等我把一个Cookie的问题彻底解决了,哪天来补充一下.

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独,爱上孤独
                                 他让我看清了自我,还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
返回列表