<%@ 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("性别") ml=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("类型") Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr sql="SELECT * FROM 物品 where 类型='卫生用品' and 拥有者='" & my & "'" Set Rs=conn.Execute(sql) %> 我 的 小 屋

欢迎<%=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%>
<% do while not rs.eof and not rs.bof %> <% rs.movenext loop conn.close %>
<%if sex="女" then%><%end if%><%if sex="男" then%><%end if%> <%if lx="高级公寓" then%><%end if%><%if lx="花园洋房" then%><%end if%><%if lx="豪华别墅" then%><%end if%>
物品名
数量
操作
<%=rs("物品名")%>
<%=rs("数量")%>
 >
使用

：你回来了

当前位置：卫生间

魅力：<%=ml%>
<%end if%>