dim Conn,strConn,rs,strSQL
strConn = "Provider=SQLOLEDB;Data Source=127.0.0.1;User ID=Test;Password=Test;Initial Catalog=Test_DBName"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn
if err.number<>0 then
response.Write "数据库链接失败。" & err.Description
response.End
end if
set rs = server.CreateObject("adodb.recordset")
strSQL = "select title from dbo.tb_e_table"
rs.open strSQL,conn,1,1
If Not rs.eof Then
'结果集存在,则可输出rs
response.write rs("title")
End If
rs.close
Set rs = Nothing
Conn.close
Set Conn = Nothing
上面的rs就是结果记录集
你好!
给你个提示看看
上面连接数据库
dim rs
rs=server.createobject("adodb.recordset") '设置rs为记录集
rs.open "select 这里是字段名多个的话以,分隔 from 这里是表名 order by id desc",conn,1,1'让记录集打开 表 ,id desc是以id降序排列
do while not rs.eof'如果记录不为空则
这里可以写你的html代码了,但是要注意的是 里面输出数据 是 rs("字段名"),这里要用的字段名必须在 打开记录集的时候写上去,不然会报错,其实在打开的时候也可以用*代替,只是不利于优化而已。
rs.movenext
loop
rs.close
set rs=nothing
希望可以帮到你
rs.open "select top 7 id,biaoti,wangzi from xenwen order by id desc",conn,1,1