<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->

<%call head()
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"使用了(url=/bbs/guaji.asp?saytk="&saytk&"&sid=[sid])挂机升级(/url)')")
dim dx
Function RndNumber(Min,Max) 
Randomize 
RndNumber=Int((Max - Min + 1) * Rnd() + Min) 
End Function 
dx=RndNumber(1,8)
Call cardz10("挂机室","guaji.asp?a="&dx&"&amp;saytk="&saytk&"&amp;sid="&sid&"")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT myjb,myjy FROM users where id="&myid,conn,1,2
a = trim(Request.QueryString("a"))
if myjb>50 then
if a="" then
Response.write "挂机中：经验+1，"&getcent&"-5"
rs("myjy")=rs("myjy")+1
rs("myjb")=rs("myjb")-5
rs.update
end if
if a="1" then
Response.write "挂机中：经验+2"&getcent&"-10"
rs("myjy")=rs("myjy")+2
rs("myjb")=rs("myjb")-10
rs.update
end if
if a="2" then
Response.write "挂机中：体力+2"&getcent&"-20"
rs("mytl")=rs("mytl")+2
rs("myjb")=rs("myjb")-20
rs.update
end if

if a="3" then
Response.write "挂机中：经验+3"&getcent&"-25"
rs("myjy")=rs("myjy")+3
rs("myjb")=rs("myjb")-25
rs.update
end if


if a="4" then
Response.write "挂机中：魅力+2"&getcent&"-10"
rs("myml")=rs("myml")+2
rs("myjb")=rs("myjb")-10
rs.update
end if

if a="5" then
Response.write "挂机中：才华+1"&getcent&"-10"
rs("mych")=rs("mych")+1
rs("myjb")=rs("myjb")-10
rs.update
end if

if a="6" then
Response.write "挂机中：倒霉"&getcent&"-7"
rs("myjb")=rs("myjb")-7
rs.update
end if

if a="7" then
Response.write "挂机中：经验+4"&getcent&"-39"
rs("myjy")=rs("myjy")+4
rs("myjb")=rs("myjb")-39
rs.update
end if

if a="8" then
Response.write "挂机中：体力+2"&getcent&"-19"
rs("mytl")=rs("mytl")+2
rs("myjb")=rs("myjb")-19
rs.update
end if
Response.write "<br/><a href=""guaji.asp?a="&dx&"&amp;saytk="&saytk&"&amp;sid="&sid&""">继续挂机</a>"
else
Response.write "我晕咯，"&myni&"，你连50个"&getcent&"都没有还敢来这?<br/>你妈妈喊你回家吃饭了！"
end if
Response.write "<br/>---------------<br/>"
Response.write "<br/>挂机中每10秒自动刷新,金币低于50不能使用挂机功能，挂机中，可随机加体力，经验，才华，魅力，当然同时也会有不同值的扣币的！"
Response.write "<br/>"
%>
<!--#include file="../fanhui.asp"-->
<%Call headsay()%>

