<!--#include file="../setting/conn.asp"--><%:SoonBiz.chkadmin:act=SoonBiz.ract:jinlan="<a href='?'>积分管理</a>":Select Case act:Case "list" : list:Case "del" : Del:End Select:SoonBiz.AdFoot():Setallnothing:Sub list():Dim tr,astr:tr="<tr align=center><td>{$id}</td><td>{$nickname}</td><td>{$onickname}</td><td>{$point}</td><td>{$reason}</td><td>{$stime}</td><td><input type=""checkbox"" name=""id"" value=""{$id}"" /></td></tr>":astr=SoonBiz.PlusSQL("select * from ["& sheethead &"_point] where id>0 ","?act=list"):astr(0)=astr(0) & " order by id desc ":SoonBiz.title="积分管理":SoonBiz.adhead:SoonBiz.nstate("积分统计"):ListFilter:Response.Write "<form method=""post"" action="""" id=""myform"" name=""myform"">":Response.Write "<table class=tableborder1 cellspacing='1' >":Response.Write "<th>ID</th>":Response.Write "<th>昵称</th>":Response.Write "<th>操作人</th>":Response.Write "<th>积分</th>":Response.Write "<th>原因</th>":Response.Write "<th>时间</th>":Response.Write "<th>选择</th>":Response.Write SoonBiz.ReplaceMdb("",astr(0),tr,"",0):Response.Write "</table>":Response.Write "<div class='operate'>":Response.Write " <input type=""button"" onClick=""CheckAll(myform)"" value=""全选"">":Response.Write " <input type=""button"" onClick=""ContraSel(myform)"" value=""反选"">":Response.Write " <input type=""button"" onClick=""Csubmit('myform','?act=del','确定要删除选定的记录吗?')"" value=""删除"">":Response.Write "</div>":Response.Write "</form>":Response.Write SoonBiz.pagelist(""):Response.Write "<script type=""text/javascript"">"& astr(2) &"</script>":End Sub:Sub Del:SoonBiz.Execute("delete from "& sheethead &"_point where id in("& SoonBiz.rids &")"):SoonBiz.ok:End Sub:Sub ListFilter:Response.Write "<div class=""listfilter"">":Response.Write " <form method=get action=""?"">":Response.Write " <input type=""hidden"" name=""act"" value=""list"">":Response.Write " <input type=""text"" name=""keyword"" id=""keyword"" class='inputsearch' size='16'/> ":Response.Write " <select name=""myfield"" id=""myfield"">":Response.Write " <option value=""nickname"" selected=""selected"">按受益人昵称</option>":Response.Write " <option value=""onickname"">按操作人昵称</option>":Response.Write " </select>":Response.Write " <input type=""text"" name=""date1"" id=""date1"" size=""11"" maxlength=""11""> - <input type=""text"" name=""date2"" id=""date2"" value="""& soonbiz.format_time(now(),4) &""" size=""11"" maxlength=""11""> ":Response.write " <input type=""submit"" value=""搜索"" class=""submit""></td>":Response.write " </form>":Response.write "</div>":End Sub
%>