如何在ASP中进行Cookies的读写

MOTA 2004-10-23 09:00:24
如题


并看一下这个代码哪里有错误.
谢谢

<%
dim user,password,usercheck
if request.Form("user")="" and request.Form("password")="" then
if request.Cookies("user")="" and request.Cookies("password")="" then
usercheck=0
else
user=request.Cookies("user")
passowrd=request.Cookies("password")
end if
else
if request.Form("cookies")="cookiesyes" then
response.Cookies("tonglu-pen")("user")=request.Form("user")
response.Cookies("tonglu-pen")("password")=request.Form("password")
end if
user=request.Form("user")
passowrd=request.Form("password")
end if
if user<>"" then
set user=server.CreateObject("ADODB.recordset")
useropen="select user from user where user='"&user&"'"
user.open useropen,conn,1,3
if user.eof then
usercheck=0
else
if user("password")=password then
usercheck=1
end if
end if
end if
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
end if
%>
...全文
195 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
MOTA 2004-10-28
  • 打赏
  • 举报
 回复
谢谢了啊
yaohai 2004-10-28
  • 打赏
  • 举报
 回复
来晚了，帮你顶~
qunluo 2004-10-28
  • 打赏
  • 举报
 回复
下面是甘冀平翻译的
原文出处：http://www.asptoday.com/articles/19990915.htm

　　 实际上，在web开发中，cookie仅仅是一个文本文件，当用户访问站点时，它就被存储在用户使用的计算机上，其中，保存了
一些信息，当用户日后再次访问这个站点时，web可以将这些信息提取出来。

　　 尽管现在听起来cookie没有什么激动人心的，但实际上利用它，你能实现许多有意义的功能！比如说：你可以在站点上放置
一个调查问答表，询问访问者最喜欢的颜色和字体，然后根据这些定制用户的web界面。并且，你还可以保存访问者的登录密码，这
样，当访问者再次访问这个站点时，不用再输入密码进行登录。

　　 当然，cookie也有一些不足。首先，由于利用cookie的功能可以编程实现一些不良企图，所以大多数的浏览器中都有安全设
定，其中可以设置是否允许或者接受cookie，因此这就不能保证随时能使用cookie。再者，访问者可能有意或者无意地删除
cookie。当访问者的机器遇到“蓝屏”死机时，或者重新格式化硬盘、安装系统后，原来保存的cookie将全部丢失。最后一点，有
一些最初始的浏览器并不能支持cookie。

　　 利用cooklie能做什么？

　　 有2种使用cookie的基本方式：
1、将cookie写入访问者的计算机（使用 RESPONSE 命令）
2、从访问者的计算机中取回cookie（使用 REQUEST 命令）

　　 创建cookie的基本语法

　　 Response.Cookies("CookieName")=value

　　 执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝Ken
Response.Cookies("VisitorName")="Ken"

　　 执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝表单中UserName的值
Response.Cookies("VisitorName")=Request.Form("UserName")

　　 读取cookie的基本语法

　　 Request.Cookies("CookieName")

　　 可以将Request值当作一个变量看待，执行下面的代码，将取回名字为KensCookie的cookie值，并存入变量MyVar：
MyVar=Request.Cookies("KensCookie")

　　 执行下面的代码，将判断名字为KensCookie的cookie值是否为“Yes”：
If Request.Cookies("KensCookie")="Yes" then

　　 功能丰富的cookie

　　 你可以扩展上面的代码成为Cookie子关键值（CookieSubName），代码如下：
Response.Cookies("VisitorName")("FirstName")="Ken"
Response.Cookies("VisitorName")("LastName")="Baumbach"

　　 讲解例子前，最后讨论2个概念：命令约定和使用到期时间。

　　 命名约定

　　 同其他变量的命名一样，合适地、独特地命名cookie，有利于在程序中前后连贯地使用它。你可以使用下面的1个或者2个
cookie属性进行cookie变量的命名：

　　 域属性（Domain）：域属性表明cookie由哪个网站产生或者读取，默认情况下，cookie的域属性设置为产生它的网站，但你
也可以根据需要改变它。相关代码如下：Response.Cookies("CookieName").Domain = "www.mydomain.com"

　　 路径属性（Path）：路径属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制cookie的使用范围。例如：
Response.Cookies("CookieName").Path = "/maindir/subdir/path"

　　 使用到期时间

