<!--#include file="inc/conn.asp"-->
<!--#include file=usercookies.asp-->
<!--#include file="inc/jle_sub.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>-会员管理中心</title>
<link rel="icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
<link href="css/style.css" rel="stylesheet" type="text/css" />
<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!=''){
			targetDiv.style.display="";
			
		}else{
			targetDiv.style.display="none";
		}
	}
}
//-->
</SCRIPT>
</head>
<body>
 <%
dim fav
fav=Request("fav")
%>
<%call top()%>
<br />
<table width="1300" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="205" valign="top"><div id=FFTit class=F12bold>会员管理中心</div><div id=FFContent><div Class='FFdiv'>
  <!--#include file=shop_userleft.asp-->
  </div></div></div></td>
    <td width="1095" align="right" valign="top"  ><table width="99%" height="34" border="0" cellpadding="0" cellspacing="0" >
      <tr>
        <td>
		<table width="98%" border="0" cellspacing="0" cellpadding="0" background="img/titlebg.png" style="background-repeat:repeat-x; height:32px; border:1px #EEEEEE solid; margin-bottom:10px;">
  <tr>
    <td style="padding-left:20px;"><%=request.cookies("jle")("username")%>的管理中心</td>
  </tr>
</table>
		
<%dim Q
Q=request("q")
if Q="q1" then
%> 
<table cellpadding="0" width="100%">
<%
if fav<>"" then 
username=request.cookies("jle")("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_info] 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_info] where username='"&username&"' and id="&cstr(str2(i))
rs.open sql,conn,1,3
sql1="delete from [jle_fav] where username='"&username&"' and scid='"&cstr(str2(i))&"' "
rs.open sql1,conn,1,3
sql2="delete from [reply] where xxid='"&cstr(str2(i))&"' "
rs.open sql2,conn,1,3
next
response.write "<script language=JavaScript>" & chr(13) & "alert('删除信息成功！');" & "window.location='?q=q1'" & "</script>"
response.end
rs.close
set rs=nothing
closedb
'sub deltu()
'Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'if objFSO.fileExists(Server.MapPath("uppicture\"&tupian)) then
'objFSO.DeleteFile(Server.MapPath("uppicture\"&tupian))
'end if
'set objfso=nothing
'end sub
sub deltu()
dim whichfile
whichfile=server.mappath("\"& tupian & "")  
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(whichfile) then
objFSO.DeleteFile(whichfile)
end if
set objfso=nothing
end sub

else%> 
<FORM name=thisForm action="?q=q1" method=POST>
<tr>
<td width="10%" height="30" align="center" class="userbg">编号</td>
<td width="40%" align="center" class="userbg">标&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 题</td>
<td width="16%" align="center" class="userbg">浏览/回复</td>
<td width="10%" align="center" class="userbg">发布时间</td>
<td width="9%" align="center" class="userbg">管理操作</td>
<td width="9%" align="center" class="userbg">验证</td>
<td width="6%" align="center" class="userbg">选择</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("jle")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select id,biaoti,llcs,hfcs,fbsj,a,b,yz,xurl from [jle_info] 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=10
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="10%" height="26" align="center" bordercolor="#E1E1E1" >
<%=i+1%></td>
<td width="40%" height="26" align="center" bordercolor="#E1E1E1" >
<p align="left"><a target="_blank" href="<%=rs("xurl")%>"><%if rs("yuijian")="0" then%><%=rs("biaoti")%><%else%><font color="#<%=rs("a")%>"><%=rs("biaoti")%></font><%end if%></a></td>
<td width="16%" height="26" align="center" bordercolor="#E1E1E1" ><%=rs("llcs")%>/<%=rs("hfcs")%></td>
<td width="10%" height="26" align="center" bordercolor="#E1E1E1" ><%=datevalue(rs("fbsj"))%></td>
<td width="9%" height="26" align="center" bordercolor="#E1E1E1" ><font color="#666666"><span id="followImg<%=i%>" style="CURSOR: hand" onClick="loadThreadFollow(<%=i%>,5)">修改</span></font></td>
<td width="9%" height="26" align="center" bordercolor="#E1E1E1" ><%if rs("yz")=1 then%><font color="#008000">√</font><%else%><font color="#FF0000">ⅹ</font><%end if%></td>
<td width="6%" height="26" align="center" bordercolor="#E1E1E1" ><input type="checkbox" name="selectedid" value="<%=id%>"></td>

</tr>

<table width="788"  height="40" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse; border-top:1px #F0F0F0 dotted; display:none" id="follow<%=i%>">
  <tr>
    <td width="17%"  bordercolor="#E1E1E1" align="center">信息编号：<%=id%> </td>
    <td width="65%"  bordercolor="#E1E1E1" align="center"><a href="#" onClick="window.open('informaiton_edit.asp?id=<%=id%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,copyhistory=no,width=650,height=600,left=300,top=100')"><font color="blue">修改刷新</font></a><font color="#999999">（刷新可将您的信息排在前例）</font> </td>
    <td width="18%"  bordercolor="#E1E1E1" align="center"><%if rs("yz")=1 then%>
        <font color="#ff0000">已验证</font>
      <%else%>
      未验证
      <%end if%>
    </td>
  </tr>
</table>
<%
i=i+1
rs.movenext
if i>=Pagesize then exit do
loop
end if
%> 
<tr>
<td 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="fav">
</td>
</tr>
<tr>
<td height="25" width="151" align="center" class="userbg">共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td height="25" width="126" align="center" class="userbg">共 <font color="#CC5200"><%=Allpage%></font> 页</td><td height="25" width="118" align="center" class="userbg">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页
</td>
<td height="25" width="200" align="center" class="userbg">
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?q=q1&page=1>首页</a>&nbsp;"
response.write "<a href=?q=q1&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=?q=q1&page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?q=q1&page="&Allpage&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table></td>
</tr>
</form>
<%end if%>
</table>
</div>
<div style="clear:both;"></div>

<%end if
if Q="fav" then%>
<table cellpadding="0" class="td" width="99%">
<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;
    }
  }
//-->
</SCRIPT>
<%if fav<>"" then 
username=request.cookies("jle")("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="delete from [jle_fav] where username='"&username&"' and id="&cstr(str2(i))
rs.open sql,conn,1,3
next
response.write "<script language=JavaScript>" & chr(13) & "alert('删除收藏成功！');" & "window.location='?q=fav'" & "</script>"
response.end
else%>
<FORM name=thisForm action="?q=fav" method=POST>
<tr>
<td width="6%" align="center" class="userbg"><p>编号</td>
<td width="59%" align="center" class="userbg">标&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 题</td>
<td width="15%" align="center" class="userbg">发布人</td>
<td width="17%" align="center" class="userbg">收藏时间</td>
<td width="4%" align="center" class="userbg">选择</td>
</tr>
<%
i=0
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
username=request.cookies("jle")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [jle_fav] where username='"&username&"' order by scsj desc" 
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td></td><td><li>没有收藏记录</td></tr>"
else
rs.Pagesize=10
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
%> 
<tr>
<td width="6%" height="25" align="center" bordercolor="#E1E1E1" ><%=i+1%> </td>
<%
set rs1 = Server.CreateObject("ADODB.RecordSet")
sql1="select biaoti,name,a,b,xurl from [jle_info] where id="&cstr(rs("scid"))
rs1.open sql1,conn,1,1
b=trim(rs1("b"))
bb=len(b)
On Error Resume Next
%>
<td width="59%" height="25" align="center" bordercolor="#E1E1E1" ><p align="left"><a target="_blank" href="<%=rs1("xurl")%>"><%if rs1("tuijian")="0" then%><%=rs1("biaoti")%><%else%><font color="#<%=rs1("a")%>"><%=rs1("biaoti")%></font><%end if%></a>
</td>
<td width="15%" height="25" align="center" bordercolor="#E1E1E1" ><%=rs1("name")%>
</td>
<%
rs1.close
set rs1=nothing
%> 
<td width="17%" height="25" align="center" bordercolor="#E1E1E1" ><%=datevalue(rs("scsj"))%> </td><td width="4%" height="25" align="center" bordercolor="#E1E1E1" ><input type="checkbox" name="selectedid" value="<%=rs("id")%>">
</td>
</tr>
<%
i=i+1
rs.movenext
if i>=Pagesize then exit do
loop
end if
%>
 <tr>
 <td width="99%" height="25" colspan="5">
 <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
 <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>选中所有记录&nbsp;&nbsp; <input onclick=javascript:showoperatealert(1) type="submit" value="删除" name="fav">
 </td>
 </tr>
 <tr>
 <td height="25" width="151" align="center" class="userbg">共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录
 </td>
 <td height="25" width="126" align="center" class="userbg">共 <font color="#CC5200"><%=Allpage%></font> 页
 </td>
 <td height="25" width="118" align="center" class="userbg">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页
 </td>
 <td height="25" width="200" align="center" class="userbg">
 <%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?q=fav&page=1>首页</a>&nbsp;"
response.write "<a href=?q=fav&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=?q=fav&page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?q=fav&page="&Allpage&">尾页</a>&nbsp;"     
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</form>
<%end if%>
</table>

</div>
<div style="clear:both;"></div>
<%end if
if Q="" or Q="main" then%>
<table class="td" cellpadding="0" width="100%">
<%
username=request.cookies("jle")("username")
set rs=conn.execute("select count(id) from [jle_info] where username='"&username&"'")
m=rs(0)
rs.close
set rs=server.createobject("adodb.recordset")
sql = "select * from [jle_shop] where username='"&username&"'"
rs.open sql,conn,1,1
jf=rs("jf")
if request("jle")="jf_hb" then
dim rsjf_hb,sqljf_hb,g_s
set rsjf_hb=server.createobject("adodb.recordset")
sqljf_hb = "select jf,hb from [jle_shop] where username='"&username&"'"
rsjf_hb.open sqljf_hb,conn,1,3
if rsjf_hb("jf")<int(request("jf")) then
response.write "<script language=JavaScript>" & chr(13) & "alert('未知错误！');" & "history.back()" & "</script>"
response.end
end if
if rsjf_hb("jf")<int(jf_hb) then
response.write "<script language=JavaScript>" & chr(13) & "alert('您的积分不足，加油！');" & "history.back()" & "</script>"
response.end
end if
g_s=int(rsjf_hb("jf")/jf_hb)
rsjf_hb("jf")=rsjf_hb("jf")-int(g_s*jf_hb)
rsjf_hb("hb")=rsjf_hb("hb")+g_s
rsjf_hb.update
rsjf_hb.close
set rsjf_hb=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，转换成功！');" & "history.back()" & "</script>"
end if

if rs.bof or rs.eof then
response.write"用户信息被管理员删除或管理员没有通过验证"
else
%>
<tr><td height="30" align="center"><a target="_blank" href="shop/sp<%=rs("mb")%>.asp?m=<%=rs("username")%>">浏览店铺</a>
<img border="0" src="image/point05.gif">登陆次数：<%=rs("dlcs")%>次</td>
<td align="center"><img border="0" src="image/point05.gif">我的虚拟币：<%=rs("hb")%>元</td>
<td align="center"><img border="0" src="image/point05.gif">邮件地址：<%=rs("email")%></td>
<td align="center"><img border="0" src="image/point05.gif">会员状态：<b><font color="#FF0000">商家用户-<% if request.cookies("jle")("vip")=1 then Response.Write "vip会员" else Response.Write "普通会员" end if%></font></b></td>
</tr>
<tr>
<td height="30" align="center"><img border="0" src="image/point05.gif">发布信息：<%=m%>条</td>
<td align="center"><img border="0" src="image/point05.gif">积分总数：<%=rs("jf")%>分</td>
<td align="center"><img border="0" src="image/point05.gif">注册时间：<%=rs("zcdata")%></td>
<td align="center"><img border="0" src="image/point05.gif">最后登录：<%=rs("lastdl")%></td>
</tr>
<tr>
<td width="802" height="25" colspan="4" class="userbg">
&nbsp;用户须知</td>
</tr>
<tr>
<td width="802" height="25" colspan="4">
<font color="#FF0000">免费开店+VIP活动进行中,10月份后开通的店铺将有可能收费,超过90天未登陆的商家,本站有权删除您的店铺,请大家珍惜自己的ID/店铺!常回来看看！
</font>
</td>
</tr>
<tr>
<td width="802" height="25" colspan="4">
用户积分，虚拟币制度是什么?</td>
</tr>
<tr>
<td width="802" height="25" colspan="4">
答：新注册用户系统自动赠送积分和虚拟币，您每发布一条信息系统自动为您加3积分，每次登入加2积分。</td>
</tr>
<tr>
<td width="802" height="25" colspan="4">
积分和虚拟币有什么用？</td>
</tr>
<tr>
<td width="802" height="25" colspan="4">
答：积分可以兑换虚拟币，虚拟币可以用来置顶您的信息。</td>
</tr>
<tr>
<td width="802" height="25" class=userbg colspan="5">&nbsp;积分转换&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
只要您天天登陆本站,就可以不断增加您的积分哟</td>
</tr>
<tr>
<td width="802" height="23" colspan="5">当前您的积分是：<font color="#FF0000"><%=rs("jf")%></font></td>
</tr>
<tr>
<td width="802" height="23" colspan="5">本站可以用 <font color="#FF0000"> <%=jf_hb%></font> 积分转换  
<font color="#FF0000">1</font> 个虚拟币</td>
</tr>
<tr>
<td width="802" height="23" colspan="5">您的积分可以转换 <font color="#FF0000"><%=int(jf/jf_hb)%></font> 
个虚拟币，剩余的积分我们将予以保留。</td>
</tr>
<form method="POST" action="?jle=jf_hb">
<tr>
<td width="802" height="23" colspan="5">是否要转换虚拟币：<input type="hidden" name="jf" size="7" value="<%=jf%>"><input type="submit" value="我要转换" name="jf_hb"></td>
</tr>
</form>
<tr>
<td colspan="4" class="userbg">
	<p align="center">&nbsp;会员须知</td>
	</tr>
	<tr>
	<td width="802" height="25" colspan="4" valign="top">
	<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="1">
	<tr>
	<td width="802" height="34">
	&nbsp;登陆本站/发布信息获得积分→积分转换成虚拟币→用虚拟币发布您的个性信息<br>
	<%if rs("yz")<>1 then%>
	<br>
	&nbsp;您的店铺不被通过或被删除(3个月以外)的可能：<br>
	&nbsp;①.您的基本资料不完整或不吻合<br>
	&nbsp;②.店铺物品/信息数量小于等于5件/条<br>
	&nbsp;③.您的信息资料有重大欺骗性质<br>
	<%end if%><br>&nbsp;友情提示：您可以通过“管理商品信息”-“管理操作”-“修改刷新”从新刷新发布您的信息来节省您的虚拟币
	</td>
	</tr>
	<tr>
	<td width="100%" height="1"></td>
	</tr>
	</table>
	</td>
	</tr>
	</table>
	<%end if%>
	 </div></div></div></div>
<div style="clear:both;"></div>

    <%
rs.close
set rs=nothing
'closedb
end if
%>

		
		
		
		
		</td>
      </tr>
    </table></td>
  </tr></table>


  

<%
call bottom()
%>

	  </body>
	  </html>