plus.asp

教师评估系统

<!-- #include file="Cls.asp" --><%
ChkUser
dim PageName,UserMoney,UserSaveMoney,SaveMoneyTime,UserExchange
UserName=Trim(HTMLEncode(Request("UserName")))
sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Rs.Open sql,Conn,1,3
UserMoney=Rs("UserMoney")
UserSaveMoney=Rs("SaveMoney")
SaveMoneyTime=Rs("SaveMoneyTime")
UserExchange=Fix(UserSaveMoney*cDbl(Cache("BankExchange")/100)*DateDiff("d",SaveMoneyTime,now()))
Rs.Close
Select case Request("menu")
case "ApplyLink"
topr("申请友情链接")
ApplyLink
case "ApplyLinkOk"
name=HTMLEncode(Request("name"))
Url=HTMLEncode(Request("url"))
logo=HTMLEncode(Request("logo"))
intro=HTMLEncode(Request("intro"))
if name="" Then Error2("站点名称不能为空！")
if Url="" Then Error2("站点链接不能为空！")
if Conn.Execute("select ID from [Wxlink] where (name='"&name&"' or url='"&url&"')").Eof then
Conn.Execute("insert into [Wxlink] (name,Url,logo,intro,Review) values ('"&name&"','"&url&"','"&logo&"','"&intro&"',0)")
Succ "申请友情链接","<li>请等待管理员审核</li>","Default.asp"
else
Error "申请友情链接","<li>您的网站已提交</li><li>请等待管理员审核</li>"
end if
CloseDataBase
case "Bank"
topr("论坛银行")
Bank
case "Shop"
topr("论坛商店")
money=Conn.Execute("select UserMoney from [WxUsers] where username='"&CookieUserName&"'")(0)
Shop
case "save"
save
case "draw"
draw
case "virement"
virement
case "Experience1"
how=ChkNumeric(Request("how"))
if how<1 then Error2("数量不能小于1")

if UserMoney<100*how then Error2("您的金币不够！")

Randomize
d1=fix(rnd*50)+1

sql="select * from [WxUsers] where username='"&CookieUserName&"'"
rs.Open sql,Conn,1,3
rs("Experience")=rs("Experience")+d1*how
rs("UserMoney")=rs("UserMoney")-100*how
rs.update
rs.close

Error2("已经增加了 "&d1*how&" 点经验值！")

case "Experience2"
how=ChkNumeric(Request("how"))
if how<1 then Error2("数量不能小于1")

if UserMoney<100*how then Error2("您的金币不够！")

Randomize
d1=40

sql="select * from [WxUsers] where username='"&CookieUserName&"'"
rs.Open sql,Conn,1,3
rs("Experience")=rs("Experience")+d1*how
rs("UserMoney")=rs("UserMoney")-100*how
rs.update
rs.close

Error2("已经增加了 "&d1*how&" 点经验值！")

case "Experience3"
how=ChkNumeric(Request("how"))
if how<1 then Error2("数量不能小于1")

if UserMoney<1000*how then Error2("您的金币不够！")

Randomize
d1=500

sql="select * from [WxUsers] where username='"&CookieUserName&"'"
rs.Open sql,Conn,1,3
rs("Experience")=rs("Experience")+d1*how
rs("UserMoney")=rs("UserMoney")-1000*how
rs.update
rs.close

Error2("已经增加了 "&d1*how&" 点经验值！")

case "Experience4"
how=ChkNumeric(Request("how"))
if how<1 then Error2("数量不能小于1")

if UserMoney<3000*how then Error2("您的金币不够！")

Randomize
d1=1600

sql="select * from [WxUsers] where username='"&CookieUserName&"'"
rs.Open sql,Conn,1,3
rs("Experience")=rs("Experience")+d1*how
rs("UserMoney")=rs("UserMoney")-3000*how
rs.update
rs.close
Error2("已经增加了 "&d1*how&" 点经验值！")

case "honor"
honor=HTMLEncode(Request("honor"))
if Len(honor)>10 then Error2("头衔不能大于10个字符！")
if honor="" then Error2("头衔修改失败,没有扣你的金币！")
if UserMoney<1000 then Error2("您的金币不够！")
Conn.Execute("update [WxUsers] set UserHonor='"&honor&"',[UserMoney]=[UserMoney]-1000 where username='"&CookieUserName&"'")
Error2("您已经获得了该头衔！")