　　 通常情况下，当浏览器关闭时，一个cookie就不存在了。但是在许多时候，比如下面将要讨论的web站点例子，我们希望能更
长时间地在访问者的计算机上保存cookie。很幸运，有这样的实现方法。下面的代码，就可以设置cookie的使用到期时间为2010年
1月1日：
Response.Cookies("CookieName").Expires=#January 01, 2010#

　　 执行下面的代码，将设定cookie的过期时间为“cookie的创建时间＋365日”：
Response.Cookies("CookieName")=Date+365

　　 使用cookie的实际例子（非常精彩）

　　 现在开始讨论实际的例子。假设：你想做一个调查，每个人初次访问时需要填写好信息，但是当日后再访问时，就不需要再那
么做。利用cookie，就可以非常圆满地解决这个问题，而大可不必用到数据库。

< %@ LANGUAGE="VBSCRIPT" % >
< %
Survey=Request.Cookies("KensSurvey")
If Survey ="" then
Response.Cookies("KensSurvey")="x"
Response.Cookies("KensSurvey").Expires=#January 01, 2010#
Response.Redirect "survey.asp"
Else
'rest of the page
End if
% >
　　 好，下面开始从头讨论上面的代码。

　　 首先，初始设置页面，并读取名字为KensSurvey的cookie值：


< %@ LANGUAGE="VBSCRIPT" % >
< %
Survey=Request.Cookies("KensSurvey")
　　 然后，判断是否已经存在cookie值：

If Survey ="" then
　　 如果不存在， 就创建并设置cookie，并转到页面survey.asp。 当下一次访问时，因为存在cookie值，就不会再转到
survey.asp 页面。

Response.Cookies("KensSurvey")="x"
Response.Cookies("KensSurvey").Expires=#January 01, 2010#
Response.Redirect "survey.asp"
　　 如果cookie已经存在，那么访问者将执行页面中剩余的代码：

'rest of the page

End if
% >
　　 例子2

　　 这里有另外一个简单的例子：当访问者第１次浏览某个站点时，向他们显示欢迎信息。代码如下：

< %@ LANGUAGE="VBSCRIPT" % >
< %
RequestName = Request.Form("Name")
RequestLeaveMeAlone = Request.Form("LeaveMeAlone")
If RequestName < >"" or RequestLeaveMeAlone < >"" then
Response.Cookies("MySiteVisitorName") = RequestName
Response.Cookies("MySiteVisitorName").Expires = #January 01, 2010#
Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone
Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010#
End if
VisitorName = request.cookies("MySiteVisitorName")
LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")

If VisitorName ="" and LeaveMeAlone ="" then
% >
< HTML > < HEAD > < /HEAD >
< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
< DIV ALIGN="CENTER" >
< form action="index.asp" method="POST" >
< H2 >Let's be friends< /H2 >
What's your name (leave blank and hit the Submit button if you don't want us to know)?
< input type="text" name="name" >< BR >< BR >
< input type="hidden" name="LeaveMeAlone" value="x" >
< input type="submit" value="Submit" >
< /FORM >
< /DIV >
< /BODY >
< %
End if
If VisitorName < > "" then
Response.write "Hi, " & VisitorName & "! I hope you are having a great day!"
End if
'rest of the page
% >
　　 好，现在来看看上面的代码实现执行了什么。首先，设置页面。然后，检查表单变量（在同一个页面中）。如果表单变量存
在，就创建cookie，并设置到期时间。

< %@ LANGUAGE="VBSCRIPT" % >
< %
RequestName = Request.Form("Name")
RequestLeaveMeAlone = Request.Form("LeaveMeAlone")
If RequestName < >"" or RequestLeaveMeAlone < >"" then
Response.Cookies("MySiteVisitorName") = RequestName
Response.Cookies("MySiteVisitorName").Expires = #January 01, 2010#
Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone
Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010#
End if

　　 接着，读取cookie：

VisitorName = request.cookies("MySiteVisitorName")
LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")
　　 如果cookie在访问者的计算机上不存在，就创建一个表单，询问相关信息：

If VisitorName ="" and LeaveMeAlone ="" then
% >
< HTML >
< HEAD >
< /HEAD >
< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
< DIV ALIGN="CENTER" >
< form action="index.asp" method="POST" >
< H2 >Let's be friends< /H2 >
What's your name (leave blank and hit the Submit button if you don't want us to know)?
< input type="text" name="name" >< br >< br >
< input type="hidden" name="LeaveMeAlone" value="x" >
< input type="submit" value="Submit" >
< /FORM >
< /DIV >
< /BODY >
< %
End if
　　 如果cookie已经存在，并且用户名字存在，就显示给访问者一个欢迎界面，然后执行其余的代码。

