"&chr(13) '-------------默认参数 if qianjb="" or Isnumeric(qianjb)=False then qianjb=30 end if if qiansjb="" or Isnumeric(qiansjb)=False then qiansjb=230 end if '-------------默认参数 dim signIn,signCi set rs=server.createobject("adodb.recordset") rs.open "select signIn,signCi from Users where ID = " & myid,conn,1,2 signIn = rs("signIn") signCi = rs("signCi") if signCi = 0 then signIn = (date() - 1) end if dim chaDay chaDay = DateDiff("d", signIn, date()) if chaDay = 0 then rs.close set rs=nothing Call Error("您今天已经签到过了！") elseif chaDay = 1 then rs("signIn") = date() rs("signCi") = rs("signCi") + 1 else rs("signIn") = date() rs("signCi") = 1 end if rs.update Response.write "签到成功，" dim gCent if rs("signCi") mod 7 = 0 then gCent = abs(qiansjb) Response.write "恭喜获得"&abs(qiansjb)&"金币！" else gCent = abs(qianjb) Response.write "恭喜获得"&abs(qianjb)&"金币！" end if Response.write "连续7天签到就可获得额外100金币的奖励！"&chr(13) if rs("signCi") > 1 then Response.write "
您已经连续签到"&rs("signCi")&"天。"&chr(13) end if rs.close set rs=nothing '加币 conn.execute("update Users Set myjb = myjb + "&gCent&" where ID="&myid) conn.close set conn=Nothing response.write"
我的空间" %>