<% 'lift channel/生活频道 'GoodLuck for YOU,GoodLuck for ME,GoodLuck for ALL set rs=Server.CreateObject("ADODB.Recordset") %> 古城热线都市生活
 
 

浪漫情侣装海滩清新体验

<% BoardID="390" SQL="select top 1 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
<% BoardID="391" SQL="select top 1 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
<% BoardID="392" SQL="select top 1 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
<% BoardID="393" SQL="select top 1 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
<% BoardID="394" SQL="select top 1 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
<% BoardID="407" SQL="select top 1 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
<% BoardID="411" SQL="select top 1 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
<% BoardID="413" SQL="select top 1 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
<% BoardID="394" SQL="select top 2 MsgID,Topic from Messages where BoardID = '"&BoardID&"' and IsElite='1' order by MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof rs.movenext MsgIn=MsgIn&rs("MsgID")&"," response.write ""&rs("Topic")&"" rs.MoveNext wend rs.close %>
 
   
[店　　名]
[简　　介]

Super Dollfie 简称SD，是日本volks公司制造生产的1/3球型关节可动人偶,...
  花样容颜
窈窕塑身
<% BoardID="391" SQL="select top 1 * from Messages where BoardID = '391' and IsDel='0' and len(pic)>2 and commend=1 order by MsgID desc" 'response.write sql rs.Open SQL,DBParams %>
"><%=rs("Topic")%>
<%=left(rs("Body"),40)%>...
   
<% rs.close BoardID="391" SQL="select top 5 MsgID,Topic,Pic,Body from Messages where BoardID = "&BoardID&" and IsDel='0' and Iselite='1' order by IsTop,MsgID desc" ' response.write sql rs.Open SQL,DBParams while not rs.eof MsgID=rs("MsgID") Topic=rs("Topic") Pic=rs("Pic") Body=Left(rs("Body"),50) %> <% rs.MoveNext wend rs.close %>
<%=Topic%>
 
<% BoardID="394" SQL="select top 1 * from Messages where BoardID = "&BoardID&" and IsDel='0' and len(pic)>2 and commend=1 order by MsgID desc" 'response.write sql rs.Open SQL,DBParams %>
"><%=rs("Topic")%>
<%=left(rs("Body"),40)%>...
   
<% rs.close BoardID="394" SQL="select top 5 MsgID,Topic,Pic,Body,commend from Messages where BoardID = "&BoardID&" and IsDel='0' and Iselite='1' order by IsTop,MsgID desc" 'response.write sql rs.Open SQL,DBParams,1,1 while not rs.eof MsgID=rs("MsgID") Topic=rs("Topic") Pic=rs("Pic") Body=Left(rs("Body"),50) %> <% rs.MoveNext wend rs.close %>
<%=Topic%>
 
  饰物情怀
潮流解码
<% BoardID="393" SQL="select top 1 * from Messages where BoardID = "&BoardID&" and IsDel='0' and len(pic)>2 and commend=1 order by MsgID desc" 'response.write sql rs.Open SQL,DBParams %>
"><%=rs("Topic")%>
<%=left(rs("Body"),50)%>...
   
<% rs.close BoardID="393" SQL="select top 5 MsgID,Topic,Pic,Body from Messages where BoardID = "&BoardID&" and IsDel='0' and Iselite='1' order by IsTop,MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgID=rs("MsgID") Topic=rs("Topic") Pic=rs("Pic") Body=Left(rs("Body"),50) %> <% rs.MoveNext wend rs.close %>
<%=Topic%>
 
<% BoardID="392" SQL="select top 1 * from Messages where BoardID = "&BoardID&" and IsDel='0' and len(pic)>2 and commend=1 order by MsgID desc" 'response.write sql rs.Open SQL,DBParams %>
"><%=rs("Topic")%>
<%=left(rs("Body"),50)%>...
   
<% rs.close BoardID="392" SQL="select top 5 MsgID,Topic,Pic,Body from Messages where BoardID = "&BoardID&" and IsDel='0' order by IsTop,MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgID=rs("MsgID") Topic=rs("Topic") Pic=rs("Pic") Body=Left(rs("Body"),50) %> <% rs.MoveNext wend rs.close %>
<%=Topic%>
 
  评头论足
家居生活
<% 'demo BoardID="411" SQL="select top 5 MsgID,Topic,Pic,Body from Messages where BoardID = "&BoardID&" and IsDel='0' and len(pic)>2 and commend=1 order by IsTop,MsgID desc" 'response.write sql rs.Open SQL,DBParams if not rs.eof then MsgID=rs("MsgID") Topic=rs("Topic") Pic=rs("Pic") Body=Left(rs("Body"),50) rs.moveNext end if rs.close %>
<%=Topic3%>
<%=Body3%>...
   
<% BoardID="411" SQL="select top 5 MsgID,Topic,Pic,Body from Messages where BoardID = "&BoardID&" and IsDel='0' order by IsTop,MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof %> <% rs.MoveNext wend rs.close %>
<%=rs("Topic")%>
 
时尚生活信箱：zjvcbf@pub.xaonline.com
  都市心情
运程走势
<% BoardID="407" SQL="select top 1 * from Messages where BoardID = "&BoardID&" and IsDel='0' and len(pic)>2 and commend=1 order by MsgID desc" 'response.write sql rs.Open SQL,DBParams %>
"><%=rs("Topic")%>
<%=left(rs("Body"),50)%>...
   
<% rs.close BoardID="407" SQL="select top 5 MsgID,Topic,Pic,Body from Messages where BoardID = "&BoardID&" and IsDel='0' order by IsTop,MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgID=rs("MsgID") Topic=rs("Topic") Pic=rs("Pic") Body=Left(rs("Body"),50) %> <% rs.MoveNext wend rs.close %>
<%=Topic%>
 
<% BoardID="413" SQL="select top 1 * from Messages where BoardID = "&BoardID&" and IsDel='0' and len(pic)>2 and commend=1 order by MsgID desc" 'response.write sql rs.Open SQL,DBParams %>
"><%=rs("Topic")%>
<%=left(rs("Body"),50)%>...
   
<% rs.close BoardID="413" SQL="select top 5 MsgID,Topic,Pic,Body from Messages where BoardID = "&BoardID&" and IsDel='0' order by IsTop,MsgID desc" 'response.write sql rs.Open SQL,DBParams while not rs.eof MsgID=rs("MsgID") Topic=rs("Topic") Pic=rs("Pic") Body=Left(rs("Body"),50) %> <% rs.MoveNext wend rs.close %>
<%=Topic%>
 

 
::友情链接
　露倩化妆品评论网 | 厦门结婚 | 　号码联盟 | 海网 | 中国时尚品牌网 | 今视网