indexsheep.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!--#include file="connsheep.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="sheepconfig.asp"-->
<!-- #include file="inc/DvADChar.asp" -->
<%
Response.Buffer=True 
Dvbbs.stats="农场首页"
Dvbbs.Nav()
Dvbbs.Head_var 2,0,"",""
'session("username")=request.cookies("aspsky")("username")
%>
<%
call cover()
sub cover()
dim username
username=dvbbs.membername
if username=""  then
response.redirect"login.asp"
else
end if
%>
 
<div align="center">
  <center>
<%call sheephead()
%>
						 <table class=tableborder1 cellspacing=1 cellpadding=3 align=center>
						 <tr>
						 <td class="tablebody1" height="25" width="100%">农场主敬告：本农场引进了各种宠物一批，欢迎各位热心人士领养，领养需要一定手续费用，领养期间本农场提供<font color="#FF0000">配套饲料、产品回收</font>等一条龙服务，本农场背后有财力雄厚的世界银行作为经济后盾，一贯坚持信誉第一的原则，大家无需有后顾之忧。农场主特别提醒大家：<font color="#FF0000">领养宠物后必须细心照料，如果由于领养人的责任造成您自身的经济损失农场概不负责，本农场宠物一经售出概不退货。另：</font>本农场拥有技术精湛的兽医，可以令垂死的宠物起死回生，但因本农场不提供免费保修的服务，故兽医每次出诊均收取一定费用(具体数量与宠物种类有关)。<br> 以下是本农场现有的各种宠物资料，请根据您自己的实际情况领养吧：
						 </td>
						 </tr>
						 </table>
						<table cellspacing=1 cellpadding=5 align=center class=tableborder1 width="100%">
							<tr align=center>
							<th width=8% height=25>宠物名</td>
							<th width=9% height=25>进货数</td>
							<th width=6% height=25>售价</td>
							<th width=8% height=25>已领养</td>
							<th width=8% height=25>剩余</td>
							<th width=9% height=25>食物</td>
							<th width=8% height=25>喂食费</td>
							<th width=8% height=25>洗澡费</td>
							<th width=8% height=25>太阳费</td>
							<th width=8% height=25>陪伴费</td>
							<th width=9% height=25>产品名</td>
							<th width=10% height=25>产品价钱</td>
							</tr>
           								<%
										dim tempcount,sumtype,typecursor,milkname,milkprice
										sumtype=""
										set rs=nothing'提取各种动物名称
										set rs=server.createobject("adodb.recordset")
										rs.open"select * from rules where id>0",conn1,1,1
										while not rs.eof
											if sumtype="" then
												sumtype=rs("type")
											else
												sumtype=sumtype&"|"&rs("type")
											end if
										rs.movenext
										wend
										sumtype=split(sumtype,"|")'提取完毕
										for typecursor=0 to UBound(sumtype)
											set rs=nothing
											set rs=server.createobject("adodb.recordset")
											rs.open"select * from sheep where not username='待领养' and type='"&sumtype(typecursor)&"'",conn1,1,1
											if rs.bof then
												tempcount=0
											else
												tempcount=rs.recordcount
											end if'计算完毕,数量保存在tempcount
											set rs=nothing
											set rs=server.createobject("adodb.recordset")
											rs.open"select * from rules where type='"&sumtype(typecursor)&"'",conn1,1,1
											milkname=rs("milkname")
											milkprice=cstr(rs("milkprice"))
											if len(trim(milkname))=0 or IsNull(milkname) then
												milkname="仅供观赏"
												milkprice="-"
											end if%>
                                    <tr>
									<td class=tablebody1 ><%=rs("type")%></td>
									<td class=tablebody1 ><%=rs("sumcount")%></td>
									<td class=tablebody1><%=rs("buyprice")%></td>
									<td class=tablebody1><%=tempcount%></td>
									<td class=tablebody1><%=rs("sumcount")-tempcount%></td>
									<td class=tablebody1 ><%=rs("eatname")%></td>
									<td class=tablebody1 ><%=rs("eatdel")%></td>
									<td class=tablebody1 ><%=rs("cleandel")%></td>
									<td class=tablebody1><%=rs("sundel")%></td>
									<td class=tablebody1 ><%=rs("peidel")%></td>
									<td class=tablebody1 ><%=milkname%></td>
									<td class=tablebody1><%=milkprice%></td>
									</tr>
	                            			<%next%> 
                                  </table>
     <table class=tableborder1 cellspacing=1 cellpadding=3 align=center>
	 <tr>
	 <td class="tablebody1" height="25" width="100%"><font color="#FF0000">请办理领养手续：</font></td>
	 </tr>
	 <tr>
	 <td class="TopLighNav1" height="25" width="100%"><img src=skins/default/Forum_nav.gif>-为小家伙取一个好听的名字吧：</td>
	 </tr>
	 <tr>
	 <td class="tablebody1" height="25" width="100%">
	 <form method="POST" action="buysheep.asp">
	     种类：
		 <select size=1 name=sheeptype>
		 <%for typecursor=0 to UBound(sumtype)%>
		 <option value=<%=sumtype(typecursor)%> ><%=sumtype(typecursor)%></option><%next%>
		 </select> 呢称：
	 <input  class=input type="text" name="sheepname" size="33" style="font-family: 宋体; font-size: 12px">
		 <input class=input type="submit" value="领养" name="B1" style="font-family: 宋体; font-size: 12px">
	 </form>
	 </td>
	 </tr>
	 </table>
  </center>
</div>
<%
end sub
Dvbbs.Footer
%>