Microsoft VBScript 运行时错误 错误 '800a01a8 '，缺少对象: 'Conn'，高手请好心的高手帮助,谢谢了!

Microsoft VBScript 运行时错误 错误 '800a01a8 '
缺少对象: 'Conn'
/admin_index.asp，行69

if FoundErr then
Call Qcdn.Err_List(Errmsg,2)
exit sub
end if

IP = Request.ServerVariables("LOCAL_ADDR")

cnopen()
Sql = "Select * from article_admin where username='"& username &"'"
Set Rs = Conn.execute(Sql) =========这是第69行。
if Rs.eof and Rs.bof then
Rs.close
Set Rs = nothing

Errmsg = Errmsg+"<br><li>您输入的用户名和密码不正确或者您不是系统管理员。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
FoundErr = true
Call Qcdn.Err_List(Errmsg,2)
exit sub

microsoft Microsoft MICROSOFT Microsoft是什么意思 Microsoft代理 microsoft update Microsoft Office Microsoft FrontPage microsoft安装 microsoft office