<%
'特别声明：本程序用于试用，对期间造成的（死机）现象拒负法律责任
dim house,car
house=trim(request("Boy_house"))
car=trim(request("Boy_car"))
if house="有房" and car="有车" then
call girl_嫁給(boy)
else if girl_愿意等() then
do while boy_赚钱()<100,000 and girl_感情() < 8
for day=1 to 365
if day="情人节" then
if boy_givegirl_玫瑰() then
girl_感情=girl_感情+1
else
girl_感情=girl_感情-1
end if
if girl_感情<2 then
alert"<script language='javascript'>girl.警告().boy()</script>"
end if
if girl_感情<0 then
exit do
response.end
end if
else
call boy_拼命賺錢()
end if
Next
loop
call girl_嫁給(boy) 
else
call girl.another_boy()
end if
%>