"
else
DisplayTitle=mid(Title,1,21)
Response.Write ""
end if
rs3.MoveNext
wend
rs3.close
%>
include的conn.asp
<%
StrSQL="DBQ="+server.mappath("admin/data/newsxp.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'StrSQL="DSN=news;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
%>
include的投票系统里面的：
<%
for id = 1 to 2
Sql = "Select * From voteform Where ID_F='" & id & "'"
Set rs = Conn.Execute (Sql)
%>
|
|
主题: 求救
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
注册：2000/11/12 14:59:44
|
#12002/10/27 0:23:36
在asp页面里加上投票系统 发现数据库的读取上好象冲突了 应该怎么办？ 
|
绿茶
职务：普通成员
等级：8
金币：10.0
发贴：19267
注册：2000/12/28 12:10:01
|
#22002/10/27 3:21:56
不会有冲突的吧，具体是什么原因？
还有出错代码
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
注册：2000/11/12 14:59:44
|
#32002/10/28 12:02:17
错误类型：
ADODB.Recordset (0x800A0E7D)
错误的一行的代码是
rs3.Open rs3.Source,conn,1,1
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
注册：2002/10/16 16:19:02
|
#42002/10/28 13:10:19
不是有冲突,而是你的connection对象根本没打开,或是已关闭
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
注册：2000/11/12 14:59:44
|
#52002/10/28 14:54:44
但是我仅仅是用了一个include语句
这样不行吗？
|
绿茶
职务：普通成员
等级：8
金币：10.0
发贴：19267
注册：2000/12/28 12:10:01
|
#62002/10/28 15:34:01
你已经打开了connection，当你想试图再打开一个connection时当然就会出错了
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
注册：2000/11/12 14:59:44
|
#72002/10/28 16:49:36
实在是不懂
那应该怎么办？
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
注册：2002/10/16 16:19:02
|
#82002/10/28 18:12:48
贴出你的代码?
包括include的文件
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
注册：2000/11/12 14:59:44
|
#92002/10/28 21:26:51
兄弟，很多的啊
不过我看主要就是这些
<%
i=1
Dim ArrayBigClassID(20),ArrayBigClassName(20),ArrayBigClassImg(20)
while not rs.EOF
RecordCount=rs.RecordCount
BigClassID=rs("BigClassID")
BigClassName=trim(rs("BigClassName"))
BigClassImg=trim(rs("BigClassImg"))
ArrayBigClassID(i)=BigClassID
ArrayBigClassName(i)=BigClassName
ArrayBigClassImg(i)=BigClassImg
i=i+1
rs.MoveNext
wend
rs.close
%>
<%
set rs3=server.CreateObject("ADODB.RecordSet")
for i=1 to RecordCount
BigClassID=ArrayBigClassID(i)
BigClassName=ArrayBigClassName(i)
BigClassImg=ArrayBigClassImg(i)
%>
<%
rs3.Source="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,click from News where BigClassName='" & BigClassName &"' order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
'定义标题显示限制
Title=trim(rs3("Title"))
TitleLen=len(Title)
If TitleLen<21 then
Response.Write " |
"
%>
 &BigClassName=<%=rs3("BigClassName")%>&SmallClassName=<%=rs3("SmallClassName")%>&SpecialID=<%=rs3("SpecialId")%>" target="_blank"><%=Title %>(<%=Month(rs3("UpdateTime")) %>月<%=Day(rs3("UpdateTime")) %>日)[<%=rs3("click") %>]
<%
Response.Write " |
"
%>
&BigClassName=<%=rs3("BigClassName")%>&SmallClassName=<%=rs3("SmallClassName")%>&SpecialID=<%=rs3("SpecialId")%>" target="_blank"><%=displaytitle%>...(<%=Month(rs3("UpdateTime")) %>月<%=Day(rs3("UpdateTime")) %>日)[<%=rs3("click") %>]
<%
Response.Write " |
<%for i = 1 to 9
if Trim( rs("vote" & Cstr(i)) )="" then exit for
%>
<%next%>
">
<%
next
rs.close
Set rs = nothing
Set conn = nothing
%>
include里面include的一个conn1.asp
<%
Set conn = Server.CreateObject ("ADODB.Connection")
'ODBC 方式
'conn.ConnectionString = "user_confirm"
'conn.Open
'绝对路径方式
conn.Open "Dbq=" & Server.MapPath("/news/newsxp/vote/vote.mdb") &";Driver=Microsoft Access Driver (*.mdb)"
Set rs = Server.CreateObject ("ADODB.Recordset")
%>
辛苦了：）
