<!--#include file="usertop.asp"-->
<!--#include file="usercookies.asp"-->
<%
dim ts,rsbo,sqlbo
dim ThisPage,Pagesize,Allrecord,Allpage,tj
ts=trim(request("ts"))
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理发布信息--<%=title%>--<%=web%></title>
</head>

<body>

<div align="center">
<table cellSpacing="0" cellPadding="0" width="760" border="0" id="table1">
		<tr>
			<td  height="25" colspan="2" class="tdtop"><b>&nbsp;<img border="0" src="images/z1.gif" width="50" height="18"> 您的位置  
			<font color="#FFFFFF">-></font> <a class="scap1" href="index.htm"><%=title%></a>
			<font color="#FFFFFF">-></font> 管理发布信息：</b></td>
		</tr>
		<tr bgColor="#d9ebe5">
			<td  width="255" bgcolor="#FFFFFF" rowspan="2" valign="top">
            <!--#include file="caozuo.asp"-->
			</td>
		<tr bgColor="#d9ebe5">
			<td valign="top" width="505" height="315" bgcolor="#FFFFFF">
			<table border="1" width="100%" id="table2" bordercolorlight="#D9EBE5" bordercolordark="#D9EBE5" style="border-collapse: collapse" cellpadding="0" cellspacing="0">
				<tr>
					<td class="tdtxt07" bgcolor="#D9EBE5">&nbsp;<img border="0" src="images/a01.gif" width="25" height="25">
用户：<font color="#FF0000"><%=username%></font>，您好，欢迎来到会员中心！您登陆本站共<font color="#FF0000"><%=rsuser("dlcs")%></font>次。<br>
您目前级别：<%if rsuser("huitype")="0" then%><font color="#FF0000"><%=aname%>会员</font><%elseif rsuser("huitype")="1" then%><font color="#FF0000"><%=bname%>会员</font><%elseif rsuser("huitype")="2" then%><font color="#FF0000"><%=cname%>会员</font><%end if%>
，验证状态：<%if rsuser("yz")="0" then%><font color="#FF0000">没有通过验证</font>，验证后才可以享受更多权利！<%elseif rsuser("yz")="1" then%><font color="#FF0000">已通过验证</font>，祝您愉快！<%end if%></td>
				</tr>
				<tr>
					<td class="tdtxt07" bgcolor="#D9EBE5" height="20">
					<table border="0" width="100%" id="table3" cellspacing="1">
						<tr>
							<td bgcolor="#FFFFFF" height="40">
							<p align="center">
							<img border="0" src="images/a03.gif" width="25" height="25">
							<b><a href="xinxima.asp?ts=1">
							<span style="text-decoration: none">未验证信息</span></a></b></td>
							<td bgcolor="#FFFFFF" height="40">
							<img border="0" src="images/a03.gif" width="25" height="25">
							<b><a href="xinxima.asp">
							<span style="text-decoration: none">已验证信息</span></a></b></td>
						</tr>
						<tr>
							<td bgcolor="#FFFFFF" height="40" colspan="2">
            <%
tj=1
set rsbo=server.createobject("adodb.recordset")
Select Case ts
Case "1"
sqlbo="select * from FOX_xinxi where username='"&username&"' and ts=0 and yz=0 order by fbsj desc"
Case Else
sqlbo="select * from FOX_xinxi where username='"&username&"' and ts=0 and yz=1 order by fbsj desc"
End Select
rsbo.open sqlbo,conn,1,1
rsbo.Pagesize=5
Pagesize=rsbo.Pagesize
Allrecord=rsbo.Recordcount
Allpage=rsbo.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rsbo.move (ThisPage-1)*Pagesize
if rsbo.eof then
response.write "暂时没有！"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse" id="table169">

            <%do while not rsbo.eof%>
            <tr bgcolor="#CCCCCC">
              <td colspan="4" height="1"></td>
            </tr> 
                       <tr valign="middle" bgcolor="#F7F7F7">
              <td height="35" colspan="2" class="p10t" bgcolor="#D9EBE5">
				<p align="center">
				<img border="0" src="images/edit.gif" width="16" height="16"></td>
              <td height="35" colspan="2" class="p10t" bgcolor="#D9EBE5"><strong style="font-weight: 400"><font color="#cc0000"> &nbsp;</font><font color="#CC0000">信息名称：</font><%if rsbo("xinxipic")<>"0" then%>[<font color="#FF0000">图</font>]<%else%><%end if%><font color="#009933"><b><%=rsbo("company")%></b></font></strong>&nbsp;&nbsp;发布时间：<font color="#666666"><%=rsbo("fbsj")%></font></td>
            </tr>

            <tr>
              <td height="22" width="4%" class="p9t" bgcolor="#F5F5F5">
				<p align="right">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" colspan="2">
				信息所属：</td>
              <td height="22" width="80%" class="index_bk2" valign="top">
              <%dim rsq,sqlq,class1c,class2c
set rsq=server.createobject("adodb.recordset") 
sqlq = "select * from [FOX_class1] where id="&rsbo("class1")&""
rsq.open sqlq,conn,1,1
class1c=rsq("class1")
rsq.close
set rsq=nothing
set rsq=server.createobject("adodb.recordset") 
sqlq = "select * from [FOX_class2] where id="&rsbo("class2")&""
rsq.open sqlq,conn,1,1
class2c=rsq("class2")
rsq.close
set rsq=nothing
%><%=class2c%> <- <%=class1c%></td>
            </tr>

            <tr>
              <td height="22" width="4%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" colspan="2">
				操作：</td>
              <td height="22" width="80%" class="p9t">
				<p align="right"><%if rsbo("yz")=1 then%>已验证，不能修改<font color="#008080">&nbsp;
				</font><a href="xinxidel.asp?id=<%=rsbo("id")%>"><span style="text-decoration: none"><font color="#008080">删除它</font></span></a><%else%><a href="xinxiedit.asp?id=<%=rsbo("id")%>"><span style="text-decoration: none"><font color="#008080">修改它</font></span></a>&nbsp;&nbsp;<a href="xinxidel.asp?id=<%=rsbo("id")%>"><span style="text-decoration: none"><font color="#008080">删除它</font></span></a><%end if%> </td>
            </tr>            <%
        tj=tj+1
        if tj>=Pagesize then exit do
        rsbo.movenext
        loop
        %>

            </table>

				<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse" id="table170">
                <tr>
                  <td height="25" width="151" class="p9t"><p align="center"> 共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
                  <td height="25" width="126" class="p9t"><p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
                  <td height="25" width="118" class="p9t"><p align="center">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页</td>
                  <td height="25" width="187" class="p9t"><p align="center">
 <%
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&ts="&ts&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&ts="&ts&">上一页</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)&"&ts="&ts&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&ts="&ts&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>


 <%end if
 rsbo.close
 set rsbo=nothing%>       

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

</table>
<%rsuser.close
set rsuser=nothing%>
</div>

</body>
<!--#include file="userbottom.asp"--></body></html>