<% 
	data_path="../../" 
	numid="51"
	dir="../err.asp" 
  %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/FileSystem.asp"-->
<!--#include file="../rolecheck.asp"-->
<%
'*****************************************
'FileName: Audit.asp
'Action: 管理中心会员投搞
'Copyright(c)2004-2008 网胜科技公司技术开发部
'Writer: XYF
'Create Date: 2009-?-?
'*****************************************
%>
<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"

%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css> 
<script>
function retval(value)
	{
	var val=confirm(value);
	if(val)
	{ 
 	return true ;
	}
	else
	{
	 return false;
	}
 	}
 function isgo()
	{
	var isok=true;
 	 for (var i=0;i<document.myform.elements.length;i++)
		{
		if(document.myform.elements[i].checked==true)
		{
		isok=false;
		break;
		}
 		}
		if(isok)
		{
		alert("请选择要进行操作的项!");
		return false;
		}
 	}
	function killErrors() {
    return true;
}
window.onerror = killErrors;
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全选"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "选择全部";}}
</script>
<title>帮助信息管理</title>
<%
if not isempty(request("selAnnounce")) then
newsidlist=request("selAnnounce")
if instr(newsidlist,",")>0 then
dim newsidarr
newsidArr=split(newsidlist)
dim log_newsid
for i = 0 to ubound(newsidarr)
log_newsid=clng(newsidarr(i))
call deleteannounce(log_newsid)
call Sb_Main(log_newsid)
next
else
call deleteannounce(clng(newsidlist))
call Sb_Main(clng(newsidlist))
end if
end if
keywords=replace_text(request("keywords"))
 if replace_text(request("typeid"))<>"" then
typeid=request("typeid")
 end if
 
set rs=server.createobject("adodb.recordset") 
sql="select * from websen_MembersNews where Title like '%"&keywords&"%'  order by newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
http =rs("http")
checkbox=rs("checkbox")
msg_per_page=20 '定义每页显示记录条数
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder"> 
  <tr> 
     <th height=25 colspan="2" class="tableHeaderText">行业资讯管理 </th> 
  </tr> 
  <tr> 
     <td colspan="2"    height="20"><font color="#666666">温馨提示：①类别直接与发布的信息相关联，删除类别可能会影响到以前发布的专项商机信息。 </font> </td> 
  </tr> 
  <tr> 
     <td width="10%" height=25 class="forumRowHighlight"> <B>操作选项</B></td> 
         <FORM name=searchForm action="Audit.asp" method=post  ><td class="forumRowHighlight">
       关键字：<input name="keywords" type="text" value="<%=keywords%>" maxlength="10">
&nbsp;所属类别：
<select name="typeid" size="1">  
<%
response.write "<option value='All'>所有分类信息</option>"&chr(13)+chr(10)

set rs1=server.CreateObject("adodb.recordset")
sql1="select * from Websen_newsType order by orderid  "
rs1.open sql1,conn,1,1
if not rs1.eof then
do while not rs1.eof
response.write "<option value='"&rs1("typeid")&"'>"&rs1("type")&"类信息</option>"&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
end if
%>
</select> <input type="submit" value="立刻查找" id=submit name=submit>
         </td></form>
  </tr>  <Tr><td colspan="2" height="1"  bgcolor="#CCCCCC"></td></Tr>

  <tr>
    <td height=25 class="forumRowHighlight">&nbsp;</td>
	 <td class="forumRowHighlight"><a href="index.asp">管理行业资讯</a> | <a href="addinfo.asp">添加行业资讯</a> | <a href="type.asp">管理信息类别</a> | <a href="Class_Ok.asp?action=add_class_1">添加信息类别</a> | [<a href="javascript:location.reload()">刷新页面</a>] </td> 
  </tr> 
</table>
<!--#include file="../../inc/headpage.asp"-->
  <table wnewsidth="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <Form name="myform" method="POST"   action="Integral.asp" onsubmit="return isgo()" ><!--onclick="return isgo()"-->
 <tr>      <td colspan="6">
