passwordxg1.asp

我们的课程设计是一个工资管理系统

<%
dim a,b
a=session("id")
b=session("password")
if a=""and b="" then 
session("login")="1"
response.redirect"index.asp"
else 
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db/gzglxt.mdb")
exec="select 员工编号,密码 from 员工信息 where 员工编号='"&a&"' "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("密码")=request.form("password")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
<!--#include file="index.asp"-->