<%
sub eddulf()
	dim eddi,addmoney,sql,addcool,userWealth,rs
	if Dvbbs.membername="" then
		userWealth=0
	else
	set rs=server.createobject("adodb.recordset")
		sql="select * from [Dv_User] where username='"&Dvbbs.membername&"'"
		rs.open sql,conn,1,3
		userWealth=rs("userWealth")
	end if
	response.write "<br><table cellpadding=0 cellspacing=0 align=center class=tableborder1>"&_
	"<tr><td><table cellpadding=3 cellspacing=1 border=0 width=""100%"">"&_
	"<tr class=back2 height=28 align=center><th>流淌的岁月之发帖际遇</b></th>"&_
	"</tr><tr><td width=""100%"" class=tablebody1>"&_
	"你在流淌的岁月发贴时遇到了……<br><ul>"
	Randomize
	eddi=Fix(100*Rnd)
	addmoney=0
	addcool=0
	select case eddi
	

case 1
		addmoney=-300
		response.write "<li>不小心丢了一款价值 <font color=red>"&abs(addmoney)&"</font> 社区币的手机！"

case 2
		addmoney=-600
		response.write "<li>买了一款新的手机，花去 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 3
		addmoney=1000
		response.write "<li>在古玩市场上淘得一件宝贝，价值 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 4 
		addcool=10
		response.write "<li>母亲节买礼物送给母亲，魅力值加 <font color=red>"&addcool&"</font> ！"

case 5
		addcool=10
		response.write "<li>父亲节买礼物送给父亲，魅力值加 <font color=red>"&addcool&"</font> ！"

case 6
		addmoney=1000
		response.write "<li>打网络游戏得到一个极品装备，价值 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 7
		addmoney=200
		response.write "<li>植树节去植树，得到奖励 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 8
		addmoney=-600
		response.write "<li>买了一套NIKE运动装，花了 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 9
		addmoney=10
		response.write "<li>二月二，去理发，花了 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 10
		addmoney=20
		response.write "<li>去洗桑拿，花了 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 11
		addmoney=10
		response.write "<li>去网吧上网，花了 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 12
		addmoney=100
		response.write "<li>为报社提供新闻线索，得奖励 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 13
		addmoney=50
		addcool=10
		response.write "<li>参加青年志愿者活动，得纪念品价值 <font color=red>"&abs(addmoney)&"</font> 社区币，魅力值加 <font color=red>"&addcool&"</font> ！"

case 14
		addmoney=500
		response.write "<li>自己开了个小商店，赚了 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 15
		addmoney=600
		response.write "<li>今天发放了上月的销售提成 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 16
		addmoney=400
		response.write "<li>今天发放了上月的奖金 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 17
		addmoney=500
		response.write "<li>今天发放了上月的工资 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 18
		addmoney=-100
		response.write "<li>超市大减价，去狂买东西，花去 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 19
		addmoney=-200
		response.write "<li>和朋友一起出去聚餐，花去 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 20
		addmoney=300
		addcool=10
		response.write "<li>你的文章发表，得奖金 <font color=red>"&abs(addmoney)&"</font> 社区币，魅力值加 <font color=red>"&addcool&"</font> ！"

case 21
		addmoney=500
		addcool=20
		response.write "<li>职务提升，工资提高 <font color=red>"&abs(addmoney)&"</font> 社区币，魅力值加 <font color=red>"&addcool&"</font> ！"

case 22
		addmoney=-50
		addcool=2
		response.write "<li>和恋人一起出去逛街，花费 <font color=red>"&abs(addmoney)&"</font> 社区币，魅力值加 <font color=red>"&addcool&"</font> ！"

