分类：电脑/网络-软件-网络软件
问题：ASP大侠来帮忙啊~!!!!!!!!大侠帮忙看看这是怎么回事啊! 
大侠帮忙看看这是怎么回事啊!!!该怎么解决啊!!!谢谢拉!!!!! 错误类型： Microsoft Script 运行时错误 (0x800A01A8) 缺少对象: 'Conn' / p, 第 47 行 <% Sub Login() Response.write"<TABLE cellSpacing=0 cellPadding=0 width=200 align=center border=0><TBODY>" Response.write"<TR><TD align='cent大侠帮忙看看这是怎么回事啊!!!该怎么解决啊!!!谢谢拉!!!!! 错误类型： Microsoft Script 运行时错误 (0x800A01A8) 缺少对象: 'Conn' / p, 第 47 行 <% Sub Login() Response.write"<TABLE cellSpacing=0 cellPadding=0 width=200 align=center border=0><TBODY>" Response.write"<TR><TD align='center'>" If Session("UserName")="" Then Response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>" Response.write"<form name='form1' method='post' action=' p'>" Response.write"<tr><td width='34%' align='right'>用户名：</td>" Response.write"<td width='66%'>" Response.write"<input name='UserName' type='text' id='UserName' size='15' maxlength='20' style='height:20px;width:120px'>" Response.write"</td></tr><tr><td align='right'>密　码：</td>" Response.write"<td><input name='UserPwd' type='password' id='UserPwd' size='15' maxlength='20' style='height:20px;width:120px'>" Response.write"</td></tr><tr><td height='3' colspan='2'></td></tr><tr>" Response.write"<td><input name='action' type='hidden' id='action' value='login' /></td>" Response.write"<td><input name='Login' type='submit' id='Login' value='登陆'>  " Response.write"<input name='reset' type=reset id='reset' value='重写'>" Response.write"</td></tr></form></table>" Else If Not IsObject(Conn) Then ConnectionDatabase() Response.write"<table width='90%' border='0' cellspacing='0' cellpadding='0'>" Response.write"<tr><td width='34%' align='right'>欢 迎 您：</td>" Response.write"<td width='66%'>"&Session("UserName")&"</td></tr><tr>" Response.write"<td align='right'>所 在 组：</td><td>" Response.write GetGroupInfo(Session("GroupID"))(0) Response.write"</td><tr><td align='right'>登陆次数：</td><td><b>"&Session("UserLogins")&"</b></td>" Response.write"</tr><tr><td align='right'>上传文件：</td><td><font color=red>" Response.write Conn.execute("Select UpFiles from Users Where UserName='"&Session("UserName")&"'")(0) Response.write"</font>个</td></tr><tr height=40><td align='right'>相关操作：</td>" Response.write"<td><a href=' p'><font color=red>上传文件</font></a> <a href=' p'>我的文件</a>" Response.write"<br><a href=' p'>修改资料</a>" If Session("UserAdmin") Then Response.Write" <a href= p><font color=blue>系统管理</font></a>" Response.write"</td></tr><tr><td height='3' colspan='2'></td>" Response.write"</tr><tr><td></td>" Response.write"<td align='right'><input name='Logout' type='button' id='Logout' value='退出' " Response.write" onClick="" ef=' p?action=logout'"">" Response.write"</td></tr></table>" End If Response.write"</TD></TR></TBODY></TABLE>" End Sub Function GetGroupInfo(GroupID) dim rs,Str if isnull(GroupID) then Str="未加入组$$" else If Not IsObject(Conn) Then ConnectionDatabase() set rs=Conn.execute("Select GroupName,UpFileType,UpFilesize from Groups where GroupID="&clng(GroupID)) if rs.eof then Str="未加入组$$" else Str=rs(0)&"$"&rs(1)&"$"&rs(2) end if set rs=nothing end if GetGroupInfo=split(Str,"$") End Fun
回答：应该是没有连接好数据库..

检查一下是否连接好和链接代码..