managesell.asp

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

 <td class="forumRowHighlight"  width="7%" align="center"><span lang="en-us">ID</span></td>
 <td class="forumRowHighlight"  width="28%" align="center">信息标题</td>
 <td class="forumRowHighlight"  width="19%" align="center">加入时间</td>
 <td class="forumRowHighlight"  width="12%" align="center">审核状态</td>
 <td class="forumRowHighlight"  width="12%" align="center">发布类型</td>
 <td class="forumRowHighlight"  width="10%" align="center">操作</td>
 <td class="forumRowHighlight"  width="7%" align="center">选 择</td>
</tr>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  align="center"></td>
 <td class="forumRowHighlight"  width="27%" STYLE='PADDING-LEFT: 10px'>
没有信息</a></td>
 <td class="forumRowHighlight"  align="center"></td>
 <td class="forumRowHighlight"  align="center">
 </td>
 <td class="forumRowHighlight"  align="center">
 		</td>
 <td class="forumRowHighlight"  align="center"></td>
 <td class="forumRowHighlight"  align="center">
　</td></tr>
         
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  height="30" colspan="7" align="right">　</td>
</tr>
</table>
       		<%
   				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,"managesell.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"managesell.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"managesell.asp"
	      				end if
	   				end if
   				   	end if

   				sub showContent
       				dim i
	   			i=0%>

<table class="tableBorder" width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
<th colspan="7" align="center" ><span lang="zh-cn">出售信息查看与修改</span></th>
</tr>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  width="7%" align="center"><span lang="en-us">ID</span></td>
 <td class="forumRowHighlight"  width="28%" align="center">信息标题</td>
 <td class="forumRowHighlight"  width="19%" align="center">加入时间</td>
 <td class="forumRowHighlight"  width="12%" align="center">审核状态</td>
 <td class="forumRowHighlight"  width="12%" align="center">发布类型</td>
 <td class="forumRowHighlight"  width="10%" align="center">操作</td>
 <td class="forumRowHighlight"  width="7%" align="center">选 择</td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  align="center"><a href=editsell.asp?id=<%=rs("id")%>><%=rs("id")%></a></td>
 <td class="forumRowHighlight"  width="27%" STYLE='PADDING-LEFT: 10px'> <a href=editsell.asp?id=<%=rs("id")%>> 
             
			
			 <% 
 response.write rs("titlename")
 %>
</a></td>
 <td class="forumRowHighlight"  align="center"> <%if rs("guding")=1 then
    response.write rs("gddate")
    else
     response.write  rs("adddate")
     end if%></td>
 <td class="forumRowHighlight"  align="center">
 		 <% if rs("by_tongguo")=1 then
 response.write "(通过)"
 end if
 if rs("by_tongguo")=0 then
 response.write "<font color='#FF0000'>(等待)</font>"
 end if
 if rs("by_tongguo")=-1 then
 response.write "(未通过)"
 end if

 %>
 </td>
 <td class="forumRowHighlight"  align="center">
 		 　<% if rs("usercheck")=1 then
 		 set rs2=server.CreateObject ("adodb.recordset")
sql2="select * from dealer where user='"&rs("user")&"'"
rs2.open sql2,conn,1,1
if rs2.eof then
    response.write "<a title=该商家已被删除>加盟商家发布</a>" 
else
    response.write "<a title="&rs2("company")&">加盟商家发布</a>" 
    end if
    	rs2.close
    	set rs2=nothing
    end if%><% if rs("usercheck")=2 then response.write "个人发布" end if%><% if rs("usercheck")=3 then response.write "本站发布" end if%></td>
 <td class="forumRowHighlight"  align="center">
 		<a href="managesell.asp?newid=<%=rs("id")%>">刷新</a> <%if rs("guding")=1 then%><a href="managesell.asp?jgid=<%=rs("id")%>"><font color="#FF0000">解固</font></a><%else%><a href="managesell.asp?gdid=<%=rs("id")%>">固顶</a><%end if%></td>
 <td class="forumRowHighlight"  align="center">
<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="7" align="right">全选 
<input type="checkbox" name="checkbox" value="Check All" onClick="mm()">
<input type="submit" name="Submit" class=go-wenbenkuang value="删 除" onClick="return test();">
&nbsp;</td>
</tr>
</table>
				<%  
				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 "<p align='center' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>首页 上一页</font> "  
				Else  
					Response.Write "<a href="&filename&"?page=1&selectm="&selectm&"&selectkey="&selectkey&"&action="&action&" class='contents'>首页</a> "  
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&selectm="&selectm&"&selectkey="&selectkey&"&action="&action&" class='contents'>上一页</a> "  
				End If
				
				If n-currentpage<1 Then  
					Response.Write "<font class='contents'>下一页 尾页</font>"  
				Else  
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&selectm="&selectm&"&selectkey="&selectkey&"&action="&action&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&selectm="&selectm&"&selectkey="&selectkey&"&action="&action&" class='contents'>尾页</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&"条信息 " 
				End Function  
			%>
<table width="12" height="7" border="0" cellpadding="0" cellspacing="0">
<tr> 
 <td class="forumRowHighlight"  height=7></td>
</tr>
</table>
</td>
</form>
</tr>
</table>
<table class="tableBorder" width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<th align="center" ><span lang="zh-cn">出售信息查询</span></th>
</tr>
<tr bgcolor="#E8F1FF"> 
<form name="form2" method="post" action="managesell.asp">
 <td class="forumRowHighlight"  height="50"> 
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
 <td class="forumRowHighlight"  width="35%" align="center">
<input name="selectkey" type="text" id="selectkey" class=wenbenkuang onFocus="this.value=''" value="请输入关键字">
</td>
 <td class="forumRowHighlight"  width="45%" align="center"> 
<select name="selectm" class=wenbenkuang  id="selectm">
<option value="titlename">按信息标题</option>
<option value="content">按车况描述</option>
<option value="user">加盟商家登录名</option>
</select>
</td>
 <td class="forumRowHighlight"  width="20%" height="30" align="center">
<input type="submit" name="Submit2" class=go-wenbenkuang value="查 询">
</td>
</tr>
<tr> <td class="forumRowHighlight"  colspan=3 >　</td></tr>
</table>
</td>
</form>
</tr>
</table>

</body>
</html>
<script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script>
<script language=javascript>
function mm()
{
   var a = document.getElementsByTagName("input");
   if(a[0].checked==true){
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = false;
   }
   else
   {
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   }
}
</script>