case 23
		addmoney=300
		response.write "<li>你买的股票升值，获利 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 24
		addmoney=10000
		response.write "<li>你中了彩票特等奖，获得奖金 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 25
		addmoney=5000
		response.write "<li>你中了彩票一等奖，获得奖金 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 26
		addmoney=1000
		response.write "<li>你中了彩票二等奖，获得奖金 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 27
		addmoney=300
		response.write "<li>你中了彩票三等奖，获得奖金 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 28
		addmoney=-60
		response.write "<li>你被人打伤，花掉了医疗费 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 29
		addmoney=-150
		response.write "<li>参加流淌的岁月星座之城旅行，消费了旅行费 <font color=red>"&abs(addmoney)&"</font> 社区币！"

case 30
		addmoney=-30
		addcool=3
		response.write "<li>你路见不平，拔刀相助，花掉你 <font color=red>"&abs(addmoney)&"</font> 社区币的买刀钱，魅力值加 <font color=red>"&addcool&"</font> ！"
	
case 31
		addmoney=-60
		response.write "<li>街上遇到有人打架，混乱中你掉了 <font color=red>"&abs(addmoney)&"</font> 社区币！"
	
case 32
		addmoney=-80
		response.write "<li>你在交通局门口乱停车被罚款 <font color=red>"&abs(addmoney)&"</font> 社区币！"
	
case 33
		addmoney=-userWealth/10
		response.write "<li>做生意不得门路，亏了 <font color=red>10%</font> 的本钱！"
	
case 34
		addmoney=-userWealth/10
		response.write "<li>不好意思，小偷又光顾你家，带走了你 <font color=red>10%</font> 的财产！（人民政府再次提醒大家有钱要存银行）"
	
case 35
		addmoney=-250
		response.write "<li>这世界竟然有人整天捡到钱，怎么会没人丢钱呢——摸摸口袋，发现你少了 <font color=red>"&abs(addmoney)&"</font> 社区币！"
	
case 36
		addmoney=-330
		addcool=-1
		response.write "<li>朋友聚赌，你输了 <font color=red>"&abs(addmoney)&"</font> 社区币，魅力值减 <font color=red>"&abs(addcool)&"</font> ！"
	
case 37
		addmoney=-140
		response.write "<li>参加游戏手气不好，一分钱没捞到还花了 <font color=red>"&abs(addmoney)&"</font> 社区币！"
	
case 38
		addmoney=-userWealth/5
		response.write "<li>不幸的你遭到暴徒洗劫！掳去了你 <font color=red>1/4的现金</font> ！（人民政府再次提醒大家有钱要存银行）"
	
case 39
		addmoney=-userWealth*0.10
		response.write "<li>流年不利！货币竟然会贬值，你的财产贬了 <font color=red>10%</font> ！"
	
case 40
		addmoney=-30
		response.write "<li>为了发表你的文章，你跑了很长的路，花去了乘车费 <font color=red>"&abs(addmoney)&"</font> 社区币！"
	
case 41
		addmoney=-80
		response.write "<li>到月光之城影院看《星球大战》花去了你入场费 <font color=red>"&abs(addmoney)&"</font> 社区币！"
	
case 42
		addmoney=-100
		addcool=1
		response.write "<li>路遇乞丐缠身，你忍痛施舍了 <font color=red>"&abs(addmoney)&"</font> 社区币，魅力值加 <font color=red>"&addcool&"</font> ！"
	
case 43
		addmoney=-200
		addcool=2
		response.write "<li>途经美容院，你进去大“修”一番后花去 <font color=red>"&abs(addmoney)&"</font> 社区币，魅力值加 <font color=red>"&addcool&"</font> ！"
	
case 44
		addmoney=-280
		response.write "<li>你的跑车有了小小损坏，花去你 <font color=red>"&abs(addmoney)&"</font> 社区币的修理费！"
	
case 45
		addmoney=-320
		response.write "<li>朋友们要你请客，在世纪大饭店大吃一顿后花去了 <font color=red>"&abs(addmoney)&"</font> 社区币！"
	
case 46
		addmoney=-200
		response.write "<li>你不小心病倒，花去了 <font color=red>"&abs(addmoney)&"</font> 社区币的治疗费！"
	
case 47
		addmoney=-userWealth*0.03
		response.write "<li>市政府上门征税，收取你 <font color=red>3%</font> 的个人所得税！"
	
