大族粤铭激光是国内最大的激光雕刻机、激光切割机、激光打标机、激光裁床等激光设备和激光机的生产厂商。电话：0769-89838888、89839999
东莞市大族粤铭激光科技有限公司是集激光、精密机械、数控及现代管理为一体的专业从事工业激光设备的研发和生产的高技术企业。主营激光雕刻机、激光切割机、激光打标机。网址http://www.ymlaser.com激光雕刻机
,激光设备,激光打标机,激光切割机激光加工
Laser Cutting Machine Laser Engraving Machine Laser Marking Machine企业信息
公益事业
|
粤铭集团工艺品公司赞助首届东莞消费文化节 | ||||||||||||||||||||
| 为期五天的首届东莞消费文化节于5月1日正式开幕，推出了10多项创新性的商贸文化主题活动，现场客流量达到三百多万人次。粤铭集团工艺品公司为此次文化节提供了全程礼品赞助。 | ||||||||||||||||||||
|
<%
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
