企业进销存管理系统设计

bsp;表2                        用户登录页面中涉及的HTML表单元素
名称类型含义重要属性
myform form 表单 action="checklogin.asp" method="post"
username text 用户名 id="username2"
PWD password 密码 style=" font-family:Wingdings; width:129;" oncopy="return false" oncut="return false" onpaste="return false"
Submit3 button 【确定】按钮 onClick="check(myform)"
reset1 reset 【取消】按钮 class="btn_grey" value="取消"
利用java script编写检测用户输入信息是否合法的函数，并通过单击【确定】按钮调用该函数，判断用户名或密码是否为空，如果为空，系统将给予提示。当用户输入合法信息后，提交该表单，完整代码如下：
<script language="java script">
function check(myform){
if (myform.username.value==""){       //判断用户名是否为空，并弹出提示对话框
alert("请输入用户名！");myform.username.focus();return;}
if(myform.PWD.value==""){           //判断密码是否为空，并弹出提示对话框
alert("请输入密码！");myform.PWD.focus();return;}
myform.submit();
}
</script>
在登录页面时，当用户提交了登录资料后，就由表单action属性指定的ASP文件在服务器端对这些资料进行验证。它的工作主要是判断用户的登录的用户名和密码是否正确。完成这些工作，就必须从连接储存用户数据库中取出相关的信息记录。如果记录验证无误，就通过ASP的Response对象的redirect方法，将用户登录的页面传到客户端的浏览器上；如果用户输入了错误的用户名或密码，就通过ASP的Response对象的Write方法弹出错误提示。
在开始编写程序之前，首先使用Session来存储用户的相关信息，并与客户端保持联系。本页使用session("ulogin")以存储在数据库中的标识符作为信息记载，并以判断这个值是否为空来判断用户是否登录。
表单提交到处理页后会验证用户登录的身份，完整代码如下：

 
<%
Session.Timeout=30                            '设置Session的过期时间为30分钟
session("ulogin")="no"
cname=trim(request("username"))                 '获取用户名
pass=request.Form("PWD")         '获取密码
pass=replace(pass,"'","")
set conn=server.createobject("adodb.connection")
set comm=server.CreateObject("adodb.command")        '创建对象
conn.open application("dsn")         '打开数据库
set comm.activeconnection=conn
comm.commandtype=adcmdstoredproc
comm.commandtext="checklogin"
set mpf=comm.createparameter("cname",advarchar,adparaminput,20)
comm.parameters.append mpf
set mps=comm.createparameter("pass",advarchar,adparaminput,20)
comm.parameters.append mps
comm("cname")=cname
comm("pass")=pass
set rs=comm.execute
if rs.eof then
response.Write("<script language='java script'>alert('请输入正确的用户名和密码');window.location.href='login.asp';</script>")'弹出提示对话框，并转向指定页面
else
session("id")=rs("id")
session("name")=rs("name")
session("quan")=rs("quan")
session("ulogin")="yes"
response.redirect "default.asp"

首页上一页 1 2 3 4 5 6 7 下一页尾页 3/13/13

企业进销存管理系统设计(三)