www.pudn.com > wap-wscs.rar > main.class.asp, change:2015-03-11,size:22139b


<% 
REM 主界面类 
Class main_Class '定义界面类 
private str_nickname  
Private str_lvl 
Private str_ex 
private str_userid 
Private str_isgm 
Private str_indexmsg'首页聊天 
Private str_gl '公聊 
Private str_tip '首页提示 
Private str_bg '玩家包裹 
Private srt_bpid'玩家帮派 
Private srt_plao'玩家疲劳 
Public Sub main()  
'Call echo("<div style=""background:; border-top:1px solid #ccc;line-height:1.5;"">",0) 
'call echo(urlencode("task.asp","任务")&":"&urlencode("task.asp?id=1","领取新手礼包"),0) 
'Call echo("</div>",0) 
Response.Write("<div id=""toutitle""><table><tr><td><img src=""/images/rwtouxiang.jpg""/></td><td>") 
call echo(nickname&"("&lvl&"级)",0) 
If ex>=lvlexp(lvl) Then 
Call echo(urlencode("?action=up","升级"),0) 
Else 
Call echo("",1) 
End If  
call echo("经验:"&ex&"(下一级需要经验:"&lvlexp(lvl)&")",1) 
Call echo("内测阶段欢迎大家",0) 
Call echo(urlencode("/jieshao/liuyan.html","提建议"),0) 
Call echo("</td></tr></table></div>",0) 
If mygoodnum(userid)>=bg Then 
Call echo("你的背包已满,无法获得怪物掉落物品,请及时清理",1) 
End If  
'Call olgive(userid)'获取在线即时礼包 
Call echo("<div style=""line-height:1.5;"">",0) 
Call newmsg(userid) 
Call bangmsg(userid) 
Call echo("</div>",0) 
Call getolgive(userid) 
Call qiandao(userid) 
Call wenhou() 
If ubpvs(bp) Or pbpvs(bp) Then  
Call echo("<img src=""../images/th.gif"">近期有帮战,请做好准备!["&urlencode("../union/bpgrl.asp","帮战大厅")&"]",1) 
End If  
If addingfriend(userid) Then  
Call echo("<div style=""background:#F0F8FF;line-height:1.5;"">",0) 
Call echo("<img src=""../images/msg.gif"">"&urlencode("../user/friend.asp","你有未处理的加友请求!"),1) 
Call echo("</div>",0) 
End If  
If lvl<10 Then  
Call echo("<div style=""background:#FFFAF0;line-height:1.5;"">",0) 
Call echo("<img src=""../images/th.gif"">你现在等级有点低,先来"&urlencode("action/hunt.asp","闯关")&"升升级吧~",1) 
Call echo("</div>",0) 
End If  
If lvl>6 And lvl<11 Then  
Call echo("<div style=""line-height:1.5;"">",0) 
Call echo("竞技场开放,"&urlencode("user/mygood.asp?tp=1","装备")&"一下自己再去挑战吧",1) 
Call echo("</div>",1) 
End If  
 
'if time()>=#03:05:00# And time()<#03:10:00# Then  
'Call echo("<div style=""background:#FFFAF0;border-top:1px solid #ccc; border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
'Call echo("<img src=""../images/tip.gif"">服务器即将进入每日定时重启进程,请注意本条消息发出5分钟内不要进行交易和强化!",1) 
'Call echo("</div>",0) 
'End If  
 
If isdealing(userid) Then  
Call echo("<div style=""background:#F0FFFF;line-height:1.5;"">",0) 
Call echo("<img src=""../images/msg.gif"">"&urlencode("../action/deal.asp","你有未处理的交易请求!"),1) 
Call echo("</div>",0) 
End If  
 
