如何检测用户第一次访问我的网站并显示友好信息?

%@ LANGUAGE=”VBscript” % % RequestName =
Request.Form(“Name”)RequestLeaveMeAlone = Request.Form(“LeaveMeAlone”)If
RequestName “” or RequestLeaveMeAlone “” then

自己要好曾想写一篇有关Cookie的稿子,极度是Client端Script同Server端ASP通过库克ie交
互的主题素材可能会找麻烦大家。其实是假诺您对库克ie有深深的掌握,特别是对域和路子的定义
比较清晰的话,就不会格外了。
别的想唤醒的少数是request.ServerVariables(“HTTP_COOKIE”)得到Cookie和
Request.Cookies获得的结果也许会迥然不一样。大家想一想一下为什么,会对ASP的读书提升有
所救助的。

废话非常少说,方今在商讨动网整合个人网址,在百度查寻了二日,发现就TM那几篇小说,依据著嘲弄的起死回生就是么搞好,“人生最难过的事就是你彻夜去做事情,却没搞好。。。”经过几天奋战终于祛除,所谓武术不辜负有心人,大概正是那般。今后宣布程序:

‘ 在同三个页面中检查表单变量. Response.Cookies(“MySiteVisitorName”卡塔尔(قطر‎ =
RequestName Response.Cookies(“MySiteVisitorName”卡塔尔国.Expires = #January
01, 2008# Response.Cookies(“MySiteLeaveMeAlone”) = RequestLeaveMeAlone
Response.Cookies(“MySiteLeaveMeAlone”).Expires = #January 01, 2008#

Request.Cookies,粒子:

参照他事他说加以考察网址:率先货源    无偿网店代理

‘ 假诺表单变量存在,就创办Cookie,并安装到期时间.End if

<TABLE BORDER=”2″>
<THEAD>
<TH>Cookie Name</TH>
<TH>Cookie Value</TH>
<TH>Cookie HasKeys</TH>
</THEAD>
<%
Dim Item
For Each Item in Request.Cookies
%>
<TR>
<TD><% = Item %></TD>
<TD><% = Request.Cookies(Item) %></TD>
<TD><% = Request.Cookies(Item).HasKeys %></TD>
</TR>
<TR>
<%
  If Request.Cookies(Item).HasKeys Then
    For Each strSubKey In Request.Cookies(Item)
%>
<TD>&bnsp;</TD>
<TD>&bnsp;</TD>
<TD><% = Request.Cookies(strKey)(strSubKey) %></TD>
<%
Next
End If
Next
%>
</TABLE>

/根目录:index.htmi、chklogin2.asp、conn.asp

VisitorName = request.Cookies(“MySiteVisitorName”)LeaveMeAlone =
request.Cookies(“MySiteLeaveMeAlone”)

request.ServerVariables(“HTTP_COOKIE”),粒子:
<TABLE BORDER=”2″>
<THEAD>
<TH>Cookie Name</TH>
<TH>Cookie Value</TH>
</THEAD>
<%
Dim Item,sp,i,d
sp = split(request.ServerVariables(“HTTP_COOKIE”),”; “,-1,1)
` Loop through the cookie collection displaying each cookie we find

/根目录/bbs/:动网程序

‘ 读取Cookie.

For i=0 to UBound(sp)
d = split(cstr(sp(i)),”=”,-1,1)
%>
<TR>
<TD><% = d(0) %></TD>
<TD><% if UBound(d)=1 then Response.Write(d(1)) else Response.Write ” ” %
></TD>
</TR>
<%
Next
%>
</TABLE>

1先是纠正cookie 通用名称

If VisitorName =”” and LeaveMeAlone =”” then

重粒子@Y2K0814

上面是甘冀平翻译的<ASP中Cookie使用指南>
原版的书文出处:

   实际上,在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”

   实践下边包车型地铁代码将会在报事人的微Computer中创造三个cookie,名字=VisitorName,值=
表单中UserName的值
Response.Cookies(“VisitorName”)=Request.Form(“UserName”)

   读取cookie的主导语法 

   Request.Cookies(“CookieName”) 

   能够将Request值当作三个变量对待,实行下边包车型地铁代码,将取回名称叫Kens库克ie的
澳门新浦京8455com ,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的行使到期时间为二零零六年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 

   这里有其它多个简短的事例:当访谈者第1次浏览有些站点时,向她们展现款待信
息。代码如下:

< %@ 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在访谈者的微Computer上不设有,就创制一个表单,询问相关新闻:

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的扩大性是不断,那篇文章仅仅是投石问路。

文件路线:bbsincDv_ClsMain.asp 
第83行修改Forum_sn和CacheName,不要的笺注掉

‘ 假如客商机子上子虚乌有该Cookie,就创办多个表单询问有关音讯.% html head

  ‘Forum_sn=”DvForum
8.3″‘假诺四个设想目录或站点开四个论坛,则各类要错开,无法定义同三个称谓
  ‘Forum_sn=Forum_sn & “_” &
Request.servervariables(“SERVER_NAME”)
  Forum_sn=”no1g”‘假使叁个设想目录或站点开多少个论坛,则每种要错开,不可能定义同三个称谓
  CacheName=”no1g”‘假使三个虚构目录或站点开几个论坛,则每一个要错开,不可能定义同二个名称

title随风起舞迎接您!/title

2改过cookie全站通用路线,动网约束只好在bbs目录下访谈cookie,我们膝弯全站通用,有8处要改良

/head body bgcolor=”#ccffff” text=”black” link=”navy” vlink=”purple”
DIV ALIGN=”CENTE奥迪Q5″ form action=”index.asp” method=”POST” H2
迎接光顾赏心悦目春风 /H2 您的互连网小名是 input type=”text” name=”name”
(您能够选取不解除纠葛而直白点击”发送”按键卡塔尔 br br input type=”hidden”
name=”LeaveMeAlone” value=”x” input type=”submit” value=”发送” /FORM
/DIV /body %End ifIf VisitorName “” then Response.write “迎接您,” &
VisitorName & “! 这儿便是你的家!”

①七个地点展开inc/Dv_ClsMain.asp 分别寻觅Response.Cookies(Forum_sn).path 和
Response.Cookies(Dvbbs.Forum_sn卡塔尔(قطر‎.path 将左边手的值均替换为”/” ,例:
Response.Cookies(Forum_sn).path=”/”

‘ 如果Cookie和客户名都已存在,则展现一个应接页面.End if’ 结束别的代码.

② 八个地点张开login.asp 寻找Response.Cookies(Dvbbs.Forum_snState of Qatar.path=Dvbbs.cookiepath
应该共有四个,在那之中八个是:Response.Cookies(Dvbbs.Forum_sn卡塔尔国.path =
Dvbbs.cookiepath(等号旁边有空格) 替换为:
Response.库克ies(Dvbbs.Forum_sn).path=”/”

%

③ 一个地方展开logout.asp 搜索Response.Cookies(Dvbbs.Forum_sn卡塔尔(قطر‎.path=Dvbbs.cookiepath
第27行应有唯有三个轮流为: Response.Cookies(Dvbbs.Forum_sn卡塔尔(قطر‎.path=”/”
至此,修正完成,即能够高达cookies全站通用的指标了

[1]

④八个地方 张开reg.asp
搜索Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
替换Response.Cookies(Dvbbs.Forum_sn).path = “/”

3根目录登入文件index.html

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN”
“”>
<html xmlns=””>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″
/>
<title>首页</title>
</head>

<body>
<a href=”bbs/index.asp”>论坛</a>
<form id=”form1″ name=”form1″ method=”post”
action=”chklogin2.asp”>
 账户:<input type=”text” name=”username” />
 密码:<input type=”password” name=”password” />
 <input type=”submit” name=”Submit” value=”提交” />
</form>
</body>
</html>

4登入验证文件chklogin2.asp

<!–#include file=”conn.asp”–>
<!–#include file=”bbs/inc/md5.asp”–>
<!–#include file=”bbs/inc/const.asp”–>
<%
dim username,UserPassword,comeurl
username=trim(request.Form(“UserName”))
UserPassword=trim(request.Form(“password”))
response.write “提交”&username&”<br />”
response.write “提交”&UserPassword&”<br />”

if username=”” then
response.Write “<script
LANGUAGE=’javascript’>alert(‘登入退步,请输入客商名!’State of Qatar;location.href='”&comeurl&”‘;</script>”
conn.Close
set conn=nothing
response.end
end if

if UserPassword=”” then
response.Write “<script
LANGUAGE=’javascript’>alert(‘登入失败,请输入密码!’State of Qatar;location.href='”&comeurl&”‘;</script>”
conn.Close
set conn=nothing
response.end
end if

set rs=server.CreateObject(“adodb.recordset”)
rs.Open “Select * From [Dv_User] Where UserName='”&username&”‘”
,conn,1,3
‘倘若客户存在
if not(rs.bof and rs.eof) then
    if rs(“UserPassword”)=MD5(UserPassword) then
  ‘设置客商登入cookie
  response.write “前台提交! <a
href=’bbs/index.asp’>论坛</a>”
  Response.Cookies(“no1g”).path=”/”
  response.Write
“userid:”&rs(“userid”)&”-“&”userclass:”&rs(“userclass”)&”-“&”username:”&rs(“username”)&”-“&”TruePassWord:”&rs(“TruePassWord”)&”-“
  Response.Cookies(“no1g”)(“userid”) = rs(“userid”)
  Response.Cookies(“no1g”)(“usercookies”) = “2”
  Response.Cookies(“no1g”)(“userclass”) = rs(“userclass”)
  Response.Cookies(“no1g”)(“username”) = rs(“username”)
  Response.Cookies(“no1g”)(“userhidden”) = 2
  Response.Cookies(“no1g”)(“password”) = rs(“TruePassWord”)
  Response.Cookies(“no1g”)(“StatUserID”) =
Response.Cookies(“no1g”)(“StatUserID”)
  Response.Cookies(“upNum”)=0
  Response.Cookies(“no1g”).Expires=Date+31

  
 
  rem 解除图片上传数的范围
  Response.Cookies(“upNum”)=0
  response.write “登陆成功! <a
href=’bbs/index.asp’>论坛</a>”

 else
  response.write “<script
LANGUAGE=’javascript’>alert(‘您输入的密码有误!’卡塔尔(قطر‎;location.href='”&comeurl&”‘;</script>”
  response.end
 end if
 ‘跳转到你登入的页面
else
 response.write “<script
LANGUAGE=’javascript’>alert(‘您输入的用户不设有!’卡塔尔(قطر‎;location.href='”&comeurl&”‘;</script>”
 response.end
end if

rs.Close
set rs=nothing

conn.Close
set conn=nothing
%>

5数据库链接文件 conn.asp

<%
dim conn,connstr,startime,sundxDB,rs,UserAgent
startime=timer()
UserAgent = Trim(Lcase(Request.Servervariables(“HTTP_USER_AGENT”)))
If InStr(UserAgent,”teleport”) > 0 or InStr(UserAgent,”webzip”) >
0 or InStr(UserAgent,”flashget”)>0 or InStr(UserAgent,”offline”)>0
Then
 Response.Write
“请不要接受teleport/Webzip/Flashget/Offline等工具来浏览商店!”
 Response.End
End If

‘连接数据库
sundxDB=”bbs/Data/Dvbbs83.mdb”
connstr=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &
Server.MapPath(“”&sundxDB&””)
On Error Resume Next
 Set conn = Server.CreateObject(“ADODB.Connection”)
 conn.open connstr
 If Err Then
  err.Clear
  Set Conn = Nothing
  Response.Write “数据库连接出错,请检查Conn.asp中的数据库指向。”‘
  Response.End
 End If
%>

企望对大家有救助,相同的时间请尊崇外人劳动成果,转请表明来源联系作者请到
转:

You can leave a response, or trackback from your own site.

Leave a Reply

网站地图xml地图