求助asp查询数据库的代码

    set conn=Server.CreateObject("ADODB.Connection")

    conn.open "provider=sqloledb.1Persist Security Info=falsedata 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

sql="select * from zhang"rs.open sql,conn,1,1

If Not (rs.bof And rs.eof) Then '不为空时显示

    do while not rs.eof%>'<%= rs("hao") %>',<% rs.movenext

    loop

Else

    response.write "没有数据"

End If

rs.close

'第二处,请注意橙色语法部分

sql="select * from zhangdan where hao='"&request("danhao")&"'"

rs.open sql,conn,1,3

If Not(rs.bof And rs.eof) Then '不为空时,表示有数据才能更新

    if request("act")="mod" then

    rs.update

End If

rs.close