查人人中国名人网平板pro和air的区别:asp们大虾快进，帮帮忙？急急急!!!!!!!
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/09 03:34:09
我想在首页实现登陆，登陆后才能修改个人信息，但总调试不过，望高手指教！谢谢！错误类型：Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''/ASPzy/代码/index1.asp, 第 79 行 源码如下：
<%Response.Buffer=True%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>首页</title>
</head>
<body background="../bg/bg42.gif"><center>
<table width=810 height=150 background="../bg/bg27.jpg" >
<tr align=center><td align="center"><br>
<font color="#66CC00" face=方正舒体 size=7> 文学乐园</font> </td></tr></table></center><br>
<table width="800" align="center">
<tr><td align="center"> <a href="login.asp">注册</a></td>
<td align="center"> <a href="update.asp">修改信</a></td>
<td align="center"> <a href="search.asp">查找成员</a></td>
<td align="center"> <a href="zxlt.asp">在线聊天</a></td>
<td align="center"> <a href="bbs.asp">BBS</a></td>
<td align="center"> <a href="faq.asp">FAQ</a></td></tr>
</table><br>
<table width="800" align="center" height="600">
<tr> <td width="250" height="300">
<form action="" method=post >
<table align=right width=250 height="300">
<tr> <td> <a href="login.asp">没有注册？</a><br ><br >用户呢称：<input type="text" name="love_name" ><br><br>用户密码：<input type="password"name="password"><br><br>
<input name="submit" type="submit" value="登 录"><br></td></tr>
</table></form> </td>
<td width="300" height="300"> </td>
<td width="250" height="300" align="center"> <img src="../bg/shi2.GIF" ></img><img src="../bg/shi.GIF" ></img> <br></td> </tr>
<tr> <td align="center" height="200"><img src="../bg/gy.gif" /> </td> <td height="200"> </td>
<td align="center" width="250"><table width="100%" height="200" >
<tr><td align="center"> <h2>文学园地</h2><p> </p></td> </tr><tr><td align="center"> <a href="zw.asp"><h3>中国文学</h3></a><p> </p></td> </tr>
<tr> <td align="center"> <a href="ww.asp"><h3>外国文学</h3></a>
<p> </p></td></tr>
<tr>
<td align="center"> <a href="qt.asp"><h3>其它</h3></a>
<p> </p> <br><br> <br><br> </td>
</tr></table></td></tr>
</table>
<% '如果没有输入姓名，就不执行下列语句
If Trim(Request("love_name"))<>""and Trim(Request("password"))<>"" Then
Dim rs,strSql
strSql ="Select * From users Where love_name ='" & Request("love_name") & "' And password='" & Request("password") & "'"
Set rs=db.Execute(strSql) '第 79 行
If Not rs.Bof And Not rs.Eof Then
'这里用Session传递记录的id号，是为了安全考虑
Session("Id")=rs("Id")
Response.Redirect "denglu.asp"
Response.Write "您好！欢迎您访问本站。"
Else
Response.Write "对不起，您还没有登陆。"
End If
End If
%>
</body>
</html>
缺少对象: ''/ASPzy/代码/index1.asp, 第 79 行 源码如下：
<%Response.Buffer=True%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>首页</title>
</head>
<body background="../bg/bg42.gif"><center>
<table width=810 height=150 background="../bg/bg27.jpg" >
<tr align=center><td align="center"><br>
<font color="#66CC00" face=方正舒体 size=7> 文学乐园</font> </td></tr></table></center><br>
<table width="800" align="center">
<tr><td align="center"> <a href="login.asp">注册</a></td>
<td align="center"> <a href="update.asp">修改信</a></td>
<td align="center"> <a href="search.asp">查找成员</a></td>
<td align="center"> <a href="zxlt.asp">在线聊天</a></td>
<td align="center"> <a href="bbs.asp">BBS</a></td>
<td align="center"> <a href="faq.asp">FAQ</a></td></tr>
</table><br>
<table width="800" align="center" height="600">
<tr> <td width="250" height="300">
<form action="" method=post >
<table align=right width=250 height="300">
<tr> <td> <a href="login.asp">没有注册？</a><br ><br >用户呢称：<input type="text" name="love_name" ><br><br>用户密码：<input type="password"name="password"><br><br>
<input name="submit" type="submit" value="登 录"><br></td></tr>
</table></form> </td>
<td width="300" height="300"> </td>
<td width="250" height="300" align="center"> <img src="../bg/shi2.GIF" ></img><img src="../bg/shi.GIF" ></img> <br></td> </tr>
<tr> <td align="center" height="200"><img src="../bg/gy.gif" /> </td> <td height="200"> </td>
<td align="center" width="250"><table width="100%" height="200" >
<tr><td align="center"> <h2>文学园地</h2><p> </p></td> </tr><tr><td align="center"> <a href="zw.asp"><h3>中国文学</h3></a><p> </p></td> </tr>
<tr> <td align="center"> <a href="ww.asp"><h3>外国文学</h3></a>
<p> </p></td></tr>
<tr>
<td align="center"> <a href="qt.asp"><h3>其它</h3></a>
<p> </p> <br><br> <br><br> </td>
</tr></table></td></tr>
</table>
<% '如果没有输入姓名，就不执行下列语句
If Trim(Request("love_name"))<>""and Trim(Request("password"))<>"" Then
Dim rs,strSql
strSql ="Select * From users Where love_name ='" & Request("love_name") & "' And password='" & Request("password") & "'"
Set rs=db.Execute(strSql) '第 79 行
If Not rs.Bof And Not rs.Eof Then
'这里用Session传递记录的id号，是为了安全考虑
Session("Id")=rs("Id")
Response.Redirect "denglu.asp"
Response.Write "您好！欢迎您访问本站。"
Else
Response.Write "对不起，您还没有登陆。"
End If
End If
%>
</body>
</html>
这里db是数据库的连接
在代码中加入
dim db
set db=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库所在的虚拟路径")
如你的数据库在根目录下的database文件夹里，文件名为data.mdb 那么数据库所在路径就是 database/data.mdb
如果调用数据库的页面在其他文件夹的子目录里 如“ASPzy”下的“代码/”里 那么数据库所在路径就是“../../database/data.mdb”
你没有建立数据库连接呀
Set rs=db.Execute(strSql) '第 79 行
db这个对象没有创建
sc.gxlcly.com
自己找来看！
没有数据库连接啊，没创建CONNECTION连接对象啊
db应该是一个连接对象把