<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit response.buffer=true Const PurviewLevel=2 Const CheckChannelID=0 Const PurviewLevel_Others="User" %> <% dim rs, sql dim Action,FoundErr,ErrMsg Action=trim(request("Action")) %> 用户等级管理
用 户 等 级 管 理
管理导航： 用户等级管理首页 | 添加新用户等级

<% if Action="Add" then call Add() elseif Action="SaveAdd" then call SaveAdd() elseif Action="SaveModify" then call SaveModify() elseif Action="Del" then call DelGrade() else call main() end if if FoundErr=True then call WriteErrMsg() end if call CloseConn() sub main() sql="select * from UserGrade order by Grade" Set rs=Server.CreateObject("Adodb.RecordSet") rs.open sql,conn,1,1 %>
<%do while not rs.eof%> <% rs.movenext loop rs.close set rs=nothing %>
用户等级 等级名称 图 片 最少文章数 每天限制发表文章数 操作
"> " size="8" maxlength="5"> " size="20" maxlength="50"> " size="20" maxlength="50"> " size="10" maxlength="10"> " size="10" maxlength="8"> ">删除
<% end sub sub Add() %>
新 增 用 户 等 级
用户等级
必须是数字
等级名称
图片
请首先将相应图片放到images目录中，然后在此直接输入文件名即可，不要输入路径
最少文章数
必须是数字
每天限制发表文章数
必须是数字
<% end sub %> <% sub SaveAdd() dim Grade,GradeName,GradePic,MinArticle,LimitEveryDay Grade=trim(request("Grade")) GradeName=trim(request("GradeName")) GradePic=trim(request("GradePic")) MinArticle=trim(request("MinArticle")) LimitEveryDay=trim(request("LimitEveryDay")) if Grade="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请输入用户等级
    • " elseif not isnumeric(Grade) then FoundErr=True ErrMsg=ErrMsg & "
  • 用户等级必须是数字
    • " end if if GradeName="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请输入等级名称
    • " end if if GradePic="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请输入等级图片
    • " end if if MinArticle="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请输入最少文章数
    • " elseif not isnumeric(MinArticle) then FoundErr=True ErrMsg=ErrMsg & "
  • 最少文章数必须是数字
    • " end if if LimitEveryDay="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请输入每天限制发表文章数
    • " elseif not isnumeric(LimitEveryDay) then FoundErr=True ErrMsg=ErrMsg & "
  • 每天限制发表文章数必须是数字
    • " end if if FoundErr=True then exit sub end if sql="select * from UserGrade where Grade=" & Clng(Grade) & " or GradeName='" & GradeName & "'" set rs = server.CreateObject ("Adodb.recordset") rs.open sql,conn,1,3 if rs.eof and rs.bof then rs.addnew rs("Grade")=Clng(Grade) rs("GradeName")=GradeName rs("GradePic")=GradePic rs("MinArticle")=MinArticle rs("LimitEveryDay")=LimitEveryDay rs.update rs.close set rs=nothing call CloseConn() response.redirect "Admin_UserGrade.asp" else FoundErr=True if rs("Grade")=Grade then ErrMsg=ErrMsg & "
  • 已经存在用户等级：" & Grade & "
  • " end if if rs("GradeName")=GradeName then ErrMsg=ErrMsg & "
  • 已经存在等级名称“" & GradeName & "”
    • " end if end if rs.close set rs=nothing end sub sub SaveModify() dim GradeID,Grade,GradeName,GradePic,MinArticle,LimitEveryDay,i GradeID=trim(request("GradeID")) Grade=trim(request("Grade")) GradeName=trim(request("GradeName")) GradePic=trim(request("GradePic")) MinArticle=trim(request("MinArticle")) LimitEveryDay=trim(request("LimitEveryDay")) if GradeID="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请先添加用户等级
    • " exit sub end if if instr(GradeID,",")>0 then for i=1 to request.form("GradeID").count GradeID=replace(trim(request.form("GradeID")(i)),"'","") Grade=replace(trim(request.form("Grade")(i)),"'","") GradeName=replace(trim(request.form("GradeName")(i)),"'","") GradePic=replace(trim(request.form("GradePic")(i)),"'","") MinArticle=replace(trim(request.form("MinArticle")(i)),"'","") LimitEveryDay=replace(trim(request.form("LimitEveryDay")(i)),"'","") if isnumeric(GradeID) and isnumeric(Grade) and GradeName<>"" and GradePic<>"" and isnumeric(MinArticle) and isnumeric(LimitEveryDay) then conn.execute("update UserGrade set Grade=" & Clng(trim(Grade)) & ",GradeName='" & trim(GradeName) & "',GradePic='" & trim(GradePic) & "',MinArticle=" & Clng(Trim(MinArticle)) & ",LimitEveryDay=" & Clng(Trim(LimitEveryDay)) & " where GradeID=" & Clng(trim(GradeID))) end if next else if isnumeric(GradeID) and isnumeric(Grade) and GradeName<>"" and GradePic<>"" and isnumeric(MinArticle) and isnumeric(LimitEveryDay) then conn.execute("update UserGrade set Grade=" & Clng(trim(Grade)) & ",GradeName='" & trim(GradeName) & "',GradePic='" & trim(GradePic) & "',MinArticle=" & Clng(Trim(MinArticle)) & ",LimitEveryDay=" & Clng(Trim(LimitEveryDay)) & " where GradeID=" & Clng(trim(GradeID))) end if end if call WriteSuccessMsg("保存用户等级修改结果成功！") end sub sub DelGrade() dim GradeID,trs,tGrade GradeID=trim(request("GradeID")) if GradeID="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请指定要删除的用户等级ID
    • " exit sub else GradeID=Clng(GradeID) end if set trs=conn.execute("select Grade from UserGrade where GradeID=" & GradeID) tGrade=trs(0) set trs=conn.execute("select GradeID from UserGrade where Grade<" & tGrade) if not (trs.bof and trs.eof) then conn.execute("update [User] set UserGrade=" & trs(0) & " where UserGrade=" & GradeID) else conn.execute("update [User] set UserGrade=1 where UserGrade=" & GradeID) end if conn.execute("delete from UserGrade where GradeID=" & GradeID) call WriteSuccessMsg("删除等级成功！同时已将属于该等级的用户降为下一级。") end sub %>