<!--#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<10000 then response.redirect"/bbs/cw/1.asp?sid="&sid&"&saytk="&saytk&""
                sql="update users set myjb=myjb-"& sl*10000 &",cw=0,cwzs=100,cwrq=100,cwsm=100,cwxq=100,cwqg=100,cwzt=0  where [id] ="&myid 
			conn.execute sql
	msg="您的宠物已经成功被您遗弃,动物保护协会请你善待您的宠物；并给予宠物主人罚款10000"&getcent&"作为处罚。"          
            		              
		end select
response.write msg
end if
	conn.close
	set rs=nothing
	set conn=nothing
%><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()%>