If VisitorName < > "" then
Response.write "Hi, " & VisitorName & "! I hope you are having a great day!"
End if
'rest of the page
% >
　　 尽管上面的这个例子很简单，但可以从中扩展许多富有创造力的应用。你可以在表单中加入许多功能，以便定制化web站点。
你还可以让访问者定制网站的色彩、字体，以至于其他web元素。有可能的话，你可以询问访问者的生日，当访问者在那一天来访
时，你就可以显示“生日快乐”的信息给他。

　　 如你所见，cookie的扩展性是无穷的，这篇文章仅仅是抛砖引玉。
qunluo 2004-10-28
  • 打赏
  • 举报
 回复
writecookie.asp

<%@ Language=VBScript
%>
<%Response.Buffer=true%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>写Cookie的示例</TITLE>
</HEAD>
<BODY>

<%
Response.Write "写Cookie：<br>"
Response.Cookies("Cookie1")("key1") = "KeyValue1"
Response.Cookies("Cookie1")("key1") = "KeyValue2"
Response.Cookies("Cookie1").Expires = "July 31, 1999"

Response.Cookies("Cookie2")("key2") = "KeyValue1"
Response.Cookies("Cookie2")("key2") = "KeyValue2"
Response.Cookies("Cookie2").Expires = "July 31, 1999"
'Response.Cookies("Cookie2").Path = "/testasp/"
'这个在使用的时候要注意
'是指定在那个目录的文件才可以读取这个cookie的内容。
'在本例子中。只有在testasp这目录下的文件才可以读取
'Cookie2的内容。
%>

</BODY>
</HTML>

-------------------------------------------------------
readwrite.asp

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>读Cookie的示例</TITLE>
</HEAD>
<BODY>

<%Response.Write "读取Cookie：<br>"

dim cookie,key

for each cookie in Request.Cookies
if Request.Cookies(cookie).haskeys then
Response.Write "<br>Cookie 名字："&cookie&"<BR>--------------<BR>"
for each key in Request.Cookies(cookie)

Response.Write "Key 名字："&key&"，值："&Request.Cookies(cookie)(ke
y)&"<BR>"
next
else
Response.Write "Cookie 名字："&Request.Cookies(cookie)&"<BR>"
end if

next

%>
</BODY>
</HTML>
MOTA 2004-10-28
  • 打赏
  • 举报
 回复
汗
我好象是用的太多了
谢谢大家啊
我说的是
COOKIES有错误没啊
fenlin 2004-10-23
  • 打赏
  • 举报
 回复
先试一下楼上的方法
chenxuchen 2004-10-23
  • 打赏
  • 举报
 回复
user=request.Form("user")
set user=server.CreateObject("ADODB.recordset")
你这里的变量和对象名怎么都用user,改一下试一下吧
smallyear 2004-10-23
  • 打赏
  • 举报
 回复
你的這個user變量用得太混了吧?本身就不宜作變量名﹐你開始是字符串型﹐后又是記錄集型﹐偶要暈~~~~
ASP.NET中cookies的读写（多子值）
通过分析这个项目，你可以更深入地了解如何在实际开发中使用ASP.NET来处理多子值的Cookie，以及如何与数据库进行交互。对于初学者来说，这是一个很好的学习起点，能够帮助理解Web开发中的关键概念和技术。
ASP.NET中cookie读写方法介绍
### ASP.NET中cookie读写方法介绍 在ASP.NET应用程序中，cookie是一种常用的数据存储机制，用于在客户端存储少量的信息。本文将详细介绍ASP.NET中cookie的读写方法，并通过实例演示如何实现这些操作。 #### 一、...
ASp Javascript读写Cookies的代码.docx
### ASP Javascript读写Cookies的知识点 #### 一、Cookies简介 Cookies是一种常用的数据存储技术，主要用来在客户端存储用户的一些基本信息。例如用户的登录状态、购物车中的商品等，方便网站根据用户的不同行为...
asp asp asp asp
5. **Cookies操作**：可以通过Cookies读写用户端的硬盘文件，记录用户数据。 6. **信息共享**：在多个主页之间共享信息，以开发复杂的商务站点应用程序。 7. **脚本语言支持**：使用简易的脚本语言如VBScript或...
asp课件＋asp教案
7. **文件操作**：学习如何在ASP中读写文件，包括文本文件和二进制文件。 8. **错误处理与调试**：讲解ASP中的On Error语句和调试技巧。 9. **会话管理**：理解Session和Application对象在用户会话跟踪中的应用。 10...
ASP

28,404

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章