UC知道求ASP判断用户是否登陆代码,谢谢！
来源：百度知道 编辑：UC知道 时间：2024/06/04 15:18:03
我下载了个服装商城的ASP整站程序，我有些页面需要会员在前台登陆后才允许查看的。但是那整站程序没有这个功能，我就想怎么去增加这个功能。
我在网上找到了这段代码：
<%
if session("name")="" then
response.write "您还没有登陆，请先登陆"
Response.End()
end if
%>
经过测试，发现两个问题
第一：想加密的那个页的确不能查看了，但是就算会员登陆了，还是一样不能查看。 第二：提示“请先登陆”后不能自动跳转去登陆页，而且会员登陆后，也不能直接查看加密页的内容。
所以我想要这样的代码：
前面段如上
一、检查如果客户没有登陆，那么会自动跳转到登陆页。
二、检查如果客户已经登陆，那么会自动跳转到加密页。
三、把这段代码添加到任何一个页代码顶上就能生效。
请各位大哥大姐，高手；师傅们帮忙那！！帮写一段能用的代码
谢谢了！
非常感谢你那么详细的说明,谢谢!我已经初步理解.
但是对于一个初学者来说,未必可以了解的.能不能帮我回答以下问题呢?
一:在登陆模块里面添加一个变量,对其进行赋值,是不是我先要在登陆页,例如我的登陆页是user.asp,那么我需要再里面添加一语什么语句呢?
二: tbsoo_com说"你要看下，你登录后的SESSION是什么"他的意思是叫我登陆后看一下,我目前的ASP商城登陆后 SESSION是什么值,那么我应该在那里看?怎么看呢?
三:能否站在一个初学者的角度.详细地一步一步说明该怎么做呢?例如:第一步,在user.asp里面添加.....第二步:Session["name"]=UserName 填写这句的内容.第三步,把代码复制到想加密的页....这样.
非常感谢!
我在网上找到了这段代码：
<%
if session("name")="" then
response.write "您还没有登陆，请先登陆"
Response.End()
end if
%>
经过测试，发现两个问题
第一：想加密的那个页的确不能查看了，但是就算会员登陆了，还是一样不能查看。 第二：提示“请先登陆”后不能自动跳转去登陆页，而且会员登陆后，也不能直接查看加密页的内容。
所以我想要这样的代码：
前面段如上
一、检查如果客户没有登陆，那么会自动跳转到登陆页。
二、检查如果客户已经登陆，那么会自动跳转到加密页。
三、把这段代码添加到任何一个页代码顶上就能生效。
请各位大哥大姐，高手；师傅们帮忙那！！帮写一段能用的代码
谢谢了！
非常感谢你那么详细的说明,谢谢!我已经初步理解.
但是对于一个初学者来说,未必可以了解的.能不能帮我回答以下问题呢?
一:在登陆模块里面添加一个变量,对其进行赋值,是不是我先要在登陆页,例如我的登陆页是user.asp,那么我需要再里面添加一语什么语句呢?
二: tbsoo_com说"你要看下，你登录后的SESSION是什么"他的意思是叫我登陆后看一下,我目前的ASP商城登陆后 SESSION是什么值,那么我应该在那里看?怎么看呢?
三:能否站在一个初学者的角度.详细地一步一步说明该怎么做呢?例如:第一步,在user.asp里面添加.....第二步:Session["name"]=UserName 填写这句的内容.第三步,把代码复制到想加密的页....这样.
非常感谢!
使用session的确没错但是你没有理解session的运作机制
概括的说就是，在某个页面设置一个Session变量，然后在其他页面就可以拿来用了。
在您的页面里出现了Session["name"]这个变量，并对其值做了判断，那么必须在某个页面中为其设定一个值
在这里你就应该对登陆页面里的登陆成功模块添加一句语句创建一个session变量并对其进行赋值。
比如，在登陆成功判断后加上Session["name"]=UserName //此处的UserName是指判断用户名时的用户名变量，请灵活更改。
这样在其他页面中就可以对该Session变量进行各种操作。
而原文中你的Session["name"]实际上是不存在或者说值为null，所以也能对其做判断并得出false这个结论 所以属于歪打正着
关于跳转页面的代码
请使用if语句配合 response.redirect("网址")/.write(script的跳转语句)就可以了
你要看下，你登录后的SESSION是什么
<% dim uname,pwd
uname=request.Form("uname")
pwd=request.Form("pwd")
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_user where tb_name='"&uname&"' and tb_pwd='"&pwd&"' and yanzheng=1"
//数据库 自己去写 这是我的数据库
rs.open sql,conn,1,2
'response.end
if (rs.bof and rs.eof) then
response.w