www.pudn.com > wap-wscs.rar > downlvl.asp, change:2014-08-10,size:1569b


<!--#include file="conn.asp"--> 
<% 
act=request.querystring("act") 
nejb=5000'设置金币 
Call myhead("人物降级") 
Call echo("<div style=""background:#FFFACD; border-top:1px solid #ccc; border-bottom:1px solid #ccc;"">",0) 
Call echo("自己的等级太高无法杀人,很不爽?",1) 
Call echo("只要花费"&nejb&"金币即可降低自己的等级了",1) 
Call echo("*注意:降级之后BUFF效果会消失,现有的经验会归0,装备会自动卸下",1) 
Call echo("</div>",0) 
If act="down" Then  
	Set usinfo=New userinfo 
	userid=usinfo.usinfo(gsid,"userid")'玩家自己的ID 
	uslvl=usinfo.usinfo(gsid,"lvl")'玩家当前等级 
	myjb=usinfo.usinfo(gsid,"jb") 
	Set usinfo=Nothing 
		If myjb>=nejb Then  
		Call chinfo(userid,"lvl",(uslvl-1)) 
		Call chinfo(userid,"jb",(myjb-nejb)) 
		Call chinfo(userid,"myexp",0) 
		Call chinfo(userid,"wq",0) 
		Call chinfo(userid,"yf",0) 
		Call chinfo(userid,"xz",0) 
		Call chinfo(userid,"tk",0) 
		Call chinfo(userid,"fq",0) 
		conn.execute "delete from bufflist where userid="&userid 
		Call echo("降级成功!",1) 
		Else 
		Call echo("金币不足!",1) 
		End If  
End If  
				Set usinfo=New userinfo 
				uslvl=usinfo.usinfo(gsid,"lvl")'玩家当前等级 
				Set usinfo=Nothing  
Call echo("你现在的等级是:"&uslvl&"级",1) 
Call echo("<div style=""border-top:1px solid #ccc; line-height:1.5;border-bottom:1px solid #ccc;"">",0) 
Call echo(urlencode("?act=down","降一级")&"(花费"&nejb&"金币)",1) 
Call echo("</div>",0) 
Call echo(urlencode("../index.asp","返回首页"),1) 
Call myend() 
%>