<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%Call head()
Call saycarda("宠物进食")

dim lx,sl,msg

lx=request.form("lx")
sl=request.form("sl")


if pz=0 then
response.write"你暂时还没有领养宠物哦`~"
else
	select case lx
	     case "rou"	                        
            if myjb<sl*200 then  call error("您的龙币不足，所以不能进行此次操作~~~")
                sql="update users set myjb=myjb-"& sl*200 &",cwsm=cwsm+"& sl*25 &"  where [id] ="&myid 
			conn.execute sql

			msg="好饱啊!<br/>宠物生命:上升"& sl*25 &"<br/>宠物财富:下降"& sl*200 &""          
            case "gt"
            if myjb<sl*300 then call error("您的龙币不足，所以不能进行此次操作~~~")  
           	      sql="update users set myjb=myjb-"& sl*300 &",cwrq=cwrq+"& sl*25 &"  where [id] ="&myid
			conn.execute sql

			msg="好饱啊!<br/>宠物健康:上升"& sl*25 &"<br/>宠物财富:下降"& sl*300 &""
		case "xnj"
            	 if myjb<sl*200 then call error("您的龙币不足，所以不能进行此次操作~~~")   
                      sql="update users set myjb=myjb-"& sl*200 &",cwqg=cwqg+"& sl*20 &"  where [id] ="&myid
			conn.execute sql

			msg="好饱啊!<br/>宠物情感:上升"& sl*20 &"<br/>宠物财富:下降"& sl*200 &""
		case "xz"               
               if myjb<sl*200 then call error("您的龙币不足，所以不能进行此次操作~~~")
			sql="update users set myjb=myjb-"& sl*200 &",cwxq=cwxq+"& sl*25 &"  where [id] ="&myid
			conn.execute sql
			msg="好饱啊!<br/>宠物心情:上升"& sl*25 &"<br/>宠物财富:下降"& sl*200 &""
		case "lhr"               
                  if myjb<sl*800 then call error("您的龙币不足，所以不能进行此次操作~~~")
			sql="update users set myjb=myjb-"& sl*800 &",cwsm=cwsm+"& sl*150 &"  where [id] ="&myid
			conn.execute sql
			msg="好饱啊!<br/>宠物生命:上升"& sl*150 &"<br/>宠物财富:下降"& sl*800 &""
		case "hzj"
                 if myjb<sl*360 then call error("您的龙币不足，所以不能进行此次操作~~~")
               		sql="update users set myjb=myjb-"& sl*1500 &",cwsm=cwsm+"& sl*360 &"  where [id] ="&myid
			conn.execute sql
			msg="好饱啊!<br/>宠物生命:上升"& sl*360 &"<br/>宠物财富:下降"& sl*1500 &""
		case "bhp"                
                if myjb<sl*250 then call error("您的龙币不足，所以不能进行此次操作~~~")
			sql="update users set myjb=myjb-"& sl*250 &",cwrq=cwrq+"& sl*50 &"  where [id] ="&myid
			conn.execute sql
			msg="好饱啊!<br/>宠物健康:上升"& sl*50 &"<br/>宠物财富:下降"& sl*250 &""
		case "hss"              
                if myjb<sl*3000 then call error("您的龙币不足，所以不能进行此次操作~~~")
			sql="update users set myjb=myjb-"& sl*3000 &",cwsm=cwsm+"& sl*760 &"  where [id] ="&myid
			conn.execute sql
			msg="好饱啊!<br/>宠物生命:上升"& sl*760 &"<br/>宠物财富:下降"& sl*3000 &""  



		case "gao"              
                if myjb<sl*5000 then call error("您的龙币不足，所以不能进行此次操作~~~")
                      sql="update users set myjb=myjb-"& sl*5000 &",cwqg=cwqg+"& sl*1300 &"  where [id] ="&myid
			conn.execute sql
			msg="好饱啊!主人你真好..<br/>宠物情感:上升"& sl*1300 &"<br/>宠物财富:-s"& sl*5000 &"" 


              
		end select
response.write msg
end if
	conn.close
	set rs=nothing
	set conn=nothing
%>
<br/>--------<br/><a href='/bbs/cw/indexcw.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>继续喂食>></a><br/>
<a href='index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>宠物</a>-<a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区</a>-<a href='/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>首页</a>







<%Call headsay()%>