UC知道asp搜索出错，高手指点下啊。。。
来源：百度知道 编辑：UC知道 时间：2024/06/18 06:07:03
小弟用的是MSSQL的数据库。。。
代码是网上找的。。。
出错提示如下：
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'CNN'
/Search.asp，行 69
高手指点下啊。。。拜托拜托。。。
代码如下：
<!--#include file="conn.asp"-->
<form name="frm_Search" method="get" action="Search.asp">
请输入关键字：
<input type="text" name="key" size="10">
<input type="submit" value="搜索">
</form>
<%
Dim S_Key,RST,StrSQL
S_Key = Trim(Request("key"))
If S_Key <>"" then
Set RST=Server.CreateObject("ADODB.RecordSet")
StrSQL=AutoKey(S_Key)
RST.Open StrSQL,CNN,3,2
If RST.BOF And RST.EOF Then
%>
<font color="#FF0000">未找到任何结果
代码是网上找的。。。
出错提示如下：
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'CNN'
/Search.asp，行 69
高手指点下啊。。。拜托拜托。。。
代码如下：
<!--#include file="conn.asp"-->
<form name="frm_Search" method="get" action="Search.asp">
请输入关键字：
<input type="text" name="key" size="10">
<input type="submit" value="搜索">
</form>
<%
Dim S_Key,RST,StrSQL
S_Key = Trim(Request("key"))
If S_Key <>"" then
Set RST=Server.CreateObject("ADODB.RecordSet")
StrSQL=AutoKey(S_Key)
RST.Open StrSQL,CNN,3,2
If RST.BOF And RST.EOF Then
%>
<font color="#FF0000">未找到任何结果
加上数据库连接代码
<%
dim Sql_Server,Sql_User,Sql_Pass,Sql_Data
Sql_Server = "192.168.0.1" '数据库服务器地址
Sql_User = "sa" '数据库登录名
Sql_Pass = "" '数据库密码
Sql_Data = "myDATA" '数据库名
'以下部分不能做任何的修改！
dim CNN,connstr
connstr = "PROVIDER=SQLOLEDB;DATA SOURCE="&Sql_Server&";UID="&Sql_User&";PWD="&Sql_Pass&";DATABASE="&Sql_Data
set CNN = server.createobject("ADODB.connection") '创建数据库连接对象
CNN.open connstr
%
最前面加上
<%
dim CNN
set CNN=server.createobject("ADODB.connection") con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>