ASP中如何与ACESS建立连接
ASP中与数据库相连除了要建一个数据库外,还需要什么做什么工作呢。下面这是个与数据库相连的一段,不知道是哪有问题,就是不可以成功与数据库相连,请高手指点一下。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head><title>同学录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body background=1-1.jpg>
<p align="center"><font face=华文仿宋 size=6>同学录</font><br>
<a href="add.htm">添加</a>
<a href="del.asp">删除</a>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&
"Data Source="& Server.MapPath("classmate.mdb")
Conn.Open
Set RS=Server.CreateObject("ADODB.Recordest")
sql="select * from classmate"
rs.open sql,conn,1,1
if rs.EOF or rs.BOF then
Response.Write"<hr>数据库中暂无资料!"
else
do while not rs.EOF or rs.BOF
%>
<table border=1 align=center bordercolor=#0099cc cellspacing=0
cellpadding=4>
<tr><td width=220 align=center><FONT face=录书 size=4>
<STRONG><%=rs("姓名")%></STRONG></td>
<td align=center width=40><%rs=("性别")%></td>
<td width=260>生日:<%rs=("出生日期")%></td>
<tr><td colspan=2>所在单位<%=rs("单位")%></td>
<td>联系电话:<%rs=("电话")%></td>
<tr><td colspan=2>手机号:<%=rs("手机")%></td>
<td>电子邮箱:<%=rs("Email")%></td>
<tr><td colspan=3>家庭住址:<%=rs("住址")%></td></tr>
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>
</table>
</body>
</html> Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&
"Data Source="& Server.MapPath("classmate.mdb")
红色字体就是连接数据库的代码 问题是在实际运行中,上面的那一页不能正常显示,不知道问题出在哪
其实,其它几个页面中,似乎有数据库那段代码的,都不能正常显示 那可能是数据库连接错误,你数据库路径是怎样的 网页和数据库都放在一个文件夹中,路径应该没有问题。 数据库里的表是你自己建的吗/ 是的
先建了一数据库,在其中又建了一表 表的内容是如何?发上来看看
现在怎么开始学做网页了? 不能上传附件
大概是这样的。
classmate:
namesexborndatephonepolicy addresscompanyEmail
以前只会静态的,想提高一下能力。
这是另一页的代码,也放上来吧:
<%
name1=request("text1")
sex=request("sell")
borndate=request("text2")
phone=request("text3")
policy=request("text4")
address=request("text5")
company=request("text6")
Email=request("text7")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&
"Data Source="& Server.MapPath("classmate.mdb")
Conn.Open
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from classmate where 姓名='"& name1"'"
rs.Open sql,conn,1,1
if rs.EOF or rs.bof then
rs1.Open"classmate",conn,1,2
rs1.addnew array("姓名","性别","出生日期","电话","手机","住址","单位","Email"),
array(name1,sex,borndate,phone,policy,address,company,Email)
%>
<script language="vbscript">
alert("信息添加成功!!!")
window.location.href="index.asp"
</script>
<%
rs1.close
set rs1=nothing
else
%>
<script language="vbscript">
alert("此同学以添加!")
history.back
</script>
<%
end if
rs.Close
set rs=nothing
%>
[ 本帖最后由 ellva 于 2006-9-4 17:31 编辑 ] 代码都是你自己写的吧,那建表时内容是怎样的?有没有参照教材
上传数据库给我看看
页:
[1]
2