<!--#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()%><div id="Fmain">


<div id="Uleft">
  <div id=FFTit class=F12bold>会员管理中心</div><div id=FFContent><div Class='FFdiv'>
  <!--#include file=userleft.asp-->
  </div></div></div>
<div id="Uright"> 
  <div id=FFTit class=F12bold>会员管理中心</div><div id=FFContent><div Class='FFdiv'>
<%dim T
T=request("t")
if T="t1" then
%>
<table border="0" cellpadding="0" class="td" 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
dim xurl
xurl=server.mappath("\"&rs("xurl")& "")  
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(xurl) then
objFSO.DeleteFile(xurl)
end if
set objfso=nothing
rs.close

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='?t=t1'" & "</script>"
response.end
rs.close
set rs=nothing
closedb
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="?t=t1" method=POST>    
<tr>
<td width="6%" align="center" bgcolor="#EEF9FF" >
<p>编号</td>
<td width="44%" align="center" bgcolor="#EEF9FF" >
标&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 题</td>
<td width="12%" align="center" bgcolor="#EEF9FF" >
浏览/回复</td>
<td width="14%" align="center" bgcolor="#EEF9FF" >
发布时间</td>
<td width="11%" align="center" bgcolor="#EEF9FF" >
管理
操作</td>
<td width="4%" align="center" bgcolor="#EEF9FF" >
验证　</td>
<td width="8%" align="center" bgcolor="#EEF9FF" >
选择</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,xurl,yz 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="6%" height="26" align="center" bordercolor="#E1E1E1" >
<%=i+1%>
</td>
<td width="44%" height="26" align="center" bordercolor="#E1E1E1" >
<p align="left"><a target="_blank" href="<%=rs("xurl")%>"><%if rs("tuijian")="0" then%><%=rs("biaoti")%><%else%><font color="#<%=rs("a")%>"><%=rs("biaoti")%></font><%end if%></a></td>
<td width="12%" height="26" align="center" bordercolor="#E1E1E1" >
<%=rs("llcs")%>/<%=rs("hfcs")%></td>
<td width="14%" height="26" align="center" bordercolor="#E1E1E1" >
<%=datevalue(rs("fbsj"))%>
</td>
<td width="11%" 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="4%" 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="8%" height="26" align="center" bordercolor="#E1E1E1" >
<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; background-color:#EEF9FF;"  width="100%" height="100%" >
<tr>
<td width="19%"  bordercolor="#E1E1E1" align="center">
<font color="#CC5200">信息编号：<%=id%></font></td>
<td width="39%"  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="#CC0000">已验证√</font><%else%>未验证ⅹ<%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="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=?t=t1&page=1>首页</a>&nbsp;"
response.write "<a href=?t=t1&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=?t=t1&page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?t=t1&page="&Allpage&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table>
</td>
</tr>
</form>
<%end if%>
</table>
<%end if
if T="fav" then%>
<table border="0" cellpadding="0" class="td" width="100%">
<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='?t=fav'" & "</script>"
response.end
else%>
<FORM name=thisForm action="?t=fav" method=POST>        
<tr>
<td width="6%" align="center" bgcolor="#EEF9FF" >
<p>编号</td>
<td width="54%" align="center" bgcolor="#EEF9FF" >
标&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 题</td>
<td width="15%" align="center" bgcolor="#EEF9FF" >
发布人</td>
<td width="17%" align="center" bgcolor="#EEF9FF" >
收藏时间</td>
<td width="8%" align="center" bgcolor="#EEF9FF" >
选择</td>
</tr>
<%
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 * 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,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=?t=fav&page=1>首页</a>&nbsp;"
response.write "<a href=?t=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=?t=fav&page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?t=fav&page="&Allpage&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table>
</td>
</tr>
</form>
<%end if%>
</table>



<%
end if

if T="" or T="main" then%>
<table border="0" cellpadding="0" class="td" width="100%" height="30">
<%
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 [user] 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 [user] 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

%><tr>
<td width="176" height="30">
<img border="0" src="image/point05.gif">登陆次数：<font color="#FF0000"><b><%=rs("dlcs")%></b></font>次</td>
<td width="152">
<img border="0" src="image/point05.gif">我的虚拟币：<font color="#FF0000"><b><%=rs("hb")%></b></font>元</td>
<td width="209">
<img border="0" src="image/point05.gif">邮件地址：<%=rs("email")%></td>
<td width="266">
<img border="0" src="image/point05.gif">会员状态：<b><font color="#FF0000">个人用户-<% if request.cookies("jle")("vip")=1 then Response.Write "vip会员" else Response.Write "普通会员"%></font></b></td>
</tr>
<tr>
<td width="176" height="30">
<img border="0" src="image/point05.gif">发布信息：<b><font color="#FF0000"><%=m%></font></b>条</td>
<td width="152">
<img border="0" src="image/point05.gif">积分总数：<b><font color="#FF0000"><%=rs("jf")%></font></b>分</td>
<td width="209">
<img border="0" src="image/point05.gif">注册时间：<%=rs("zcdata")%></td>
<td width="266">
<img border="0" src="image/point05.gif">登陆时间：<%=rs("lastdl")%></td>
</tr>

<tr>
<td width="803" height="25" colspan="4" class="userbg">
&nbsp;用户须知</td>
</tr>
<tr>
<td width="803" height="25" colspan="4">
用户积分，虚拟币制度是什么?</td>
</tr>
<tr>
<td width="803" height="25" colspan="4">
答：新注册用户系统自动赠送积分和虚拟币，您每发布一条信息系统自动为您加3积分，每次登入加2积分。</td>
</tr>
<tr>
<td width="803" height="25" colspan="4">
积分和虚拟币有什么用？</td>
</tr>
<tr>
<td width="803" height="25" colspan="4">
答：积分可以兑换虚拟币，虚拟币可以用来置顶您的信息。</td>
</tr>
<tr>
<td width="99%" height="25" class=userbg colspan="5">&nbsp;积分转换&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
只要您天天登陆本站,就可以不断增加您的积分哟</td>
</tr>
<tr>
<td width="99%" height="23" colspan="5">当前您的积分是：<font color="#FF0000"><%=rs("jf")%></font></td>
</tr>
<tr>
<td width="99%" height="23" colspan="5">本站可以用 <font color="#FF0000"> <%=jf_hb%></font> 积分转换  
<font color="#FF0000">1</font> 个虚拟币</td>
</tr>
<tr>
<td width="99%" height="23" colspan="5">您的积分可以转换 <font color="#FF0000"><%=int(jf/jf_hb)%></font> 
个虚拟币，剩余的积分我们将予以保留。</td>
</tr>
<form method="POST" action="?jle=jf_hb">
<tr>
<td width="99%" height="23" colspan="5">是否要转换虚拟币：<input type="hidden" name="jf" size="7" value="<%=jf%>"><input type="submit" value="我要转换" name="jf_hb"> <a href="pay.asp">在线充值</a></td>
</tr>
</form>
</table>
<%end if%>
</div></div></div>
 <br style="clear:both;" /></div>

<%
call bottom()
%>

</body>
</html>
<%
rs.close
set rs=nothing
closedb
%>