📄 ad.asp
字号:
<!--#include file="head.asp"-->
<!-- 这里是主题 -->
<%
dim sql,rs,thepage,currentpage,totalpage,n,pagename,page
sql="select * from data where mark='yes' and stop >= date() order by top desc,money desc,time desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if rs.eof then
response.write "<p align='center'><font color='#FF0000'>暂无文字广告！</font></p>"
rs.close
set rs=nothing
else
thepage=request("pageid")
if isnumeric(thepage)=false then
response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
response.end
end if
currentpage = cint(thepage)
if currentpage <= 0 then
currentpage=1
end if
const maxperpage=40
rs.Pagesize = maxperpage
totalpage = rs.PageCount
rs.absolutepage = currentpage
n=rs.recordcount
pagename="ad.asp"
page = PageSplit(currentpage,totalpage,pagename)
%>
<TABLE WIDTH=760 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center">
<TR>
<td width="100%" height="30" style="BORDER-RIGHT: #91b9dd 1px dotted; BORDER-TOP: #91b9dd 1px dotted; BORDER-LEFT: #91b9dd 1px dotted; BORDER-BOTTOM: #91b9dd 1px dotted" bgColor="#e6faff" colspan="4">
<p align="center"><a href="ad.asp"><font style="font-size:14px" color="#0000BF">全部广告</font></a> 页次：<b><%=currentpage%>/<% =totalpage%></b> 每页<b><%=maxperpage%></b>条 共刊登<b><%=n%></b>条广告 <% response.write page %>
</td>
</tr>
<TR>
<%
i=0
do while i < maxperpage and not rs.eof
%>
<td width="25%">
<table border="0" width="100%" cellpadding="1" cellspacing="2">
<tr> <td width="100%" height="24" style="BORDER-RIGHT: #718289 1px dotted; BORDER-TOP: #718289 1px dotted; BORDER-LEFT: #718289 1px dotted; BORDER-BOTTOM: #718289 1px dotted" bgColor="#718289"> <p align="center">
<% if rs("cu")="yes" then %>
<b><font style="font-size:14px" <% if rs("color")<>"" then %>color="<%=rs("color")%>"<% end if %>><%=rs("title")%></font></b><% else %><font style="font-size:14px" <% if rs("color")<>"" then %>color="<%=rs("color")%>"<% end if %>><%=rs("title")%></font><% end if %>
</td>
</tr>
<tr>
<td width="100%" height="127" valign="top" style="BORDER-RIGHT: #718289 1px dotted; BORDER-TOP: #718289 1px dotted; BORDER-LEFT: #718289 1px dotted; BORDER-BOTTOM: #718289 1px dotted">
<% if rs("ispic")<>"yes" then %>
<div align="center">
<center>
<% if rs("bgcolor1")<>"" then %>
<table border="1" width="100%" cellspacing="0" cellpadding="2" bordercolor="<%=rs("bgcolor1")%>">
<% else %>
<table border="0" width="93%" cellspacing="0" cellpadding="0">
<% end if %>
<tr>
<td width="100%">
<p style="margin-top: 2"><%=rs("text")%></td>
</tr>
</table>
</center>
</div>
<% else %>
<p style="margin-top: 0; margin-bottom: 0" align="center"><% if rs("url")<>"" and rs("url")<>"http://" then %><a href="<%=rs("url")%>" target="_blank"><img src="<%=rs("pic")%>" border="0" width="170" height="119"></a><% else %><img src="<%=rs("pic")%>" border="0" width="170" height="119"><% end if %>
<% end if %>
</td>
</tr>
<tr>
<td width="100%" style="BORDER-RIGHT: #92dcb9 1px dotted; BORDER-TOP: #92dcb9 1px dotted; BORDER-LEFT: #92dcb9 1px dotted; BORDER-BOTTOM: #92dcb9 1px dotted">
<p align="center"><font color="#FF0000">发布时间:</font> <font color="#008000"><%=rs("date")%></font> <br>
<p align="center"><% if rs("top")="1" then %><font color="#FF0000">固顶广告</font> <font color="#008000">有效期还有<%=datediff("d",date(),rs("stop"))%>天</font><% else %><% if rs("money")<>"0" then %><img src="images/dot.gif"> <font color="#FF6600">竞价广告</font> <font color="#008000">有效期还有<%=datediff("d",date(),rs("stop"))%>天</font><% else %><font color="#008000">↑有效期还有<%=datediff("d",date(),rs("stop"))%>天↑</font><% end if %><% end if %>
</td>
</tr>
</table>
<%
i=i+1
if i mod 4=0 then
response.write "</tr><tr>"
end if
rs.movenext
loop
if (n mod 4) <> 0 and not i mod maxperpage = 0 Then
for i = 1 to (4 - (n mod 4))
%>
<td width="25%">
<table border="0" width="100%" cellpadding="1" cellspacing="2">
<tr>
<td width="100%" height="24" style="BORDER-RIGHT: #718289 1px dotted; BORDER-TOP: #718289 1px dotted; BORDER-LEFT: #718289 1px dotted; BORDER-BOTTOM: #718289 1px dotted" bgColor="#718289"> <p align="center"><b><font style="font-size:14px" ><font color="#FFFFFF">分类广告 针对性强</font></font></b></td>
</tr>
<tr>
<td width="100%" height="127" valign="top" style="BORDER-RIGHT: #718289 1px dotted; BORDER-TOP: #718289 1px dotted; BORDER-LEFT: #718289 1px dotted; BORDER-BOTTOM: #718289 1px dotted"> <div align="center"><center>
<table border="0" width="93%" cellspacing="0" cellpadding="0"> <tr>
<td width="100%"> <p style="margin-top: 2" align="center"><font color="red">茫茫商海何处有生意<br><br>
分类广告处处是商机</font><br></br>
本栏目诚征各类供求广告</td>
</tr>
</table>
</center></div>
</td>
</tr>
<tr>
<td width="100%" style="BORDER-RIGHT: #92dcb9 1px dotted; BORDER-TOP: #92dcb9 1px dotted; BORDER-LEFT: #92dcb9 1px dotted; BORDER-BOTTOM: #92dcb9 1px dotted">
<p align="center"><font color="#008000">http://www.buyes.net</font> <br>
<p align="center"><font color="#FF0000">本站广告</font> <font color="#008000">有效期还有365天</font>
</td>
</tr>
</table></td>
<%
next
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</tr>
</table>
<TABLE WIDTH=760 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center">
<TR>
<td width="100%" height="30" style="BORDER-RIGHT: #91b9dd 1px dotted; BORDER-TOP: #91b9dd 1px dotted; BORDER-LEFT: #91b9dd 1px dotted; BORDER-BOTTOM: #91b9dd 1px dotted" bgColor="#e6faff" colspan="4">
<p align="center"><a href="ad.asp"><font style="font-size:14px" color="#0000BF">全部广告</font></a> 页次：<b><%=currentpage%>/<% =totalpage%></b> 每页<b><%=maxperpage%></b>条 共刊登<b><%=n%></b>条广告 <% response.write page %>
</td>
</tr>
<tr><td>
<table border="0" width="760" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align=center>
<tr>
<td width="50" height="27" align="center"><a href="ad.asp"><font style="font-size:14px" color="#0000BF">全部</font></a></td>
<%
sql="select * from type"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if rs.eof then
response.write "<p align='center'><font color='#FF0000'>暂无文字广告！</font></p>"
rs.close
set rs=nothing
else
i=0
do while not rs.eof
%>
<td width="51" height="27" align="center"><a href="type.asp?name=<%=rs("name")%>"><font style="font-size:14px" color="#0000BF"><%=rs("name")%></font></a>
</td>
<%
i=i+1
if i mod 14=0 then
response.write "</tr><tr>"
end if
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
<td width="101" height="27" align="center" colspan="2"><a href="fabu.asp" target="_blank"><font style="font-size:14px" color="#FF0000">※我要发布※</font></a></td>
</tr>
</table>
</td></tr>
<tr>
<td>
<form action="search.asp" method="post" name="search">
<p align="center"><input maxLength="20" name="keyword" onfocus="this.value=''" size="25" value="<% if name<>"" then %><%=name%><% else %>请输入搜索关键字<% end if %>">
<select size="1" name="item">
<% if theitem ="" then %>
<option selected value="全部">全部</option>
<% else %>
<option selected value="<%=theitem%>"><%=theitem%></option>
<option value="全部">全部</option>
<% end if %>
<option value="求租">求租</option>
<option value="招租">招租</option>
<option value="求购">求购</option>
<option value="出售">出售</option>
<option value="转让">转让</option>
<option value="求职">求职</option>
<option value="招聘">招聘</option>
<option value="招生">招生</option>
<option value="培训">培训</option>
<option value="家教">家教</option>
<option value="家政">家政</option>
<option value="运输">运输</option>
<option value="搬迁">搬迁</option>
<option value="维修">维修</option>
<option value="装修">装修</option>
<option value="礼仪">礼仪</option>
<option value="翻译">翻译</option>
<option value="医疗">医疗</option>
<option value="征婚">征婚</option>
<option value="旅游">旅游</option>
<option value="娱乐">娱乐</option>
<option value="招商">招商</option>
<option value="代理">代理</option>
<option value="合作">合作</option>
<option value="声明">声明</option>
<option value="启事">启事</option>
<option value="其它">其它</option>
</select>
<input type="submit" value="搜索" style="font-size: 12px" name="search">
</form></td>
</tr> </table>
<% end if %>
<!-- 这里是主题结束 -->
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -