<%

dim eddi,experience,sql,userlife,money,ForumWidth,TableFontcolor,tablebodycolor,TableContentcolor
 if username="" then
		money=0
	else
	Set rs = Server.CreateObject("ADODB.Recordset")
		sql="select * from [user] where username='"&Request.Cookies("username")&"'"
		rs.open sql,conn,1,3
		money=rs("money")
	end if
	response.write "<table cellpadding=0 cellspacing=0   align=center class=tableborder1>"&_
	"<tr><td><table cellpadding=3 cellspacing=1 border=0 width=""100%"">"&_
	"</b>"&_
	"<tr><td width=""100%"" class=tablebody1>"&_
	"<FONT COLOR="&TableContentcolor&"><center><font color=#0066CC><b>你在本论坛发贴时所遇到的际遇：</b></font></center><br>"
	Randomize
	eddi=Fix(100*Rnd)
	experience=0
	userlife=0
	select case eddi
	case 29
		experience=-5
		response.write "<li>参加社区旅行社，消费了旅行费 <font color=red>"&abs(experience)&"</font> 金钱值！"
	case 30
		experience=-1
		userlife=3
		response.write "<li>你路见不平，拔刀相助，花掉你 <font color=red>"&abs(experience)&"</font>  金钱值的买刀钱，体力值加 <font color=red>"&userlife&"</font> ！"
	case 31
		experience=-2
		response.write "<li>街上遇到有人打架，混乱中你掉了 <font color=red>"&abs(experience)&"</font>  金钱值！"
	case 32
		experience=-2
		response.write "<li>你在交通局门口乱停车被罚款 <font color=red>"&abs(experience)&"</font>  金钱值！"
	case 33
		experience=-money/10
		response.write "<li>做生意不得门路，亏了 <font color=red>10%</font> 的本钱！"
	case 34
		experience=-money/10
		response.write "<li>不好意思，小偷又光顾你家，带走了你 <font color=red>10%</font> 的财产！（区长友情提示：有钱存银行!）"
	case 35
		experience=-5
		response.write "<li>这世界竟然有人整天捡到钱，怎么会没人丢钱呢——摸摸口袋，发现你少了 <font color=red>"&abs(experience)&"</font>  金钱值！"
	case 36
		experience=-3
		userlife=-1
		response.write "<li>朋友聚赌，你输了 <font color=red>"&abs(experience)&"</font>  金钱值，体力值减 <font color=red>"&abs(userlife)&"</font> ！"
	case 37
		experience=-4
		response.write "<li>参加游戏手气不好，一分钱没捞到还花了 <font color=red>"&abs(experience)&"</font>  金钱值！"
	case 38
		money=-money/5
		response.write "<li>不幸的你遭到暴徒洗劫！掳去了你 <font color=red>1/4的现金</font> ！（区长友情提示：有钱存银行!）"
	case 39
		experience=-money*0.10
		response.write "<li>流年不利！货币竟然会贬值，你的财产贬了 <font color=red>10%</font> ！"
	case 40
		experience=-3
		response.write "<li>为了发表你的文章，你跑了很长的路，花去了乘车费 <font color=red>"&abs(experience)&"</font>  金钱值！"
	case 41
		experience=-3
		response.write "<li>到社区影院看《爱上自由自在的感觉》花去了你入场费 <font color=red>"&abs(experience)&"</font>  金钱值！"
	case 42
		experience=-5
		userlife=1
		response.write "<li>路遇乞丐缠身，你忍痛施舍了 <font color=red>"&abs(experience)&"</font>  金钱值，体力值加 <font color=red>"&userlife&"</font> ！"
	case 43
		experience=-5
		userlife=2
		response.write "<li>途经美容院，你进去大“修”一番后花去 <font color=red>"&abs(experience)&"</font>  金钱值，体力值加 <font color=red>"&userlife&"</font> ！"
	case 44
		experience=-2
		response.write "<li>你的跑车有了小小损坏，花去你 <font color=red>"&abs(experience)&"</font>  金钱值的修理费！"
	case 45
		experience=-3
		response.write "<li>朋友们要你请客，在大饭店大吃一顿后花去了 <font color=red>"&abs(experience)&"</font>  金钱值！"
	case 46
		experience=-2
		response.write "<li>你不小心病倒，花去了 <font color=red>"&abs(experience)&"</font>  金钱值的治疗费！"
	case 47
		experience=-money*0.03
		response.write "<li>社区管理委员会上门征税，收取你 <font color=red>3%</font> 的个人所得税！"
	case 48
		experience=-money/10
		response.write "<li>不小心在阴暗的街角遭到打劫，抢走了你 <font color=red>10%</font> 的现金！（区长友情提示：有钱存银行!）"
	case 49
		experience=-10
		response.write "<li>真倒霉！你不小心在俱乐部掉了 <font color=red>"&abs(experience)&"</font>  金钱值！"
	case 50
		Randomize
		experience=Fix(100*Rnd)
		response.write "<li>恭喜，你此次发贴获得了 <font color=red>"&experience&"</font>  金钱值的随机特别赠送值！"
	case 51
		experience=10
		response.write "<li>恭喜，你此次发贴获得了 <font color=red>"&experience&"</font>  金钱值的特别奖励！"
	case 52
		experience=money/10
		response.write "<li>财神爷今日光临本坛，大派财运，你的财产增加了 <font color=red>10%</font> ！"
	case 53
		experience=66
		response.write "<li>慈善家今日光临本坛，大派利是，你收了 <font color=red>"&experience&"</font>  金钱值的红包！"
	case 54
		experience=32
		response.write "<li>网络公司上门慰问，发给你 <font color=red>"&experience&"</font>  金钱值的慰问金！"
	case 55
		experience=50
		userlife=-2
		response.write "<li>区长今天高兴，给了你 <font color=red>"&experience&"</font>  金钱值，收入了你的口袋，你高兴得体力值减 <font color=red>"&abs(userlife)&"</font> ！"
	case 56
		experience=20
		userlife=2
		response.write "<li>你在街头拐角捡到一条珍珠项链，交还了失主，失主送给你 <font color=red>"&experience&"</font> 金钱值的酬金！体力值加 <font color=red>"&userlife&"</font> ！"
	case 57
		experience=100
		response.write "<li>狮子流星带来了一块含金陨石，政府决定派发全民，你分得了 <font color=red>"&experience&"</font>  金钱值！"
	case 58
		experience=80
		response.write "<li>对于你的积极参与，社区决定发给你 <font color=red>"&experience&"</font>  金钱值的奖励金！"
	case 59
		userlife=5
		response.write "<li>心仪你的人为你送上鲜花，体力值加 <font color=red>"&userlife&"</font> ！"
	case 60
		experience=100
		response.write "<li>你被大家推选为今日幸运之星，派发 <font color=red>"&experience&"</font>  金钱值的奖金！"
	case 61
		experience=30
		response.write "<li>天使降临，你发贴所得将变为 <font color=red>十倍</font> ！"
	case 62
		experience=17
		response.write "<li>你幸运地得到发贴累积金 <font color=red>"&experience&"</font>  金钱值！"
	case 63
		experience=36
		response.write "<li>你参加了我们组织的狩猎，获得了 <font color=red>"&experience&"</font>  金钱值的猎物兑现金！"
	case 64
		experience=65
		response.write "<li>由于你长期对社区的支持，区长决定给你 <font color=red>"&experience&"</font>  金钱值的随机表扬金！"
	case 65
		experience=32
		response.write "<li>由于你长期对社区的支持，区长决定给你 <font color=red>"&experience&"</font>  金钱值的随机表扬金！"
	case 66
		experience=23
		response.write "<li>由于你长期对社区的支持，区长决定给你 <font color=red>"&experience&"</font>  金钱值的随机表扬金！"
	case 67
		experience=11
		response.write "<li>由于你长期对社区的支持，区长决定给你 <font color=red>"&experience&"</font> 金钱值的随机表扬金！"
	case 68
		experience=6
		response.write "<li>由于你长期对社区的支持，区长决定给你 <font color=red>"&experience&"</font> 金钱值的随机表扬金！"
	case 69
		userlife=5
		response.write "<li>今日社区影院派发嘉宾卷，体力值加 <font color=red>"&userlife&"</font> ！"
	case 70
		experience=8
		response.write "<li>今日社区影院派发嘉宾卷，你将入场卷变卖后得到 <font color=red>"&experience&"</font> 金钱值！"
	case 71
		experience=100
		userlife=2
		response.write "<li>无缘无故有名人请你吃饭，还赠送 <font color=red>"&experience&"</font> 金钱值，体力值加 <font color=red>"&userlife&"</font> ！"
	case 72
		experience=21
		response.write "<li>天上掉下 <font color=red>"&experience&"</font> 元被你捡到！"
	case 73
		experience=7
		response.write "<li>天上掉下 <font color=red>"&experience&"</font> 元被你捡到！"
	case 74
		experience=3
		response.write "<li>你参加社区游戏得到 <font color=red>"&experience&"</font> 金钱值的奖金！"
	case 75
		experience=42
		userlife=-2
		response.write "<li>你与朋友聚赌赢了 <font color=red>"&experience&"</font>  金钱值，体力值减 <font color=red>"&abs(userlife)&"</font> ！"
	case 76
		experience=25
		userlife=-1
		response.write "<li>有人捡到钱把你当成失主送给了你，收到 <font color=red>"&experience&"</font> 金钱值，体力值减 <font color=red>"&abs(userlife)&"</font> ！"
	case 77
		experience=money/4
		response.write "<li>做生意遇贵人相助，一天净赚 <font color=red>"&fix(experience)&"</font> 金钱值！"
	case 78
		experience=1
		response.write "<li>你在马路边，捡到了<font color=red>一元钱</font>，找不到警察叔叔就把它放到了你的口袋里边！"
	case 79
		experience=12
		response.write "<li>你猪头猪脑地捡到 <font color=red>"&experience&"</font> 元！"
	case 80
		experience=16
		userlife=2
		response.write "<li>你路见不平，拔刀相助，获得 <font color=red>"&experience&"</font> 金钱值的酬金，体力值加 <font color=red>"&userlife&"</font> ！"
	case 81
		experience=50
		userlife=10
		response.write "<li>今天区长遇到高兴的事，因此奖励你 <font color=red>"&experience&"</font> 金钱值的奖金，体力值加 <font color=red>"&userlife&"</font> ！"
        case 82
		experience=200
		userlife=15
		response.write "<li>区长中了福利彩票，见者有份,你分到了 <font color=red>"&experience&"</font> 金钱值的奖金，体力值加 <font color=red>"&userlife&"</font> ！"
        case 83
		experience=88
		userlife=8
		response.write "<li>这年头钱不好赚啊，还好区长请客,你得到 <font color=red>"&experience&"</font> 金钱值的奖金，体力值加 <font color=red>"&userlife&"</font> ！"
       case 84
		experience=money/15
		response.write "<li>昨晚梦到拾到钱，结果美梦成真，上帝赐你 <font color=red>15%</font> 金钱值哦！"
       case 85
		experience=2000
		response.write "<li>有漂亮MM答应和区长约会，区长高兴之下赏赐你 <font color=red>"&experience&"</font> 的超级大红包金钱值，快祝福他们吧！"

	case else
		response.write "<li>你此次发贴未遇到任何际遇，欢迎你再次发贴！"
	end select
	response.write "　　　　　　【谢谢你的参与！！！】<br>"

	if username="" then
		response.write "<a href=login.asp><font color=red>由于你没有正式登陆论坛，所以你在论坛的际遇将只是<b><u>虚梦一场</u></b></font></a>"
	else
		if experience<>0 then
		rs("money")=Fix(rs("money")+experience)
		if rs("money")<0 then
			rs("money")=0
		end if
		end if
		if userlife<>0 then
		rs("userlife")=Fix(rs("userlife")+userlife)
		if rs("userlife")<0 then
			rs("userlife")=0
		end if
		end if
		
		rs.update
		if experience>=0 then
		response.write "<hr width=90% size=1 color=#AAAAAA><div align=center>你此次社区之旅共<font color=Teal>获得了</font> <font color=red>"&fix(experience)&"</font> 金钱值"
		else
		response.write "<hr width=90% size=1 color=#AAAAAA><div align=center>你此次社区之旅共<font color=Teal>失去了</font> <font color=red>"&fix(abs(experience))&"</font> 金钱值"
		end if
		if userlife>=0 then
		response.write "和<font color=Teal>增加</font> <font color=red>"&userlife&"</font> 点体力值！"
		else
		response.write "和<font color=Teal>减少</font> <font color=red>"&abs(userlife)&"</font> 点体力值！"
		end if
		response.write "　<font color=#0000ff>（<b>"&fix(experience)&"/"&userlife&"</b>）</font></div>"
	end if
	response.write "</td></tr></table>"

%>
