<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Recordset_news Dim Recordset_news_cmd Dim Recordset_news_numRows Set Recordset_news_cmd = Server.CreateObject ("ADODB.Command") Recordset_news_cmd.ActiveConnection = MM_tadata_STRING Recordset_news_cmd.CommandText = "SELECT * FROM data WHERE type='最新消息' order by pdate DESC" Recordset_news_cmd.Prepared = true Set Recordset_news = Recordset_news_cmd.Execute Recordset_news_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Recordset_news_numRows = Recordset_news_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 淘趣宝 打造全国性价比最高的网店推广网站,我们的口号:"平民也能做广告,你的广告你做主" 高效 快捷 流量大 知名度 广告 免费推广 网店 产品推荐 二手闲置 手机数码 女士 女装 男人 男士配件 宝宝 母婴 婴童 运动 家居 影视新闻 书籍 游戏 网游 模特 明星 美女 时尚产品 特色产品 网页设计 网店管理 特别活动 合作"＞

设为首页 收藏夹 客户中心 | 广告合作　

　首页　 二手闲置　 手机数码 　女装/配件　男装/配件　母婴　 运动　 居家　 影视书籍　 游戏
　>>　热点文章
●奥运夏天急速瘦身18大法
●巧配上衣 平胸MM变丰满
●明星混搭T恤200%回头率
●LV最新款包包提前曝光
●艳丽花朵鞋浪漫热辣出位
●8招绝对告别肚腩
●08春男人最喜欢的5款可爱百搭装扮
●大四MM推荐 少男杀手搭配小攻略
 
奥运夏天急速瘦身18大法

这两天特别有夏日的味道，凉风与烈日都在告诉我们奥运已经近乎咫尺了，小编现在推荐18种应景运动，让你参与奥运盛会之余也可以来个急速瘦身:

   1、水中漫步

　　在齐腰深的水中漫步，消耗的热量是陆地上的两倍，运动半小时就可以消耗超过210卡热量。

　　2、举办家庭奥运会

　　尽管真实的奥运会要在一年后才开幕，但这并不妨碍你在家中举办属于自己的奥运会，把院子清理干净，约上三五好友，选择你们最喜欢的项目，接下来你们要做的就是尽情燃烧脂肪。

　　半小时消耗热量：170卡。

　　3、收养绿地

　　收养一块绿地，并且时刻保持它们的清洁，这是一个一举两得的方法，既清洁了环境，又燃烧了脂肪。要知道，把一块绿地清理干净可不是件容易的事。

　　半小时消耗热量：102卡。

　　4、骑车去旅行

　　拉上好友带上背包找一个附近的城市去旅游吧。这可是目前最流行的旅行方式，当然也是个不错的减肥方法。

　　半小时消耗热量：270卡。

　　5、给自己种棵树

　　在郊区的果园给自己种棵树，定期帮它除草捉虫，在享受丰收喜悦的同时，更可以消耗掉102卡的热量。

　　6、去游乐场

　　半小时消耗热量：170卡。

　　7、K歌

　　半小时消耗热量：153卡。

　　8、划船

　　半小时消耗热量：119卡。

　　9、爬楼

　　半小时消耗热量：272卡。

   　10、跳草裙舞

　　半小时消耗热量：153卡。

　　11、在海滩上漫步

　　半小时消耗热量：238卡。

　　12、跳绳

　　半小时消耗热量：340卡。

　　13、打网球

　　半小时消耗热量：238卡。

　　14、遛狗

　　半小时消耗热量：102卡。

　　15、练习防身术

　　半小时消耗热量：237卡。

　　16、朗诵

　　半小时消耗热量：129卡。

　　17、打理花园

　　半小时消耗热量：136卡。

　　18、远足

　　半小时消耗热量：238卡。

 
     
[ 1 ]
 

 
                     
关于我们 广告服务 合作伙伴 客户中心 联系我们 网站地图 推广联盟　客服部 点击这里给我发消息 设计部 点击这里给我发消息

Copyright 2008, 版权所有 TAOQUBAO.COM
  <% Recordset_news.Close() Set Recordset_news = Nothing %>