<!--#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")
if selectid<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [1car] where id in ("&selectid&")",conn,1,1
do while not rs.eof
if rs("carpic") <>"" then
picurl="../"&rs("carpic")
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
url2=rs("carpic")
url2=replace(url2,"carpic/","")
url2=replace(url2,".gif","")
conn.execute "delete from managepic where ( url like 'carpic_"&url2&"_gif' )"
end if
if rs("carpic1") <>"" then
picurl="../"&rs("carpic1")
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
url2=rs("carpic1")
url2=replace(url2,"carpic/","")
url2=replace(url2,".gif","")
conn.execute "delete from managepic where ( url like 'carpic_"&url2&"_gif' )"
end if
if rs("carpic2") <>"" then
picurl="../"&rs("carpic1")
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
url2=rs("carpic2")
url2=replace(url2,"carpic/","")
url2=replace(url2,".gif","")
conn.execute "delete from managepic where ( url like 'carpic_"&url2&"_gif' )"
end if
if rs("carpic3") <>"" then
picurl="../"&rs("carpic1")
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
url2=rs("carpic3")
url2=replace(url2,"carpic/","")
url2=replace(url2,".gif","")
conn.execute "delete from managepic where ( url like 'carpic_"&url2&"_gif' )"
end if
if rs("carpic4") <>"" then
picurl="../"&rs("carpic4")
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
url2=rs("carpic4")
url2=replace(url2,"carpic/","")
url2=replace(url2,".gif","")
conn.execute "delete from managepic where ( url like 'carpic_"&url2&"_gif' )"
end if
rs.movenext
loop
conn.execute "delete from 1car where id in ("&selectid&")"
response.Redirect "managesell.asp?action=all"
response.End
end if
'//刷新
newid=request("newid")
if newid<>"" then
set rs=server.createobject("adodb.recordset")
sql="select adddate,guding,gddate from 1car where 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
'//固顶
%>
<%
gdid=request("gdid")
if gdid<>"" then
set rs=server.createobject("adodb.recordset")
sql="select guding,gddate,adddate from 1car where id="&gdid
rs.open sql,conn,1,3
rs("guding")=1
rs("gddate")=rs("adddate")
rs("adddate")="3000-1-1 1:1:1"
rs.update
rs.close
end if
%>
<%
jgid=request("jgid")
if jgid<>"" then
set rs=server.createobject("adodb.recordset")
sql="select guding,gddate,adddate from 1car where id="&jgid
rs.open sql,conn,1,3
rs("guding")=0
rs("adddate")=rs("gddate")
rs.update
rs.close
end if
%>
<table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
<tr align="center">
<td class="forumRowHighlight" width=25%> <a href="managesell.asp?action=all"><%if action="all" then %><font color="#FF0000"><% end if%>所有出售信息</a></td>
<td class="forumRowHighlight" width=25%><a href="managesell.asp?action=pass"><%if action="pass" then %><font color="#FF0000"><% end if%>通过审核出售信息</a></font></td>
<td class="forumRowHighlight" width=25%><a href="managesell.asp?action=wait"><%if action="wait" then %><font color="#FF0000"><% end if%>待审核出售信息</a></font></td>
<td class="forumRowHighlight" width=25%><a href="managesell.asp?action=fall"><%if action="fall" then %><font color="#FF0000"><% end if%>未通过出售信息</a></font></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 [1car] order by adddate desc ",conn,1,1
case "pass"
rs.open "select * from [1car] where by_tongguo=1 order by adddate desc ",conn,1,1
case "wait"
rs.open "select * from [1car] where by_tongguo=0 order by adddate desc ",conn,1,1
case "fall"
rs.open "select * from [1car] where by_tongguo=-1 order by adddate desc ",conn,1,1
end select
case "0"
rs.open "select * from 1car order by adddate desc",conn,1,1
case "id"
if selectkey="" then
selectkey=0
end if
rs.open "select * from 1car where id="&selectkey&" order by adddate desc",conn,1,1
case "titlename"
rs.open "select * from 1car where titlename like '%"&selectkey&"%' order by adddate desc",conn,1,1
case "content"
rs.open "select * from 1car where content like '%"&selectkey&"%' order by adddate desc",conn,1,1
case "user"
rs.open "select * from 1car 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="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>
<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();">
</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>
这段代码只要点里面的刷新，就会出现
ADODB.Recordset 错误 '800a0e78'
对象关闭时，不允许操作。
/admin/managesell.asp，行 222
