数据的查询、模糊查询、新建、修改、删除

<!-- 查询、模糊查询 -->

 

<%
dim sql
userName = Trim(Request("Cnname")) '用户名
m_name = Trim(Request("m_name")) '姓名

sql ="select * from v_CRM_User where UserTypeName='超级管理员'"
set rs=server.createobject("adodb.recordset")
if userName <> "" then
 sql = sql + " and Cnname like '%"&userName&"%'"
end if
if m_name <> "" then
 sql = sql + " and fullName like '%"&m_name&"%'"
end if
sql = sql + " order by NumID asc "

rs.open sql,conn,1,1
 on error resume next
%>

 

<!-- 新建 -->

 

<%

'判断管理员账号或编号
if Cnname<>"" and NumID<>""  then
 
dim userid
set rs=server.createobject("adodb.recordset")  
sql="select * from CRM_User where Cnname='"&Cnname&"' or NumID='"&NumID&"' "                                
rs.open sql,conn,1,3 
if not rs.eof or not rs.bof then
 Response.Write("<script>alert(""对不起,该用户姓名已经存在，或者编号相同！"");history.back(-1);</script>")
 response.end
else
 rs.AddNew
 
 rs("Cnname")=Cnname
 rs("Enname")="超级管理员"
 rs("usertypeid")=usertypeid
 'rs("partId")=partId
 'rs("sectionOfficeId")=sectionOfficeId
 rs("fullName")=fullName
 rs("NumID")=NumID
 rs("Cellphone")=Cellphone
 rs("Officephone")=Officephone
 rs("Homephone")=Homephone
 'rs("HomeAdd")=HomeAdd
 rs("Email")=Email
 'rs("QQ")=QQ
 rs("Locked") = Locked
 rs("passed") = passed
 rs("Password") = newpassword
 rs("CorporationZone") = CorporationZone
 
 rs.Update
 userId=rs("id")
 
  if session("Cnname")<>"admin" then
  call WiretLog("--"&session("fullname")&"--添加新用户:"&Cnname&" ")
  end if
rs.Close
set rs=nothing
 
%>

 

<!-- 修改 -->

<%
'''修改信息
set rs=server.createobject("adodb.recordset")                                                    
sql = "select * from CRM_User where id="&id  
rs.open sql,conn,1,3 
 
    rs("Cnname") = Cnname
    rs("fullName") = fullName
 rs("CellPhone") = CellPhone
 rs("Officephone") = Officephone
 rs("Locked") = Locked
 rs("Password") = Password
 rs("CorporationZone") = CorporationZone
 rs.Update

rs.Close
set rs=nothing
response.Redirect "adminInfo.asp"
%>

 

<!-- 删除、批量删除 -->

<!-- 批量删除数据 -->
<%
case "deleteAll"

Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"

id = Trim(Request("id"))
if id <> "" then
conn.execute("delete from CRM_User where id in("&id&")")
else
Response.Write "<script language='javascript'>alert(""对不起,请选择你要删除的用户ID!"");location.href='adminInfo.asp';</script>"
response.end
end if
conn.close
set conn=nothing
Response.Write("<script>alert(""用户删除成功！"");</script>")
response.Redirect "adminInfo.asp"
response.end
%>