Question

为什么我的asp缺少对象？

这是源代码？

<%
dim rs,sql,conn,connstr
session("key")=trim(request.form("keyword"))
session("key2")=trim(request.form("keyword2"))

set conn = Server.CreateObject("adodb.connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/zhongguoqiyexinxiwang.mdb")

'..\data\zhongguoqiyexinxiwang.mdb
connstr="dbq=" & Server.MapPath("data/zhongguoqiyexinxiwang.mdb") & ";driver={microsoft access driver (*.mdb)}"
conn.open connstr

response.Write session("key")
if session("key")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from product_info where product_name like '%"& session("key")& "%' and pass=1 order by sx asc"
elseif session("key2")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from system_text_info where title like '%"&trim(request.form("key2"))&"%' and pass=1 order by sx asc"
end if
Response.Write(key)
rs.open sql,conn,1,1
%>
<!--#include file="page1.asp"-->
那位高手可以指点以下！！

Answer 1

<%
dim rs,sql,conn,connstr
session("key")=trim(request.form("keyword"))
session("key2")=trim(request.form("keyword2"))

set conn = Server.CreateObject("adodb.connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/zhongguoqiyexinxiwang.mdb")

'..\data\zhongguoqiyexinxiwang.mdb
connstr="dbq=" & Server.MapPath("data/zhongguoqiyexinxiwang.mdb") & ";driver={microsoft access driver (*.mdb)}"
conn.open connstr

response.Write session("key")
set rs=server.CreateObject("adodb.recordset")
if session("key")<>"" then
sql="select * from product_info where product_name like '%"& session("key")& "%' and pass=1 order by sx asc"
End If
if session("key2")<>"" then
sql="select * from system_text_info where title like '%"&trim(request.form("key2"))&"%' and pass=1 order by sx asc"
end if
Response.Write(key)
if sql&"" <> "" Then
rs.open sql,conn,1,1
Else
Response.Write("sql值为空...........")
End If
%>
<!--#include file="page1.asp"-->