case 48
		addmoney=-userWealth/10
		response.write "<li>不小心在阴暗的街角遭到打劫，抢走了你 <font color=red>10%</font> 的现金！（人民政府再次提醒大家有钱要存银行）"
	
case 49
		addmoney=-100
		response.write "<li>真倒霉！你不小心在WC里掉了 <font color=red>"&abs(addmoney)&"</font> 社区币！"
	
case 50
		Randomize
		addmoney=Fix(100*Rnd)
		response.write "<li>恭喜，你此次发贴获得了 <font color=red>"&addmoney&"</font> 社区币的随机特别赠送值！"
	
case 51
		addmoney=100
		response.write "<li>恭喜，你此次发贴获得了 <font color=red>"&addmoney&"</font> 社区币的特别奖励！"
	
case 52
		addmoney=userWealth/10
		response.write "<li>财神爷今日光临流淌的岁月，大派财运，你的财产增加了 <font color=red>10%</font> ！"
	
case 53
		addmoney=66
		response.write "<li>慈善家今日光临本坛，大派利是，你收了 <font color=red>"&addmoney&"</font> 社区币的红包！"
	
case 54
		addmoney=320
		response.write "<li>市政中心政府上门慰问，发给你 <font color=red>"&addmoney&"</font> 社区币的慰问金！"
	
case 55
		addmoney=500
		addcool=-2
		response.write "<li>你在街头拐角捡到 <font color=red>"&addmoney&"</font> 社区币，收入了你的口袋，魅力值减 <font color=red>"&abs(addcool)&"</font> ！"
	
case 56
		addmoney=200
		addcool=2
		response.write "<li>你在街头拐角捡到一条珍珠项链，交还了失主，失主送给你 <font color=red>"&addmoney&"</font> 社区币的酬金！魅力值加 <font color=red>"&addcool&"</font> ！"
	
case 57
		addmoney=1000
		response.write "<li>狮子流星带来了一块含金陨石，人民政府决定派发全民，你分得了 <font color=red>"&addmoney&"</font> 社区币！"
	
case 58
		addmoney=800
		response.write "<li>对于你的积极参与，本站决定发给你 <font color=red>"&addmoney&"</font> 社区币的奖励金！"
	
case 59
		addcool=50
		response.write "<li>心仪你的人为你送上鲜花，魅力值加 <font color=red>"&addcool&"</font> ！"
	
case 60
		addmoney=100
		response.write "<li>你被大家推选为今日幸运之星，派发 <font color=red>"&addmoney&"</font> 社区币的奖金！"
	
case 61
		addmoney=30
		response.write "<li>天使降临，你发贴所得将变为 <font color=red>十倍</font> ！"
	
case 62
		addmoney=170
		response.write "<li>你幸运地得到发贴累积金 <font color=red>"&addmoney&"</font> 社区币！"
	
case 63
		addmoney=360
		response.write "<li>你参加了我们组织的狩猎，获得了 <font color=red>"&addmoney&"</font> 社区币的猎物兑现金！"
	
case 64
		addmoney=650
		response.write "<li>由于你长期对流淌的岁月的支持，斑竹决定给你 <font color=red>"&addmoney&"</font> 社区币的随机表扬金！"
	
case 65
		addmoney=320
		response.write "<li>由于你长期对流淌的岁月的支持，斑竹决定给你 <font color=red>"&addmoney&"</font> 社区币的随机表扬金！"
	
case 66
		addmoney=230
		response.write "<li>由于你长期对流淌的岁月的支持，斑竹决定给你 <font color=red>"&addmoney&"</font> 社区币的随机表扬金！"
	
case 67
		addmoney=110
		response.write "<li>由于你长期对流淌的岁月的支持，斑竹决定给你 <font color=red>"&addmoney&"</font> 社区币的随机表扬金！"
	
case 68
		addmoney=600
		response.write "<li>由于你长期对流淌的岁月的支持，斑竹决定给你 <font color=red>"&addmoney&"</font> 社区币的随机表扬金！"
	
