如何检测用户第一次访问我的网站并显示友好信息？_编程10000问

< %@ LANGUAGE="VBscript" % >
< %
RequestName = Request.Form("Name")
RequestLeaveMeAlone = Request.Form("LeaveMeAlone")
If RequestName <  >"" or RequestLeaveMeAlone <  >"" then<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 在同一个页面中检查表单变量.
  Response.Cookies("MySiteVisitorName") = RequestName
  Response.Cookies("MySiteVisitorName").Expires = #January 01, 2008#
  Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone
  Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2008#

' 如果表单变量存在,就创建Cookie,并设置到期时间.
End if   

VisitorName = request.Cookies("MySiteVisitorName")
LeaveMeAlone = request.Cookies("MySiteLeaveMeAlone")

' 读取Cookie.

If VisitorName ="" and LeaveMeAlone ="" then

' 如果用户机子上不存在该Cookie,就创建一个表单询问相关信息.
% >
  < html >
  < head >

<title>随风起舞欢迎你!</title>

  < /head >
  < body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
  < DIV ALIGN="CENTER" >
  < 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 if

If VisitorName <  > "" then
  Response.write "欢迎您," & VisitorName & "! 这儿就是您的家!"

' 如果Cookie和用户名都已存在,则显示一个欢迎页面.
End if
' 结束其余代码.

% >

[1]

时间： 2024-04-20 19:39:34

如何检测用户第一次访问我的网站并显示友好信息？_编程10000问的相关文章

如何在网站中插播广告？_编程10000问

如何在网站中插播广告? 首先,我们要写一个adrot.txt以调用: adrot.txt<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> redirect width 550 height 60 border 0 * images/chunfengad.gif http://www.shenzhaoyang.com 欢迎访问闪亮日子之精彩春风! 50 ' 显示百分比 im

如何实现某些页面只让特定的用户浏览？_编程10000问

global.asp     <script language=vbscript runat=server> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> sub Session_onstart session("register")="false" ' 记录用户成功登录的信息. session("logn

如何实现某一页面只让特定的用户浏览？_编程10000问

protect.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <html> <head> <title>千花飞舞之春风精彩</title> </head> <body bgcolor="#00FFFF"> <form action="Protect.asp

如何让用户再次访问我的网站时不需再提交相关信息？_编程10000问

< %@ LANGUAGE="VBscript" %  >< % Chunfeng=Request.Cookies("Chunfeng")<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 初始设置页面,读取名字为Chunfeng的Cookie值.If Chunfeng ="" then '

如何向前端推送用户请求的信息？_编程10000问

postinfo.htm<head><title>星河影动之回应用户请求信息</title></head><body> <form action="postdata.asp" method="post"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 使用

如何检测字符串出现的次数？_编程10000问

如何检测字符串出现的次数? Function CheckTheChar(TheChar,TheString)' TheChar="要检测的字符串".' TheString="待检测的字符串".if inStr(TheString,TheChar) thenfor n =1 to Len(TheString)if Mid(TheString,n,Len(TheChar))=TheChar then CheckTheChar=CheckTheChar+1End ifNe

如何提示用户打开Cookie？_编程10000问

Dim strCookie, strTry strCookie = Request.Cookies("MyCookie")   strTry = Request.QueryString("Try")       If strCookie = "" Then      ' 检测否是设置了Cookie.  <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office

如何在ADSI中查询用户属性？_编程10000问

如何在ADSI中查询用户属性?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <%Dim x On error resume next'Set x = GetObject("WinNT://kenfilszwin2k/allen")strLDAP="LDAP://kenfilszwin2k/CN=Allen He,OU=kenfils

如何让用户也能修改密码？_编程10000问

<% id = Request("id") newpassword = Request("password") newpasswordtemp = Request("passwordtemp") If newpassword <> newpasswordtemp Then Response.Write "<center>对不起,密码未能确认,请重新输入!</center>" Respo