case "colony"
content=HTMLEncode(Request("content"))
if content="" then Error2("请填写群发内容!")
if UserMoney<500 then Error2("您的金币不够！")
Conn.Execute("update [WxUsers] set [UserMoney]=[UserMoney]-500 where username='"&CookieUserName&"'")

sql="select username from WxUsersOnline where username<>''"
Set Rs=Conn.Execute(sql)
do while Not rs.Eof
Count=Count+1
Conn.Execute("insert into WxSms (UserName,incept,content) values ('"&CookieUserName&"','"&rs("username")&"','【会员广播】："&content&"')")
Conn.Execute("update [WxUsers] set NewMessage=NewMessage+1 where username='"&rs("username")&"'")
rs.MoveNext
loop
Rs.close
Error2("发送成功！\n\n共发送给 "&Count&" 位在线会员")

case "flowers"
if UserMoney<50 then Error2("您的金币不够！")
vs=HTMLEncode(Request("vs"))
id=ChkNumeric(Request("id"))
if LCase(vs)=LCase(CookieUserName) then Error2("不能自己送自己！")
if Conn.Execute("select id from [WxUsers] where username='"&vs&"'" ).Eof Then Error "用户 "&vs&" 不存在",""
Conn.Execute("update [WxUsers] set [UserMoney]=[UserMoney]-50 where username='"&CookieUserName&"'")
Randomize
d1=fix(rnd*25)+1
Conn.Execute("update [WxUsers] set Experience=Experience+"&d1&" where username='"&vs&"'")
sql="insert into WxSms(UserName,incept,content) values ('"&CookieUserName&"','"&vs&"','【系统消息】："&CookieUserName&"送您1束鲜花，您增加了"&d1&"点经验值！')"
Conn.Execute(SQL)
Conn.Execute("update [WxUsers] set newmessage=newmessage+1 where username='"&vs&"'")
Error2(""&vs&"已经增加了"&d1&"点经验值！")

case "egg"
if UserMoney<50 then Error2("您的金币不够！")
vs=HTMLEncode(Request("vs"))
if LCase(vs)=LCase(CookieUserName) then Error2("不能自己送自己！")
if Conn.Execute("select id from [WxUsers] where username='"&vs&"'" ).Eof Then Error "用户 "&vs&" 不存在",""
if Conn.Execute("select Experience from [WxUsers] where username='"&vs&"'" )(0)<50 Then Error2("对方经验值少于50，您不能向他丢鸡蛋")
Conn.Execute("update [WxUsers] set [UserMoney]=[UserMoney]-50 where username='"&Request.Cookies("username")&"'")
Randomize
d1=fix(rnd*25)+1
Conn.Execute("update [WxUsers] set Experience=Experience-"&d1&" where username='"&vs&"'")
sql="insert into WxSms(UserName,incept,content) values ('"&CookieUserName&"','"&vs&"','【系统消息】："&CookieUserName&"送您1粒鸡蛋，您减少了"&d1&"点经验值！')"
Conn.Execute(SQL)
Conn.Execute("update [WxUsers] set newmessage=newmessage+1 where username='"&vs&"'")
Error2(""&vs&"已经减少了"&d1&"点经验值！")
end Select

sub topr(name)
PageName=name
top PageName,true
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <%=name%></div><%
end sub

sub Bank
%>
<div class="dt cb">
<div class="tb fl w2" id="sidebar">
<div id="tt"><%=CookieUserName%> 的银行账户</div>
<div class="tc b">现金: <%=UserMoney%></div>
<div class="tc b">存款: <%=UserSaveMoney%></div>
<div class="tc b">利息: <%=UserExchange%></div>
<div class="tc b">上次存款: <%=SaveMoneyTime%></div>
<div class="tc b">总共: <%=UserMoney+UserExchange+UserSaveMoney%></div>
</div>
<div class="fl" id="mainarea">
<div class="tb">
<div id="tt">银行营业大厅</div>
<div class="tc b">欢迎 <%=CookieUserName%> 进入论坛银行！当前银行利率为 <%=FormatNumber(cDbl(Cache("BankExchange")/100),3,true)%>% 、转帐手续费为 10% </div>
<form method="post" action="Plus.asp">
<input type="hidden" name="menu" value="save" />
<div class="tc b"><b>存入</b>&nbsp;<input size="20" name="qmoney" onkeyup="ChkNaN(this)" value="<%=UserMoney%>" /> 个金币 <input type="submit" value=" 确 定 " />
  </div></form>
