<%@ codepage ="936" %>
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if session("TWT_ARR_ArgALL")="" then response.end
TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=")
nickname=TWT_ArrArg(0)
my=nickname
grade=TWT_ArrArg(2)
myid=TWT_ArrArg(1)
set TWT_ArrArg=nothing
userip = Request.ServerVariables("REMOTE_ADDR")
Function SqlStr(data)
SqlStr = "'" & Replace(data, "'", "''") & "'"
End Function
on error resume next
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="select 性别,黑石手,道德 from 用户 where ID=" & myid
set rs=conn.execute(sql)
nowtime=Hour(time())
if rs("性别")="男" then
response.write "就算你老婆怀孕了，这也不是你来的地方啊，快出去！！！"
response.end
end if
if rs("黑石手")<>0 then
p=rs("黑石手")
else
response.write "您没有怀孕啊,想怀孕要回家去跟你的配偶......"
response.end
end if
t=nowtime-p
if t<0 then t=10
response.write "你怀孕了，已经"& t & "个月(人间一时|江湖一月)了
"
if t<10 then
response.write "等" & 10-t & "个月再来生产吧"
response.end
end if
mydede=rs("道德")
if t=10 then
randomize timer
r=int(rnd*3)
if r=1 then
response.write "恭喜：检查结果一切顺利"%>
□-为你的孩子取一个好听的名字吧：) |
|
|
<%
elseif r=2 and mydede<10000 then
response.write "很不幸，你难产死亡了，唉，谁叫你平日不做好事也不到禅寺烧香啊？"
' conn.execute "update 用户 set 状态='死',黑石手=0 where 姓名='"& nickname &"'"
conn.execute "insert into 人命(死者,时间,凶手,死因) values ('" & nickname & "',now(),'孩子','难产而死')"
%>
<%
call boot(nickname)
else
response.write "很不幸，你的孩子死亡了"
conn.execute "update 用户 set 黑石手=0 where 姓名='"& nickname &"'"
end if
end if
if t>10 then
response.write "很不幸，你来的太晚了，胎死腹中，小孩已经完完了！！！"
conn.execute "update 用户 set 黑石手=0 where 姓名='"& nickname &"'"
end if
conn.close
response.end
conn.close
set rs=nothing
%>