📄 managesell.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")
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">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -