searchfreeshop.asp

实用的拍卖源码。适合个人建站学习使用。仅供学习参考

<%
if rst("flag")=1 then
	response.redirect "searchfreeshop.asp?shopname='"&rst("shopname")&"'"
	response.end
end if
call chk2(rst("shopname"))
%>
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="head.asp" -->
<!--#include file="perpage.asp"-->
<br>
<center><font size=2><a href="searchfreeshop.asp">免费商店</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href="searchshop.asp">收费商店</a></font></center>
<center>

<%
 Set mypage=new xdownpage   '创建对象
 mypage.getconn=conn    '得到数据库连接
if rst("shopname")="" then
 mypage.getsql="select * from shops where shopflag=0 order by shopmoli desc"
else
 mypage.getsql="select * from shops where shopflag=0 and shopname like '%" &rst("shopname")& "%' order by shopmoli desc"
end if
 mypage.pagesize=jsperpage   '设置每一页的记录条数据为5条
 set rsshop=mypage.getrs()    '返回Recordset

if rsshop.eof then
if rst("shopname")="" then
 response.write"<center><br><font class=fred>还没有用户申请免费商店！</font></center>"
else
 response.write"<center><br><font class=fred>没有找些此商店，请重新查找！</font></center>"
end if
else
%>

<table align=center cellpadding=0 cellspacing=1 width=90% border=0 class=table1px bgcolor=#dfdfdf>
<tr><td width=5% align=center class=titletd>状态</td><td width=5% align=center bgcolor=#efefef>商店ID</td><td align=center bgcolor=#efefef>商店名称</td><td align=center bgcolor=#efefef>商店描述</td><td align=center bgcolor=#efefef>收费状态</td></tr>
<%
 for i=1 to mypage.pagesize    '接下来的操作就和操作一个普通Recordset对象一样操作
  if not rsshop.eof then   '这个标记是为了防止最后一页的溢出
dim content
content=rsshop("shopinfo")
if len(content)>22 then
	content=left(content,20)&"..."
end if
%>
<tr><td width=5% align=center class=td>
	<div id="Layer1" style="position:relative; left:0px; top:0px; z-index:2; width: 0; height: 0;"> 
<% if rsshop("shopmoli")=shopml*5 then %> <img src="images/5star.gif"> 
<% elseif rsshop("shopmoli")>=shopml*4 then %> <img src="images/4star.gif">
<% elseif rsshop("shopmoli")=shopml*3 then %> <img src="images/3star.gif">
<% elseif rsshop("shopmoli")=shopml*2 then %> <img src="images/2star.gif">
<% elseif rsshop("shopmoli")=shopml*1 then %> <img src="images/1star.gif">
<% elseif rsshop("shopclick")>100 then %> <img src="images/hotshop.gif">
<% else %> <img src="images/0star.gif">
<% end if%>
	</div>
</td><td width=10% align=center bgcolor=#ffffff><%=rsshop("shopid")%></td><td align=center bgcolor=#ffffff><a href=usershop.asp?sid=<%=rsshop("shopid")%>><%=rsshop("shopname")%></a></td><td align=center bgcolor=#ffffff><%=content%></td><td align=center bgcolor=#ffffff><% if rsshop("shopflag")=0 then response.write "免费" else response.write "收费" end if%></td></tr>
<%
rsshop.movenext
  else
   exit for
  end if
 next
%>
</table>
<center><font class=td><% mypage.showpage() %></font></center>
<%
end if
rsshop.close
set rsshop=nothing

%>
</center>
<!--#include file="bottom.asp"-->