您所在位置：主题：[原创]那位高手帮我解决这个问题
chenmo2008
[专家分：0] 发布于 2007-06-09 09:22:00
B.asp 不能执行.a.asp中(encapsulation),是数据库中的字段.在a.asp中能正确查询出来.也能以超连接显示出来.(encapsulation字段中有重复,我在查询中用了distinc,所以不显示),在b.asp中我要提取(encapsulation)是内容,且只提取,当鼠标点击的内容(如当encapsulation为A-401),在b.asp 中再根据(如A-401)进行查询,显示该数据库中另一字段(files)再显示出来.下面是我的程序:
Conn.asp
<%
Server.ScriptTimeout="10"
dim conn,db
dim connstr
db="db/byte8899199.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
a.asp
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="Inc/conn.asp" -->
<body>
<table>
<tr>
<%
dim c
c = 10 ' 每列显示记录数
'Set Conn = Server.CreateObject("ADODB.Connection")
'conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("db\byte8899199.mdb")
Set rs = Server.CreateObject("adodb.recordset")
sql = "select distinct encapsulation from Products"
rs.open sql, conn, 1, 1
%>
<TABLE border=1 bordercolor="#ffdeab" width="60%" align=center cellspacing=0>
<tr>
<td colspan="50" align="center">encapsulation</td>
</tr>
<tr>
<%
Do While Not rs.EOF
Response.Write "<td>"
For i = 1 To c
If Not rs.EOF Then
%>
<a href="b.asp?act="<%=rs("encapsulation")%>""><%=rs("encapsulation")%></a></br>
<% rs.MoveNext
End If
Next
Response.Write "</td>"
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</tr>
</table>
</body>
b.asp
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="Inc/conn.asp" -->
<body>
<table>
<tr>
<%
dim c
c = 10 ' 每列显示记录数
Set rs = Server.CreateObject("adodb.recordset")
strID=request.QueryString ("act")
sql = "select files from Products where encapsulation ="&strID
rs.open sql,conn,1,1
%>
<TABLE border=1 bordercolor="#ffdeab" width="60%" align=center cellspacing=0>
<tr>
<td colspan="50" align="center">files</td>
</tr> <tr>
<%
Do While Not rs.EOF
Response.Write "<td>"
For i = 1 To c
If Not rs.EOF Then
%>
<a href="<%=rs("files")%>"><%=rs("files")%></a><br />
<% rs.MoveNext
End If
Next
Response.Write "</td>"
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</tr>
</table>
</body>
老是提示:b.asp 中rs.open sql,conn,1,1有问题
Conn.asp
<%
Server.ScriptTimeout="10"
dim conn,db
dim connstr
db="db/byte8899199.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
a.asp
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="Inc/conn.asp" -->
<body>
<table>
<tr>
<%
dim c
c = 10 ' 每列显示记录数
'Set Conn = Server.CreateObject("ADODB.Connection")
'conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("db\byte8899199.mdb")
Set rs = Server.CreateObject("adodb.recordset")
sql = "select distinct encapsulation from Products"
rs.open sql, conn, 1, 1
%>
<TABLE border=1 bordercolor="#ffdeab" width="60%" align=center cellspacing=0>
<tr>
<td colspan="50" align="center">encapsulation</td>
</tr>
<tr>
<%
Do While Not rs.EOF
Response.Write "<td>"
For i = 1 To c
If Not rs.EOF Then
%>
<a href="b.asp?act="<%=rs("encapsulation")%>""><%=rs("encapsulation")%></a></br>
<% rs.MoveNext
End If
Next
Response.Write "</td>"
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</tr>
</table>
</body>
b.asp
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="Inc/conn.asp" -->
<body>
<table>
<tr>
<%
dim c
c = 10 ' 每列显示记录数
Set rs = Server.CreateObject("adodb.recordset")
strID=request.QueryString ("act")
sql = "select files from Products where encapsulation ="&strID
rs.open sql,conn,1,1
%>
<TABLE border=1 bordercolor="#ffdeab" width="60%" align=center cellspacing=0>
<tr>
<td colspan="50" align="center">files</td>
</tr> <tr>
<%
Do While Not rs.EOF
Response.Write "<td>"
For i = 1 To c
If Not rs.EOF Then
%>
<a href="<%=rs("files")%>"><%=rs("files")%></a><br />
<% rs.MoveNext
End If
Next
Response.Write "</td>"
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</tr>
</table>
</body>
老是提示:b.asp 中rs.open sql,conn,1,1有问题
