asp代码中SQL数据库出错

来源：百度知道编辑：UC知道时间：2024/06/01 11:05:56

以下是SQL连接源码：
<%

cpaDsn="dsn=lnzfcg;uid=sa; pwd="
application.lock
application("cpaDsn")=cpaDsn
application.unlock
Set Oconn = Server.CreateObject("ADODB.Connection")
conn.open cpaDsn
Sub objend()
Oconn.close
set Oconn = nothing
End Sub
%>

可是一运行asp代码，就提示这里的第8行出错：

Microsoft VBScript 运行时错误错误 '800a01a8'

缺少对象: ''

/conndb.asp，行 8

不知道是什么问题，请高手们指点！！！！
谢谢了！！
dim Strdate
Set Ors =OpenRst
SqlAdvice = "SELECT top 10 datediff( hour ,news_netshow_time ,getdate() ) as hournum , news_id , news_title , news_content , news_netshow_time , task_no from t_net_news where news_stateflag = '发布' and news_type = '采购新闻' Order by news_netshow_time desc "

Ors.Open SqlAdvice , Oconn ,1 , 3

我给你一个链接数据库的代码吧
你试一下呀
不行再找我呀

<%
dim conn
dim db
dim connstr
dim SQLServerName
dim SQLDBUserName
dim SQLDBPassword
dim SQLDBName
SQLServerName="(local)" '数据库服务器名或者IP，本机填“(local)”
SQLDBUserName="liang" '数据库帐号
SQLDBPassword="liang" '数据库密码
SQLDBName="abc" '数据库名称
Set conn=Server.CreateObject("ADODB.connection")
db="Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & SQLServerName & ";User ID=" & SQLDBUserName & ";Password=" & SQLDBPassword & ";Database=" & SQLDBName & ";"
conn.Open db

sub CloseConn()
conn.close
set conn=nothing
end sub
%>

<%
Const SqlDatabaseName = "test" ' 数据库名字'
Const SqlPassword = "123" '数据库密码'
Const SqlUsername = &

asp中sql数据库更改语句老是出错 asp.net中连接sql数据库代码怎么找? asp中连接SQL server 2005 数据库的代码 asp.net连接sql数据库出错？ asp如何连接SQL数据库出错 ASP中SQL数据库问题 asp 显示sql数据库内容的代码求ASP+SQL数据库的用户权限代码 ASP中ACCESS数据库转成SQL SERVER的链接代码,求高手改代码 asp代码中sql问题