<form method="post" action="Plus.asp">
<input type="hidden" name="menu" value="draw" />
<div class="tc b"><b>取出</b>&nbsp;<input size="20" value="<%=UserSaveMoney%>" name="qmoney" onkeyup="ChkNaN(this)" /> 个金币 <input type="submit" value=" 确 定 " />
 </div></form>
<form method="post" action="Plus.asp">
<input type="hidden" name="menu" value="virement" />
<div class="tc"><b>转帐</b>&nbsp;将&nbsp;<input size="10" value="500" name="qmoney" onkeyup="ChkNaN(this)" /> 个金币 转给 <input size="10" name="dxname" /> <input type="submit" value=" 确 定 " />
 </div></form>
</div>
</div>
</div>
<%
end sub

sub save
sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Rs.Open sql,Conn,1,3
qmoney=ChkNumeric(Request("qmoney"))
if qmoney > Rs("UserMoney") then Error2("您的现金不够")
if qmoney<1 then Error2("存款不能为零")
Rs("savemoney")=Rs("savemoney")+qmoney+UserExchange
Rs("UserMoney")=Rs("UserMoney")-qmoney
Rs("SaveMoneyTime")=now()
Rs.update
Rs.close
Succ "存款","<li><a href=Plus.asp?menu=Bank>返回银行</a></li>","Plus.asp?menu=Bank"
end sub

sub draw
sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Rs.Open sql,Conn,1,3
qmoney=ChkNumeric(Request("qmoney"))
if qmoney>Rs("savemoney") then Error2("您的存款不够")
if qmoney<1 then Error2("取款不能为零")
Rs("savemoney")=Rs("savemoney")-qmoney+UserExchange
Rs("UserMoney")=Rs("UserMoney")+qmoney
Rs("SaveMoneyTime")=now()
Rs.update
Rs.close
Succ "取款","<li><a href=Plus.asp?menu=Bank>返回银行</a></li>","Plus.asp?menu=Bank"
end sub

sub virement
sql="select * from [WxUsers] where Username='"&CookieUserName&"'"
Rs.Open sql,Conn,1,3
dxname=HTMLEncode(Request.Form("dxname"))
if dxname="" Then ErrMsg="请输入转账用户"
if LCase(dxname)=LCase(CookieUserName) then ErrMsg=ErrMsg&"\n您输入的是自己"
if dxname<>"" then
if Conn.Execute("select id from [WxUsers] where UserName='"&dxname&"'" ).Eof Then ErrMsg=ErrMsg&"\n用户 "&dxname&" 不存在"
end if
qmoney=ChkNumeric(Request("qmoney"))
if qmoney<10 then ErrMsg=ErrMsg&"\n转帐不能低于10"
if qmoney*1.1>Rs("UserMoney") then ErrMsg=ErrMsg&"\n您的现金不足支付汇款及手续费"
if ErrMsg<>"" Then Error2(ErrMsg)
Rs("UserMoney")=Rs("UserMoney")-qmoney*1.1
Rs("SaveMoneyTime")=now()
Rs.update
Rs.close
Conn.Execute("update [WxUsers] set [UserMoney]=[UserMoney]+"&qmoney&" where UserName='"&dxname&"'")
Conn.Execute("insert into [WxSms](UserName,incept,content) values ('"&CookieUserName&"','"&dxname&"','<font color=0000FF>【论坛银行】："&CookieUserName&" 已经通过银行转帐 ￥"&qmoney&" 给您！</font>')")
Conn.Execute("update [WxUsers] set NewMessage=NewMessage+1 where UserName='"&dxname&"'")
Log(""&CookieUserName&" 通过银行转帐 ￥"&qmoney&" 给 "&dxname&"")
Succ "转账","<li><a href=Plus.asp?menu=Bank>返回银行</a></li>","Plus.asp?menu=Bank"
end sub

