<%@ codepage ="936" %>
<%
if session("TWT_ARR_ArgALL")="" then response.end
TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=")
user=TWT_ArrArg(0)
grade=TWT_ArrArg(2)
myid=TWT_ArrArg(1)
set TWT_ArrArg=nothing
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
function ccdate(sdate)
temp=cdate(sdate)
if len(month(temp))=1 then
m="0"&month(temp)
else
m=month(temp)
end if
if len(day(temp))=1 then
d="0"&day(temp)
else
d=day(temp)
end if
ccdate=year(temp)&"-"&m&"-"&d
end function
function cctime (stime)
if len(hour(stime))=1 then
h="0"&hour(stime)
else
h=hour(stime)
end if
if len(minute(stime))=1 then
m="0"&minute(stime)
else
m=minute(stime)
end if
if len(second(stime))=1 then
s="0"&second(stime)
else
s=second(stime)
end if
cctime=h&":"&m&":"&s
end function
'=====================================================
sheepname=request.form("sheepname")
if sheepname="" or len(sheepname)>10 then
response.write "小孩名字非法！"
response.end
end if
rs.open "select 黑石手 from 用户 where 姓名='"&user&"'",conn,1,1
hytime=rs(0)
if hytime=0 then
rs.close
conn.close
%>
<%
response.end
end if
nowtime=Hour(time())
t=nowtime-hytime
fy2=Minute(time())
if not(t=10 or (t=11 and fy2<5)) then
rs.close
conn.close
%>
<%
response.end
end if
conn.execute("update 用户 set 黑石手=0 where 姓名='"&user&"'")
rs.close
conn.close
%>
<%
rs.open"select * from sheep where user='" & user & "'",conn,1,1
if not(rs.bof and rs.eof) then
conn.close
set rs=nothing
set conn=nothing
%>
<%
response.end
end if
rs.close
rs.open"select * from rules",conn,1,1
cleaninit=rs("cleaninit")
sheephappyinit=rs("happyinit")
sheephealthinit=rs("healthinit")
milkinit=rs("milkinit")
lifeinit=rs("lifeinit")
hungryinit=rs("hungryinit")
sheepdate=date
feeddate=DATEADD("d",-1,DATE)
workload=0
rs.close
conn.execute"insert into sheep(sheephappy,sheephealth,user,sheepname,sheepdate,life,milk,hungry,workload,clean,feeddate,feedsheepday,logintoday) values('"&sheephappyinit&"','"&sheephealthinit&"','"&user&"','"&sheepname&"','"&sheepdate&"','"&lifeinit&"','"&milkinit&"','"&hungryinit&"','"&workload&"','"&cleaninit&"','"&feeddate&"','0','"&feeddate&"')"
rs.open"select * from sheep",conn,1,1
rs.movelast
sheepid=rs("id") '小孩编号
conn.execute"update sheep set user='"&user&"' where sheepname='"&sheepname&"'"
%>
天外天江湖