<%
if rs.eof then
response.Write"<br><br><div align='center'>暂无数据信息</div><br><br>"
else
%>
      </td>
    </tr>
    <tr height=25 class=bodytitle>
      <td width="27%" align="left" class=bodytitle wnewsidth="446"><font color="ff6600"><b>信息标题</b></font></td>
	  <td width="15%" align="left" class=bodytitle ><font color="ff6600"><b>会员名称/积分</b></font></td>
	  <td width="7%" align="center" class=bodytitle ><font color="ff6600"><b>状&nbsp;态</b></font></td>
	  <td width="10%" align="left" class=bodytitle ><font color="ff6600"><b>会员类别</b></font></td>
	
      <td width="11%" align="center" class=bodytitle wnewsidth="263"><font color="ff6600"><b>所属类别</b></font></td>
      <td width="11%" align="center" class=bodytitle wnewsidth="113"><font color="ff6600"><b>发布日期</b></font></td>
      <td width="19%" align="center" class=bodytitle wnewsidth="62"><font color="ff6600"><b>操作选项(奖励并审核)</b></font></td>
    </tr>
    <%
		
do while not rs.eof and rowcount > 0%>
    <tr height="20">
      <td align="left" class=forumRow> 
	  <input name='userid' type='checkbox'  id="userid" value='<%=rs("newsid")%>'>
	  <a href="run.asp?id=<%=rs("newsid")%>" target="_blank">
	  <%=replace(Left(rs("title"),13),keywords,"<font color=red>"&keywords&"</font>")%>...</a>	 	  </td>
		<td align="center" class=forumRow><%=rs("MembersName")%>/(<font color="ff6600">
		<%
		set rst=server.CreateObject("adodb.recordset")
		sqt="select * from websen_corporation where id="&rs("Membersid")
         rst.open sqt,conn,1,3
         response.Write rst("mark")
		  Member=rst("id")
         rst.close
		%>
		</font>)</td>
		<td align="center" class=forumRow><% if rs("flag")=1 then %>已审核<%else%>未审核<%end if%></td>
		<td class=forumRow align="center"><%set rsg=server.CreateObject("adodb.recordset")
	sqlg="select gradename from Websen_vipgrade where roleid="&rs("Membertype")
	rsg.open sqlg,conn,1,1
	if not rsg.eof then 
	response.Write(rsg("gradename"))	 
	rsg.close
	end if%></td>
	
		<td class=forumRow align="center">
        <%
set rs5=server.CreateObject("adodb.recordset")
sql5="select typeid,type from Websen_newstype where typeid="&rs("typeid")
rs5.open sql5,conn,1,1
 if not rs5.eof then
response.write"<a href='index.asp?typeid="&rs5("typeid")&"'>"&rs5("type")&"类</a>"
else
	Response.write "无些分类"
end if
rs5.close

%></td>

      <td wnewsidth="113" align="center" class=forumRow><%=FormatDate(rs("dateandtime"),2)%>　</td>
      <td  class=forumRow>添加会员奖励积分<input type="text" name="Award<%=rs("newsid")%>" id="Award" size="5"   maxlength="3" onKeyUp="if(event.keyCode!=37&&event.keyCode!=39)value=value.replace(/\D/g,'');"/></td>
    </tr>
    <%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rs.movenext
loop
end if
%>
    <tr height="20" bgcolor="#ffffff">
      <td colspan="8" align="left" class=forumRow><div align="right">
        <input type="submit" name="checkbtn" value="操作选项"  onclick="return retval('你确定要让所选的会员通过审核吗？请确定是否都满足该等级的要求！');" />
        <input type="submit" name="delbtn" value="删除所选项" onClick="return retval('你确定要删除吗？此操作不可恢复的！将删除该会员及所有相关信息！');">
        <input name="button" type=button onclick="this.value=check(this.form)" value=" 全部选定 " />
		
      </div></td>
    </tr>
    <tr height="20" bgcolor="#ffffff">
      <td class=forumrowHighLight align="center" colspan="8"><b><%=listPages("Audit.asp?typeid="&typeid&"&keywords="&keywords&"")%></b></td>
    </tr></form>
   </table>
  
<!--#include file="../copy.asp" -->