ASP 运行时出现Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /index.asp，行 30 20
帮忙看看代码有什么问题代码如下%><%'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面Response.Buffer=TrueResponse.Expires=-...
帮忙看看代码有什么问题
代码如下
%>
<%
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!-- #include file="conn.asp" -->
<!-- #include file="inc/md5.asp" -->
<%
sql="select * from config"
set rs_config=conn.execute(sql)
dianming=rs_config("dianming")
if request("action")="" then
%>
<HTML>
<HEAD>
<TITLE><%=dianming%> - 系统登陆</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JavaScript type=text/JavaScript>
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
if (!document.all)
return
if (object != "[object]"){
setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);
return;
}
clearTimeout(nereidFadeTimers[object.sourceIndex]);
diff = destOp-object.filters.alpha.opacity;
direction = 1;
if (object.filters.alpha.opacity > destOp){
direction = -1;
}
delta=Math.min(direction*diff,delta);
object.filters.alpha.opacity+=direction*delta;
if (object.filters.alpha.opacity != destOp){
nereidFadeObjects[object.sourceIndex]=object;
nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
}
} 展开
代码如下
%>
<%
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!-- #include file="conn.asp" -->
<!-- #include file="inc/md5.asp" -->
<%
sql="select * from config"
set rs_config=conn.execute(sql)
dianming=rs_config("dianming")
if request("action")="" then
%>
<HTML>
<HEAD>
<TITLE><%=dianming%> - 系统登陆</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JavaScript type=text/JavaScript>
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
if (!document.all)
return
if (object != "[object]"){
setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);
return;
}
clearTimeout(nereidFadeTimers[object.sourceIndex]);
diff = destOp-object.filters.alpha.opacity;
direction = 1;
if (object.filters.alpha.opacity > destOp){
direction = -1;
}
delta=Math.min(direction*diff,delta);
object.filters.alpha.opacity+=direction*delta;
if (object.filters.alpha.opacity != destOp){
nereidFadeObjects[object.sourceIndex]=object;
nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
}
} 展开
3个回答
展开全部
数据库没有连接
MicrosoftVBScript 运行时错误(0x800A01A8)--＞缺少对象
建立一下 conn的连接就行了
datafile ="data/aaa.mdb" '你数据库的位置ACCESS库 如果是SQL库你去BAIDU上搜一下代码都有的
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datafile&"")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
MicrosoftVBScript 运行时错误(0x800A01A8)--＞缺少对象
建立一下 conn的连接就行了
datafile ="data/aaa.mdb" '你数据库的位置ACCESS库 如果是SQL库你去BAIDU上搜一下代码都有的
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datafile&"")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你要知道是哪行错误才行啊，你用DW打开能看到行数的啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
具体的哪行代码？
追问
报错的是第三十行， 我也搞不清具体哪行
追答
额， 你自己都不知道哪行， 那谁又知道哪行？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
