急：很简单的问题，文本框如何显示数据库中一条纪录。
我在做一个网页，用ASP。实现“修改”数据库中纪录的功能。
点表中某条纪录，则各子段值分别显示在文本框中，供用户修改。
sql = "select * FROM table1 WHERE ID=" + cstr(ID)
rs.open sql,conn,1,1
<TD align=right align=center bgcolor=lightgoldenrodyellow>机器名</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text1 value='<%=rs.field("name").value %>'size="55"></TD></tr>
ID值为选中的那条纪录
我想在text1文本框中显示出子段为“name”的数据。
这个语句怎么改 ：value='<%=rs.field("name").value %>’
或者有没有其他方法。
请指点，谢谢了！
问题点数：50、回复次数：23Top
1 楼522jack（单操）回复于 2005-04-14 14:01:17 得分 5
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text1 value="<%=rs("name") %>" size="55"></TD></tr>Top
2 楼listry_cheng（Listry）回复于 2005-04-14 14:01:24 得分 0
有什么问题吗？你的写法是正确的。
不过value='<%=rs.field("name").value %>'size="55">要修改成
value='<%=rs.field("name").value %>' size="55">
size前有个空格Top
3 楼myvicy（我来也！）回复于 2005-04-14 14:01:55 得分 0
value='<%=rs.field("name")%>’Top
4 楼listry_cheng（Listry）回复于 2005-04-14 14:02:41 得分 2
<%=rs.field("name").value%> 可以直接写成 rs("name")Top
5 楼underone（再看抽你小丫的）回复于 2005-04-14 14:04:35 得分 5
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text1 value="<%=rs("name") %>" size="55"></TD>
Top
6 楼abcdefg3305（游牧人）回复于 2005-04-14 14:07:52 得分 0
<INPUT name=text1 value='<%=rs("name%>'size="55">Top
7 楼wxf0104（西方失败007）回复于 2005-04-14 14:29:49 得分 5
<INPUT name=text1 value="<%=rs("name")%>" size="55">
Top
8 楼yb2008（中科商务网--ZKE360.COM）回复于 2005-04-14 15:17:00 得分 0
人多饭少,,Top
9 楼yb2008（中科商务网--ZKE360.COM）回复于 2005-04-14 15:17:40 得分 0
value='<%=rs.field("name").value %>’
改:
value='<%=rs.field("name")%>’Top
10 楼samyan（Good good study,day day up）回复于 2005-04-14 15:30:38 得分 5
value="<%=rs("name")%>"Top
11 楼Lucky527（幸运星）回复于 2005-04-14 17:03:28 得分 0
以下是错误提示，帮我看看是什么错误：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/rep.asp，行10
以下是我的修改页面代码：
<%@ Language=VBScript %>
<body>
<div align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="480">
<tr align=center bgcolor=lightgoldenrodyellow>
<TD align=center colspan=2><font color="blue">修改记录</font></TD></TR>
<%
Dim id,sql
id= Request.QueryString("ID")
Set sql=conn.execute("Select * From table1 Where ID =" & id)
%>
<FORM action="rep.asp" method=post name=FORM2>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>机器名</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text1
value="<%=Trim(sql("name"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>序列号</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text2
"<%=Trim(sql("no"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>IP地址</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text3
"<%=Trim(sql("IP"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>MAC地址</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text4
"<%=Trim(sql("MAC"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>部室</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text5
"<%=Trim(sql("office"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>布线点</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text6
"<%=Trim(sql("a"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>负责人</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text7
"<%=Trim(sql("man"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>AD密码</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text8
"<%=Trim(sql("password"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>主要应用</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text9
"<%=Trim(sql("soft"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>配件</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text10
"<%=Trim(sql("b"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>操作系统</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text11
"<%=Trim(sql("windows"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>数据库</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text12
"<%=Trim(sql("data"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>补丁版本</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text13
"<%=Trim(sql("c"))%>" size="55"></TD></TR>
<TR>
<TD align=right align=center bgcolor=lightgoldenrodyellow>备注</TD>
<TD align=center align=center bgcolor=lightgoldenrodyellow><INPUT name=text14
"<%=Trim(sql("them"))%>" size="55"></TD></TR>
<tr align=center bgcolor=lightgoldenrodyellow>
<TD align=center colspan=2><INPUT type="submit" value=" 修 改 " id=submit2
name=submit2></TD></TR></TABLE>
</FORM>
</TABLE>
<%
Dim rs,conn
id= Request.QueryString("ID")
sql= "Select * From table1 Where ID=" & id
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
%>
<%
rs("name")=Server.Htmlencode(Request("name"))
rs("no")=Server.Htmlencode(Request("no"))
rs("IP")=Server.Htmlencode(Request("IP"))
rs("MAC")=Server.Htmlencode(Request("MAC"))
rs("office")=Server.Htmlencode(Request("office"))
rs("a")=Server.Htmlencode(Request("a"))
rs("man")=Server.Htmlencode(Request("man"))
rs("password")=Server.Htmlencode(Request("password"))
rs("soft")=Server.Htmlencode(Request("soft"))
rs("b")=Server.Htmlencode(Request("b"))
rs("windows")=Server.Htmlencode(Request("windows"))
rs("data")=Server.Htmlencode(Request("data"))
rs("c")=Server.Htmlencode(Request("c"))
rs("them")=Server.Htmlencode(Request("them"))
rs.updata
response.write "记录已经更新到数据库。"
rs.close
set rs=nothing
%>
</dir>
</body>Top
12 楼baiyunfei（虚度残生）回复于 2005-04-14 17:22:39 得分 5
你没建立数据库connection对象！！
<%
Dim id,sql
id= Request.QueryString("ID")
dim conn
set conn=server.createobject("adodb.connection")
conn.open (.....)'这里放你的数据库连接字符串
Set sql=conn.execute("Select * From table1 Where ID =" & id)
%>
Top
13 楼wxf0104（西方失败007）回复于 2005-04-14 17:52:22 得分 5
对，没connection对象哟~~Top
14 楼Tomato77（我不是坏人）回复于 2005-04-14 18:00:30 得分 2
value='<%=rs.field("name")%>’
Top
15 楼enjsky（郭志军）回复于 2005-04-14 18:06:02 得分 2
高那么复杂作什么啊
这样就可以了阿
value='<%=rs.("name")%>’Top
16 楼wxylvmnn（城隍庙三当家的）回复于 2005-04-14 18:13:46 得分 2
楼猪基本功不过关。
多下点功夫吧。Top
17 楼njhbjmdx（阿牛）回复于 2005-04-14 18:17:08 得分 0
我是来索分的。Top
18 楼Lucky527（幸运星）回复于 2005-04-15 08:35:36 得分 0
建立完数据库connection对象，错误提示如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'DBQ=E:\1\AD.mdb;Defa'
Top
19 楼Lucky527（幸运星）回复于 2005-04-15 10:47:39 得分 0
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'DBQ=E:\1\AD.mdb;Defa'
/rep.asp，行15
这是我目前的代码：
<%@ Language=VBScript %>
<body>
<div align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="480">
<tr align=center bgcolor=lightgoldenrodyellow>
<TD align=center colspan=2><font color="blue">修改记录</font></TD></TR>
<%
dim id,sql
dim rs
dim conn
Response.Write id
set rs=server.createobject("adodb.recordset")
id=request("id")
conn = "DBQ=" + server.mappath("AD.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver
(*.mdb)};"
Set sql=conn.execute("Select * From table1 Where id ="&id)
rs.open sql,conn,1,1
%>
<FORM action="rep.asp?id=<%=request("id")%>" method=post name=FORM2>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>机器名</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text1
value="<%=Trim(sql("name"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>序列号</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text2
value="<%=Trim(sql("no"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>IP地址</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text3
value="<%=Trim(sql("IP"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>MAC地址</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text4
value="<%=Trim(sql("MAC"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>部室</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text5
value="<%=Trim(sql("office"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>布线点</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text6
value="<%=Trim(sql("a"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>负责人</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text7
value="<%=Trim(sql("man"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>AD密码</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text8
value="<%=Trim(sql("password"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>主要应用</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text9
value="<%=Trim(sql("soft"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>配件</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text10
value="<%=Trim(sql("b"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>操作系统</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text11
value="<%=Trim(sql("windows"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>数据库</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text12
value="<%=Trim(sql("data"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>补丁版本</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text13
value="<%=Trim(sql("c"))%>" size="55"></TD></TR>
<TR>
<TD align=right bgcolor=lightgoldenrodyellow>备注</TD>
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text14
value="<%=Trim(sql("them"))%>" size="55"></TD></TR>
<tr align=center bgcolor=lightgoldenrodyellow>
<TD align=center colspan=2><INPUT type="submit" value=" 修 改 " id=submit2
name=submit2></TD></TR></TABLE>
</FORM>
</TABLE>
<%
Response.Write id
id= Request("id")
conn = "DBQ=" + server.mappath("AD.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver
(*.mdb)};"
sql= "Select * From table1 Where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%
rs("name")=Server.Htmlencode(Request("name"))
rs("no")=Server.Htmlencode(Request("no"))
rs("IP")=Server.Htmlencode(Request("IP"))
rs("MAC")=Server.Htmlencode(Request("MAC"))
rs("office")=Server.Htmlencode(Request("office"))
rs("a")=Server.Htmlencode(Request("a"))
rs("man")=Server.Htmlencode(Request("man"))
rs("password")=Server.Htmlencode(Request("password"))
rs("soft")=Server.Htmlencode(Request("soft"))
rs("b")=Server.Htmlencode(Request("b"))
rs("windows")=Server.Htmlencode(Request("windows"))
rs("data")=Server.Htmlencode(Request("data"))
rs("c")=Server.Htmlencode(Request("c"))
rs("them")=Server.Htmlencode(Request("them"))
rs.update
response.write "记录已经更新到数据库。"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</dir>
</body>Top
20 楼underone（再看抽你小丫的）回复于 2005-04-15 11:02:05 得分 2
conn = DRIVER={Microsoft Access Driver (*.mdb)};DBQ="+Server.mappath("AD.mdb")
要放在一个目录下Top
21 楼baiyunfei（虚度残生）回复于 2005-04-15 13:18:25 得分 10
汗，这也叫建立了connection对象？应该是这样：
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + server.mappath("AD.mdb"))
%>
一次就可以多个地方使用了。还是先学习一下基础吧！Top
22 楼Lucky527（幸运星）回复于 2005-04-15 14:10:55 得分 0
编辑页面完成了，只需把
<TD align=center bgcolor=lightgoldenrodyellow><INPUT name=text13
value="<%=Trim(sql("c"))%>" size="55"></TD></TR>
中的sql改成rs就行了。Top
23 楼Coverboy_6（蓝色魅力）回复于 2005-04-15 14:37:44 得分 0
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + server.mappath("AD.mdb"))
%>
Top
