看看代码吧
<%
adopenkeyset=1
adlockoptimistic=3
'连接数据库
set conn=Server.Createobject("ADODB.Connection")
strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("\")& "\in.mdb;UID=;PWD=;"
conn.Open strProvider,3,3
set rs=server.createobject("adodb.recordset")
rs.open "u",conn,adopenkeyset,adlockoptimistic
while not rs.eof
if rs("姓名")="12" then
form1.cj.value=rs("科目1").value
end if
rs.movenext
wend
%>
<form name="form1">
<p><input type="text" name="cj"> </p>
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'form1'
/modify.asp, 行82
怎么弄?
问题点数：0、回复次数：2Top
1 楼xiaobird1（Vincent）回复于 2003-11-01 16:43:24 得分 0
if rs("姓名")="12" then
form1.cj.value=rs("科目1").value
end if
rs.movenext
form1.cj.value=rs("科目1").value
不可以这样使用的，这个是客户端脚本，如果在服务器端赋值的话，这样就可以：
Example:
adopenkeyset=1
adlockoptimistic=3
'连接数据库
set conn=Server.Createobject("ADODB.Connection")
strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("\")& "\in.mdb;UID=;PWD=;"
conn.Open strProvider,3,3
Respnse.write <form name=form1>"
set rs=server.createobject("adodb.recordset")
rs.open "u",conn,adopenkeyset,adlockoptimistic
while not rs.eof
if rs("姓名")="12" then
Response.write "<p><input type=text name=cj value='"& rs("科目1").value
& "> </p>"
end if
rs.movenext
wend
%>
Top
2 楼qq163（风雪）回复于 2003-11-01 19:35:33 得分 0
你说的方法我会,我要的是,把数据显示在我在网页上制作好的文本框内Top
