admin.asp

信运网店系统是一套功能完善、简洁美观

	if not login then
		errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
		call showError()
	end if

	if (not isnumeric(request.querystring("page"))) or (not isnumeric(request.querystring("page_num"))) then
		errinfo="<li>非法的页面参数！"
		call showError()
	end if

	dim view,page_num
		view=request.querystring("view")
		if request.querystring("page_num")="" then
			page_num=20
		else
			page_num=request.querystring("page_num")
		end if

	select case request.querystring("view")
		case "1"
			sql="select * from [topic] where (not checked=1) order by usertime desc"
			set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,1,1
		case "2"
			sql="select * from [topic] where (not reply=1) order by usertime desc"
			set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,1,1
		case else
			sql="select * from [topic] order by usertime desc"
			set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,1,1
	end select

	if rs.eof and rs.bof then
	%><div class="noItem">没有此类留言。</div><%
	else
		rs.pagesize = page_num
		rs.absolutepage=currentpage
		page_count=0
		totalrec=rs.recordcount

%>
        <form name="batch_form" action="admin.asp?act=" method="post" onsubmit="return Submit_all(batch_form);">
        <div class="row">
          <div class="batchArea-right" style="text-align: right;">
          显示：<select name="menu_view" onChange="MM_jumpMenu('parent',this,0)">
          <option value="?act=batch&page_num=<%=page_num%>"<%if view="" then%> selected<%end if%>>所有留言</option>
          <option value="?act=batch&view=1&page_num=<%=page_num%>"<%if view="1" then%> selected<%end if%>>所有未通过审核的留言</option>
          <option value="?act=batch&view=2&page_num=<%=page_num%>"<%if view="2" then%> selected<%end if%>>所有未被回复的留言</option>
          </select>&nbsp;每页显示：<select name="menu_page_num" onChange="MM_jumpMenu('parent',this,0)">
          <option value="?act=batch&view=<%=view%>&page_num=10"<%if page_num="10" then%> selected<%end if%>>10条</option>
          <option value="?act=batch&view=<%=view%>&page_num=20"<%if page_num="20" then%> selected<%end if%>>20条</option>
          <option value="?act=batch&view=<%=view%>&page_num=50"<%if page_num="50" then%> selected<%end if%>>50条</option>
          <option value="?act=batch&view=<%=view%>&page_num=100"<%if page_num="100" then%> selected<%end if%>>100条</option>
          </select>
          </div>
        </div>
        <div class="row">
          <div class="batchArea-left">
			     <input type="hidden" value="<%=Request.ServerVariables("HTTP_URL")%>" name="Referer" />
			     <input type="checkbox" value="on" name="chkall" onclick="CheckAll(this.form)" /><br />
           全选</div>
          <div class="batchArea-topRight">
           <input type="submit" class="button" name="Submit_Del" value="批量删除" onclick="SetSubmitType('del');" />
           <input type="submit" class="button" name="Submit_Check" value="批量审核" onclick="SetSubmitType('check');" />&nbsp;&nbsp;
           <%call pages(currentpage,page_count,pcount,totalrec,endpage,page_num,view)%>
          </div>
        </div>
        <div class="row"><hr /></div>
		    <%while (not rs.eof) and (not page_count = rs.pagesize)%>
        <a id="<%=rs("id")%>">
        <div class="row">
          <div class="batchArea-left">
			     <input type="checkbox" name="id" id="id" value="<%=rs("id")%>" />
          </div>
          <div class="batchArea-right">
			     <b>标题</b>：<%=batchEncode(rs("usertitle"))%><br />
           <b>时间</b>：<%=rs("usertime")%><br /><hr />
           <b>内容代码</b>：<%=batchEncode(rs("usercontent"))%>
          </div>
          <div class="adminLinks">
          <%if rs("checked")=0 then%>
          <a href="javascript:go('admin.asp?act=check&id=<%=rs("id")%>&Referer=<%=Request.ServerVariables("HTTP_URL")%>','您确定要通过审核？')"><span class="Highlight">通过审核</span></a>&nbsp;&nbsp;
          <%end if%>
          <a href="javascript:go('admin.asp?act=del&id=<%=rs("id")%>&Referer=<%=Request.ServerVariables("HTTP_URL")%>','您确定要删除？')">删除</a>&nbsp;&nbsp;
          <%if rs("whisper")=1 and rs("replycode")="" then%>
          <span class="Highlight">无法回复的悄悄话</span>
          <%else%>
          <a href="reply.asp?id=<%=rs("id")%>"><%if rs("whisper")=1 then%><span class="Highlight">悄悄话回复/编辑回复</span><%else%>回复/编辑回复<%end if%></a><%end if%>&nbsp;&nbsp;<a href="edit.asp?id=<%=rs("id")%>">编辑</a>&nbsp;&nbsp;留言IP：<%=rs("ip")%>
          </div>
        </div>
		    <%
        page_count = page_count + 1
		    rs.movenext
		    wend
        %>
        <div class="row">
          <div class="batchArea-left">
			     <input type="checkbox" value="on" name="chkall2" id="chkall2" onclick="javascript:chkall.click()" /><br />全选</div>
          <div class="batchArea-topRight">
           <input type="submit" class="button" name="Submit_Del" value="批量删除" onclick="SetSubmitType('del');" />
           <input type="submit" class="button" name="Submit_Check" value="批量审核" onclick="SetSubmitType('check');" />&nbsp;&nbsp;
           <%call pages(currentpage,page_count,pcount,totalrec,endpage,page_num,view)%>
          </div>
        </div>
