% 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-10 来源兰溪市交通局
|
|
康庄工程的建设,为兰溪人民致富奔小康带来了契机。日前,马涧镇党委书记潘文锋在接受记者采访时说,康庄工程带动了该镇的种养殖产业,增加了经济效益,并使更多的农民致富奔小康。
|