case 69
		addcool=100
		response.write "<li>今日流淌的岁月电影院派发嘉宾卷，魅力值加 <font color=red>"&addcool&"</font> ！"
	
case 70
		addmoney=80
		response.write "<li>今日流淌的岁月电影院派发嘉宾卷，你将入场卷变卖后得到 <font color=red>"&addmoney&"</font> 社区币！"
	
case 71
		addmoney=100
		addcool=2
		response.write "<li>无缘无故有名人请你吃饭，还赠送 <font color=red>"&addmoney&"</font> 社区币，魅力值加 <font color=red>"&addcool&"</font> ！"
	
case 72
		addmoney=210
		response.write "<li>你参加流淌的岁月游戏得到 <font color=red>"&addmoney&"</font> 社区币的奖金！"
	
case 73
		addmoney=70
		response.write "<li>你参加流淌的岁月游戏得到 <font color=red>"&addmoney&"</font> 社区币的奖金！"
	
case 74
		addmoney=30
		response.write "<li>你参加流淌的岁月游戏得到 <font color=red>"&addmoney&"</font> 社区币的奖金！"
	
case 75
		addmoney=42
		addcool=-2
		response.write "<li>你与朋友聚赌赢了 <font color=red>"&addmoney&"</font> 社区币，魅力值减 <font color=red>"&abs(addcool)&"</font> ！"
	
case 76
		addmoney=250
		addcool=-1
		response.write "<li>有人捡到钱把你当成失主送给了你，收到 <font color=red>"&addmoney&"</font> 社区币，魅力值减 <font color=red>"&abs(addcool)&"</font> ！"
	
case 77
		addmoney=userWealth/4
		response.write "<li>做生意遇贵人相助，一天净赚 <font color=red>"&fix(addmoney)&"</font> 社区币！"
	
case 78
		addmoney=1
		response.write "<li>你在马路边，捡到了<font color=red>一分钱</font>，找不到警察叔叔就把它放到了你的口袋里边！"
	
case 79
		addmoney=120
		response.write "<li>你参与流淌的岁月的广告设计得到 <font color=red>"&addmoney&"</font> 社区币的佣金！"
	
case 80
		addmoney=160
		addcool=2
		response.write "<li>你路见不平，拔刀相助，获得 <font color=red>"&addmoney&"</font> 社区币的酬金，魅力值加 <font color=red>"&addcool&"</font> ！"

	case else
		response.write "<li>你此次发贴没遇到好事也没遇到坏事，一切太平！"
	end select
	response.write "</ul>　　　　　　下次努力哦！<br>"

	if Dvbbs.membername="" then
		response.write "<a href=login.asp><font color=red>由于你没有正式登陆论坛，所以你在论坛的际遇将只是<b>白日梦一场</b>！"
	else
		if addmoney<>0 then
                   rs("userWealth")=Fix(rs("userWealth")+addmoney)
                end if
                if addcool<>0 then
                   rs("userCP")=Fix(rs("userCP")+addcool)
                end if
		rs.update
		if addmoney>=0 then
		response.write "<hr width=90% size=1 color=#AAAAAA><div align=center>这次共<font color=Teal>获得了</font> <font color=red>"&fix(addmoney)&"</font> 社区币"
		else
		response.write "<hr width=90% size=1 color=#AAAAAA><div align=center>这次共<font color=Teal>失去了</font> <font color=red>"&fix(abs(addmoney))&"</font> 社区币"
		end if
		if addcool>=0 then
		response.write "和<font color=Teal>增加</font> <font color=red>"&addcool&"</font> 点魅力值！"
		else
		response.write "和<font color=Teal>减少</font> <font color=red>"&abs(addcool)&"</font> 点魅力值！"
		end if
		response.write "　<font color=#0000ff>（<b>"&fix(addmoney)&"/"&addcool&"</b>）</font></div>"
	end if
	response.write "</td></tr></table></td></tr></table><br>"

end sub
%>