</form>
<%
	end if
	rs.close
	set rs=nothing
end function

sub pages(currentpage,page_count,pcount,totalrec,endpage,page_num,view)	'// 分页代码
	dim ii,p,n
	if totalrec mod page_num=0 then
		n= totalrec \ page_num
	else
		n= totalrec \ page_num+1
	end if
	p=(currentpage-1) \ 5
	%>
	页次：<b><%=currentpage%>/<%=n%></b>页，共<b><%=totalrec%></b>条&nbsp;&nbsp;&nbsp;
	<%if currentpage=1 then%>首页&nbsp;
	<%else%><a href="?act=batch&view=<%=view%>&page_num=<%=page_num%>&page=1" title="首页">首页</a>&nbsp;
	<%end if%>
	<%if p*5>0 then%>
	<a href="?act=batch&view=<%=view%>&page_num=<%=page_num%>&page=<%=cstr(p*5)%>" title="上五页">上翻</a>&nbsp;
	<%end if
	for ii=p*5+1 to p*5+5
	if ii=currentpage then%>
	<span class="currtNum"><%=cstr(ii)%></span>
	<%else%>
	<a href="?act=batch&view=<%=view%>&page_num=<%=page_num%>&page=<%=cstr(ii)%>"><%=cstr(ii)%></a>
	<%end if
	if ii=n then exit for
	next
	%>
	<%if ii<n then%>
	&nbsp;<a href="?act=batch&view=<%=view%>&page_num=<%=page_num%>&page=<%=cstr(ii)%>" title="下五页">下翻</a>
	<%end if%>
	<%if currentpage=n then%>
	&nbsp;尾页
	<%else%>
	&nbsp;<a href="?act=batch&view=<%=view%>&page_num=<%=page_num%>&page=<%=cstr(n)%>" title="尾页">尾页</a>
	<%
  end if
end sub

function batchEncode(fString)
	if not isnull(fString) then
		fString = back_filter(fString)
		fString = replace(fString, ">", "&gt;")
		fString = replace(fString, "<", "&lt;")
		fString = Replace(fString, "''", "'")
		fString = Replace(fString, CHR(32), "&nbsp;")
		fString = Replace(fString, CHR(9), "&nbsp;")
		fString = Replace(fString, CHR(34), "&quot;")
		fString = Replace(fString, CHR(39), "&#39;")
		fString = Replace(fString, CHR(36), "&#36;")
		batchEncode = fString
	end if
end function

sub del()		'////////////// 删除留言
	dim id
	id = request("id")

dim re,Referer
	Referer=request("Referer")
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	re.Pattern="(\?|&)#(.*)"
	Referer=re.Replace(Referer,"")
	re.Pattern="[^A-Za-z0-9]$"
	Referer=re.Replace(Referer,"")
	set re=nothing

	if not login then
		errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
		call showError()
	else
		if id="" then
			errinfo="<li>您未选定任何留言。"
			call showError()
		end if

		sql="select id from [topic] where id in ("&id&")"
		set rs=server.createobject("adodb.recordset")
		rs.open sql,conn,1,3

		if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		errinfo="<li>该留言不存在。"
		call showError()
		end if

		rs.close
		set rs=nothing

		sql="delete from [topic] where id in ("&id&")"
		conn.execute(sql)
		conn.close

		if request.querystring("page")="" then
			response.redirect Referer
		else
			response.redirect Referer & "&page=" & request.querystring("page")
		end if
		response.flush

	end if
end sub

sub check()		'///////////// 审核留言
	dim id
	id = request("id")

dim re,Referer
	Referer=request("Referer")
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	re.Pattern="(\?|&)#(.*)"
	Referer=re.Replace(Referer,"")
	re.Pattern="[^A-Za-z0-9]$"
	Referer=re.Replace(Referer,"")
	set re=nothing

	if not login then
		errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
		call showError()
	else
		if id="" then
			errinfo="<li>您未选定任何留言。"
			call showError()
		end if

		sql="select id from [topic] where id in ("&id&")"
		set rs=server.createobject("adodb.recordset")
		rs.open sql,conn,1,3
		if rs.eof and rs.bof then
			rs.close
			set rs=nothing
			errinfo="<li>该留言不存在。"
			call showError()
		end if

		rs.close
		set rs=nothing

		sql="update topic set checked='1' where id in ("&id&")"
		conn.execute(sql)
		conn.close

		if request.querystring("page")="" then
			response.redirect Referer
		else
			response.redirect Referer & "&page=" & request.querystring("page")
		end if
		response.flush

	end if
end sub
%>