📄 managepic.asp

📁 模块及功能： 1.汽车新闻分类.查询.翻页 2.出售信息搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息发布.展示.固顶.刷新 3.加盟商家管理注册.登录.信
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="session3.asp"-->

<html><head><title>出售信息管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>

<%dim selectm,selectkey,selectid
selectkey=trim(request(trim("selectkey")))
selectm=trim(request("selectm"))
		  action=request.QueryString("action")
if selectkey="" then
selectkey=request.QueryString("selectkey")
end if
if selectkey="请输入关键字" then
selectkey=""
end if
'//删除
if selectm="" then
selectm=request.QueryString("selectm")
end if
selectid=request("selectid")
response.write selectid
if selectid<>"" then
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select * from [managepic] where id in ("&selectid&")",conn,1,1
	do while not rs.eof
picurl="../"&rs("url")
set objfso=server.createobject("scripting.filesystemobject")
if objfso.fileexists(server.mappath(picurl)) then
objfso.deletefile server.mappath(picurl),true
else
response.write "该文件已不存在"
end if
set objfso=nothing
rs.movenext
loop
conn.execute "delete from managepic where id in ("&selectid&")"
response.Redirect "managepic.asp?action=wait"
response.End
end if
%>

<table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
  <tr align="center"> 
    <td  class="forumRowHighlight" width=33%> <a href="managepic.asp?action=all"><%if action="all" then %><font  color="#FF0000"><% end if%>所有上传图片</a></td>
    <td  class="forumRowHighlight"  width=33%><a href="managepic.asp?action=pass"><%if action="pass" then %><font  color="#FF0000"><% end if%>通过审核的上传图片</font></a></td>
    <td  class="forumRowHighlight"  width=33%><a href="managepic.asp?action=wait"><%if action="wait" then %><font  color="#FF0000"><% end if%>待审核的上传图片</font></a></td>
  </tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="">

<tr> 
 <td  height="100"> 
				<%'开始分页
				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")
			select case selectm
			case ""
			  select case action
		  case "all"
		 	rs.open "select * from [managepic] order by adddate desc ",conn,1,1
		  case "pass"
		 	rs.open "select * from [managepic] where by_tongguo=1 order by adddate desc ",conn,1,1
		  case "wait"
		 	rs.open "select * from [managepic] where by_tongguo=0 order by adddate desc ",conn,1,1
		  end select
		    case "0"
			rs.open "select *  from [managepic] order by adddate desc",conn,1,1
		    case "id"
			if selectkey="" then
			selectkey=0
			end if
			rs.open "select *  from managepic where id="&selectkey&" order by adddate desc",conn,1,1
			case "titlename"
			rs.open "select * from managepic where titlename like '%"&selectkey&"%' order by adddate desc",conn,1,1
			case "content"
			rs.open "select * from managepic where content like '%"&selectkey&"%' order by adddate desc",conn,1,1
				case "user"
			rs.open "select * from managepic where user like '%"&selectkey&"%' order by adddate desc",conn,1,1
			
		  	end select
		   	if err.number<>0 then
				response.write "数据库中无数据"
				end if
				
  				if rs.eof And rs.bof then
       		%>
       		<table class="tableBorder" width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
<th colspan="8" align="center" >管理上传图片</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" colspan="2">图片地址</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="14%" STYLE='PADDING-LEFT: 10px'>
没有信息</a></td>
 <td class="forumRowHighlight"  width="13%" STYLE='PADDING-LEFT: 10px'>
　</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="8" 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,"managepic.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"managepic.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"managepic.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="8" align="center" >管理上传图片</th>
</tr>
<tr bgcolor="#E8F1FF"> 
 <td class="forumRowHighlight"  width="4%" align="center"><span lang="en-us">ID</span></td>
 <td class="forumRowHighlight"  width="25%" align="center" colspan="2">图片地址</td>
 <td class="forumRowHighlight"  width="9%" align="center">信息类型</td>
 <td class="forumRowHighlight"  width="27%" align="center">信息名称</td>
 <td class="forumRowHighlight"  width="9%" align="center">审核状态</td>
 <td class="forumRowHighlight"  width="16%" 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"><%=rs("id")%></td>
 <td class="forumRowHighlight"  width="20%" STYLE='PADDING-LEFT: 10px'> 
             
			
			 <%=rs("url")%>
