managesell.asp

模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息 发布.展示.固顶.刷新 3.加盟商家管理 注册.登录.信

<!--#include file=byshop_conn.asp-->
<!--#include file=webhead.asp-->
<!--#include file="cookie.asp" -->
<title>管理出售信息-<%=webname%></title>
<%
if selectm="" then
selectm=request.QueryString("selectm")
end if
selectid=request("selectid")
if selectid<>"" then
conn.execute "delete from 1car where user = '"&replace(request.cookies("by2car")("user"),"'","")&"' and id in ("&selectid&")"
response.Redirect "managesell.asp"
response.End
end if
'//刷新
newid=trim(request("newid"))
		if IsNumeric(request.QueryString("newid"))=False  then
		response.write"<SCRIPT language=JavaScript>alert('参数错误');"
		response.end	
		end if
if newid<>"" then
set rs=server.createobject("adodb.recordset") 
sql="select  adddate,guding,gddate from 1car where (by_tongguo=1 or by_tongguo=0) and user = '"&replace(request.cookies("by2car")("user"),"'","")&"' and id="&newid
rs.open sql,conn,1,3
if rs("guding")= 1 then
rs("gddate")=now()
else
rs("adddate")=now()
end if
rs.update
rs.close
end if
%>

<div align="center">
	<table border="0" width="779" id="table5" cellspacing="0" cellpadding="0">
		<tr>
			<td><span lang="zh-cn">您的位置</span>:<span lang="zh-cn"><a href="default.asp">网站首页</a> </span>
			&gt;<span lang="zh-cn"> <a href="managedealer.asp">加盟商家管理</a> &gt; 管理出售信息</span></td>
		</tr>
	</table><table border="1" width="779" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#BDDBE9">
		<tr>
			<td width=160 valign="top"><!--#include file="muma.asp"--></td><form name="formpub" onsubmit="return checkform(formpub)" method="post" action="">
					
			<td valign="top">
			<table id="table2" style="BORDER-COLLAPSE: collapse" borderColor="#111111"  cellSpacing="2" borderColorDark="#FFFFFF" cellPadding="2" width="98%" border="0" align=right>
				<tr>
					<td height="1"><%'开始分页
				Const MaxPerPage=20
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    				if Not isempty(request("page")) then
      				currentPage=Cint(request("page"))
   				else
      				currentPage=1
   				end if 
				set rs=server.CreateObject ("adodb.recordset")
sql="select id,anclass,nclass,type,user,titlename,sellmoney,adddate,guding,gddate,by_tongguo from 1car where (by_tongguo=1 or by_tongguo=0)  and user='"&replace(request.cookies("by2car")("user"),"'","")&"' order by adddate desc "
rs.open sql,conn,1,1

				
  				if rs.eof And rs.bof then
       				Response.Write " 数据库中无数据！"
   				else
	  				totalPut=rs.recordcount

      				if currentpage<1 then
          				currentpage=1
      				end if

      				if (currentpage-1)*MaxPerPage>totalput then
	   					if (totalPut mod MaxPerPage)=0 then
	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"sellmanage.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"sellmanage.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"sellmanage.asp"
	      				end if
	   				end if
   				   	end if

   				sub showContent
       				dim i
	   			i=0%>

					<div align="center">
							<table class="tableBorder" width="100%" border="0" cellpadding="3" bgcolor="#FFFFFF" cellspacing="1">
<tr> 
<td colspan="6" align="center" bgcolor="#BDDBE9" >
							<p align="center" >管理出售信息</td>
</tr>
<tr> 
<td colspan="6" align="center" >
　</td>
</tr>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  width="42%" align="center" bgcolor="#F1F1F1">信息标题</td>
 <td class="forumRowHighlight"  width="10%" align="center" bgcolor="#F1F1F1">&nbsp;出售价格</td>
 <td class="forumRowHighlight"  width="20%" align="center" bgcolor="#F1F1F1">
	发布日期</td>
 <td class="forumRowHighlight"  width="7%" align="center" bgcolor="#F1F1F1">
	审核</td>
 <td class="forumRowHighlight"  width="7%" align="center" bgcolor="#F1F1F1">操作</td>
 <td class="forumRowHighlight"  width="6%" align="center" bgcolor="#F1F1F1">选 择</td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  align="left" bgcolor="#F1F1F1"><a href=modifysell.asp?id=<%=rs("id")%> title="点击修改信息"><%		
 response.write rs("titlename")
  %></a><% if rs("guding")=1 then
 response.write "-<font color=#FF0000>固顶</font>"
 end if%></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F1F1F1"><%
          if rs("sellmoney")<> "0" then
          %><font color="#FF0000"><%
            response.write  rs("sellmoney")&"万元"
            else
            %></font>
            <%
          response.write "面议"
          end if
          %></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F1F1F1"> <%if rs("guding")=1 then%>
          <%=rs("gddate")%>
          <%else%>
 <%=rs("adddate")%>
<%end if%></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F1F1F1"><%if rs("by_tongguo")=1  then
								response.write "(通过)"
								end if
								if rs("by_tongguo")=0 then
								response.write "<font color=#FF0000>(等待)</font>"
								end if
								%></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F1F1F1">
 <%
byshop_ab=rs("adddate")                
byshop_a=datediff("y",byshop_ab,now())
if  byshop_a >=sxtime then
response.write "<a href=managesell.asp?newid="&rs("id")&"><font color=FF0000>刷新</font></a>"
else
response.write "刷新"
end if
 %></td>
 <td class="forumRowHighlight"  align="center" bgcolor="#F1F1F1">
<input name="selectid" type="checkbox" id="selectid" value="<%=rs("id")%>" >
</td></tr>
          <%i=i+1
		if i>=MaxPerPage then Exit Do
		rs.movenext
		loop
		rs.close
		set rs=nothing%>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  height="30" colspan="6" align="right" bgcolor="#F1F1F1"><a href="#qx" onClick="qx()">全选</a> <a  href="#qbx" onClick="qbx()">全不选</a>
<input type="submit" name="Submit" class=go-wenbenkuang value="删 除" onClick="return test();"></td>
</tr>
</table></div>
					<%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If
				
				Response.Write "<form method=Post action="&filename&"?selectm="&selectm&"&selectkey="&selectkey&" >"  
				Response.Write "<p align='right' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>上一页</font> "  
				Else  

					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>上一页</a> "  
				End If
				
				If n-currentpage<1 Then  
				Else  
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>"  
					Response.Write "下一页</a>"  
				End If  
					Response.Write "<font class='contents'> </font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
					Response.Write "<font class='contents'> 共有"&totalnumber&"条信息 <br><br>" 
				
				End Function  
			%>

					</td>
				</tr>
			
				</table>
			<p>　</td>
		</tr>
	</table></form>
</div>
<script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script>
<script language=javascript>
function qx()
{
   var a = document.getElementsByTagName("input");

   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   
}
</script>
<script language=javascript>
function qbx()
{
   var ab = document.getElementsByTagName("input");
   for (var i=0; i<ab.length; i++)
      if (ab[i].type == "checkbox") ab[i].checked = false;
   
}
</script>
<br>

<!--#include file=webfoot.asp-->