list.asp

购物网站源码有需要的赶快下载机不可失

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

<table border=0 width=90% cellspacing=0 cellpadding=0 align="center">
<tr bgcolor=#ffffff align=center valign=top>
<td width=90%>
<table border=0 width=100% cellspacing=3 cellpadding=3>
<tr><td align=center>
<%
if request.querystring("type")="openp" then
%>
<font size="3" color=red><b>黄金广告位置正常播放的广告条列表</b></font>
<%
elseif request.querystring("type")="opens" then
%>
<font size="3" color=red><b>一般广告位置正常播放的广告条列表</b></font>
<%
elseif request.querystring("type")="close" then
%>
<font size="3" color=red><b>被管理员暂停而未失效的广告条列表</b></font>
<%
elseif request.querystring("type")="lose" then
%>
<font size="3" color=red><b>已经失效的的广告条列表</b></font>
<%
elseif request.querystring("type")="top" then
%>
<font size="3" color=red><b>TOP 20 条广告点击龙虎榜(不含失效广告)</b></font><br>
TOP20 是指前 20 名，由于一些广告条点击数相同，只能算一名，所以条数可能不止 20 条。
<%
elseif request.querystring("type")="end" then
%>
<font size="3" color=red><b>点击率最低的 20 条广告(不含失效广告)</b></font><br>
TOP20 是指前 20 名，由于一些广告条点击数相同，只能算一名，所以条数可能不止 20 条。
<%
else
%>
<font size="3" color=red><b>所有正常播放的广告条列表</b></font>
<%
adssql="select * from SMT_ads where SMT_act=1 order by SMT_id desc"
end if
%>
</td></tr></table>


<table border=0 width=100% cellspacing="1" cellpadding=3 bgcolor=#000000>

<%


dim MaxPerPage,adssql,adsrs,totalPut,CurrentPage,TotalPages,i,advlistact
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set adsrs=server.createobject("adodb.recordset")

if request.querystring("type")="close" then
adssql="select * from SMT_ads where SMT_act=0 order by SMT_regtime"

elseif request.querystring("type")="lose" then
adssql="select * from SMT_ads where SMT_act=2 order by SMT_regtime"

elseif request.querystring("type")="top" then
adssql="select top 20 * from SMT_ads where SMT_act<>2 order by SMT_click desc"

elseif request.querystring("type")="end" then
adssql="select top 20 * from SMT_ads where SMT_act<>2 order by SMT_click"

else
adssql="select * from SMT_ads where SMT_act=1 order by SMT_regtime desc"
end if

adsrs.open adssql,conn,1,1
if adsrs.eof and adsrs.bof then
response.write "<tr><td bgcolor=#ffffff>没有记录</td></tr></table>"
else
adsrs.pagesize=advertlistnumber'每页显示的记录数
totalPut=adsrs.recordcount '记录总数
totalPage=adsrs.pagecount
MaxPerPage=adsrs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
adsrs.move  (currentPage-1)*MaxPerPage
dim bookmark
bookmark=adsrs.bookmark '移动到开始显示的记录位置
showContent
showpages
end if
end if
adsrs.close
set adsrs=nothing
end if
conn.close
set conn=nothing

%>
</td></tr>
</table>

</center></div>

<%

sub showContent
i=0
do while not (adsrs.eof or err)
dim getdiftime
getdiftime=datediff("d",date,adsrs("SMT_lasttime"))
%>
<table width="780" border="0" cellspacing="0" cellpadding="0">
  <tr > 
    <td bgcolor="#FFCC00" colspan="3"> <div align="center">ID：<%=adsrs("SMT_id")%></div></td>
  </tr>

  <tr> 
    <td colspan="3"> 
      <table width="100%" border="0" cellspacing="2" cellpadding="1" align="center" bgcolor="#eeeeee">
        <tr bgcolor="#Ffffff"> 
          <td width="15%" height="17"><font color="#FF0000">广告（站点）名称：</font></td>
          <td width="35%"><a href=<%=adsrs("SMT_url")%>><%=adsrs("SMT_sitename")%></a></td>
          <td width="15%"><font color="#FF0000">站点URL：</font></td>
          <td width="35%"><%=adsrs("SMT_url")%></td>
        </tr>
<tr bgcolor="#F6f6f6"> 
          <td><font color="#FF0000">广告位种类：</font></td>
          <td><b><%=adsrs("SMT_price")%></b></td>
          <td><font color="#FF0000">广告位：</font></td>
          <td><b><%set adsrs6=server.createobject("adodb.recordset")
adssql6="select * from SMT_place where SMT_place="&adsrs("SMT_place")&" and SMT_price='"&adsrs("SMT_price")&"' order by SMT_placeid"
adsrs6.open adssql6,conn,1,1%>
<%=adsrs6("SMT_placename")%> (<%=adsrs6("SMT_jg")%>/<%=adsrs6("SMT_jgg")%>)
<%adsrs6.close%></b></td>
        </tr>
        <tr bgcolor="#Ffffff"> 
          <td><font color="#FF0000">加入时间：</font></td>
          <td><%=adsrs("SMT_regtime")%></td>
          <td><font color="#FF0000">最近显示时间：</font></td>
          <td><%=adsrs("SMT_time")%></td>
        </tr>
        <tr bgcolor="#f6f6f6"> 
          <td><font color=red>广告图片URL：</font></td>
          <td><a href="<%=adsrs("SMT_gif_url")%>" target=_blank><%=adsrs("SMT_gif_url")%> </a></td>
          <td><font color="#FF0000">失效条件：</font></td>
          <td> 
            <%
