<% if request("cz")="批量删除" or request("action")="del" then id=replace(request("id")," ","") id=split(id,",") for i=0 to UBound(id) conn.execute("delete from member where id=" & id(i)) next response.write("") response.end end if if request("cz")="批量通过" then id=replace(request("id")," ","") id=split(id,",") for i=0 to UBound(id) conn.execute("update member set ispass='1' where id=" & id(i)) next response.write("") response.end end if if request("cz")="批量关闭" then id=replace(request("id")," ","") id=split(id,",") for i=0 to UBound(id) conn.execute("update member set ispass='0' where id=" & id(i)) next response.write("") response.end end if if request("cz")="批量推荐" then id=replace(request("id")," ","") id=split(id,",") for i=0 to UBound(id) conn.execute("update member set isnew='1' where id=" & id(i)) next response.write("") response.end end if if request("cz")="取消推荐" then id=replace(request("id")," ","") id=split(id,",") for i=0 to UBound(id) conn.execute("update member set isnew='0' where id=" & id(i)) next response.write("") response.end end if if trim(request("action"))="save" then function CheckStr(str) dim tstr,l,i,ch l=len(str) for i=1 to l ch=mid(str,i,1) if ch="'" then tstr=tstr+"'" end if tstr=tstr+ch next CheckStr=tstr end function username=request("username") userpassword=request("userpassword") useremail=request("useremail") truename=request("truename") sex=request("sex") address=request("address") usertel=request("usertel") comfax=request("comfax") weburl=request("weburl") isnew=request.Form("isnew") if isnew="" then isnew=0 ispass=request.Form("ispass") if ispass="" then ispass=0 if request.form("chengshi")<>"" then chengshi=Split(request.form("chengshi"),",") sheng=chengshi(0) shi=chengshi(1) end if if trim(request("id"))<>"" then sql="update member set username='"&username&"',weburl='"&weburl&"',useremail='"&useremail&"',truename='"&truename&"',sex='"&sex&"',sheng='"&sheng&"',shi='"&shi&"',address='"&address&"',usertel='"&usertel&"',comfax='"&comfax&"' where id="&clng(request("id"))&"" conn.execute(sql) else if not conn.execute("select username from member where username='"&username&"'").eof then Response.Write "" response.end end if if userpassword="" then Response.Write "" response.end end if sql="insert into member (types,username,userpassword,useremail,truename,sex,sheng,shi,weburl,address,usertel,comfax,isnew,ispass,regdate) values ('0','"&username&"','"&md5(userpassword)&"','"&useremail&"','"&truename&"','"&sex&"','"&sheng&"','"&shi&"','"&weburl&"','"&address&"','"&usertel&"','"&comfax&"','"&isnew&"','"&ispass&"','"&now()&"')" conn.execute(sql) end if response.write("") response.end end if %> <% webpage="member2.asp?action=list" if trim(request("ispass"))<>"" then webpage=webpage&"&ispass="&request("ispass")&"" if trim(request("truename"))<>"" then webpage=webpage&"&truename="&request("truename")&"" if trim(request("keyword"))<>"" then webpage=webpage&"&keyword="&request("keyword")&"" %>
当前位置:管理首页 > 企业会员管理
<% on error resume next if request("action")="list" then%>
添加企业会员 筛选数据: 关键词
<% set rs=Server.CreateObject("Adodb.Recordset") sql="select id,types,username,truename,sheng,zhuanjia,logindate,ispass,isnew from member where types=0" if request("ispass")<>"" then sql=sql&" and ispass="&clng(request("ispass")) if request("shengfen")<>"" then sql=sql&" and sheng='"&request("shengfen")&"'" if request("keyword")<>"" then sql=sql&" and truename like '%"&request("keyword")&"%'" sql=sql&" order by id desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then %> <% else total=rs.recordcount page=request.QueryString("page") if IsNumeric(page) then page=cint(page) if page<1 then page=1 else page=1 end if everypage=20 rs.pagesize=everypage page_count=rs.pagecount rs.AbsolutePage=page a=0 do while not rs.eof and a <% rs.movenext loop rs.close set rs=nothing %> <%end if%>
序号 最后登录时间 登陆账号 所在城市 联系人 状态 操作
没有找到相关信息
" /> <%=everypage*(page-1)+a%> <%=rs("logindate")%> <%=rs("username")%> <% set rslb = Server.CreateObject("ADODB.Recordset") sqllb ="select id,title from sheng where id="&clng(rs("sheng")) rslb.Open sqllb, conn,1,1 if not rslb.eof then response.write rslb("title") end if rslb.close set rslb=nothing %> <%=rs("truename")%> <%if rs("ispass")=1 then%>通过<%else%>关闭<%end if%><%if rs("isnew")=1 then%>推荐<%end if%> &action=edit">修改 &action=del" onclick="return confirm('删除后不可恢复,确定要删除吗?')">删除
<%if page=1 then%> [首页] [前一页] <%else%> [首页] [前一页] <%end if%> <%for j=page-2 to page-1%> <%if j>0 then%> <%=j%> <%end if%> <%next%> <%for j=page to page+4%> <% if j<=page_count then%> <%if j=page then%> <%=j%> <%else%> <%=j%> <%end if%> <%end if%> <%next%> <%if page [下一页] [尾页] <%else%> [下一页] [尾页] <%end if%> [<%=total%>]条记录 共[<%=page_count%>]页
<% else if request("id")<>"" then set rs=Server.CreateObject("Adodb.Recordset") sql="select * from member where id="&clng(request("id"))&"" rs.open sql,conn,1,1 id=rs("id") username=rs("username") userpassword=rs("userpassword") truename=rs("truename") sex=rs("sex") sheng=rs("sheng") shi=rs("shi") address=rs("address") usertel=rs("usertel") comfax=rs("comfax") weburl=rs("weburl") rs.close set rs=nothing end if %>
选择地区:
用户名:
密码: <%if request("action")="edit" then%>不填写则代表不修改密码<%end if%>
名字:
性别: >先生 >小姐
电话:
公司网站:
地址:
   
<% end if%>