<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_news_STRING news.Source = "SELECT title, wenhao, time FROM news ORDER BY time DESC" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 15 Repeat1__index = 0 news_numRows = 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 %> 新建网页 1

[设为首页] [收藏本站] [站长信箱]

欢迎光临东莞市建设工程安全监督站！

质监站 | 首页 | 政策法规 | 标准规范 | 办事指南 | 行业信息 | 下载专区 | 双优工程 | 拆除工程 | 安全知识 | 安全教育 | 信用档案

　
　
2012年平安卡考试情况统计表
镇（街) 考试人数 合格人数 2012年发IC卡人数 备 注
07-11年考试合格 12年考试合格 合 计
莞城 13 13 　 13 13 　
东城 359 314 51 207 258 　
南城 790 790 17 774 791 　
万江 282 282 　 282 282 　
石龙 123 119 　 　 0 　
石碣 76 76 　 76 76 　
石排 　 　 　 　 0 　
企石 91 91 　 91 91 　
茶山 108 108 50 108 158 　
横沥 8 8 　 　 0 　
东坑 　 　 24 　 24 　
常平 250 250 　 174 174 　
桥头 150 150 　 147 147 　
樟木头 140 138 　 108 108 　
谢岗 196 196 3 196 199 　
清溪 200 200 　 193 193 　
凤岗 361 361 70 87 157 　
塘厦 558 538 　 475 475 　
黄江 284 284 　 284 284 　
大朗 174 174 　 81 81 　
寮步 593 593 85 389 474 　
虎门 99 99 　 99 99 　
长安 470 470 19 307 326 　
厚街 229 229 78 132 210 　
沙田 29 29 　 29 29 　
大岭山 329 329 33 329 362 　
中堂 162 162 28 162 190 　
望牛墩 320 320 　 260 260 　
麻涌 67 67 3 67 70 　
道滘 275 275 　 228 228 　
洪梅 　 　 　 　 0 　
高埗 　 　 　 　 0 　
松山湖 893 892 11 554 565 　
虎门港 　 　 　 　 0 　
市属工程 1625 1623 188 1454 1642 　
生态园 　 　 　 　 0 　
合 计： 9254 9180 660 7306 7966 　
　 　 　 　 　 　 　
 制表人:梁庆强      审核人:黎小杰      制表日期：二〇一二年五月七日    

　

　

 　

版权所有：东莞市建设工程安全监督站 ICP证号：粤ICP备05029083号
电话(0769)22981323 传真(0769)22981393
地址:东莞市南城区新基
联络我们

<% news.Close() Set news = Nothing %>