<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") dim mykey(8),mytitle(8) for i=1 to 8 mykey(i)=0 mytitle(i)="" next sqltext="select keyno,sortnum,title,picflag,content from miscell where classcode='104' and picflag='1' order by sortnum " rs.Open sqltext,cn,1,1 i=1 do while not rs.EOF mykey(i)=rs(0) mytitle(i)=trim(rs(2)) i=i+1 rs.MoveNext loop rs.Close sqltext="select content from miscell where classcode='999' and sortnum=1 " rs.Open sqltext,cn,1,1 if not rs.EOF then content=trim(rs(0)) end if rs.Close mymenu="room" %>

大床房

 <% sqltext="select * from room order by sortnum asc " rs.Open sqltext,cn,1,1 do while not rs.EOF %> <% rs.MoveNext loop rs.Close %>

客　　房　　价　　目　　表
 
客房类型 旺季 淡季  
 
 <%=trim(rs("title"))%> <%=rs("price")%>元/间 <%=rs("price2")%>元/间 ">
  四人间
60元/床位
60元/床位
  

 

<%=checkstr(content)%>

复试间

 

标间

 

单间

 

四人间

  
discount chi chi sale buy ghd ugg sale classic tall ugg timberland boots timberland sale chi flat iron chi ceramic iron ugg boots ghd hair straightener ghd straightener mbt sale chi iron ceramic flat iron ugg uk mbt shoes mbt shoe ghd iron flat iron chi iron timberland store disocunt mbt mbt uk ghd straightenersi uggs sale ugg boots chi ceramic ghd straighteners ghd hair ugg sale timberland boot timberland online Cheap Asics tory burch wallet