Question

ASP中如何将从数据库中查询到的一条记录的一个字段赋值给一个变量?

set cn=Server.CreateObject("adodb.Connection")
cn.open"Provider=Microsoft.Jet.OLEDB.4.0;"& "Data Source="& server.MapPath("JYnovels.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from booktype where ID="&Request("menu1"),cn,2,2

Answer 1

希望我的回答对你有用：
<% set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb") %> 第一句话定义了一个adodb数据库连接组件，第二句连接了数据库，大家只要修改后面的数据库名字就可以了。是不是很简单？ 下面再看三句： <% exec="select * from guestbook" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %> 这三句加在前面两句的后面，第一句：设置查询数据库的命令，select后面加的是字段，如果都要查询的话就用*，from后面再加上表的名字，我们前面建立的是不是一个gustbook表阿？第二句：定义一个记录集组件，所有搜索到的记录都放在这里面，第三句是打开这个记录集，exec就是前面定义的查询命令，conn就是前面定义的数据库连接组件，后面参数“1，1”，这是读取，后面讲到修改记录就把参数设置为1，3，好了接下来我们读取记录。 <table width="100%" border="0" cellspacing="0" cellpadding="0"> <%do while not rs.eof%><tr> <td><%=rs("name")%></td> <td><%=rs("tel")%></td> <td><%=rs("message")%></td> <td><%=rs("time")%></td> </tr><% rs.movenext loop %> </table> 在一个表格中，我们用4列分别显示了上次建立的表里面的四个字段，用do循环，not rs.eof的意思是条件为没有读到记录集的最后，rs.movenext的意思是显示完一条转到下面一条记录，<%=%>就等于<%response.write%>用于在html代码里面插入asp代码，主要用于显示变量。

Answer 2

现在我只知道你有ID这个字段，请根据实际情况变换。
另外，myVar这个变量的名称也可修改，这里只是个例子。
if rs.bof or rs.eof then
Response.Write "没有找到指定记录"
Response.End()
else
Dim myVar
myVar=rs("ID")
end if

Answer 3

dim A
set cn=Server.CreateObject("adodb.Connection")
cn.open"Provider=Microsoft.Jet.OLEDB.4.0;"& "Data Source="& server.MapPath("JYnovels.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from booktype where ID="&Request("menu1"),cn,2,2
A=rs("这里放你要从数据库取的字段撒")

Answer 4

set cn=Server.CreateObject("adodb.Connection")
cn.open"Provider=Microsoft.Jet.OLEDB.4.0;"& "Data Source="& server.MapPath("JYnovels.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select * from booktype where ID="&Request("menu1")
rs.open sql,cn,1,1
bookname=rs("name")
其中bookname是自定义的变量，rs("name")是数据库中的name字段值。

Answer 5

Dim a
a=rs("a")