<!--#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*500 then call error("您的龙币不足，所以不能进行此次操作~~~")
                sql="update users set myjb=myjb-"& sl*500 &",cwqg=cwqg+"& sl*70 &",cwxq=cwxq+"& sl*70 &"  where [id] ="&myid 
			conn.execute sql
	msg="主人会不会太花钱了啊<br/>宠物情感.心情上升"& sl*70 &"<br/>宠物财富:下降"& sl*500 &""          
            case "gt"
            if myjb<sl*1500 then call error("您的龙币不足，所以不能进行此次操作~~~")  
           	      sql="update users set myjb=myjb-"& sl*1500 &",cwxq=cwxq+"& sl*260 &",cwqg=cwqg+"& sl*260 &"  where [id] ="&myid
			conn.execute sql
		msg="主人会不会太花钱了啊<br/>宠物情感.心情上升"& sl*260 &"<br/>宠物财富:下降"& sl*1500 &""
		case "xnj"
            if myjb<sl*3000 then call error("您的龙币不足，所以不能进行此次操作~~~")  
           	      sql="update users set myjb=myjb-"& sl*3000 &",cwxq=cwxq+"& sl*580 &",cwqg=cwqg+"& sl*580 &"  where [id] ="&myid
			conn.execute sql
			msg="主人会不会太花钱了啊<br/>宠物情感.心情上升"& sl*580 &"<br/>宠物财富:下降"& sl*3000 &""
		case "lhr"               
               if myjb<sl*5000 then call error("您的龙币不足，所以不能进行此次操作~~~")
			sql="update users set myjb=myjb-"& sl*5000 &",cwxq=cwxq+"& sl*820 &",cwqg=cwqg+"& sl*820 &"  where [id] ="&myid
			conn.execute sql
			msg="主人会不会太花钱了啊<br/>宠物情感.心情上升"& sl*820 &"<br/>宠物财富:下降"& sl*5000 &""
		case "hzj"               
                  if myjb<sl*10000 then call error("您的龙币不足，所以不能进行此次操作~~~")
			sql="update users set myjb=myjb-"& sl*10000 &",cwxq=cwxq+"& sl*1700 &",cwqg=cwqg+"& sl*1700 &"  where [id] ="&myid
			conn.execute sql
			msg="主人会不会太花钱了啊<br/>宠物情感.心情上升"& sl*1700 &"<br/>宠物财富:下降"& sl*10000 &""		              
		end select
response.write msg
end if
	conn.close
	set rs=nothing
	set conn=nothing
%>
<br/>--------<br/><a href='indexcw.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>喂食</a>-
<a href='cwxy.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()%>
