如何显示插入到Access数据库中的信息 100分

[lancelotjevons]

这是Default.html中的文件
<form method="post" action="Office.asp">
序 号：<input type="text" name="XH" size="8"> <br>
名 称：<input type="text" name="username" size="8"> <br>
电 话：<input type="text" name="phone" size="20"> <br>
说 明：<input type="text" name="explain" size="20"> <br>
备 注：<input type="text" name="bz" size="20"><br>
<input type="submit" value="确定"> <input type="reset" value="取消">

这是Office.asp中的文件，数据可以插入Access中但不能在Office.asp中显示
不知道错误在那，请指教，谢谢
<%
dbfile=Server.MapPath("Address.mdb")

Set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile

'String containing Sql query is created and sent.

'SELECT *FROM Address

'just means Select all the columns from the table comment


XH = request("XH")
username = request("username")
phone = request("phone")
explain = request("explain")
bz = request("bz")

IF username<>"" AND phone<>"" AND XH<>"" AND bz<>"" THEN
inssql="insert into office (XH,NAME,TELEPHONE,SM,BEI) values ('"&XH&"','"&username&"','"&phone&"','"&explain&"','"&bz&"')"
OBJdbConnection.execute(inssql)

Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1,1
ELSE
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1,1
END IF
%>

<p align="center"><font size="5" color="#FF0000" face="仿宋_GB2312">第一个</font></p>
<hr width=60% size=2 color=#008080>

<%
Response.Write("<div align=center><center><table width=80% border=1 bordercolor=#008000>")
Response.Write("<tr bgcolor=#ffffcc><td align=center>编号</td><td><CENTER>地点</CENTER><td align=center>电话</td><td><center>说明</center><td align=center>备注</td></tr>")

While Not rs.EOF
Response.Write("<tr>")

IF ISNULL(rs.fields("XH")) THEN
Response.Write("<td> </td>")
ELSE
Response.Write("<td align=center>" & rs.fields("XH") & "</td>")
END IF

Response.Write("<td align=center><FONT color=Red><center>" & rs.fields("NAME") & "</center></FONT></td>")

IF ISNULL(rs.fields("TELEPHONE")) THEN
Response.Write("<td align=center> </td>")
ELSE
Response.Write("<td align=center>" & rs.fields("TELEPHONE") & "</td>")
END IF

IF ISNULL(rs.fields("SM")) THEN
Response.Write("<td align=center> </td>")
ELSE
Response.Write("<td align=center>" & rs.fields("SM") & "</td>")
END IF

IF ISNULL(rs.fields("BZ")) THEN
Response.Write("<td align=center> </td>")
ELSE
Response.Write("<td align=center>" & rs.fields("BZ") & "</td>")
END IF

Response.Write("</tr>")
rs.movenext
Wend
Response.Write("</table></center></div>")

%>

<%
set rs = Nothing
OBJdbConnection.Close
set OBJdbConnection = Nothing
%>
</form>
</BODY>
</HTML>

[cjf1009]

没有具体的错误提示吗？贴出来。

[lhzyn]

rs.Open sql,OBJdbConnection,1,1,1
>>
rs.Open sql,OBJdbConnection,1,1
试试

[xieyj]

先帮你简化一下代码:
IF username<>"" AND phone<>"" AND XH<>"" AND bz<>"" THEN
inssql="insert into office (XH,NAME,TELEPHONE,SM,BEI) values ('"&XH&"','"&username&"','"&phone&"','"&explain&"','"&bz&"')"
OBJdbConnection.execute(inssql)

Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1,1
ELSE
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1,1
END IF

改成:

IF username<>"" AND phone<>"" AND XH<>"" AND bz<>"" THEN
inssql="insert into office (XH,NAME,TELEPHONE,SM,BEI) values ('"&XH&"','"&username&"','"&phone&"','"&explain&"','"&bz&"')"
OBJdbConnection.execute(inssql)
END IF
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1

[cjf1009]

IF username<>"" AND phone<>"" AND XH<>"" AND bz<>"" THEN
inssql="insert into office (XH,NAME,TELEPHONE,SM,BEI) values ('"&XH&"','"&username&"','"&phone&"','"&explain&"','"&bz&"')"
OBJdbConnection.execute(inssql)

Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1,1
ELSE
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1,1
END IF
%>


---》

IF username<>"" AND phone<>"" AND XH<>"" AND bz<>"" THEN
inssql="insert into office (XH,NAME,TELEPHONE,SM,BEI) values ('"&XH&"','"&username&"','"&phone&"','"&explain&"','"&bz&"')"
OBJdbConnection.execute(inssql)

Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1
ELSE
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM OFFICE ORDER BY ID ASC"
rs.Open sql,OBJdbConnection,1,1
END IF
response.write sql//看看输出的这条语句是什么。
%>

[lancelotjevons]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0cc1'

在对应所需名称或序数的集合中，未找到项目。

/server/www/jinjn/Office.asp，行89



这是错误提示

[lancelotjevons]

改成rs.Open sql,OBJdbConnection,1,1
也没有啊

[Newrocky]

你的字段在数据库里确定都有吗？

[lancelotjevons]

加入response.write sql输出的语句是这个SELECT * FROM OFFICE ORDER BY ID ASC

[lhzyn]

IF ISNULL(rs.fields("BZ")) THEN
Response.Write("<td align=center> </td>")
ELSE
Response.Write("<td align=center>" & rs.fields("BZ") & "</td>")
END IF
你的表里面有BZ这个字段吗

[Newrocky]

ADODB.Recordset 错误 '800a0cc1'

在对应所需名称或序数的集合中，未找到项目。

/server/www/jinjn/Office.asp，行89

意思就是没找到字段吧！
看看89行你用了什么字段了……检查一下

[vvfish119]

你的字段写错了，在数据库里找不到你要查找的字段名

[cjf1009]

89行是哪一行？

[lancelotjevons]

这是库结构

ID 自动编号
XH 数字
NAME 文本
TELEPHONE 文本
SM 文本
BEI 文本

[pizixt]

rs.fields("BZ")---->rs.fields("BEI")

[pizixt]

我晕，楼主给我这么多分干嘛，我不过是多看了几下代码

楼上几位这么热心帮你找问题的，也给他们每人一些分才对