</a></td>
 <td class="forumRowHighlight"  width="5%" STYLE='PADDING-LEFT: 10px'> 
             
			
			 <a href="../<%=rs("url")%>" target=_blank>预览</a></td>
 <td class="forumRowHighlight"  align="center"><%if rs("class")=1 then
 response.write "出售信息"
 end if 
 if rs("class")=2 then
 response.write "商家公司图片"
 end if 
 if rs("class")=3 then
 response.write "商家LOGO"
 end if 
 %>
 </td>
 <td class="forumRowHighlight"  align="center">

    <%
    if rs("class")=1 then
         url2=rs("url")
         url2=replace(url2,"carpic/","")
         url2=replace(url2,".gif","")
               Set rs7= Server.CreateObject("ADODB.Recordset")
               sql7="select * from 1car where ( carpic like 'carpic_"&url2&"_gif' ) or ( carpic1 like 'carpic_"&url2&"_gif' ) or ( carpic2 like 'carpic_"&url2&"_gif' ) or ( carpic3 like 'carpic_"&url2&"_gif' ) or ( carpic4 like 'carpic_"&url2&"_gif' ) "
		rs7.open sql7,conn,1,1
		if rs7.eof then
		response.write "该信息不存在"
		else
		do while not rs7.eof 
			response.write rs7("titlename")&"<br>"
		rs7.movenext
		loop
		rs7.close
		end if
		end if
		
		    if rs("class")=2 then
		       url2=rs("url")
         url2=replace(url2,"company/pic/","")
         url2=replace(url2,".gif","")
               Set rs7= Server.CreateObject("ADODB.Recordset")
               sql7="select * from dealer where ( pic like 'company_pic_"&url2&"_gif' ) "
		rs7.open sql7,conn,1,1
		if rs7.eof then
		response.write "该信息不存在"
		else
		do while not rs7.eof 
			response.write rs7("user")&"<br>"
		rs7.movenext
		loop
		rs7.close
		end if
		end if

    if rs("class")=3 then
		       url2=rs("url")
         url2=replace(url2,"company/logo/","")
         url2=replace(url2,".gif","")
               Set rs7= Server.CreateObject("ADODB.Recordset")
               sql7="select * from dealer where ( logo like 'company_logo_"&url2&"_gif' ) "
		rs7.open sql7,conn,1,1
		if rs7.eof then
		response.write "该信息不存在"
		else
		do while not rs7.eof 
			response.write rs7("user")&"<br>"
		rs7.movenext
		loop
		rs7.close
		end if
		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"><%
     response.write  rs("adddate")
    %></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="8" 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 "<form method=Post action="&filename&"?selectm="&selectm&"&selectkey="&selectkey&" >"  
				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&" class='contents'>首页</a> "  
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&selectm="&selectm&"&selectkey="&selectkey&" 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&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&selectm="&selectm&"&selectkey="&selectkey&" 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&"条信息 " 
					Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
					Response.Write "&nbsp;<input type='submit'  class='contents' value='GO' name='cndok' ></form>"  
				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" >管理图片查询</th>
</tr>
<tr bgcolor="#E8F1FF"> 
<form name="form2" method="post" action="managepic.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> 
  <p>管理上传图片,这里主要是管理前台上传的图片,不包括后台管理员上传的图片．<br>
	<br>
	共有三处<br>
	１．出售信息中的汽车图片<br>
	２．加盟商家里的公司图片<br>
	３．加盟商家里的公司LOGO</p>
<p>注意：如果预览不能显示的图片，很有可能是转化成 gif图片格式的 木马<br>
您可以用杀毒软件查杀，或是直接删除即可．</p>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -