Microsoft VBScript 运行时错误 错误 '800a01f4' 变量未定义: 'sdcms_skins_index' 求帮助?

行8 代码是
Dim ClassPage
Class Sdcms_Create
Public Sub Create_Index()
Dim FileName,Temp,Show
FileName="index"&Sdcms_FileTxt
Set Temp=New Templates
Temp.Load(Load_temp_dir&sdcms_skins_index)(就是这里)
Show=Temp.Display
IF Sdcms_Mode=2 Then
SaveFile Sdcms_Root,FileName,show
Echo "网站首页生成成功:"&FileName&"
"
Else
Echo Show
End IF
Set Temp=Nothing
End Sub

0

1个回答

 sdcms_skins_index  就是变了没声明,在最上方声明 Option Explicit ,这样编译时就能发现
1
caozhy
贵阳挖掘机马善福,自备车辆专业挖游泳池 就是这个原因,看看是不是包含的文件丢失了。如果问题解决,请采纳,谢谢
9 个月之前 回复
qq_43647710
qq_43647710 还有没有别的解决办法呀
9 个月之前 回复
qq_43647710
qq_43647710 声明了但还是没用
9 个月之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
Microsoft VBScript 运行时错误 (0x800A01AD)解决方法
Microsoft VBScript 运行时错误 (0x800A01AD)解决方法
Microsoft VBScript 运行时错误 错误 '800a0046' 没有权限
asp中向文件夹写入数据的代码出现没有权限的错误提示如下: Microsoft VBScript 运行时错误 错误 '800a0046' 没有权限 解决办法:给asp所在文件夹添加写入权限 ①在asp所在文件夹空白地方右击-属性 ②在属性页面点击安全-高级 ③点击更改权限 ④点击Users(计算机全名)-编辑 ⑤点击(完全控
asp运行错误编译对照
Microsoft VBScript 运行时错误 (0x800A0006) --> vbscript脚本错误(溢出错误) Microsoft VBScript 编译器错误 (0x800A040E) --> 缺少loop Microsoft VBScript 编译器错误 (0x800A03EA) --> 缺少if或end if Microsoft VBScript 编译器错误 (0x800A03EE) --> 语句未结束(缺少")") Microsoft VBScript 编译器错误 (0x800A03F6) --> if语句出错(缺少end if) Microsoft VBScript 运行时错误 (0x800A005B) --> 缺少set Microsoft VBScript 运行时错误 (0x800A0005) --> 变量未定义 Microsoft VBScript 编译器错误 (0x800A03F9) --> if语句缺少then Microsoft VBScript 编译器错误 (0x800A0411) --> dim语句定义错误 Microsoft VBScript 编译器错误 (0x800A0408) --> sql语句错误(?????????????????)
Microsoft VBScript 运行时错误 '800a01f4'
大家好请帮我看一下点击频道更新时出现Microsoft VBScript 运行时错误 '800a01f4' rnrn变量未定义: 'CreateClassJs' rnrn\sd\Admin_Channel.asp, line 1327rn另一个问题创建频道出错,执行查询代码时发现错误,请检查您的查询代码是否正确。Microsoft Jet 数据库引擎找不到输入表或查询 'CreateFiles'。 确定它是否存在,以及它的名称的拼写是否正确。rnSelect Data From CreateFiles Where ID=1rnrn请大家看看什么意思rnrnrnrnrnrnrn<%rnif Not Cl.TrueOtherPurview("Channel") thenrn Admin_ShowErr(" 您无此操作权限!")rnend ifrndim Action',ChannelIDrndim iCount,jrn'ChannelType 0为系统,1为内部,2为外部rnAction=Trim(request("Action"))rnHeaderrn%>rn rn rn 网 站 频 道 管 理rn rn rn 管理导航:rn 频道管理首页 | 添加新频道 | 修改频道排序 | 批量选择模板/Cssrn rnrn<%rnSelect Case ActionrnCase "Add"rn call ChannelInfo()rnCase "SaveAdd"rn call SaveChannelInfo()rnCase "Modify"rn call ChannelInfo()rnCase "SaveModify"rn call SaveChannelInfo()rnCase "Del"rn call DelChannel()rnCase "OrderID"rn call OrderID()rnCase "UpOrder"rn call UpOrder() rnCase "DownOrder"rn call DownOrder()rnCase "SelectStyle"rn call SelectStyle() rnCase "UpdateStyle"rn call UpdateStyle()rnCase "UpdateStyleAll"rn call UpdateStyleAll()rnCase "RefreshChannelJs"rn call RefreshChannelJs()rn Call Cl.OutMsg("恭喜您,所有频道Js刷新成功!","Admin_Channel.asp")rnCase "IsShow"rn Call IsShow()rnCase "CIsShow"rn Call CIsShow()rnCase "IsDisabled"rn Call IsDisabled()rnCase "CIsDisabled"rn Call CIsDisabled()rnCase "OWindow"rn Call OWindow()rnCase "NWindow"rn Call NWindow()rnCase "Update"rn Call UpdateChannel()rnCase elsern call main()rnend Selectrnif FoundErr=True then Admin_ShowErr(ErrMsg)rnFooterrnSub Main()rn Dim SQLrn SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,LinkUrl,OrderID,ChannelType,OpenType,IsShow,IsDisabled,IsCreateHtml,ModuleID from Channel order by OrderID"rn Set rs=Cl.Execute(SQL)rn %>rn rn rn rn 频道IDrn 频道名称rn 目录或链接地址rn 模块rn 显示rn 禁用rn 打开方式rn 排序IDrn 属性rn 常规操作rn rn <%rn if Not (rs.Bof and rs.Eof) thenrn SQL=rs.GetRows(-1)rn For i=0 to Ubound(SQL,2)rn %>rn rn <%=SQL(0,i)%> rn <%=SQL(1,i)%>rn <%rn if SQL(7,i)>1 thenrn response.write Cl.ReplaceDir(SQL(5,i))rn elsern response.write SQL(4,i)rn end ifrn %>rn <%rn Select Case SQL(12,i)rn Case 1 : response.write "文章"rn Case 2 : response.write "下载"rn Case 3 : response.write "图片"rn Case 4 : response.write "影视"rn Case 5 : response.write "商城"rn Case 6 : response.write "留言"rn Case Else : response.write "未定义"rn End Selectrn %>rn <%rn if SQL(9,i)=0 thenrn response.write "不显示"rn elsern response.write "显示"rn end ifrn %>rn <%rn if SQL(10,i)=0 thenrn response.write "使用"rn elsern response.write "禁用"rn end ifrn %>rn <%rn if SQL(8,i)=1 thenrn response.write "新窗口"rn elsern response.write "原窗口"rn end ifrn %>rn <%=SQL(6,i)%> rn rn <%rn Select Case SQL(7,i)rn Case 0 rn response.write "系统"rn if SQL(11,i)=1 then response.write "/Html"rn Case 1rn response.write "内部"rn if SQL(11,i)=1 then response.write "/Html"rn Case elsern response.write "外部"rn end Selectrn %>
Microsoft JScript 运行时错误: 缺少对象
供提问使用,Microsoft JScript 运行时错误: 缺少对象 Microsoft JScript 运行时错误: 缺少对象
Microsoft JScript 运行时错误: 对象不支持此属性或方法
在64位机器上,如果COM组件没有错误(例如:可以通过C++、IE调用),但不能在控制台用JavaScript调用(通过cscript运行JavaScript),则可能是因为控制台与COM组件的位数不匹配造成的。可分别尝试: C:\windows\sysWOW64\cmd.exe 和 C:\windows\system32\cmd.exe 在QT环境下,COM组件的创建可参考sim
truffle.js 'module' 未定义 运行时错误
最近再学习truffle,再进行Truffle 配套 Ganache进行开发时,执行truffle的所有命令时都会报一个truffle.js ‘module’ 未定义的错误,经查询这是truffle在Windows 上面的一个BUG,Windows 上有一个命名问题,当我们想要执行 Truffle 命令时,它会打开 “truffle.js” 配置文件而不是读取里面的数据,而在其他系统中不存在这样的...
Microsoft VBScript 运行时错误 错误 '800a01f4' 怎么解决?
Microsoft VBScript 运行时错误 错误 '800a01f4' rn变量未定义: 'idlist' rn/Admin/UCCDK/cdkey.asp,行 32 rnrn能打开只要不执行删除就不出现错误如图rn[img=http://pic.wenwen.soso.com/p/20100803/20100803000153-1098984387.jpg][/img]rnrn rn<%rnif not isempty(request("del")) thenrnif request("del")="all" thenrnif request("type")="" or isnull(request("type")) thenrnsql="select * from Game_cdkey where game_id='"&request("game_id")&"'"rnSet rs = YSvoid.Exec(sql,1)rnelsernsql="select * from Game_cdkey where game_id='"&request("game_id")&"' and type="&request("type")rnSet rs = YSvoid.Exec(sql,1)rnend ifrndo while not rs.eofrnrs.deleternrs.movenextrnlooprnend ifrnend ifrnrndim totalPut,game_id,type1rndim CurrentPagerndim TotalPages,maxperpagernmaxperpage=30rndim krnk=1rnif not isempty(request("page")) thenrncurrentPage=cint(request("page"))rnelserncurrentPage=1rnend ifrnif not isempty(request("selAnnounce")) thenrnidlist=request("selAnnounce")rnif instr(idlist,",")>0 thenrndim idarrrnidArr=split(idlist)rnfor i = 0 to ubound(idarr)rnid=clng(idarr(i))rncall deleteannounce(id)rnnextrnelserncall deleteannounce(clng(idlist))rnend ifrnend ifrngame_id=request("game_id")rntype1=request("type")rnrn if type1<>"" and not isnull(type1) thenrn sql="select * from Game_cdkey where game_id='"&game_id&"' and type="&type1&" order by id desc"rn elsern sql="select * from Game_cdkey where game_id='"&game_id&"'order by id desc"rn end ifrn Set rs = YSvoid.Exec(sql,1)rnrntotalPut=rs.recordcount rnif currentpage<1 then rncurrentpage=1 rnend if rnif (currentpage-1)*MaxPerPage>totalput then rnif (totalPut mod MaxPerPage)=0 then rncurrentpage= totalPut \ MaxPerPage rnelse rncurrentpage= totalPut \ MaxPerPage + 1 rnend if rnend if rnif currentPage=1 then rnshowContent totalput,MaxPerPagernshowpage totalput,MaxPerPage,"cdkey.asp"rnelse rnif (currentPage-1)*MaxPerPagernrn rn rnrnrn rn rn 添加CDKEY | 批量添加CDKEY | 删除全部CDKEYrn rn rn 编号rn CDKEYrn rn rn <%rn do while not rs.eofrn %>rn rn <%=rs("id")%>rn <%=rs("cdkey")%>rn rn rn<%k=k+1rn if k>=maxperpage then exit dorn rs.movenextrn looprn %>rn rnrnrn<%rnend subrnfunction showpage(totalnumber,maxperpage,filename) rndim n rnif totalnumber mod maxperpage=0 then rnn= totalnumber \ maxperpage rnelse rnn= totalnumber \ maxperpage+1 rnend if rnif CurrentPage<2 then rnresponse.write " " rnresponse.write " "rnresponse.write " "rnresponse.write "共"&n&"页 第"&CurrentPage&"页 共检索到"&totalnumber&"条相关信息" rnresponse.write " "rnresponse.write "【最前页】【上一页】" rnelse rnresponse.write " "rnresponse.write " "rnresponse.write " "rnresponse.write "共"&n&"页 第"&CurrentPage&"页 共检索到"&totalnumber&"条相关信息" rnresponse.write " "rnresponse.write "【最前页】" rnresponse.write "【上一页】 " rnend if rnif n-currentpage<1 then rnresponse.write "【下一页】【最后页】" rnelse rnresponse.write "【" rnresponse.write "下一页】【最后页】" rnend if rnresponse.write ""rnresponse.write ""rnresponse.write ""rnresponse.write ""rnend functionrnsub deleteannounce(id)rndim rs,sqlrnset rs=server.createobject("adodb.recordset")rnsql="delete from Game_cdkey where id="&cstr(id)rnconn.execute sqlrnif err.Number<>0 thenrnerr.clearrnresponse.write "删 除 失 败 ! "rnend ifrnEnd subrn%>rnrnrnrn
Microsoft VBScript 编译器错误 &#x27;800a0408&#x27; 无效字符 高手来来来,感激不尽
'解析if Public Function parseIf() if not isExistStr(content,"{if:") then Exit Function dim matchIf,matchesIf,strIf,strThen,strThen1,strElse1,labelRule2,labelRule3 dim ifFlag,elseIfArray,elseIfSubAr
Microsoft VBScript 编译器错误 错误 '800a0409' 未结束的字符串常量
遇到问题:运行VB代码脚本的时候提示:Microsoft VBScript 编译器错误 错误 ‘800a0409’ 未结束的字符串常量 原因是:编码错误 解决方法:另存为编码是ANSI的txt文档,修改后缀,重新运行
运行时错误'429':ActiveX部件不能创建对象 解决办法 通用
运行时错误'429':ActiveX部件不能创建对象
uploadify JavaScript 运行时错误: “$”未定义
这是由于没有引用jquery的包。在&amp;lt;head&amp;gt;&amp;lt;/head&amp;gt;中间引入即可:&amp;lt;script src=&quot;../js/jquery-1.2.6.js&quot; type=&quot;text/javascript&quot;&amp;gt;&amp;lt;/script&amp;gt;    &amp;lt;script src=&quot;../js/jquery-1.8.2.min.js&quot; type=&quot;te
错误: “__doPostBack”未定义
给公司一个业务写流程页面,并提供数据查询时碰到下面错误。 当时一看:啥?啊?啊哈?dopostback不是asp.net框架内封装的一个函数么?未定义?什么鬼?asp.net易学难精?bug?一万个想法。一通baidu,google,最后都说是浏览器版本的问题。但后面经过多方测试发现并不是。居然只是因为我在notepad++上写html代码是没有写&amp;lt;form&amp;gt;控件,就直接复制到asp...
VBScript 运行时错误 编码含义
VBScript 运行时错误 如果 VBScript 脚本执行系统无法实施的操作,则会产生 VBScript 运行时错误。只有在运行脚本、为变量表达式赋值或 分配内存时,才会产生 VBScript 运行时错误。 该记事本是我长期积累的,查询错误编码的含义
Microsoft VBScript 运行时错误 '800a01f4' 高手帮忙
Microsoft VBScript 运行时错误 '800a01f4' rnrn变量未定义: 'strListFront' rnrn\Temp\4.asp, line 89rnrnrn源代码:rnrnrn<%rnrnDim menu, strHtmlFrontrnstart="工具下载"rnmenu=tee5.CheckStr(request("menu"))rnif menu="" or (not isnumeric(menu)) or isnull(menu) thenrn menu="all"rnend ifrnset rs = server.createobject("adodb.recordset")rntee5.head()rnResponse.Write " "rnResponse.Write " 当前位置 : > 工具下载"rnResponse.Write " "rnDim tablestylernDim maxperpage,CurrentPage,Pcount,totalrec,totalnumberrnmaxperpage = Clng(tee5.MaxPerPage)rntotalrec = 0rnPcount = 1rnCurrentPage = tee5.ChkNumeric(Request("page"))rnIf CurrentPage = 0 Then CurrentPage = 1rnResponse.Write " " & vbCrLfrnrnsql="select * from Gq_soft where top=True order by wgtime desc"rnrs.open sql,conn,1,1rnif rs.eof and rs.bof thenrn rs.closernelserndo while not rs.eofrn%>rn rn "><%=rs("title")%>rn <%=left(rs("content"),150)%> ">查看详细介绍~rn 工具类型:<%=rs("wgtype")%>更新日期:<%if rs("wgtime")<>"" then response.write year(rs("wgtime"))&"月"&month(rs("wgtime"))&"月"&day(rs("wgtime"))&"日"%>更新下载次数:<%=rs("hits")%>好评度:100%">点击下载rnrn<%rnrs.movenextrnlooprnrs.closernend ifrn%>rn<% rnsql="select * from Gq_soft where top=False order by wgtime desc" rnrs.open sql,conn,1,1 rnif rs.eof and rs.bof thenrnelse rn totalrec = Rs.RecordCountrn Pcount = CLng(totalrec / maxperpage) '得到总页数rn If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1rn If CurrentPage < 1 Then CurrentPage = 1rn If CurrentPage > Pcount Then CurrentPage = Pcountrn Rs.PageSize = maxperpagern Rs.AbsolutePage = CurrentPagern i = 0rn Do While Not Rs.EOF And i < maxperpagern If Not Response.IsClientConnected Then ResponseEndrn%>rn rn "><%=rs("title")%>rn <%=left(rs("content"),150)%> ">查看详细介绍~rn 工具类型:<%=rs("wgtype")%>更新日期:<%if rs("wgtime")<>"" then response.write year(rs("wgtime"))&"月"&month(rs("wgtime"))&"月"&day(rs("wgtime"))&"日"%>更新下载次数:<%=rs("hits")%>好评度:100%">点击下载rnrn <% rn Rs.movenextrni = i + 1rnIf i >= maxperpage Then Exit Dorn LooprnEnd IfrnRs.Close:Set Rs = NothingrnrnResponse.Write " "rnstrHtmlFront = "/html/Soft/Soft_"rnIf Clng(tee5.ShowHtml) < 1 Thenrn tee5.ShowHtmlPage CurrentPage,Pcount,totalrec,maxperpage,strHtmlFront,".Html","下载中心"rnElsern tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,strListFront,"下载中心"rnEnd IfrnResponse.Write ""rnResponse.Write ""rntee5.footer()rnCloseConnrn%>rnrn
Microsoft VBScript 编译器错误 错误 '800a0408' 怎么解决?无效字符
今天一个用户使用XYCMS建站系统运行时发现遇到一个错误提示,Microsoft VBScript 编译器错误 错误 '800a0408' 怎么解决?无效字符,我看了下截图 好,现在大家看到什么没有,该用户使用的是netbox,即简易ASP调试工具,此工具有一定模拟IIS环境测试ASP程序功能,但是此工具对ASP网页编码为gb2312支持比较好,对于网页编码为utf8的网页支持性为0,也就是...
win10系统word2016打开出现运行时错误 “429 ActiveX部件不能创建对象” 的解决方法!
手工注册此文件: 点击“开始”→“运行”在弹出的输入框中键入以下命令:  regsvr32 &quot;C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll&quot; regsvr32 &quot;C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll&quot; 然后按回车键,注意必须加引号。 ...
.[Ext]引入“ext-lang-zh_CN.js”之后出现“未结束的字符串常量”
异常现象: 引入“ext-lang-zh_CN.js”之后,查看页面一直出现“ 未结束的字符串常量”   原因: 出现“ 未结束的字符串常量”,是由于字符集问题引起   解决方法: 在引入js的时候加上 charset=&quot;utf-8&quot; 即可解决如:&amp;lt;script type=&quot;text/javascript&quot; src&quot;ext/ext-lang-zh_CN.js&quot; charse...
解决WebForm_InitCallback() 未定义问题
解决.net4.5+解决WebForm_InitCallback() 未定义问题,直接在问题页面引用即可。
IE浏览器访问工程时报错:“'console'未定义”
在网上了解到,存在这种问题是因为IE8/9并不支持console的方式。       解决方法有两种:            1.按F12开启IE Dev Tools才能存取console;            2.在调用之前,先进行一下判断:                            if(window.console && console.l
VBSCRIPT编译器
一个很好用的vbs编译器,非常方便,有具体的提示信息
实时错误 ‘91’ 对象变量或with块变量未设置” 解决办法
一,引言 不管我们在做学生系统还是机房收费系统,在过程中总会遇到“实时错误‘91’ ”这个错误,但是在学生系统里遇到之后也没有深究,并不知道是哪里的错误,在做机房的时候遇到是就有了一定的了解。 二,分析 当出现这种情况时先不要盲目的去做,去搜,先想一下,可能会发生这些错误的原因有哪些?开始做之前的一些准备工作有没有做好,像数据库配置,ODBC的连接,一些查询语句的书写,代码的书写,以及数据库...
ASP中Microsoft VBScript runtime 错误 '800a01f4'
我用函数获取url中id后面的数字,然后根据ID获取数据库相应ID的其他信息。但是访问a.asp?id=1的时候出现以下错误。rnMicrosoft VBScript runtime 错误 '800a01f4' rnVariable is undefined: 'Id' rn/a.asp,行 3 rn下面是a.asp文件代码rnrn<%rnId=Request.QueryString("ID")rnset r=server.createobject("adodb.recordset")rnsql="select * from 5U_Content where id="&idrnset rsc=conn.execute(sql)rnid=rsc("id")rnSource=rsc("Source")rntitle=rsc("title")rnDescription=rsc("Description")rnIndexpic=rsc("Indexpic")rnFilepath=rsc("Filepath")rnViewpath=rsc("Viewpath")rnconn.execute (sql)rnrsc.closernset rsc=nothingrnif verity<>1 thenrnResponse.Write " "rnResponse.Endrnend ifrn%>rn <%=title%> rn这个错误我曾经在腾讯问问上发问过,但是回答者一律错误,原帖地址:http://wenwen.soso.com/z/q127976473.htm。希望大家帮我改下代码,或者重新给我个新的代码也可以,感谢!
PowerDesigner使用VBScript把表结构导出为Excel
前面有篇文章介绍了如何把Excel编写好的表结构导入到PowerDesigner(见链接:PowerDesigner从Excel导入表结构),在实际的工作中,这两者的互相转化,是经常的事情。 这里给出对应于那篇文章中约定好的Excel格式的导出脚本: '**********************************************************************...
ActiveX不能创建对象 代码:800A01AD
背景: 工作中,需要基于QTP搭建的“自动化配置检查平台”迁移到新服务器。旧服务器系统是32位windows 7,新服务器系统是windows server 2012(微软自从windows server 2008 r2操作系统开始; 只会发布64位的windows服务器操作系统了) 。由于32位和64位的区别,造成脚本执行过程中报ActiveX不能创建对象 代码:800A01AD。 解决方案: ...
Microsoft VBScript 运行时错误 错误 '800a000d'
计数器文件,在其它页能正常计数,在新闻类的页中出现“Microsoft VBScript 运行时错误 错误 '800a000d'”错误,rnrnrn望指点!!
Microsoft VBScript 运行时错误 错误 '800a139a'
Microsoft VBScript 运行时错误 错误 '800a139a' rnrn错误的数量词 rnrn/baking-pangthai/inc/ubbcode.asp,行59 rn rn怎么处理
Microsoft VBScript 运行时错误 错误 '800a01a8'
Microsoft VBScript 运行时错误 错误 '800a01a8' rnrn缺少对象: 'DRIVER=SQL Server;SE' rnrn/financial/addfinance.asp,行 23 rnrn请问800a01a8是个什么错误,怎么解决?谢谢了rn
Microsoft VBScript 运行时错误 错误 '800a01ad'
Server 对象 错误 'ASP 0177 800401f3' rnrnServer.CreateObject 失败 rnrn/Verify/_inc/MD5.asp,行 11rnrnrn800401f3 rnrn刚解决完上述问题rnrn接着又出现如下问题rnrnrnMicrosoft VBScript 运行时错误 错误 '800a01ad' rnrnActiveX 部件不能创建对象: 'AES.AESOBJ.1' rnrn/Verify/_inc/MD5.asp,行 11rnrnrnrn怎么解决rn
Microsoft VBScript 运行时错误 错误 '800a0005'.
网站以前好好的,后来出了这个问题.同样的代码,在另一台服务器上的iis下运行没有问题呀.这是什么原因引起的???rnrnrnMicrosoft VBScript 运行时错误 错误 '800a0005'. 无效的过程调用或参rn数: 'left'. /index.asp, 行73. rn
Microsoft VBScript 运行时错误 错误 '800a01c9'
此键已与该集合的一个元素关联
Microsoft VBScript 运行时错误 错误 '800a01b6'
<%rnDim UserIDrndim usergrouprnUserID = LzClng(Request("uid"))rnIf UserID = 0 Thenrn If Instr(Request.ServerVariables("QUERY_STRING"),"&") > 0 Thenrn UserID = LzClng(Split(Request.ServerVariables("QUERY_STRING"),"&")(0))rn Elsern UserID = LzClng(Request.ServerVariables("QUERY_STRING"))rn End IFrn Session("URLParameter") = "uid="rnEnd IfrnrnSub ReplaceUserInfo()rn Dim rs,rs2,sql,field,MyConfigrn rn If Not IsObject(Conn) Then Connectrn Set Rs = Server.CreateObject("ADODB.Recordset")rn sql = "Select * From "& UserTable &" Where ID="& UserIDrn RS.Open sql,Conn,1,3rn if not(rs.eof And rs.bof) thenrn LZ8.PageTitle = rs("Company") & LZ8.oTemplate.GetPageLanguage("PageName")rn 'LZ8.TemplateContent = LZ8.oLabel.ReplaceStaticLabel(LZ8.TemplateContent)rn rn LZ8.UserID = UserIDrn LZ8.Usergroupid = rs("usergroupid")rn LZ8.CompanyID = rs("CompanyID")rn LZ8.oUser.UserID = UserIDrn LZ8.oUser.GetUesrInforn On Error Resume Nextrn MyConfig = Split(LZ8.oUser.Info("Config"),",")rn if Err thenrn err.clearrn rs("Config") = "1,20"rn MyConfig = Split(rs("Config"), ",")rn end ifrn If Not IsNumeric(MyConfig(1)) Then MyConfig(1) = 20rn LZ8.TemplateContent = LZ8.oLabel.ReplaceLabel(LZ8.TemplateContent,"Page.ListNum", MyConfig(1))rn LZ8.TemplateContent = LZ8.oLabel.ReplaceLabel(LZ8.TemplateContent,"Page.UserID", UserID)rn LZ8.TemplateContent = LZ8.oLabel.ReplaceLabel(LZ8.TemplateContent,"Page.UserName", rs("UserName"))rnrn For each field in rs.fieldsrn Select Case Lcase(field.name)rn Case ""rn Case Elsern LZ8.TemplateContent = LZ8.oLabel.ReplaceLabel(LZ8.TemplateContent, "Page."& field.name, rs(""& field.name &""))rn End Select rn Nextrn rn Set Rs2 = LZ8.Execute("Select * From LZ8_Contacter Where ContacterID="& rs("ContacterID") )rn If Not(rs2.bof And rs2.eof) Thenrn For each field in rs2.fieldsrn Select Case Lcase(field.name)rn Case ""rn Case Elsern LZ8.TemplateContent = LZ8.oLabel.ReplaceLabel(LZ8.TemplateContent, "Page."& field.name, rs2(""& field.name &""))rn End Select rn Nextrn end Ifrnrn Set Rs2 = LZ8.Execute("Select * From LZ8_Company Where CompanyID="& rs("CompanyID") )rn If Not(rs2.bof And rs2.eof) Thenrn For each field in rs2.fieldsrn Select Case Lcase(field.name)rn Case ""rn Case Elsern LZ8.TemplateContent = LZ8.oLabel.ReplaceLabel(LZ8.TemplateContent, "Page."& field.name, rs2(""& field.name &""))rn End Selectrn Nextrn end Ifrn rs2.close:set rs2=Nothingrn rn LZ8.doAllLabelrnrn rs("Hits") = rs("Hits") + 1rn rs("LastLooktime") = nowrn rs.Updatern elsern LZ8.ShowInfo(LZ8.oTemplate.GetPageLanguage("NoUser"))rn end ifrn RS.close:Set rs = NothingrnEnd Subrn%>rnrnrnrnrnrn提示错误rnMicrosoft VBScript 运行时错误 错误 '800a01b6' rnrn对象不支持此属性或方法: 'LZ8.CompanyID' rnrn../Common/Module/User/Config.asp,行 27 rn上面是这个文件的所有代码,用的是领智4.0的系统,Company是我新加的字段,照着LZ8.UserID = UserID这样写时,也提示同样的问题,Companyid是表里本来就有的字段,也这样。但是LZ8.Usergroupid = rs("usergroupid")是我自己后来加上的,usergroupid是表里本来就有的字段,这个可以,其他的都不行,这是为什么啊,求解。
Microsoft VBScript 运行时错误 错误 '800a0009'
Microsoft VBScript 运行时错误 错误 '800a0009' rnrn下标越界: '[number: 26]' rnrn这个错误怎么改啊?
Microsoft VBScript 运行时错误 错误 '800a0046'
Microsoft VBScript 运行时错误 错误 '800a0046' rnrn没有权限 rnrn/admin888/job_del.asp,行 51 rnrnrn我想在后台管理程序中删除一条记录,但是出项这样的提示,改怎么解决呢?rnrn大家帮忙看下?rn
Microsoft VBScript 运行时错误 错误 '800a000b'
我有一段代码rn[code=C#]rn<%rn arr=split(session("fail"),"@")rn '************************************rn '* 方法:数组分页rn '* 方法名:SetPage(nowP,reCount,num)rn '* nowP : 记录当前页rn '* reCount:数组大小rn '* num:一页显示多少条数据rn '************************************rn Page=cint(request("page"))rn rn rn UBoundArr=UBound(arr)rn num=cint(request("num"))rn response.Write(num)rn TrContent=""rnrn call SetPage(Page,UBoundArr,num)rn public Function SetPage(nowP,reCount,num)rn if nowP="" thenrn nowP=1rn end ifrn if num=""thenrn num=20rn end ifrn nowPage=nowP '记录当前页数rn RsCount=reCount '总记录rn pageNumber=num '一页显示多少条记录rn If nowP=1 then '记录上一次最大的记录rn MaxCount=0rn Elsern nowP=nowP-1rn MaxCount=cint(nowP*pageNumber)rn End ifrn ApageCount=(reCount/num) '共多少页rn response.Write(reCount/num)rn if instr(ApageCount,".")>0 thenrn ApageCount=cint(ApageCount)+1rn end ifrn '上一次最大记录加上 一页显示多少条数据rn '得出本次最次最大显示条数rn rs=MaxCount+pageNumberrn '判断是否超过了最大下标rn If rs>UBound(arr) thenrn rs =UBound(arr)rn Elsern rs=MaxCount+pageNumberrn End ifrn For i=MaxCount to rs-1rn 'Response.Write(arr(i)&" ")rn Nextrn End functionrn 'response.Redirect("Frame.html") rn%>[/code]rn加上最后一句就报 '800a000b'的错误。、求解释rn问题补充:rnApageCount=(reCount/num) '共多少页rnrn加上最后一句的话。就说 上面那句的错误。rnrn不加最后跳转 一点错误都没有。
Microsoft VBScript 运行时错误 错误 '800a01a8' ???
代码如下:rnconn.asprn<%rndim objconnrnSet objconn = Server.CreateObject("ADODB.Connection")'创建一个数据库链接对象objconn,方便后面调用rnobjconn.connectionstring="Provider=SQLOLEDB;Data Source=10.143.133.236;Initial Catalog=test;User ID=sa;Password=123!@#;" '创建一个数据库的recordset对象,方便以后调用rnobjconn.Open '打开数据库rnrn%>rnrnregister.asprnrn<% if trim(request("ctype"))="add" thenrnsqlfind="select * from student where studentnumber='"&trim(request("number"))&"'"rnrnset rsfind=conn.execute(sqlfind) ---->这里出错rnrnif not rsfind.eof thenrn%>rn rn<%elsernsqlin="insert into student (studentname,studentpassword,sex,class,studentnumber) values('"&trim(request("student"))&"','"&trim(request("pwd"))&"','"&trim(request("sex"))&"','"&trim(request("classes"))&"','"&trim(request("number"))&"')"rnrnset rs=conn.execute(sqlin)rnrn%>rn rn<%end if rnend if %>rnrn是什么问题?确认数据用户、密码正确,连接字符串可用???
Microsoft VBScript 运行时错误 错误 '800a01fb'
这是怎么回事啊?rnMicrosoft VBScript 运行时错误 错误 '800a01fb' rnrn出现一个意外错误: 'open' rnrn/conn/conn.asp,行6rnrn原来好好的,突然就不行了.