<%@ LANGUAGE=VBScript 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"),"=") my=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) 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) sex=rs("性别") %> <% sql="select * from 房屋 where 户主='" & my & "' or 伴侣='" & my & "'" set rs=conn.execute(sql) if rs.eof or rs.bof then%> <%elseif rs("状态")<>"正常" then%> <%else lx=rs("类型") %> 我 的 小 屋

欢迎<%=my%>回到自己的小窝

<%if lx="一般房屋" or lx="高级公寓" or lx="花园洋房" or lx="豪华别墅" then%> 客厅 <%end if%> <%if lx="一般房屋" or lx="高级公寓" or lx="花园洋房" or lx="豪华别墅" then%> 卧室 <%end if%> 同床共枕 <%if lx="一般房屋" or lx="高级公寓" or lx="花园洋房" or lx="豪华别墅" then%> 储藏室 <%end if%> <%if lx="高级公寓" or lx="花园洋房" or lx="豪华别墅" then%> 餐厅 <%end if%> <%if lx="高级公寓" or lx="花园洋房" or lx="豪华别墅" then%> 卫生间 <%end if%> <%if lx="高级公寓" or lx="花园洋房" or lx="豪华别墅" then%> 小金库 <%end if%> <%if lx="花园洋房" or lx="豪华别墅" then%> 花园 <%end if%> <%if lx="豪华别墅" then%> 游泳池 <%end if%> <%if lx="豪华别墅" then%> 健身房 <%end if%> <%if lx="花园洋房" or lx="豪华别墅" then%> 书房 <%end if%>
<%if sex="女" then%><%end if%><%if sex="男" then%><%end if%> <%if lx="豪华别墅" then%><%end if%>

聊天
　
　
　
　
　
　
　
　
　

：你回来了

当前位置：健身房

<%end if%>