<% '---------------------确定是否具有权利------------------------------- dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "user") flagid=session("flagid") if cls <= 0 then %> <% end if end if end if '---------------------确定是否具有权利------------------------------- %> 会员管理 当前位置:网站管理中心--会员管理


<% select case request.QueryString("action") case "edit" id = cint(request.QueryString("id")) %> <% sql = " select * from cuser where id="& id set rs = conn.execute ( sql ) id = rs("id") c_user = rs("c_user") c_type = rs("c_type") c_company = rs("c_company") c_name = rs("c_name") c_card = rs("c_card") c_tel = rs("c_tel") c_tel_nation = rs("c_tel_nation") c_trade = rs("c_trade") c_nation = rs("c_nation") c_address = rs("c_address") c_product = rs("c_product") c_content = rs("c_content") c_jibie = rs("c_jibie") c_num = rs("c_num") c_sheng = rs("c_sheng") %>
">
会 员 资 料 修 改
注：带 * 项为必填内容，不填则无法提交注册信息！
用户名：    <%= c_user %>
审核：   checked<%end if%>> 否 checked<%end if%> <% If flagid<>"9" Then %>disabled<% End If %>> 是
 
公司名称：     *
联系人：     *
联系电话：    -
行业：     *
国家：     *
联系地址：     *
所找产品：   
备 注：   
     
<% rs.close set rs = nothing %> <% case "editok" %> <% id = cint(request.QueryString("id")) sql = " select * from cuser where id="& id set rs = server.CreateObject("adodb.recordset") rs.open sql,conn,1,2 rs("c_type") = trim(request.Form("c_type")) rs("c_company") = trim(request.Form("c_company")) rs("c_name") = trim(request.Form("c_name")) rs("c_tel_nation") = trim(request.Form("c_tel_nation")) rs("c_tel") = trim(request.Form("c_tel")) rs("c_sheng") = trim(request.Form("c_sheng")) rs("c_address") = trim(request.Form("c_address")) rs("c_product") = trim(request.Form("c_product")) rs("c_content") = trim(request.Form("c_content")) rs("c_jibie") = request.Form("c_jibie") rs.update rs.close set rs = nothing response.Write("") %> <% case "editpassok" 'msg="修改管理密码" id = cint(request.QueryString("id")) sql = " select * from cuser where id="& id set rs = server.CreateObject("adodb.recordset") rs.open sql,conn,1,2 'oldpass=md5(replace(request.Form("oldpass"),"'","''")) newpass=replace(request.Form("newpass"),"'","''") if newpass<>"" then ' if oldpass<>rs("vip_pass") then ' 'msg="您的旧密码输入错误!" ' response.write("") 'end if else 'msg="信息填写不完整!" response.write("") end if rs.close set rs=nothing %> <% case "editpass" %> <% user = request.QueryString("user") %> <% id = request.querystring("id") %>
会员密码修改 (仅针对忘记密码的会员操作)
用　户:   <%= user %>
新密码:  
重复新密码:  
     
 
<% case "del" 'msg="修改管理密码" id = cint(request.QueryString("id")) sql = " delete from cuser where id="& id conn.execute ( sql ) response.write("") %> <% case else %> <% sql = "select * from cuser order by id desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,1 %> <% Page=request("page") pagecount=page if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if MaxPage=30 %> <% if rs.bof and rs.eof then response.Write("") else rs.pagesize = MaxPage rs.cachesize = MaxPage ipagecount = rs.pagecount If ipagecurrent > ipagecount Then ipagecurrent = ipagecount If ipagecurrent < 1 Then ipagecurrent = 1 if ipagecount=0 then response.write "" else rs.absolutepage = ipagecurrent irecordsshown = 0 end if do while not rs.eof and irecordsshown <% rs.movenext irecordsshown = irecordsshown +1 loop end if %>
会 员 列 表
ID 用户名 姓名 注册时间 审核 操作
暂时没有注册会员!
No add
<%= rs("id") %> <%= rs("c_user") %> <%= rs("c_name") %> <%= rs("c_dates") %> <% if rs("c_sheng")=true then Response.Write("已审核") else Response.Write("未审核") end if %> ">修改信息 / &user=<%= rs("c_user") %>">修改密码 / " onClick="return confirm('您真的确定要删除此会员吗？一旦删除,无法恢复！')">删除
共<%=rs.recordcount%>条, 第<%=ipagecurrent%>/<%=ipagecount%>页 <% if ipagecurrent=1 then else Response.Write"  首页 " Response.Write"  上一页 " end if if ipagecount>ipagecurrent then Response.Write"  下一页 " Response.Write"  尾页 " else end if %>
<% rs.close set rs = nothing %> <% end select %>