代码分析 - 编程论坛

#2

孤独冷雨2010-01-16 17:18

看了一下，啥意思都没有！

#3

TZTJ2010-01-16 22:41

2楼说没问题.但好象不能正常使用.在表单上输入正确的用户名和密码后,不能转到设定188.asp网页.

#4

TZTJ2010-01-17 12:18

恳请各位高手指点.代码书写有误吗?本人想学习写一个简单的不用数据库,通过固定的用户名和密码登陆到指定页面.

#5

lele20072010-01-17 13:00

<%
sub lele()
dim UserName,UserPassword
UserName=request.Form("UserName")  '获取表单输入的用户名
UserPassword=request.Form("UserPassword")  '获取表单输入的密码
if Cstr(UserName)=Cstr("tztj123") and Cstr(UserPassword)=Cstr("123456") then
   session("UserName")=UserName
   session("UserPassword")=UserPassword
else
   response.write "<script>alert('用户名或密码错误');location.href='lele.asp';</script>"
   response.end
end if
end sub

'----------------------------------------我是谁？我是分割线--------------------------------------------------

if request.QueryString("action")="lele" then
   call lele()
   response.write "欢迎您："&session("UserName")
   response.write "您的密码是："&session("UserPassword")
   response.write "<a href='lele.asp?action=Exit'>退出</a>"
   response.end
else
   session("UserName")=""
   session("UserPassword")=""
end if

'----------------------------------------我是谁？我是分割线--------------------------------------------------
%>

<% if session("UserName")="" then %>
<form action="lele.asp?action=lele" method="post" name="form">
用户名：<input type="text" name="UserName" /><br />
密码：<input type="password" name="UserPassword" />
<br />
<input type="submit" value="登录" />
</form>
<% end if %>

[ 本帖最后由 lele2007 于 2010-1-17 13:02 编辑 ]

#6

TZTJ2010-01-17 21:54

非常感谢lele2007的帮助!你的代码不是VB语言吗?但从我了解到的,有的是用以下代码?它是一种什么语言呢?思路和你基本一样,就是进入不了指定的网页,不知哪个地方出错呢?
<%
if session("login")<>""then
  if request("name")<>""then
  session("name")=request.form("name")
  else
  response.Write"<script>alert('请填写用户名！');window.location.href='index.asp'</script>"
  end if
  if request("password")<>""then
  session("password")=request.form("password")
  else
  response.Write"<script>alert('请填写密码！');window.location.href='index.asp'</script>"
  end if
  if session("name")="tztj123" and session("password")="123456" then
    Response.Redirect("188.asp")
else
    response.Write"<script>alert('用户名或密码错误！');window.location.href='index.asp'</script>"
end if
end if
%>
<html xmlns="http://www.
<head>
<link href="style.css" type="text/css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>文件上传</title>
</head>

<body>
<form name="form1" method="post" action="">
<table width="200" height="100" border="1" align="center" cellpadding="4" cellspacing="1" >
            <tr class="header" align="center">
                  <td height="26" colspan="2"><center><strong>输入用户名和密码才能登陆</strong> </center></td>
                </tr>
                <tr >
                  <td> <p align="center">用户名:</td>
    <td>
   <input name="name" type="text" id="name" size="13"></p>
</td></tr>
<tr>
<td><p align="center">密码</td>
<td><input name="password" type="password" id="password" size="13">
</p></td></tr>
<tr>
<td>
   <input type="submit" name="Submit" value="登陆"></td>
          
<td> <input type="reset" name="Submit" value="取消">
   <input type="hidden" name="login" value="form">
  </td></tr>
  </table>
</form>
</body>
</html>

[ 本帖最后由 TZTJ 于 2010-1-17 21:59 编辑 ]

#7

lele20072010-01-18 00:10

你我的服务器端处理都是用了vbscript...

你的代码是没有错的。但判断出现问题。。实现不了程序上的效果。。

if session("login")<>""then 在这里的最外层if判断里 session("login")就已经有错了。用session在你整个提交中没有session("login")，所以此文档中的一大段<% ..... %>之间的代码不成立不会执行。。与没有一样。。

改成如下即可。。

if session("login")<>""then 改成： if request.form("login")<>"" then

[ 本帖最后由 lele2007 于 2010-1-18 00:14 编辑 ]

#8

TZTJ2010-01-18 21:21

lele2007你真是一位好心人.非常感谢你的热心帮助!