<%@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

安全监督员建筑施工安全技术培训班教材

 下载
4

基坑安全事故及防范措施

 下载
4

垂直运输设备申报表

 下载
5建筑工程垂直运输设备检测监督记录 下载
6施工现场起重机械设备安全隐患限期整改通知书 下载
9施工用电专项检查主要问题告知书 下载
10东莞市建筑工人安全知识普及教育培训申报表 下载
11东莞市建设工程安全监督站施工安全管理资料审查一次性告知书 下载
12 东莞市建设工程安全评价季报表 下载
13 东莞市建设工程安全监督站工程项目安全监督档案 下载
14安全监督提前介入申请表 下载
15建设工程施工安全评价书 下载
16施工准备评价表 下载
17达标评价表 下载
18结构施工评价表 下载
19装饰施工评价表 下载
20竣工评价表 下载
21东莞市符合核发安全生产许可证企业名单 下载
22 在建工程人工挖孔桩情况汇总表 下载
23 东莞市建设工程安全监督登记表 下载
 　

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

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