member_do.asp

客户管理系统使用ASP.NET和Access

<!--#include file="conn.asp"-->
<!--#include file="islogin.asp"-->

<%if request("action")="save" then
Mname=request("name")
pass=request("pass")
dep=request("dep")
zw=request("zw")
fen=request("fen")
tel=request("tel")
n=0
if Mname="" or pass="" then
response.Write("用户名和密码不能为空")
response.End()
else
  set rs=server.createobject("adodb.recordset")
  sql="select * from Member where (id is null)" 
  rs.open sql,conn,1,3
  rs.addnew
  rs("name")=Mname
  rs("pass")=pass
  rs("dep")=dep
  rs("zw")=zw
  rs("fen")=fen
  rs("tel")=tel
  rs("n")=n
  rs.update
  rs.close
  set rs=nothing
 response.Write("<script>opener.location.reload()</script>")
 response.Write("<script>javascript:window.close()</script>")
end if
end if
%>

<%if request("action")="mod" then
fileid=request("ID")
Mname=request("name")
pass=request("pass")
dep=request("dep")
zw=request("zw")
fen=request("fen")
tel=request("tel")
duty=request("duty")
n=0
if Mname="" or pass="" then
response.Write("用户名和密码不能为空")
response.End()
else
  set rs=server.createobject("adodb.recordset")
  sql="select * from Member where id="+fileid
  rs.open sql,conn,1,3
  rs("name")=Mname
  rs("pass")=pass
  rs("dep")=dep
  rs("zw")=zw
  rs("fen")=fen
  rs("tel")=tel
  rs("duty")=duty
  rs.update
  rs.close
  set rs=nothing
 response.Write("<script>opener.location.reload()</script>")
 response.Write("<script>javascript:window.close()</script>")
end if
end if
%>


<%if request("action")="del" then
'====================================如果要可以删除员工的功能，请删除该行代码===============================================
                          response.Write("暂时不能不能删除<BR>请修改Admin/Member_do.asp这里面的代码")
                          response.end
'====================================如果要可以删除员工的功能，请删除该行代码===============================================
sql="delete from Member where id="&request("id")&""
conn.execute(sql)
conn.close
set conn=nothing
response.redirect "Member.asp"
end if
%>