If Not tip Then  
Call tips() 
Else  
Call echo("",1) 
End If  
'If uspl<=0 Then uspl=0 
'If uspl="" Then uspl=0 
If mypl>0 Then  
pltx="<img src=""../images/th.gif"">" 
End If  
Call echo("<div style=""border-top:1px solid #ccc; border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
call echo("[练级]:"&urlencode("../action/fish.asp","钓鱼")&"|"&urlencode("action/hunt.asp","闯关")&"|"&urlencode("action/cop.asp","副本")&"|"&urlencode("action/pl.asp","疲劳")&"("&pltx&mypl&")",1) 
'Call echo("</div>",0) 
'call echo("-=个人管理=-",1) 
'Call echo("<div style=""border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
call echo("[个人]:"&urlencode("user/myfile.asp","属性")&"|"&urlencode("user/mygood.asp","包裹")&"|"&urlencode("union/bp.asp","帮派")&"|"&urlencode("../user/friend.asp","好友"),1) 
'Call echo("</div>",0) 
'call echo("-=江湖商店=-",1) 
'Call echo("<div style=""border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
call echo("[消费]:"&urlencode("shop/equip.asp","商店")&"|"&urlencode("shop/skill.asp","魔法")&"|"&urlencode("shop/sale.asp","当铺")&"|"&urlencode("user/consol.asp","强化"),1) 
'Call echo("</div>",0) 
'call echo("-=高手排行=-",1) 
'Call echo("<div style=""border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
call echo("[玩家]:"&urlencode("rank/rank.asp?act=lvl","级别")&"|"&urlencode("rank/rank.asp?act=fight","武勋")&"|"&urlencode("action/deal.asp","交易")&"|"&urlencode("bbslist.asp","论坛"),1) 
Call echo("</div>",1) 
Call showzcbb()'帮战播报 
If lvl>6 Then  
Call echo("<div class=""title"">",0) 
call echo("竞技广场"&urlencode("../action/pkgrl.asp","更多")&urlencode("index.asp","刷新"),0) 
Call echo("</div>",0) 
Call echo("<div style=""border-top:1px solid #ccc; border-bottom:1px solid #ccc;"">",0) 
Call getpklist(lvl) 
Call echo("</div>",1) 
End If  
Call echo("<div class=""title"">",0) 
Call echo("我的动态",0) 
call echo(urlencode("../user/alldongtai.asp","更多"),0) 
Call echo(urlencode("../user/msg.asp","私聊管理"),0) 
Call echo("</div>",0) 
'call echo("<img src=""../images/th.gif"">我被"&urlencode("user/userinfo.asp","伪装、狠幸福")&"攻击,"&urlencode("user/userinfo.asp","伪装、狠幸福")&"胜利",1) 
'call echo("<img src=""../images/th.gif"">",0) 
Call dongtai(userid) 
Call echo("<div class=""title"">",0) 
call echo("玩家上线",0) 
Call echo("</div>",0) 
Call echo("<div style=""border-bottom:1px solid #ededed;line-height:1.5;"">",0) 
Call chatlist(1,4) 
Call echo("</div>",0) 
Call echo("<div class=""title"">",0) 
call echo("系统公告"&urlencode("../user/alldongtai.asp?acts=all","更多"),0) 
Call echo("</div>",0) 
Call chatlist(1,3) 
Call echo("<div style=""background:#111FFFAF0; border-top:1px solid #ccc; line-height:1.5;"">",0) 
Call chatlist(1,1) 
'Call echo("</div>",0) 
'Call echo("<div style=""color:#ff0000;border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
Call chatlist(1,2) 
Call echo("</div>",0) 
Call echo("<div class=""title"">世界聊天",0) 
Call echo(urlencode("action/chat.asp","更多"),0) 
Call echo(urlencode("../action/chathelp.asp","表情代码"),0) 
Call echo("</div>",0) 
	If indexmsg Then 
Call echo("<div class=""titlenr"">",0) 
	Call chatlist(2,0) 
	If bp>0 Then 
	Call echo("["&urlencode("union/bchat.asp","帮")&"]",0) 
	Call bchatlist(1,bp) 
	End If  
	Call echo("<form name=""chat"" action=""index.asp?act=add&gsid="&gsid&"&t="&t&""" method=""post"" charset=""utf-8"" style=margin:0px;>",0) 
	Call echo("<div class=""inputstyle""><table><tr><td><input name=""content"" type=""text"" id=""liaotian2""/></td>",0) 
	If gl Then  
	Call echo("公聊被禁止",0) 
	Else  
	Call echo("<td><input name=""submit"" type=""submit"" value=""提交"" id=""liaotian"">",0) 
Call echo("</td></tr></table></div>",0) 
Call echo("</div>",0) 
	End If  
		If isgm Then  
		Call echo("<input name=""submit"" type=""submit"" value=""GM喊话"" class=""buttonface"">",0) 
		End If  
	Call echo("</form>",1)	 
	Call echo("["&urlencode("index.asp?act=closeindex","关闭首页聊天")&"]",0) 
	Else  
	Call echo("<div style=""border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
	Call echo("["&urlencode("index.asp?act=openindex","开启首页聊天")&"]",0) 
	Call echo("</div>",0) 
	End If  
Call echo("<div style=""border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
call echo(urlencode("loghelp.asp","书签")&"|<img src=""../images/th.gif"">"&urlencode("support.asp","赞助")&"|"&urlencode("action/safe.asp","密码")&"|<img src=""../images/th.gif"">"&urlencode("/pay/index.asp","充值")&"|"&urlencode("action/downlvl.asp","降级")&"|"&urlencode("action/out.asp","注销")&"|"&urlencode("http://sns.qzone.qq.com/cgi-bin/qzshare/cgi_qzshare_onekey?url="&domain&"&site=手机页游武神传说&title=Hi~我在武神传说里等你挑战哦!&pics=&from=","分享"),1) 
Call echo("</div>",0) 
If isgm Then 
	If getconfig("op") Then  
	Call echo(urlencode("?act=opc","关闭游戏"),0) 
	Else 
	Call echo(urlencode("?act=opo","打开游戏"),0) 
	End If 
	Call echo(urlencode("getads.asp","查看推广")&" "&urlencode("getaduser.asp","推广用户"),1) 
End If  
'Call echo("武神传说玩家QQ群:"&qun&"(加群请注明游戏昵称)",1) 
End Sub  
Public Sub main_2()  
Call echo("<div class=""subtitle"">",0) 
Call echo("游戏介绍",0) 
Call echo("</div>",0) 
Call echo("<div class=""content"">",0) 
Call echo("激情升级,是谁成为一代武神?<br>剑走六合,竞技场上淋漓酣畅。<br>快意恩仇,豪门帮派鼎足而立!<br>好友互动,游戏之旅不能孤单。",0) 
Call echo("</div>",0) 
'call echo("-=个人管理=-",1)  
Call echo("<div class=""subtitle"">",0) 
Call echo("实时动态",0) 
Call echo("</div>",0) 
Call echo("<div class=""content"">",0) 
Call chatlist(2,1) 
Call echo("</div>",0) 
'call echo("-=江湖商店=-",1) 
Call echo("<div class=""subtitle"">",0) 
Call echo("官方动态",0) 
Call echo("</div>",0) 
Call topbbs() 
Call echo("<div class=""subtitle"">",0) 
Call echo("休闲大厅",0) 
Call echo("</div>",0) 
Response.Write("<div=""anniuurl""><a href =""http://app100636148.qzone.qzoneapp.com/loc/shifutu.php"">十幅图</a><br>") 
'call echo("-=高手排行=-",1) 
Call echo("<img src=""/images/cus.png"">",1) 
Call echo(yxname&"由[E点中国]独立打造",1) 
Call echo("*建议使用UC浏览器进行游戏",1) 
End Sub  
 
'/----定义类的属性,该属性是返回该类的作者号  
public property get nickname  
nickname = str_nickname  
end property  
 
public property let nickname(byval value) 
str_nickname = value  
end property  
 
public property get indexmsg 
indexmsg = str_indexmsg 
end property  
 
public property let indexmsg(byval value) 
str_indexmsg = value  
end property  
 
public property get bg 
bg = str_bg 
end property  
 
public property let bg(byval value) 
str_bg = value  
end property  
 
public property get isgm 
isgm = str_isgm 
end property  
 
public property let isgm(byval value) 
str_isgm = value  
end property  
 
public property get bpid 
bpid = str_bpid 
end property  
 
public property let bpid(byval value) 
str_bpid = value  
end property  
 
public property get userid 
userid = str_userid  
end property  
 
public property let userid(byval value) 
str_userid = value  
end property  
 
public property get gl 
gl = str_gl 
end property  
 
public property let gl(byval value) 
str_gl = value  
end property  
 
public property get ex  
ex = str_ex  
end property  
 
public property let ex(byval value) 
str_ex = value  
end property  
 
public property get tip 
tip = str_tip 
end property  
 
public property let tip(byval value) 
str_tip = value  
end property  
 
public property get lvl  
lvl = str_lvl  
end property  
 
public property let lvl(byval value) 
str_lvl = value  
end property  
 
public property let plao(byval value) 
str_plao = value  
end property  
 
public property get plao 
plao = str_plao 
end property  
 
 
 
Sub wenhou() 
if time()>=#00:00:00# And time()<#5:00:00# Then  
Call echo("<div style=""background:#CCFFFF;border-top:1px solid #ccc; border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
Call echo("<img src=""../images/tip.gif"">凌晨了,该休息啦~(当前为游戏疲劳时间,闯关疲劳度加倍,为了您的健康请早点休息)",1) 
Call echo("</div>",0) 
elseif time()>=#7:00:00# and time()<#9:00:00# Then  
Call echo("<div style=""background:#CCFFFF;border-top:1px solid #ccc; border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
Call echo("<img src=""../images/tip.gif"">早上好,新的一天来临了,想好要做什么了吗?",0) 
Call echo("</div>",0) 
Elseif time()>=#12:00:00# And time()<#14:00:00# Then  
Call echo("<div style=""background:#CCFFFF;border-top:1px solid #ccc; border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
Call echo("<img src=""../images/tip.gif"">唔~~今天的太阳貌似好大呀~",0) 
Call echo("</div>",0) 
Elseif time()>=#17:00:00# And time()<#18:00:00# Then  
Call echo("<div style=""background:#CCFFFF;border-top:1px solid #ccc; border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
Call echo("<img src=""../images/tip.gif"">啊呀,看着太阳就下山了~~",0) 
Call echo("</div>",0) 
Elseif time()>=#22:00:00# and time()<#23:00:00# Then  
Call echo("<div style=""background:#CCFFFF;border-top:1px solid #ccc; border-bottom:1px solid #ccc; line-height:1.5;"">",0) 
Call echo("<img src=""../images/tip.gif"">一眨眼就过去了一天,想想今天过得充实吗?",0) 
Call echo("</div>",0) 
end if  
End Sub  
 
Sub qiandao(userid)'签到判断 
		Set rs=server.createobject("adodb.recordset") 
		sql="select * from qiandlist where userid="&userid 
		'Call echo(sql,1) 
		rs.open sql,conn,1,3 
		If Not rs.eof Then 
			If rs("qiantime")=Date() Then '当签到时间和当前时间一样 
			'Call echo("你累计已经签到第"&rs("qiandanum")&"次",1) 
			ElseIf datediff("d",rs("qiantime"),date())=1 Then'当签到时间和今天的时间相差一天 可以签到 
			Call echo("<div style=""border-top:1px solid #ccc; line-height:1.5;"">",0) 
			Call echo("立即"&urlencode("../action/qian.asp?act=get","签到")&"获得第"&(rs("qiandanum")+1)&"个签到礼包!",1) 
			Call echo("</div>",0) 
			ElseIf datediff("d",rs("qiantime"),date())>1 Then '当签到时间和今天的时间相差一天以上 签到回归 
			Call echo("<div style=""border-top:1px solid #ccc; line-height:1.5;"">",0) 
			Call echo("立即"&urlencode("../action/qian.asp?act=get","签到")&"获得第一个签到礼包!",1) 
			Call echo("</div>",0) 
			End If  
		Else 
		Call echo("<div style=""border-top:1px solid #ccc; line-height:1.5;"">",0) 
		Call echo("立即"&urlencode("../action/qian.asp?act=get","签到")&"获得第一个签到礼包!",1) 
		Call echo("</div>",0) 
		End If  
		rs.close 
		Set rs=Nothing  
End Sub  
 
Sub getolgive(userid) 
Set rs=server.createobject("adodb.recordset") 
sql="select * from olgive where give='"&Date()&"' and userid="&userid 
rs.open sql,conn,1,3 
If Not rs.eof Then  
		givetime=int((datediff("s",rs("givetime"),now()))) 
		num=3-rs("givenum") 
		If num>0 Then 
				If givetime>600 Then  
				Call echo("<div class=""zaixianlibao"">",0) 
				call echo("在线礼包:"&urlencode("give.asp","领取"),0) 
				Call echo("</div>",0) 
				Else 
				Call echo("<div style=""background:#FFFACD; line-height:1.5;"">",0) 
				call echo("在线礼包:剩余"&(600-givetime)&"秒",1) 
				Call echo("</div>",0) 
				End If  
		Else 
		'Call echo("<div style=""background:#FFEBCD; border-top:1px solid #ccc;"">",0) 
		'Call echo("今天的在线礼包已经领取完了,明天再来吧",1) 
		'Call echo("</div>",0) 
		End If  
Else 
Call echo("<div class=""zaixianlibao"">",0) 
call echo("在线礼包:"&urlencode("give.asp","领取"),1) 
Call echo("</div>",0) 
End If  
rs.close 
Set rs=Nothing  
End Sub  
 
Sub getpklist(lvl) 
'第一条 等级+1的玩家 
		Randomize 
		Set rs=server.createobject("adodb.recordset") 
		sql="select top 5 * from jhuser where userid<>"&userid&" and lvl>1 and lvl<="&(lvl+10)&" and lvl>="&(lvl-6)&" order by newid(),lvl desc"  
		'Call echo(sql,1) 
		rs.open sql,conn,1,3 
		i=1 
		If Not rs.eof Then  
		Do while Not rs.eof 
		'Call echo("<!--"&getpkwl(userid,rs("userid"))&"-->",0) 
		Call echo(i&"."&urlencode("../user/userinfo.asp?id="&rs("userid"),rs("nickname"))&"("&rs("lvl")&"级)["&urlencode("../action/fight.asp?id="&rs("userid"),"挑战")&"]"&(getpkwl(userid,rs("userid"))),1) 
		i=i+1 
		Rs.MoveNext 
		Loop  
		pklist=1 
		End If  
		rs.close 
		Set rs=Nothing  
'第一条结束 
'sql="select top 10 * from TableName order by newid()"  
'第二条 等级相同的玩家 
		'Randomize 
		'Set rs=server.createobject("adodb.recordset") 
		'sql="select top 3 * from jhuser where userid<>"&userid&" and lvl>="&lvl&" order by newid()"  
		'Call echo(sql,1) 
		'rs.open sql,conn,1,3 
		'If Not rs.eof Then  
		'Do while Not rs.eof 
		'Call echo(urlencode("../user/userinfo.asp?id="&rs("userid"),rs("nickname"))&"("&rs("lvl")&"级)["&urlencode("../action/fight.asp?id="&rs("userid"),"挑战")&"]",1) 
		'Rs.MoveNext 
		'Loop 
		'pklist=1 
		'End If  
		'rs.close 
		'Set rs=Nothing 
'第二条结束 
'第三条 等级-1的玩家 
		'Randomize 
		'Set rs=server.createobject("adodb.recordset") 
		'sql="select top 2 * from jhuser where userid<>"&userid&" and lvl>="&lvl-1&" order by newid()"  
		'Call echo(sql,1) 
		'rs.open sql,conn,1,3 
		'If Not rs.eof Then  
		'Do while Not rs.eof 
		'Call echo(urlencode("../user/userinfo.asp?id="&rs("userid"),rs("nickname"))&"("&rs("lvl")&"级)["&urlencode("../action/fight.asp?id="&rs("userid"),"挑战")&"]",1) 
		'Rs.MoveNext 
		'Loop 
		'pklist=1 
		'End If  
		'rs.close 
		'Set rs=Nothing 
'第三条结束 
If pklist<>1 Then  
Call echo("暂时没有合适的对手,是不是你的等级太特殊了?",1) 
End If  
End Sub  
 
Sub showzcbb()'展示帮战播报 
if time()>=#22:00:00# And time()<#23:00:00# Then  
	Randomize 
	Set rs=server.createobject("adodb.recordset") 
	dtime=now() 
	sql="select top 2 * from bangvs where res=0 and fightime<='"&dtime&"' order by newid() desc" 
	Call echo("<!--"&sql&"-->",0) 
	rs.open sql,conn,1,2 
	If Not rs.eof Then  
	Do While Not rs.eof 
	vsid=rs("id") 
	Call echo("【"&bpinfo(rs("ubid"),"bname")&"】",0) 
			If godhp(rs("ubid"),rs("id"))<>"err" Then 
			Call echo("("&godhp(rs("ubid"),rs("id"))&")",0) 
			Else  
			mybplvl=bpinfo(rs("ubid"),"blvl") 
			mybphp=mybplvl*23510 
			Call echo("("&mybphp&")",0) 
			End If  
	Call echo("VS 【"&bpinfo(rs("pbid"),"bname")&"】",0) 
			If godhp(rs("pbid"),rs("id"))<>"err" Then 
			Call echo("("&godhp(rs("pbid"),rs("id"))&")",1) 
			Else  
			mybplvl=bpinfo(rs("pbid"),"blvl") 
			mybphp=mybplvl*23510 
			Call echo("("&mybphp&")",1) 
			End If  
			Call bzdt(vsid) 
	rs.movenext 
	Loop  
	End If  
	rs.close 
	Set rs=Nothing 
End If  
End Sub  
 
Sub bzdt(vsid) 
			Set rs=server.createobject("adodb.recordset") 
			sql="select * from zcbb where vsid="&vsid&" order by id desc" 
			rs.open sql,conn,1,3 
			If Not rs.eof Then  
			If rs("wid")=rs("uid") Then  
			Call echo("<img src=""../images/th.gif"">"&getinfo(rs("pid"),"nickname")&"被"&getinfo(rs("uid"),"nickname")&"击杀了!",1) 
			Else  
			Call echo("<img src=""../images/th.gif"">"&getinfo(rs("uid"),"nickname")&"被"&getinfo(rs("pid"),"nickname")&"击杀了!",1) 
			End If  
			End If  
			rs.close 
			Set rs=Nothing 
End Sub  
 
Sub newmsg(userid) 
Set rs=server.createobject("adodb.recordset") 
sql="select * from msg where reads=0 and userid="&userid&" order by id desc" 
rs.open sql,conn,1,3 
If Not rs.eof Then  
Call echo("<img src=""../images/msg.gif"">你有一条新的私聊信息 "&urlencode("../user/msg.asp","读取"),1) 
End If  
rs.close 
Set rs=Nothing  
End Sub  
 
Sub bangmsg(userid) 
Set rs=createobject("adodb.recordset") 
sql="select uid from bangmsg where types=1 and userid="&userid 
rs.open sql,conn,1,3 
If Not rs.eof Then  
Call echo("<img src=""../images/msg.gif"">"&getinfo(rs("uid"),"nickname")&"申请加入你的帮派 "&urlencode("union/bp.asp?act=bmg","查看"),1) 
End If  
rs.close 
Set rs=Nothing 
End Sub  
 
Function getpkwl(userid,uid)'获取上次战斗结果 
Set rs=server.createobject("adodb.recordset") 
sql="select * from pklist where pid="&userid&" and uid="&uid&" and pktime='"&Date()&"' order by id desc" 
'Call echo("<!--"&sql&"-->",0) 
rs.open sql,conn,1,3 
If Not rs.eof Then  
	If rs("winer")=userid Then  
	getpkwl="<img src=../images/win.jpg>" 
	Else 
	getpkwl="<img src=../images/lost.jpg>" 
	End If  
Else 
getpkwl="" 
End If  
rs.close 
Set rs=Nothing  
End Function  
 
Sub tips() 
Randomize '放置一个随机种子 
max=100 
min=1 
mode=Int((max-min+1)*Rnd+min) 
If mode<=10 Then  
Call echo("<img src=""../images/th.gif"">热血江湖祝你游戏愉快,发现BUG可以"&urlencode("../action/chat.asp","提交")&"GM~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
ElseIf mode>10 And mode<=20 Then  
Call echo("<img src=""../images/th.gif"">竞技可以获得武勋,武勋可以"&urlencode("../shop/equip.asp?types=wx","兑换")&"武勋装备和武勋道具~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
ElseIf mode>20 And mode<=30 Then  
Call echo("<img src=""../images/th.gif"">多看看"&urlencode("../rank/rank.asp?act=lvl","排行榜")&",了解自己的实力~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
ElseIf mode>30 And mode<=40 Then  
Call echo("<img src=""../images/th.gif"">成功击杀"&urlencode("../action/cop.asp","副本")&"怪物有几率获得装备礼包~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
ElseIf mode>40 And mode<=50 Then  
Call echo(urlencode("../shop/skill.asp","购买buff")&"可以让你在竞技和打怪中获得更强大的战斗力~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
ElseIf mode>50 And mode<=60 Then 
Call echo("<img src=""../images/th.gif"">当你得到了强化材料时,千万别忘了要"&urlencode("../user/consol.asp","强化")&"~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
ElseIf mode>60 And mode<=70 Then  
Call echo("<img src=""../images/th.gif"">及时"&urlencode("../shop/sale.asp","清理")&"包裹里的东西,还可以获得不错的金币~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
ElseIf mode>70 And mode<=80 Then  
Call echo("<img src=""../images/th.gif"">"&urlencode("../user/log.asp","书签")&"可以让你在下次登录时不需要再次填写帐号和密码~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
Else 
Call echo("<img src=""../images/th.gif"">"&urlencode("action/hunt.asp","闯关")&"可以获得金币和经验,还会掉落强化材料~",0) 
	If lvl>10 Then  
	Call echo(urlencode("?act=deltip","关闭"),1) 
	End If  
End If  
End Sub  
 
Function addingfriend(userid)'获取未处理的交友信息 
Set rs=server.createobject("adodb.recordset") 
sql="select * from friend where pid="&userid&" and types=1" 
rs.open sql,conn,1,3 
If Not rs.eof Then  
addingfriend=1 
else 
addingfriend=0 
End If  
rs.close 
Set rs=Nothing 
End Function  
 
End Class 
%>