%@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.事项名称 |
建筑施工起重机械安装告知 |
|
2.颁发的证件及有效期 |
颁发的证件:市安监站收受《建筑施工起重机械安装、拆卸、顶升告知表》,颁发安装告知受理号。 |
|
证件有效期:无 |
|
3.审批类型及法律效力 |
日常管理 |
|
4.设定依据 |
《建筑起重机械安全监督管理规定》(建设部166号,2008年6月1日施行)第十二条规定:安装单位应当履行下列安全职责:(五)将建筑起重机械安装、拆卸工程专项施工方案,安装、拆卸人员名单,安装、拆卸时间等材料报施工总承包单位和监理单位审核后,告知工程所在地县级以上地方人民政府建设主管部门。
《关于建立全省建筑施工起重机械登记管理制度的通知》(粤建安字〔2007〕88号)规定:从2007年11月1日起,凡在本省在建的房屋建筑与市政基础设施工程新安装或移装的建筑施工起重机械,使用单位每次现场安装作业前,应向工程所在地受理部门办理安装告知手续。
起重机械在加节顶升、拆卸作业前,使用单位应向工程所在地受理部门办理告知手续。 |
|
5.申请程序 |
凡在我市在建的房屋建筑与市政基础设施工程新安装或移装的建筑起重机械,使用单位应当每次现场安装作业前,向市安监站办理安装告知手续。办理安装告知手续须提供下列资料:
1、《建筑施工起重机械安装、拆卸、顶升告知表》;
2、《广东省建筑施工起重机械登记证》和《建筑施工起重机械履历手册》;
3、安装单位资质证书、企业安全生产许可证、安装单位的《东莞市建筑行业企业信用管理手册》复印件;
4、经审批的安装(包括加节顶升)和拆卸作业专项方案、特种作业人员名单及操作证复印件;
5、有关规定需要的其他资料;
注:资料均须提供原件及复印件,
凡提交的复印件均需加盖使用单位公章进行确认,原件经核
对后退还。
起重机械在加节顶升、拆卸作业前,使用单位应向市安监站提交《建筑施工起重机械安装、拆
卸、顶升告知表》。 |
|
6.审批受理机构及地点 |
受理机构:
市安监站 受理地点:市安监站六楼办公室 |
|
7.审批决定机关 |
市安监站 |
|
8.审批程序 |
1、市安监站办公室收验材料。对资料不齐全项目,即时一次性告知申请人需澄清、补充的有关情况或文件。
2、对资料齐全的,自收到之日由市安监站市在《建筑施工起重机械安装、拆卸、顶升告知表》上注明安装告知受理号并盖公章;
3、发现申请人提交虚假资料的,经查证属实,将依法提请建设局作出处理,并作为不良行为予以记录和向社会公示。
注:申请人对建筑施工起重机械安装告知的办理意见有异议的,可依法向市人民政府(或省建设厅)申请行政复议或者向人民法院提起行政诉讼。 |
|
9.审批时限 |
即到即办 |
|
10.审批收费 |
无 |
|
11.审批表格 |
《建筑施工起重机械安装、拆卸、顶升告知表》 |
|
12.受理咨询与投诉的机构和电话 |
受理咨询机构:市安监站办公室 电话:22981323;
受理投诉机构:市安监站办公室 电话:22981323。 |
|
13.备注 |
|
| |
|
|
<%
news.Close()
Set news = Nothing
%>