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

lancelotjevons 2004-04-01 03:50:04
这是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>
...全文
9 点赞 收藏 15
写回复
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
pizixt 2004-04-01
我晕,楼主给我这么多分干嘛,我不过是多看了几下代码

楼上几位这么热心帮你找问题的,也给他们每人一些分才对
回复
pizixt 2004-04-01
rs.fields("BZ")---->rs.fields("BEI")
回复
lancelotjevons 2004-04-01
这是库结构

ID 自动编号
XH 数字
NAME 文本
TELEPHONE 文本
SM 文本
BEI 文本
回复
cjf1009 2004-04-01
89行是哪一行?
回复
vvfish119 2004-04-01
你的字段写错了,在数据库里找不到你要查找的字段名
回复
Newrocky 2004-04-01
ADODB.Recordset 错误 '800a0cc1'

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

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

意思就是没找到字段吧!
看看89行你用了什么字段了……检查一下
回复
lhzyn 2004-04-01
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这个字段吗
回复
lancelotjevons 2004-04-01
加入response.write sql输出的语句是这个SELECT * FROM OFFICE ORDER BY ID ASC
回复
Newrocky 2004-04-01
你的字段在数据库里确定都有吗?
回复
lancelotjevons 2004-04-01
改成rs.Open sql,OBJdbConnection,1,1
也没有啊
回复
lancelotjevons 2004-04-01
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

ADODB.Recordset 错误 '800a0cc1'

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

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



这是错误提示
回复
cjf1009 2004-04-01
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//看看输出的这条语句是什么。
%>
回复
xieyj 2004-04-01
先帮你简化一下代码:
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
回复
lhzyn 2004-04-01
rs.Open sql,OBJdbConnection,1,1,1
>>
rs.Open sql,OBJdbConnection,1,1
试试
回复
cjf1009 2004-04-01
没有具体的错误提示吗?贴出来。
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告