注册 登录
编程论坛 → ASP技术论坛

关于cookies？？？？？

cainiao158 发布于 2007-09-16 12:27， 522 次点击
一个简单的访问次数显示，也不知道错那里了，运行不出来，希望高手给指点一下！！！！！
<% Response.Buffer=True %>
<html>
<head>
<title>Cookies综合示例</title>
</head>
<body>
<%
dim varNumber
varNumber=Request.Cookies("Number")
if varNumber="" then
varNumber=1
else
varNumber=varNumber+1
end if
response.write"您是第"&varNumber&"次访问本站"
　　　　　response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
%>
</body>
</html>
9 回复
#2
multiple19022007-09-16 12:55
什么问题？
#3
qhscqb2007-09-16 12:59

把程序改为这样就可以了:
<%
if Request.Cookies("Number")="" then
request.Cookies("Number")=1
else
Request.Cookies("Number")=Request.Cookies("Number")+1
end if
response.write"您是第"&Request.Cookies("Number")&"次访问本站"
　　　　　response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
%>
#4
multiple19022007-09-16 15:58
以下是引用qhscqb在2007-9-16 12:59:10的发言：

把程序改为这样就可以了:
<%
if Request.Cookies("Number")="" then
request.Cookies("Number")=1
else
Request.Cookies("Number")=Request.Cookies("Number")+1
end if
response.write"您是第"&Request.Cookies("Number")&"次访问本站"
　　　　　response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
%>

为什么？为什么楼主的就不对这个就对呢？
#5
madpbpl2007-09-16 16:19
以下是引用multiple1902在2007-9-16 15:58:16的发言：

为什么？为什么楼主的就不对这个就对呢？

你把楼主的程序复制后运行一下
在下面两句
　　　　　response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
前面多了些东西，可能是空格或什么产生的，改成
response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
这样就可以了
#6
multiple19022007-09-16 16:21
以下是引用madpbpl在2007-9-16 16:19:43的发言：

你把楼主的程序复制后运行一下
在下面两句
　　　　　response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
前面多了些东西，可能是空格或什么产生的，改成
response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
这样就可以了

汗死咯

居然还有这种问题……
#7
madpbpl2007-09-16 16:27
以下是引用multiple1902在2007-9-16 16:21:41的发言：

汗死咯

居然还有这种问题……

有时在复制网上代码时会带上一句隐藏的代码（这个隐藏的代码用来说明代码的出处），不知道你有没有碰到过，可能就是这个原因造成的。
#8
hmhz2007-09-16 16:50

楼主的代码没错，只是response.Cookies("Number")=varNumber前面是使用特殊空格符来空的，所以会出现问题，解决的办法就是原来的代码不动，把前面所有空格都删除，让它顶格

<%
dim varNumber
varNumber=Request.Cookies("Number")
if varNumber="" then
varNumber=1
else
varNumber=varNumber+1
end if
response.write"您是第"&varNumber&"次访问本站"
response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
%>
或者使用 Tab 键 让它自动空格
<%
dim varNumber
varNumber=Request.Cookies("Number")
if varNumber="" then
varNumber=1
else
varNumber=varNumber+1
end if
response.write"您是第"&varNumber&"次访问本站"
response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
%>
#9
multiple19022007-09-16 16:55
以下是引用madpbpl在2007-9-16 16:27:47的发言：

有时在复制网上代码时会带上一句隐藏的代码（这个隐藏的代码用来说明代码的出处），不知道你有没有碰到过，可能就是这个原因造成的。

呵呵 我没这经验……
#10
cainiao1582007-09-16 22:10

谢谢楼上的各位大哥和版主！！！！
1
©2025, BC-CN.NET
电脑版