企业新闻
-
2014年优德平台优德官方网站激光春节放假通知 - 2014-01-16 - 内容简介: 新年寄语 - 2014-01-03
- 内容简介:
尊敬的各位同仁、合作伙伴、社会各界朋友们：
迎着2014年新年的钟声，优德平台优德官方网站迎来了新的一年。此时，优德平台优德官方网站心潮激荡，此刻，优德平台优德官方网站笑意飞扬。亲爱的朋友，值此辞旧迎新之际，优德平台优德官方网站对十三年来始终关注和支持大族粤铭激光的所有社...
- 优德平台优德官方网站开展激光基础知识培训 - 2013-12-04
- 内容简介:
为创建学习型企业，培养和开发人才，增强竞争力，为企业今后的发展提供助力和动力，优德平台优德官方网站企业定期举行各类培训。
- 提升企业文化，优德平台优德官方网站举行第九届员工运动会 - 2013-12-03
- 内容简介:
11月20
- 卓劲松总经理荣获慧聪网“十大风云人物” - 2013-11-29
- 内容简介:
2013年11
- 激光导光板应用之LED篇 - 2013-11-26
- 内容简介:
-
<%
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
%>
