如何决定是否将登录内容保存到Cookie里?

来源:asp之家 时间:2009-12-16 18:54:00 

很简单,我们用两个文件就可以实现这一功能:

login.htm

<% @ Language=JavaScript %>
<%
if (Request.Cookies("SavedLogin").HasKeys) {
    Response.Redirect("checklogin.asp?cookie=1")
}
%>
<HTML>
<HEAD>
<TITLE>登录页面 - asp之家</TITLE>
</HEAD>
<BODY>
我要登录Aspxhome.com
<FORM ACTION="CheckLogin.asp" METHOD="POST">
    电子邮件: <INPUT TYPE="Text" NAME="email" SIZE="40"><BR>
    口令: <INPUT TYPE="Password" NAME="Password" SIZE="40"><P>
    <INPUT TYPE="Checkbox" NAME="SaveLogin"> 要把登录内容存为Cookie吗?<P>
    <INPUT TYPE="Submit" VALUE="登录"><INPUT TYPE="RESET">
</FORM>

checklogin.asp

<%
dim strEmail
if Request.QueryString("cookie") = 1 then
    strEMail = Request.Cookies("SavedLogin")("Email")
else
    strEMail = Request.Form("email")
end if
dim bLoginSaved
if Request.Form("SaveLogin") = "on" then
    Response.Cookies("SavedLogin")("EMail") = Request("email")
    Response.Cookies("SavedLogin")("pw") = Request("password")
    Response.Cookies("SavedLogin").Expires = Date + 30
    bLoginSaved = True
else
    bLoginSaved = False
end if
%>
<HTML>
<HEAD>
<TITLE>登录验证 - asp之家</TITLE>
</HEAD>
<BODY>
<% if bLoginSaved then %>
    将登录信息保存到Cookie里去<HR>
<% end if %>
欢迎光临Aspxhome.com!<P>
<% if Request.QueryString("cookie") = 1 then %>
    保存成功!<P>
<% end if %>
请确认您的电子邮件: <% = strEMail %>
</BODY>
</HTML>

标签:cookie,保存,登录,asp
0
投稿

猜你喜欢

  • python 监测内存和cpu的使用率实例

    2022-07-03 23:49:49
  • sqlserver substring函数使用方法小结

    2024-01-19 17:53:03
  • 使用Python三角函数公式计算三角形的夹角案例

    2022-12-06 04:09:33
  • numba提升python运行速度的实例方法

    2022-10-06 20:39:27
  • Python二叉搜索树与双向链表转换算法示例

    2023-07-17 22:49:42
  • Oracle临时表空间删除和重建实现过程

    2023-07-18 09:26:04
  • Python Unittest ddt数据驱动的实现

    2023-10-29 14:54:14
  • Python 中的lambda函数介绍

    2022-06-15 18:33:04
  • python学生信息管理系统实现代码

    2023-10-31 06:18:10
  • python下实现二叉堆以及堆排序的示例

    2023-02-19 16:44:23
  • Golang标准库syscall详解(什么是系统调用)

    2024-05-28 15:23:35
  • Python实现图像的二进制与base64互转

    2021-03-18 17:57:55
  • JavaScript让Textarea支持tab按键的方法

    2024-05-05 09:15:00
  • 详解MySQL 8.0 之不可见索引

    2024-01-22 17:41:46
  • mysqld_safe启动脚本源码阅读、分析

    2024-01-22 14:33:21
  • python使用正则表达式匹配txt特定字符串(有换行)

    2023-03-23 07:46:03
  • 一次MySQL性能优化实战

    2009-03-09 15:01:00
  • 在Python中操作字符串之replace()方法的使用

    2021-03-15 14:10:59
  • js格式化金额可选是否带千分位以及保留精度

    2023-10-06 04:03:14
  • 浅谈ES6 模板字符串的具体使用方法

    2024-04-18 10:02:01
  • asp之家 网络编程 m.aspxhome.com