sub Shop
%>
<script type="text/javascript">
function colony(){var id=prompt("请输入您要群发的讯息！","");if(id){document.location='?menu=colony&content='+id+'';}}
function Experience1(){var id=prompt("请输入您要购买的数量！","1");if(id){document.location='?menu=Experience1&how='+id+'';}}
function Experience2(){var id=prompt("请输入您要购买的数量！","1");if(id){document.location='?menu=Experience2&how='+id+'';}}
function Experience3(){var id=prompt("请输入您要购买的数量！","1");if(id){document.location='?menu=Experience3&how='+id+'';}}
function Experience4(){var id=prompt("请输入您要购买的数量！","1");if(id){document.location='?menu=Experience4&how='+id+'';}}
function power(){var id=prompt("请输入您要购买的数量！","1");if(id){document.location='?menu=power&how='+id+'';}}
function flowers(){var id=prompt("请输入对方用户名！","");if(id){document.location='?menu=flowers&vs='+id+'';}}
function egg(){var id=prompt("请输入对方用户名！","");if(id){document.location='?menu=egg&vs='+id+'';}}
function honor(){var id=prompt("请输入你想要的头衔！","");if(id){document.location='?menu=honor&honor='+id+'';}}
</script>
<div class="tb dt">
<div id="tt">社区商店</div>
<div class="intro cb">
<div class="fl r w1a">商品</div>
<div class="fl r w2">头衔</div>
<div class="fl r w2">巧克力</div>
<div class="fl r w2">欢乐冰淇淋</div>
<div class="fl w2">水果拼盘</div>
</div>
<div class="tc b cb">
<div class="fl r t w1a"></div>
<div class="fl r t w2">名称：头衔<br />
  价格：1000 <b>金币</b><br />
  功能：自定义头衔<br /><input type="submit" name="Submit4" id="submit" onclick="honor()" value="我要购买" /></div>
<div class="fl r t w2">名称：巧克力<br />
  价格：100 <b>金币</b><br />
  功能：随机增加50点以下经验<br /><input type="submit" name="Submit" id="submit" onclick="Experience1()" value="我要购买" /></div>
<div class="fl r t w2">名称：欢乐冰淇淋<br />
价格：100 <b>金币</b><br />
功能：固定增加40点经验值<br /><input type="submit" name="Submit5" id="submit" onclick="Experience2()" value="我要购买" /></div>
<div class="fl t w2">名称：水果拼盘<br />
  价格：1000 <b>金币</b><br />
  功能：固定增加500点经验值<br /><input type="submit" name="Submit6" id="submit" onclick="Experience3()" value="我要购买" /></div>
</div>
<div class="intro cb">
<div class="fl r w1a">商品</div>
<div class="fl r w2">五粮液</div>
<div class="fl r w2">鸡蛋</div>
<div class="fl r w2">鲜花</div>
<div class="fl w2">讯息群发器</div>
</div>
<div class="tc cb">
<div class="fl r t w1a"></div>
<div class="fl r t w2">名称：五粮液<br />
价格：3000 <b>金币</b><br />
功能：固定增加1600点经验值<br /><input type="submit" name="Submit7" id="submit" onclick="Experience4()" value="我要购买" /></div>
<div class="fl r t w2">名称：鸡蛋<br />
价格：50 <b>金币</b><br />
功能：降低对方的经验值<br /><input type="submit" name="Submit2" id="submit" onclick="egg()" value="我要购买" /></div>
<div class="fl r t w2">名称：鲜花<br />
价格：50 <b>金币</b><br />
功能：增加对方的经验值<br /><input type="submit" name="Submit1" id="submit" onclick="flowers()" value="我要购买" /></div>
<div class="fl t w2">名称：讯息群发器<br />
  价格：500 <b>金币</b><br />
  功能：群发讯息给在线会员<br /><input type="submit" name="Submit3" id="submit" onclick="colony()" value="我要购买" /></div>
</div>
</div>
<%
end sub

sub ApplyLink
%>
<div class="tb dt">
<form method="post" name="form" action="?menu=ApplyLinkOk">
<div id="tt">联盟网站申请</div>
<div class="tc b cb">
<div class="fl r si w2">网站名称</div>
<div class="fl si"><input type="text" name="name" size="40" maxlength="20" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w2">网站地址</div>
<div class="fl si"><input type="text" name="Url" size="40" value="http://" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w2">Logo地址</div>
<div class="fl si"><input type="text" name="logo" size="40" value="http://" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w2">网站说明</div>
<div class="fl si"><input type="text" name="intro" size="40" maxlength="40" value="" /></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value=" 确 定 " /></div>
</form>
</div>
<%
end sub

HtmlEnd
%>