机票买了可以改签吗:为什么不能同时链一个数据库文件啊？

来源：百度文库编辑：高考问答时间：2024/05/09 03:22:54

在以下这个页面里面链接了数据库，
但是为了方便，我有一个文件是链接数据库的，
想在这个页面中直接嵌入链接数据库的页面。
这个页的代码如下：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../data.asp")
%>
===========================================================
如果把放入下面这个页面中再把这个页中的链接数据库的代码删掉就是不行，出错。请高手帮忙看看是什么问题。
=============================================================
<%
Set conn=Server.Createobject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../data.asp")
Set rs1=Server.Createobject("ADODB.RecordSet")
SQL="Select * from admin"
rs1.open SQL,conn,3
rs1.Pagesize=5
page=CLng(Request("page"))
If page<1 then page=1
If page>rs1.pageCount then page=rst.pageCount
show rs1,page
%>
<html>
<body>
<DIV align=center>
<hr size=1 noshade color=#000000>

<% Sub show(rs,page) %>
<center>
<p>图书信息表</p>
以下代码请朋友们帮我加点注释。谢谢
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center" bgcolor="#D2FFFF">
<td height="22">用户名</td>
<td height="22">密码</td>
<td height="22">备注</td>
<td>修改</td>
<td>删除</td>
</tr>
<%
Dim thepage,recNum
rs.AbsolutePage=Page
For thepage=1 To rs.pageSize
%>
<tr bgcolor="#FFFFFF">
<td height="22"><% =trim(rs("a_name")) %> </td>
<td height="22"><% =trim(rs("a_pass")) %></td>
<td height="22"><% =trim(rs("a_message")) %></td>
<td><a href="admin_edit.asp?id=<% =rs("id") %>">修改</a></td>
<td><a href="Admin_adminDel.asp?a_Name=<% =trim(rs("a_Name")) %>" class="mnu" title="删除该记录！"onclick="javascript:return confirm('是否删除该记录？不可恢复！');">删除</a></td>
</tr>
<%
rs.MoveNext
If rs.eof Then Exit For
Next
%>
</table>

==================================================================================================

<P>
<% End Sub %>

=======================================================================================

<FORM>
<%
If page<>1 Then
response.write("<a href=page.asp?page=1>[第一页]</a>")
response.write("<a href=page.asp?page=" & (page-1) & ">[上一页]</a>")
End If
If page<>rs1.pagecount Then
response.write("<a href=page.asp?page=" & (page+1) & ">[下一页]</a>")
response.write("<a href=page.asp?page=" & rs1.pagecount & ">[最后一页]</a>")
End if
%>
请输入页码：
<Input type="text" name="page" size=2>
<% response.write("共" & rs1.pagecount & "页，" & rs1.RecordCount & "条记录" ) %>
当前页码：<% =page %>/<% =rs1.pageCount %>
</FORM>
</DIV>
<%

rs1.close
Set rs1=Nothing
conn.close
Set conn=Nothing
%>
</body>
</html>

同一个对象被打开了两遍，不行，一定去除同功能的代码

为什么不能同时链一个数据库文件啊？为什么不能多个人同时使用一个access数据库？？？？ access数据库共享，为何几个用户不能同时打开一个数据库文件进行编辑？两台机器为什么不能同时操作服务器SQL数据库 excel为什么同时不能打开两个文件? 为什么文件域和下拉菜单不能绑定数据库字段？很古怪！我的一个数据库文件不能打开，其他数据库可以的．我的电脑为什么不能同时多选多个文件啊，是不是中什么病毒了 smss.exe是个什么文件，为什么不能和卡丁车同时使用呢？怎样才能解决啊？ wps2005政府版为什么不能同时打开几个文件？