if adsrs("SMT_class")=1 then
%>
            点击<font color=red><%=adsrs("SMT_clicks")%></font>次 
            <%
elseif adsrs("SMT_class")=2 then
%>
            显示<font color=red><%=adsrs("SMT_shows")%></font>次 
            <%
elseif adsrs("SMT_class")=3 then
%>
            截止期：<font color=red><%=adsrs("SMT_lasttime")%></font>
            <%if getdiftime<7 and getdiftime>0 then%>
            <br>
            <div style="width: 200; font-size:15pt; font-family: Arial ; color: red; position: relative; filter: glow(color=ffff00, strength=5)">还有 
                <%=getdiftime%> 天到期！</div>
            <%end if%>
            <%
elseif adsrs("SMT_class")=4 then
%>
            点击<font color=red><%=adsrs("SMT_clicks")%></font>次，显示<font color=red><%=adsrs("SMT_shows")%></font>次 
            <%
elseif adsrs("SMT_class")=5 then
%>
            点击<font color=red><%=adsrs("SMT_clicks")%></font>次，截止期：<font color=red><%=adsrs("SMT_lasttime")%></font>
            <%if getdiftime<7  and getdiftime>0 then%>
            <br>
            <div style="width: 200; font-size:15pt; font-family: Arial ; color: red; position: relative; filter: glow(color=ffff00, strength=5)">还有 
                <%=getdiftime%> 天到期！</div>
            <%end if%>
            <%
elseif adsrs("SMT_class")=6 then
%>
            显示<font color=red><%=adsrs("SMT_shows")%></font>次，截止期：<font color=red><%=adsrs("SMT_lasttime")%></font>
            <%if getdiftime<7  and getdiftime>0 then%>
            <br>
            <div style="width: 200; font-size:15pt; font-family: Arial ; color: red; position: relative; filter: glow(color=ffff00, strength=5)">还有 
                <%=getdiftime%> 天到期！</div>
            <%end if%>
            <%
elseif adsrs("SMT_class")=7 then
%>
            点击<font color=red><%=adsrs("SMT_clicks")%></font>次，显示<font color=red><%=adsrs("SMT_shows")%></font>次，截止期：<font color=red><%=adsrs("SMT_lasttime")%></font>
            <%if getdiftime<7  and getdiftime>0 then%>
            <br>
            <div style="width: 200; font-size:15pt; font-family: Arial ; color: red; position: relative; filter: glow(color=ffff00, strength=5)">还有 
                <%=getdiftime%> 天到期！</div>
            <%end if%>
            <%
else
%>
            无限制条件 
            <%

end if%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td width="471"> 
      <div align="right"><a href=javascript:opw('option.asp?id=<%=adsrs("SMT_id")%>&job=banner','banner<%=adsrs("SMT_id")%>',500,90)>查看banner</a> 
        &nbsp;&nbsp;&nbsp;&nbsp;
        <%
if adsrs("SMT_act")=1 then
%>
        <a href=javascript:opw('option.asp?id=<%=adsrs("SMT_id")%>&job=close','close<%=adsrs("SMT_id")%>',300,140)>暂停</a> 
        <%
else
%>
        <a href=javascript:opw('option.asp?id=<%=adsrs("SMT_id")%>&job=open','open<%=adsrs("SMT_id")%>',300,140)>激活</a> 
        <%end if%>
        　</div>
    </td>
    <td width="183"> 
      <div align="center"><a href=javascript:opw('option.asp?id=<%=adsrs("SMT_id")%>&job=delit','del<%=adsrs("SMT_id")%>',300,140)>删除</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=javascript:opw('modifyads_place.asp?id=<%=adsrs("SMT_id")%>','<%=adsrs("SMT_id")%>',500,420)>修改详细设置</a></div>
    </td>
    <td width="116"> 
      <div align="center"><a href=view.asp?id=<%=adsrs("SMT_id")%>><strong>查看详细</strong></a></div>
    </td>
  </tr>
</table>

<%
i=i+1
if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出
adsrs.movenext
loop
end sub 

sub showpages()
dim n
n=totalPage
%>
</table>
<p></p>
<table border=0 width=100% cellspacing=1 cellpadding=0>
<tr><td></td></tr>
</table>
<table border=0 width=630 cellpadding=2 cellspacing=1>
<form method=post action=list.asp?type=<%=request.querystring("type")%>><tr bgcolor=#ffffff><td align=right colspan=4>
共<font color=red><%=totalput%></font>条，每页<font color=red><%=advertlistnumber%></font>条，第<font color=red><%=currentPage%></font>页，共<font color=red><%=totalPage%></font>页 
<%response.write " 转到：<select name='page' size=1>"
for i=1 to n
response.write "<option value="& i
if currentpage=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
response.write "</select>&nbsp;<input type='submit'  value=' goto '>"
end sub%>
</td></tr></form>
</table>