＋设为首页 ＋添加到收藏夹
DIM objConn,sql,rs
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "dsn=OracleDSN;uid=ywkh;pwd=ywkh;"
if err.number > 0 then
response.write "连接发生错误，asp的错误说明是：" & err.description & "<br/>"
end if
sql="select * from web_topic_table where topic_id>1 "
set rs=server.createobject("adodb.recordset")
rs.open sql,objConn,3,2
if err.number <>0 then
response.write "连接发生错误，asp的错误说明是：" & err.description & "<br/>"
else
rs.moveLast
Response.Write rs.recordCount
end if
response.write rs("TOPIC_NO")
rs.close
set rs=nothing
rs.open sql,objConn,3,1
