省交通厅出台

<% 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 %> 省交通厅出台

工作动态

电子地图初见成效，进入试用阶段

6月2日，在省局郭科长和省地理信息中心茅舒老师的指导下，电子地图安装工作顺利完成，进入下步试用阶段。

康庄工程由于点多面广，牵涉面大，数据繁多，基础数据统计一直是工作中的一个大难点。该管理信息系统利用现代电脑信息处理的强大功能，不仅提供了一个准确的农村公路数据库和内容全面、直观易懂的地图，而且把两者有机地结合在一起，查阅方便，使用简单。信息系统的建成，必将为以后康庄工程管理工作解决许多难题。

关闭窗口