asp读取数据库代码

<!--#include file="conn.asp"-->

<%

dim ip

ip=Request.ServerVariables("REMOTE_ADDR")

set rs=server.CreateObject("adodb.recordset")

rs.open"select * from ad where ip='"&ip&"'",conn,1,3

if not rs.eof then

rs("c")=rs("c")+1

rs.update

else

rs.addnew

rs("ip")=ip

rs("c")=1

rs.update

end if

%>

'给分吧

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

'如果你的是Access数据库的话，．就用这下面一段

connstr="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath("你的数据库路径")

'如果你的是SQL数据库的话，就用这下面一段

Dim Sql_DBServer,Sql_DBName,Sql_User,Sql_Password

Sql_DBServer = "(local)" '连接名(本地用(local),外地用IP如：127.0.0.1)

Sql_DBName = "数据库名" '数据库名

Sql_User = "sa" '访问数据的用户名

Sql_Password = "000000" '访问数据的密码

'-----------------------------------------------------------------------------------------------------

'以下参数请勿修改，否则可能导致系统无法运行

ConnStr = "Provider = SqloledbUser ID = " &Sql_User &"Password = " &Sql_Password &"Initial Catalog = " &Sql_DBName &"Data Source = " &Sql_DBServer &""

'上面只能选择一段

conn.Open connstr '打开数据库

sql="select top 1 * from product where bigclassname='设计作品展示' order by id desc"

set rs=conn.execute(sql)

if not rs.eof and not rs.bof then

response.write ("这就是你要读取的ID："&rs("id"))

else

response.write("没有任何数据")

end if

这个还不容易啊. 你在数据库里面应该有信息的id 和 信息的 标题title吧. 首先调用数据库, 就是我们说的标题列表. 如果是用表格布局的话 列表的代码应该是这样写的 <% set rs = server.CreateObject("ADODB.Recordset") sql = "select * from 表名 where 条件" rs.open sql,conn,1,1 do while not rs.eof %><tr><td width="10"></td><td height="21">·<%=left(rs("title"),10)%><td><td width="10"></td></tr><% rs.movenext loop rs.close set rs = nothing %></table>这样文章的标题列表就显示出来了 再加个连接到显示文章的内容页 就是在 <%=left(rs("title"),10)%>上加链接<a href = "内容页显示页面?id = <%=rs("id")%>"><%=left(rs("title"),10)%></a>最后就是内容显示页 要显示内容的话就是先读取传过来的id参数 <% set rs = server.CreateObject("ADODB.Recordset") sql = "select * from 表名 where id = '"&request("id")&"'" rs.open sql,conn,1,1 %><tr><td width="10"></td><td height="21"><%=rs("title")%><td><td width="10"><%=rs("content")%></td></tr><% rs.close set rs = nothing %></table>这样就显示出来了 追问： 列表页的代码:<!--#include file="conn.asp"--><% exec="select * from PS" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %><div><%do while not rs.eof%><a href = "show.asp?id = <%=rs("id")%>"><%=rs("psname")%></a><% rs.movenext loop %></div>这是显示内容页的代码: <!--#include file = "conn.asp" --><% set rs=server.createobject("adodb.recordset") exec="select * from ps where id = '"&request("id")&"'" rs.open exec,conn,1,1 %><table><tr><td><%=rs("pstitle")%></td></tr></table>总是提示: Microsoft OLE DB Provider for ODBC Drivers (0x80040E21) ODBC 驱动程序不支持所需的属性。 /myweb2/show.asp, 第 5 行 .... 麻烦你了. 回答： exec="select * from PS" set rs=server.createobject("adodb.recordset") 把两行位置换下看 追问： 已经换过了.是一样的.不知道是怎么回事 回答： exec="select * from ps where id = '"&request("id")&"'" 改成 exec="select * from ps where id = "&request("id")&"" 追问： 也不行.还是同样的错误.方便加QQ吗 我的278455170

求采纳

---