% dim Hits dim vote dim VoteNum dim documentid Dim con Set con = Server.CreateObject("ADODB.Connection") con.Open Application("ConnectionString") Call con.Execute("update documents set hits=isnull(hits,0)+1 where documentid=1239") Dim rs Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=1239") If Not (rs.EOF And rs.BOF) Then Hits = rs(0) Vote = rs(1) VoteNum = rs(2) Else Hits = 1 Vote = 5 VoteNum = 1 End If rs.Close Set rs = Nothing con.Close Set con = Nothing %>
|
|
|
东阳市康庄办重视安全生产管理工作 |
|
2004-6-20 来源东阳市康庄办
|
|
为确保 “乡村康庄工程”砂改油工程的顺利实施,东阳市康庄办切实搞好安全生产管理工作,为工程的实施创造安全、高效的施工环境。
由于砂改油工程点多面广,大多分散在山区乡镇,安全生产管理工作难度较大,东阳市康庄办结合实际情况,采取了相应措施进行管理。一是定期召开安全生产调度会,组织施工人员认真学习有关安全生产的法律法规,及时传达上级有关安全生产精神;二是与各施工企业签订了《安全生产目标责任书》和《安全生产合同》;三是要求各施工企业严格按照“乡村康庄工程”建设程序办事,杜绝违规操作。同时,康庄办加大巡查力度,发现不安全隐患,及时发放安全生产整改通知书,责令施工企业进行停工整改,以确保“乡村康庄工程”建设的顺利实施。 |