Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase(""&dbDsn&"","dlmis/dlmis",0)
Set tmpRs=OraDatabase.CreateDynaset("select * from tbl_news order by to_number(newsid) desc",0)
'求ID值
if (tmpRs.bof and tmpRs.eof) then
id=1
else
id=tmpRs("newsid")+1
end if
tmpRs.close
set tmpRs=nothing