如何显示插入到Access数据库中的信息 100分
这是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>