index.asp

倉庫管理繫統源碼,具有添加,查看,搜索,删除等功能

<!--#include file="conn.inc"-->
<%
	if request("action")="chk" then'判断用户是否提交登录信息
		call chk_sub
	end if
%>
<title>赛格网络－－即时库存信息！</title>
<link href="css.css" rel="stylesheet" type="text/css">
 
<form name="form1" method="post" action="index.asp?action=chk">
  <table width="262" height="113" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#333333">
    <tr bgcolor="#FFFFFF" class="12"> 
      <td colspan="2"><div align="center"><font color="#006600" size="3"><strong>赛格网络</strong></font></div></td>
    </tr>
    <tr bgcolor="#FFFFFF" class="12"> 
      <td width="27%" height="25"><div align="center">用户名：</div></td>
      <td width="73%" height="25"> <div align="left"> 　
<input name="username" type="text" class="txt" id="username" size="20">
        </div></td>
    </tr>
    <tr bgcolor="#FFFFFF" class="12"> 
      <td height="25"><div align="center">密　码：</div></td>
      <td height="25"> <div align="left"> 　
<input name="password" type="password" class="txt" id="password" size="20">
        </div></td>
    </tr>
    <tr bgcolor="#FFFFFF" class="12"> 
      <td height="30" colspan="2"><div align="center"> 
          <input name="Submit" type="submit" class="button" value="登陆系统">
        </div></td>
    </tr>
  </table>
</form>


<%
sub chk_sub
if trim(request.form("username"))="" then'判断是否输入了空的用户名%>
<p class="button">
  <script>
		alert("请输入用户名！");
		</script>
  <%elseif trim(request.form("password"))="" then'判断是否输入了空的密码%>
  <script>
		alert("请输入密码！");
		</script>
  <%else
		dim rs,sql
		set rs=server.createobject("adodb.recordset")
		sql="select * from user_info where username='"&trim(request.form("username"))&"' and password='"&request.form("password")&"'"
		rs.open sql,conn,1,1
		if rs.eof and rs.bof then%>
  <script>
		alert("用户名或密码不正确！");
		</script>
<%
		elseif not rs.eof and not rs.bof then
			if rs("level")="1" or rs("level")="2" or rs("level")="3" then'判断登录用户的级别
				response.cookies("admin")=trim(request.form("username"))'创建用户COOKIES信息
				response.cookies("userid")=rs("id")
				response.redirect("ck_sys_admin.asp")'登录成功，转入管理用户页面
			else
				response.cookies("user")=trim(request.form("username"))'创建用户COOKIES信息
				response.cookies("userid")=rs("id")
				response.redirect("ck_sys.asp")'登录成功，转入普通用户页面
			end if
		end if
end if
end sub
%>
   
</p>