激光切割機,激光打標機,激光雕刻機大型專業設備制造商

當前位置: 首 頁 - 樣品展示
    
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source=" & Server.MapPath("../../SiteFiles/Data.asax") objConn.Open strSQL = "SELECT id,Title FROM au_Content where NodeID=804" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, 1, 1 Count=objRS.RecordCount Item=10 redim a(Item, 2),t(Count) for each j in t j=0 next Randomize timer for j=1 to Item k=int(rnd*Count+1) do while t(k)<>0 k=int(rnd*Item+1) loop t(k)=1 next j=1:i=1 Do While Not objRS.Eof if t(j)=1 then a(i,1)=objRS("id") a(i,2)=objRS("Title") i=i+1 end if j=j+1 objRS.MoveNext Loop for i=1 to Item Response.write ""&a(i,2)&" " next objRs.Close set objRs=nothing objConn.Close set objConn=nothing %>
  • Copyright © 2001-2009 ymlaser.com All Right Reserved. 廣東大族粵銘激光科技股份有限公司 版權所有
  • 市場總部銷售熱線: 0769-89838888、89839999  激光切割機,激光打標機,激光雕刻機大型專業激光設備制造商 粵ICP備12053535
RSS  |  應用工藝  |  網站地圖  |  聯系我們
    
极速飞艇1-10号技巧 黄金城棋牌游戏网址? 河南麻将玩法大全图解 什么app打麻将开好友房 广东十一选五推荐 芝麻策略 辽宁11选5人工在线计划 澳门棋牌娱乐广告网 qq麻将积分规则 华东15选5走势图浙江 成都麻将机配件市场 大冷股份股票最新消 长春麻将微乐下载新版 安徽快三电子走势图 福建36选7福利彩票开奖查询结果 竞彩比分直播188 拜仁慕尼黑德甲排行