%@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
|
|
|
|
|
|
|
|
| |
|
全市春节前在建工程施工安全检查分组表
|
检查时间 |
组别 |
组长 |
成员 |
检查镇街 |
|
2011.12.
12~.14 |
第一组 |
袁德 |
叶汉鹏、刘斌超、质监1人、万江、道滘安监组各一人。 |
莞城、虎门港、寮步 |
|
第二组 |
黄斌 |
李东、陈宇财、质监1人、桥头、横沥镇安监组各一人。 |
石碣、石龙、石排 |
|
2011.12.
15~.19 |
第一组 |
刘忠 |
王剑雄、李志文、质监1人、厚街、虎门镇安监组各一人。 |
洪梅、麻涌、中堂 |
|
第二组 |
叶志灵 |
叶锦兴、叶汉鹏、质监1人、南城、高埗镇安监组各一人。 |
望牛墩、沙田、道滘 |
|
2011.12.
20~.22 |
第一组 |
黄斌 |
韩前明、何世轩、质监1人、东城、莞城安监组各一人。 |
常平、谢岗、桥头、南城 |
|
第二组 |
刘忠 |
莫锐强、黎建聪、质监1人、樟木头、清溪镇安监组各一人。 |
茶山、松山湖、高埗 |
|
2011.12.
23~27 |
第一组 |
袁德 |
李创、王冠杰、质监1人、松山湖、长安镇安监组各一人。 |
万江、厚街、大岭山 |
|
第二组 |
叶志灵 |
王强、刘沃辉、质监1人、沙田、大朗镇安监组各一人。 |
长安、虎门、生态园 |
|
2011.12.
28~30 |
第一组 |
黄斌 |
吴伟献、黎建聪、质监1人、塘厦、寮步镇安监组各一人。 |
东城、樟木头、清溪 |
|
第二组 |
叶志灵 |
吴晃学、黎锦光,质监1人、大岭山、凤岗镇安监组各一人。 |
塘厦、黄江、大朗 |
|
2012.1.
2~4 |
第一组 |
刘忠 |
卢锦财、叶锦兴、质监1人、麻涌、中堂镇安监组各一人。 |
厚街、东坑、企石、横沥 |
|
第二组 |
黄斌 |
王冠杰、陈宇财、质监1人、洪梅、望牛墩镇安监组各一人。 |
南城、松山湖、麻涌 |
|
2012.1.
5~9 |
第一组 |
袁德 |
何世轩、熊煦茵、质监1人 |
重点工程、城市轨道 |
|
第二组 |
叶志灵 |
黎锦光、王强、质监1人 |
重点工程、城市轨道 |
备注:1、市住房和城乡建设局相关科室、市安监站负责人进行督查;
2、
检查工地的具体时间由检查组通知。
|
|
|
|
|
<%
news.Close()
Set news = Nothing
%>