您现在的位置：毕业论文 >> 论文 >> 正文

ASP销售供应链管理系统(论文+源代码) 第4页

更新时间：2010-4-16: 来源：毕业论文

ASP销售供应链管理系统(论文+源代码) 第4页
登录页面主要代码如下：
<html>
<title>登录</title>
<body>
<%
Function showmsg()
%>
<p> </p>
<form action="./index.asp" method="post">
<table width="30%" border="1" align="center" cellspacing="0" bordercolor=#dddddd>
<tr class="title" height="30">
    <td colspan="2" align="center"><strong>登录</strong></td>
</tr>
<tr>
    <td width="35%" align="right">用户名:</td>
    <td width="65%"><input name="user" type="text" id="admin" size="15"></td>
</tr>
<tr>
    <td align="right">密　码:</td>
    <td><input name="pass" type="password" id="password" size="15"></td>
</tr>
<tr>
    <td colspan="2" align="center">
<input type="button" value="注册" onclick="javascript:location.replace('./reg.asp');">  
<input type="submit" name="Submit" value="提交">
      　
      <input name="Submit" type="reset" id="Submit" value="重置"></td>
</tr>
</table>
</form>
<%
end Function
%>
<%
user=request("user")
pass=request("pass")
if user="" or pass="" then
showmsg()
else
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("./data/jxc.mdb")
exec="select * from dlk where username='"&user&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if not rs.eof then
   if pass=rs("password") then
      session("auth")=user
      response.Redirect("./main.asp")
else
  response.Write("<script>alert('用户名或密码错误！');</script>")
  showmsg()
   end if
else
response.Clear()
response.write("<script>alert('没有这个用户!')</script>")
showmsg()
end if
set rs=nothing
end if

%>
</body>
</html>
5.2 用户注册模块
用户在注册模块主要是为新用户提供注册，新用户在次填写详细信息进行注册，在用户注册的时候首先判断用户名是否存在，在用户注册时，为了防止用户粗心，在输入密码时不小心输入错误，因此在用户输入密码后还需要用户再一次输入，通过判断两次输入是否相同来判断用户是否输入错误，当所有的条件都满足后才会向数据库中写入注册信息。用户注册页面如图3所示:
   图3 用户注册
用户注册模块主要代码如下：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("./data/jxc.mdb")
name=trim(request("name"))
password=trim(request("password"))
password2=trim(request("password2"))
if name="" or password="" then
response.clear()
'response.write "<script>alert('用户名和密码不能为空!')</script>"
showregmsg()
else
if request("password")<>request("password2") then
  response.clear()
  response.write "<script>alert('两次输入的密码不一样!')</script>"
  showregmsg()