激光雕刻樣品,激光切割樣品,激光打標樣品展示-草莓视频app黄激光-大型專業設備製造商

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

當前位置: 首 頁 - 樣品展示
    
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source=" & Server.MapPath("../../SiteFiles/Data.asax") objConn.OpenstrSQL = "SELECT id,Title FROM au_Content where NodeID=804"Set objRS = Server.CreateObject("ADODB.Recordset")objRS.Open strSQL, objConn, 1, 1Count=objRS.RecordCountItem=10redim a(Item, 2),t(Count)for each j in t j=0 nextRandomize 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 nextj=1:i=1Do 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 Loopfor i=1 to Item Response.write ""&a(i,2)&" " nextobjRs.Close set objRs=nothing objConn.Close set objConn=nothing %>
  • Copyright © 2001-2009 114shidiao.com All Right Reserved. 廣東草莓视频app黄激光科技股份有限公司 版權所有
  • 市場總部銷售熱線: 0769-89838888、89839999  激光切割機,激光打標機,激光雕刻機大型專業激光設備製造商 粵ICP備12053535