<!--Copyright SuiYun.com, All Rights Reserved.-->
<!--2004-2008，非凡国度总站，版权所有，拷贝必究！-->
<!--购买非凡国度 极限版，软件程序或其他建站服务联系QQ:116722683-->
<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0

zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
nowinroom=session("nowinroom")
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
t=s & ":" & f & ":" & m
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"

Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select * from 用户 where 姓名='"&zhbg_name&"'",conn
if rs.eof or rs.bof then
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Redirect "../../error.asp?id=454"
	response.end
end if
if f<>00 and f<>30 then
	Response.Write "<script Language=Javascript>alert('你已经超时！');window.close();</script>"
	Response.End
end if
abc=DateDiff("s",rs("操作时间"),now())
if abc<60 then 
	Response.Write "<script Language=Javascript>alert('你已经领过金币');location.href = 'javascript:history.go(-1)';</script>"
	response.end
end if
conn.execute "update 用户 set 金币=金币+2,操作时间=now() where 姓名='"&zhbg_name&"'"

Response.Write "<script language=JavaScript>{alert('恭喜了！你领取金币');window.close();}</script>"  
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%
Application.Lock
set conn=nothing
says="<marquee width=100% scrollamount=8><font color=green>【真情领取在线奖励】</b></font>真是爽啊！["&zhbg_name&"]领到非凡国度自助金币<img src='img/jinbi.gif'><img src='img/jinbi.gif'><b>2</b>个!站长支持在线，真正玩游戏，不要开小差呀，等会还会发!!！</font>！</marquee>"
says=replace(says,"'","\'")
says=replace(says,chr(34),"\"&chr(34))
act="消息"
towhoway=0
towho="大家"
addwordcolor="660099"
saycolor="0000FF"
addsays="对"
saystr="<script>parent.sh("& chr(39) & addwordcolor & chr(39) &","& chr(39) & saycolor & chr(39) &","& chr(39) & act & chr(39) &","& chr(39) & zhbg_name & chr(39) &","& chr(39) & addsays & chr(39) &","& chr(39) & towho & chr(39) &"," & chr(39) & says & chr(39) &"," & towhoway &  ","& nowinroom & ");<"&"/script>"
addmsg saystr
Function Yushu(a)
	Yushu=(a and 31)
End Function
Sub AddMsg(Str)
Application.Lock()
Application("SayCount")=Application("SayCount")+1
i="SayStr"&YuShu(Application("SayCount"))
Application(i)=Str
Application.UnLock()
End Sub
%>