<!--#include file="inc/conn.asp"--> 
<!--#include file="usercookies.asp"-->
<!--#include file="inc/inc.asp"-->
<%dim sc
sc=Request("sc")%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>-会员管理中心-信息管理</title>
</head>
<SCRIPT language=JavaScript>
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall' )
       e.checked = form.chkall.checked;
    }
  }
 function loadThreadFollow(t_id,b_id){
	var targetImg =eval("document.all.followImg" + t_id);
	var targetDiv =eval("document.all.follow" + t_id);
	
	if ("object"==typeof(targetImg)){
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
			
		}else{
			targetDiv.style.display="none";
		}
	}
}
//-->
</SCRIPT>
<body topmargin="0">
<%call t()%>
<div align="center">
<table width="755" id="table1" bgcolor="#FFFFFF" style="border-left:1px solid #999999; border-right:1px solid #999999; padding:1px; border-top-width:1px; border-bottom-width:1px" cellspacing="1">
<tr>
<td width="158" height="25" class=td1>
<p align="center">会员管理系统</td>
<td width="1" height="170" rowspan="2">　</td>
<td width="594" height="25" class=td1>
<p align="center">会员管理中心</font>-信息管理</td>
</tr>
<tr>
<td width="158" height="144" bgcolor="#F6F6F6" valign="top"><!--#include file=com_userleft.asp--></td>
<td valign="top" bgcolor="#F6F6F6">
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<%if sc<>"" then 
username=request.cookies("cnmai")("username")
id=trim(request("selectedid"))
if trim(id)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
response.end
end if
str2=split(id,",")
set rs=server.createobject("adodb.recordset")
for i=0 to ubound(str2)
sql="select * from [jle_xinxi] where username='"&username&"' and id="&cstr(str2(i))
rs.open sql,conn,1,1
'On Error Resume Next
if rs("tupian")<>"" then
   tupian=rs("tupian")
   fileExt=lcase(right(tupian,4))
   if fileEXT=".gif" or fileEXT=".jpg" then
   call deltu()
   end if
end if
rs.close
sql="delete from [jle_xinxi] where username='"&username&"' and id="&cstr(str2(i))
rs.open sql,conn,1,3
sql1="delete from [shoucang] where username='"&username&"' and scid='"&cstr(str2(i))&"' "
rs.open sql1,conn,1,3
sql2="delete from [hf] where xxid='"&cstr(str2(i))&"' "
rs.open sql2,conn,1,3
next
response.write "<script language=JavaScript>" & chr(13) & "alert('删除信息成功！');" & "window.location='com_user_xxgl.asp'" & "</script>"
response.end
rs.close
set rs=nothing
closedb
sub deltu()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(Server.MapPath("uptupian\"&tupian)) then
objFSO.DeleteFile(Server.MapPath("uptupian\"&tupian))
end if
set objfso=nothing
end sub
else%>
<FORM name=thisForm action="com_user_xxgl.asp" method=POST>    
<tr>
<td width="6%" height="25" align="center" bgcolor="#FFE3C8">
<p>编号</td>
<td width="44%" height="25" align="center" bgcolor="#FFE3C8">
标&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 题</td>
<td width="12%" height="25" align="center" bgcolor="#FFE3C8">
浏览/回复</td>
<td width="14%" height="25" align="center" bgcolor="#FFE3C8">
发布时间</td>
<td width="11%" height="25" align="center" bgcolor="#FFE3C8">
　</td>
<td width="4%" height="25" align="center" bgcolor="#FFE3C8">
　</td>
<td width="8%" height="25" align="center" bgcolor="#FFE3C8">
　</td>
</tr>
<%
dim ThisPage,Pagesize,Allrecord,Allpage
i=0
ii=1
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
username=request.cookies("cnmai")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [jle_xinxi] where username='"&username&"' order by fbsj desc,b" 
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td></td><td><li>没有记录</td></tr>"
else
rs.Pagesize=20
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
do while not rs.eof
b=trim(rs("b"))
bb=len(b)
id=rs("id")
%>
<tr>
<td width="6%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<%=i+1%>
</td>
<td width="44%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<p align="left"><a target="_blank" href="x.asp?cnmai=<%=id%>"><%if rs("a")="0" then%><%=rs("biaoti")%><%else%><font color="#<%=rs("a")%>"><%=rs("biaoti")%></font><%end if%></a><%if b<>0 then%><img src="image/num/jsq.gif"><%for ii=1 to bb%><img src="image/num/<%=Mid(b,ii,1)%>.gif"><%next%><%end if%></td>
<td width="12%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<%=rs("llcs")%>/<%=rs("hfcs")%></td>
<td width="14%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<%=datevalue(rs("fbsj"))%>
</td>
<td width="11%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<font color="#666666">
<span id="followImg<%=i%>" style="CURSOR: hand" onclick="loadThreadFollow(<%=i%>,5)">管理
操作</span></font></td>
<td width="4%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<%if rs("yz")=1 then%><font color="#008000">√</font><%else%><font color="#FF0000">ⅹ</font><%end if%>
</td>
<td width="8%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<input type="checkbox" name="selectedid" value="<%=id%>"></td>
</tr>
<tr style="display:none" id="follow<%=i%>">
<td width="101%" height="25" align="center" style="border-bottom-style: none; border-bottom-width: medium" colspan="7">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
<tr>
<td width="19%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center">
<font color="#CC5200"><a href="com_user_xxgl.asp?selectedid=<%=id%>&sc=ok"><font color="#FF0000">删除</font></a></font></td>
<td width="39%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center">
<a href="com_e_x.asp?id=<%=id%>"><font color="blue">修改刷新</font></a><font color="#999999">（刷新可将您的信息排在前例）</font></td><td width="18%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center">
<%if rs("yz")=1 then%><font color="#CC0000">已验证</font><%else%><a href="#" ONCLICK="window.open('com_e_x_d.asp?id=<%=id%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=210,height=150,left=300,top=100')">使用验证道具<%end if%></a></td>
</tr>
</table>
</td>
</tr>
<%
i=i+1
rs.movenext
if i>=Pagesize then exit do
loop
end if
%>        <tr>
<td width="99%" height="25" colspan="7">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="49">
<tr> 
<td height="25" width="151">
<p align="center">
　</td>
<td height="25" width="126">
<p align="center">　</td>
<td height="25" width="118">
<p align="right">　</td>
<td height="25" width="200">
<p align="center">
<INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>选中所有记录 
<input onclick=javascript:showoperatealert(1) type="submit" value="删除" name="sc"></td>
</tr>
<tr> 
<td height="25" width="151" align="center" bgcolor="#FFE3C8">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td height="25" width="126" align="center" bgcolor="#FFE3C8">
共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="118" align="center" bgcolor="#FFE3C8">
现在是第 
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" width="200" align="center" bgcolor="#FFE3C8">
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1>首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table>
</td>
</tr>
</form>
<%end if%>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="foot.asp"-->
</body>
</html>
<%
rs.close
set rs=nothing
closedb
%>