Question

求助asp查询数据库的代码

我想在一个页面上显示出表中的日期列表，点击日期则打开显示有当天全部的数据页面，请写出数据库连接、查询和数据输出的完整的代码，谢谢表ab 日期 编号 数据2014/1/9 1 A2014/1/9 2 B2014/1/10 1 C2014/1/10 2 D
2014/1/11 1 E
2014/1/11 2 F

Answer 1

    '定义链接
    set conn=Server.CreateObject("ADODB.Connection")
    conn.open "provider=sqloledb.1;Persist Security Info=false;data source=数据库地址;User ID=用户名;pwd=用户密码;Initial Catalog=数据库名字"
    '定义表 
    Set ds=Server.CreateObject("ADODB.Recordset")
    '查询语句
    sql="select * from Table1"
    '查询
    ds.open sql,conn,1,1
    '循环绑定
    Do While Not ds.Eof
        Response.Write "<li><span>"&ds("date")&"</span><span>"&ds("id")&"</span></li>"
        ds.Movenext
    Loop
    '关闭对象
    ds.CLose
    Set ds=Nothing
    conn.CLose
    Set conn=Nothing

追问

比如说，我想按需提取其中的第二条怎么写呀？

追答

把那个do while 循环改成 for的比较好实现拿到其中的第几条

'进入循环
For i=1 to ds.RecordCount
    '如果到第二条
    if i=2 then
        '输出
        Response.Write "<li><span>"&ds("date")&"</span><span>"&ds("id")&"</span></li>"
        '跳出For
        Exit For
    End IF
Next

Answer 2

<%
sql="select * from 表名 where 字段名='要取的东西' order by id desc（id倒序）"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.recordcount>0 then
%>
如果有循环 则
<%for i=1 to rs.recordcount%>
（循环的内容））
<%
rs.movenext
next
%>
<%
end if
rs.close
set rs=nothing
%>

Answer 3

什么数据库也不说，怎么写数据库连接代码呀！

追问

mssql数据库

追答

这是第1个，数据库连接程序(cnn.asp)