微信扫一扫2.8w+
社区成员
Microsoft VBScript runtime 错误 '800a000b'
Microsoft VBScript runtime 错误 '800a000b'
Division by zero
/bbs/index.asp，行 82
’这是代码
<!--#include file="inc.asp"-->
<!--#include file="inc/Cls_Brower.asp"-->
<%
Dim PageString
BBS.Head "index.asp","","论坛首页"
If BBS.Info(20)="1" then ShowInfo()
ShowBoard()
If BBS.Info(22)="1" then ShowBirthday()
If BBS.Info(23)="1" then ShowLink()
If BBS.Info(21)="1" then PageString=PageString&ShowOnline()
Response.Write PageString
Response.Write "<iframe name='hiddenframe' frameborder='0' height='0' id='hiddenframe'></iframe>"
If Session(CacheName&"online")="1" then Response.Write "<iframe frameborder='0' src='online.asp?id=1' height='0'></iframe>"
BBS.Footer()
Set BBS = Nothing
Sub ShowInfo()
With BBS
Dim S,OnlingType
If .FoundUser Then
S = .ReadSkins("用户信息")
If Session(CacheName & "MyInfo")(11)="1" Then
S=Replace(S,"{用户头像}","<img src='http://qqshow-user.tencent.com/"&Session(CacheName & "MyInfo")(10)&"/11/'>")
Else
S=Replace(S,"{用户头像}","<img src="&Session(CacheName & "MyInfo")(12)&" width="&Session(CacheName & "MyInfo")(13)&" height="&Session(CacheName & "MyInfo")(14)&" >")
End if
If .MyHidden="0" Then
OnlingType="隐身中"
Else
OnlingType="在线中"
End If
S=Replace(S,"{用户名称}","<a href='userinfo.asp' title='查自己的资料信息'>"&.MyName&"</a>")
S=Replace(S,"{在线状态}",OnlingType)
S=Replace(S,"{帖数}",Session(CacheName & "MyInfo")(4))
S=Replace(S,"{积分数}",Session(CacheName & "MyInfo")(6))
S=Replace(S,"{金钱数}",Session(CacheName & "MyInfo")(7))
S=Replace(S,"{等级}",Session(CacheName & "MyGradeInfo")(2))
Else
S = .ReadSkins("游客信息")
End If
S=Replace(S,"{总帖数}",.InfoUpdate(0))
S=Replace(S,"{主题数}",.InfoUpdate(1))
S=Replace(S,"{今日帖数}",.InfoUpdate(2))
S=Replace(S,"{昨日帖数}",.InfoUpdate(3))
S=Replace(S,"{最高日帖数}",.InfoUpdate(4))
S=Replace(S,"{会员数}",.InfoUpdate(5))
S=Replace(S,"{新会员名称}",.InfoUpdate(6))
If .Info(14)="1" Then
S=Replace(S,"{验证码}",BBS.GetiCode)
Else
S=Replace(S,"{验证码}","")
End If
S=Replace(S,"{公告}",.Placard(0))
Response.Write S
End With
End Sub
Sub ShowBoard()
Dim Board,Rs,i,BigBoard,BoardChild,BoardString,BoardStr,II
Dim area,area2,Child,width
With BBS
If Not IsArray(.Board_Rs) Then .GetBoardCache()
If Not IsArray(.Board_Rs) Then Exit Sub
area=.ReadSkins("版块分区表格")
area2=.ReadSkins("版块分区简洁表格")
For i=0 To Ubound(.Board_Rs,2)
' 只显示2级
If .Board_Rs(0,i)<2 Then
' Board_Rs()=0深度+1ID+2父ID+3名称+4图片+5简介+6版主+7认证用+8子论坛个数+9子论组+10组类+11版组
If .Board_Rs(0,i)=0 Then
BoardString=Split(.Board_Rs(11,i),"|")
If BoardString(1)="1" Then
BigBoard=area2
Child=Int(.Board_Rs(8,i))
If Child<Int(BoardString(2)) and Child>0 Then
Width=100\Child
Else
width=100\Int(BoardString(2))
End If
II=0
Else
BigBoard=area
End If
If i >= 1 Then
BoardStr=Replace(BoardStr,"{显示版块}",BoardChild)
Board=Board&BoardStr
BoardChild =""
End IF
BoardStr=Replace(BigBoard,"{分类名称}",.Board_Rs(3,i))
BoardStr=Replace(BoardStr,"{分类ID}",.Board_Rs(1,i))
Else
If BoardString(1)="1" or Session(CacheName& "BoardStyle")="1" Then
Child=Child-Int(.Board_Rs(8,i))
II=II+1
If II=Int(BoardString(2)) or II=Child Then
BoardChild=BoardChild&"<div style='float:left;max-width:"&width&"%'>"&.GetBoardInfo("1",i)&"</div>"
Else
BoardChild=BoardChild&"<div style='float:left;width:"&width&"%'>"&.GetBoardInfo("1",i)&"</div>"
End If
Else
BoardChild=BoardChild&.GetBoardInfo("0",i)
End IF
End If
End If
Next
BoardStr=Replace(BoardStr,"{显示版块}",BoardChild)
Board = Board&BoardStr
Response.Write Board
End With
End Sub
Sub ShowBirthday()
Dim S,STemp
STemp=BBS.ReadSkins("会员生日")
If BBS.Cache.valid("Birthday") then
S=Split(BBS.Cache.Value("Birthday"),"|")
If S(0)="0" Then Exit Sub
STemp=Replace(STemp,"{今天生日会员数}",S(0))
STemp=Replace(STemp,"{内容}",S(1))
Response.Write STemp
Else
Dim Rs,Arr_Rs,I,Num,UserBirthday
Set Rs=BBS.Execute("Select Name,Birthday From [User] where Month(Birthday)=Month(now) and day(Birthday)=day(now)")
IF Not Rs.eof Then Arr_Rs=Rs.getrows()
Rs.Close
Set Rs=Nothing
Num=0
If IsArray(Arr_Rs) Then
For i = 0 to UBound(Arr_Rs,2)
Num=Num+1
UserBirthday=UserBirthday&"祝<a href=""userinfo.asp?name="&Arr_Rs(0,i)&"""><font color=""#800000"">"&Arr_Rs(0,i)&"</font></a>生日快乐 "
Next
End If
UserBirthday = ""&UserBirthday&""
If i>5 Then UserBirthday="<marquee width=""99%"" onMouseOver=""this.stop()"" onMouseOut=""this.start()"" scrollamount=""3"" >"&UserBirthday&"</marquee>"
If Num=0 Then
S="0|0"
Else
STemp=Replace(STemp,"{今天生日会员数}",num)
STemp=Replace(STemp,"{内容}",UserBirthday)
Response.Write STemp
S=Num&"|"&UserBirthday
End If
BBS.Cache.add "Birthday",S,dateadd("n",1200,now)
End If
End Sub
Sub showlink()
Dim rs,Arr_Rs,I,Temp,lpic,TempText,TempPic,ii,S
If BBS.Cache.valid("linkinfo") then
Temp=BBS.Cache.Value("linkinfo")
Else
Set Rs=BBS.Execute("Select ID,Orders,BbsName,Url,pic,Readme,pass,Ispic From [link] where pass=1 and IsIndex=1 order by ispic,orders")
If Rs.Eof Then
Exit Sub
Else
Arr_Rs=Rs.GetRows
Rs.Close
Set Rs=Nothing
ii = 0
For i=0 To Ubound(Arr_Rs,2)
If Arr_rs(4,i) <> "" and Arr_rs(7,i)=0 Then
ii = ii + 1
TempText = TempText & "<a target=""_blank"" href="""&Arr_rs(3,i)&""" title="""&Arr_rs(5,i)&""">"&Arr_rs(2,i)&"</a> "
Else
TempPic = TempPic & "<a target=""_blank"" href="""&Arr_rs(3,i)&"""><img src="""&Arr_rs(4,i)&""" border=0 title="""&Arr_rs(5,i)&""" width=""88"" height=""31""></a> "
End If
Next
If i >= 9 Then TempPic = "<marquee scrollamount=3 onmouseover=stop() onmouseout=start()>"&TempPic&"</marquee>"
If TempPic <> "" Then TempPic = "<tr><td>"&TempPic&"</td></tr>"
If TempText <> "" Then TempText = "<tr><td>"&TempText&"</td></tr>"
Temp="<table border=""0"" width=""94%"" cellpadding=""0"" cellspacing=""5"">"&TempText&TempPic&"</table>"
BBS.Cache.add "linkinfo",Temp,dateadd("n",10000,now)
End If
End If
S=BBS.ReadSkins("论坛联盟")
S=Replace(S,"{内容}",Temp)
Response.Write S
End Sub
Function ShowOnline()
Dim S
S=BBS.ReadSkins("首页在线统计")
S=Replace(S,"{显示在线列表}","<div id='showon'></div>")
If Session(CacheName&"Online")="1" Then S=Replace(S,"{展开在线列表图标}","-.gif") Else S=Replace(S,"{展开在线列表图标}","+.gif")
Dim BrowserType
Set BrowserType=New Cls_Browser
S=Replace(S,"{用户系统}",BrowserType.platform)
S=Replace(S,"{用户浏览器}",BrowserType.Browser & BrowserType.version)
Set BrowserType=Nothing
S=Replace(S,"{用户IP}",BBS.MyIp)
S=Replace(S,"{建站时间}",BBS.Info(5))
S=Replace(S,"{在线总数}",BBS.AllOnlineNum)
S=Replace(S,"{会员数}",BBS.UserOnlineNum)
S=Replace(S,"{游客数}",BBS.AllOnlineNum-BBS.UserOnlineNum)
S=Replace(S,"{在线最大数}",BBS.InfoUpdate(7))
S=Replace(S,"{最大数时间}",BBS.InfoUpdate(8))
S=Replace(S,"{管理员}",BBS.SkinsPic(21))
S=Replace(S,"{超级版主}",BBS.SkinsPic(22))
S=Replace(S,"{版主}",BBS.SkinsPic(23))
S=Replace(S,"{VIP会员}",BBS.SkinsPic(24))
S=Replace(S,"{会员}",BBS.SkinsPic(25))
S=Replace(S,"{隐身}",BBS.SkinsPic(26))
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Dogfish 2013-02-05
提示在82行，在82行附近检测一下要做除法的变量。
- 打赏
- 举报
sxxhai 2013-02-04
不懂。。。。
- 打赏
- 举报
Dogfish 2013-01-31
在出错的行加个检测是否为0。
- 打赏
- 举报
牛哥_ 2013-01-30
<!--#include file="inc.asp"-->
<!--#include file="inc/Cls_Brower.asp"-->
<%
Dim PageString
BBS.Head "index.asp","","论坛首页"
If BBS.Info(20)="1" then ShowInfo()
ShowBoard()
If BBS.Info(22)="1" then ShowBirthday()
If BBS.Info(23)="1" then ShowLink()
If BBS.Info(21)="1" then PageString=PageString&ShowOnline()
Response.Write PageString
Response.Write "<iframe name='hiddenframe' frameborder='0' height='0' id='hiddenframe'></iframe>"
If Session(CacheName&"online")="1" then Response.Write "<iframe frameborder='0' src='online.asp?id=1' height='0'></iframe>"
BBS.Footer()
Set BBS = Nothing
Sub ShowInfo()
With BBS
Dim S,OnlingType
If .FoundUser Then
S = .ReadSkins("用户信息")
If Session(CacheName & "MyInfo")(11)="1" Then
S=Replace(S,"{用户头像}","<img src='http://qqshow-user.tencent.com/"&Session(CacheName & "MyInfo")(10)&"/11/'>")
Else
S=Replace(S,"{用户头像}","<img src="&Session(CacheName & "MyInfo")(12)&" width="&Session(CacheName & "MyInfo")(13)&" height="&Session(CacheName & "MyInfo")(14)&" >")
End if
If .MyHidden="0" Then
OnlingType="隐身中"
Else
OnlingType="在线中"
End If
S=Replace(S,"{用户名称}","<a href='userinfo.asp' title='查自己的资料信息'>"&.MyName&"</a>")
S=Replace(S,"{在线状态}",OnlingType)
S=Replace(S,"{帖数}",Session(CacheName & "MyInfo")(4))
S=Replace(S,"{积分数}",Session(CacheName & "MyInfo")(6))
S=Replace(S,"{金钱数}",Session(CacheName & "MyInfo")(7))
S=Replace(S,"{等级}",Session(CacheName & "MyGradeInfo")(2))
Else
S = .ReadSkins("游客信息")
End If
S=Replace(S,"{总帖数}",.InfoUpdate(0))
S=Replace(S,"{主题数}",.InfoUpdate(1))
S=Replace(S,"{今日帖数}",.InfoUpdate(2))
S=Replace(S,"{昨日帖数}",.InfoUpdate(3))
S=Replace(S,"{最高日帖数}",.InfoUpdate(4))
S=Replace(S,"{会员数}",.InfoUpdate(5))
S=Replace(S,"{新会员名称}",.InfoUpdate(6))
If .Info(14)="1" Then
S=Replace(S,"{验证码}",BBS.GetiCode)
Else
S=Replace(S,"{验证码}","")
End If
S=Replace(S,"{公告}",.Placard(0))
Response.Write S
End With
End Sub
Sub ShowBoard()
Dim Board,Rs,i,BigBoard,BoardChild,BoardString,BoardStr,II
Dim area,area2,Child,width
With BBS
If Not IsArray(.Board_Rs) Then .GetBoardCache()
If Not IsArray(.Board_Rs) Then Exit Sub
area=.ReadSkins("版块分区表格")
area2=.ReadSkins("版块分区简洁表格")
For i=0 To Ubound(.Board_Rs,2)
' 只显示2级
If .Board_Rs(0,i)<2 Then
' Board_Rs()=0深度+1ID+2父ID+3名称+4图片+5简介+6版主+7认证用+8子论坛个数+9子论组+10组类+11版组
If .Board_Rs(0,i)=0 Then
BoardString=Split(.Board_Rs(11,i),"|")
If BoardString(1)="1" Then
BigBoard=area2
Child=Int(.Board_Rs(8,i))
If Child<Int(BoardString(2)) and Child>0 Then
Width=100\Child
Else
width=100\Int(BoardString(2))
End If
II=0
Else
BigBoard=area
End If
If i >= 1 Then
BoardStr=Replace(BoardStr,"{显示版块}",BoardChild)
Board=Board&BoardStr
BoardChild =""
End IF
BoardStr=Replace(BigBoard,"{分类名称}",.Board_Rs(3,i))
BoardStr=Replace(BoardStr,"{分类ID}",.Board_Rs(1,i))
Else
If BoardString(1)="1" or Session(CacheName& "BoardStyle")="1" Then
Child=Child-Int(.Board_Rs(8,i))
II=II+1
If II=Int(BoardString(2)) or II=Child Then
BoardChild=BoardChild&"<div style='float:left;max-width:"&width&"%'>"&.GetBoardInfo("1",i)&"</div>"
Else
BoardChild=BoardChild&"<div style='float:left;width:"&width&"%'>"&.GetBoardInfo("1",i)&"</div>"
End If
Else
BoardChild=BoardChild&.GetBoardInfo("0",i)
End IF
End If
End If
Next
BoardStr=Replace(BoardStr,"{显示版块}",BoardChild)
Board = Board&BoardStr
Response.Write Board
End With
End Sub
Sub ShowBirthday()
Dim S,STemp
STemp=BBS.ReadSkins("会员生日")
If BBS.Cache.valid("Birthday") then
S=Split(BBS.Cache.Value("Birthday"),"|")
If S(0)="0" Then Exit Sub
STemp=Replace(STemp,"{今天生日会员数}",S(0))
STemp=Replace(STemp,"{内容}",S(1))
Response.Write STemp
Else
Dim Rs,Arr_Rs,I,Num,UserBirthday
Set Rs=BBS.Execute("Select Name,Birthday From [User] where Month(Birthday)=Month(now) and day(Birthday)=day(now)")
IF Not Rs.eof Then Arr_Rs=Rs.getrows()
Rs.Close
Set Rs=Nothing
Num=0
If IsArray(Arr_Rs) Then
For i = 0 to UBound(Arr_Rs,2)
Num=Num+1
UserBirthday=UserBirthday&"祝<a href=""userinfo.asp?name="&Arr_Rs(0,i)&"""><font color=""#800000"">"&Arr_Rs(0,i)&"</font></a>生日快乐 "
Next
End If
UserBirthday = ""&UserBirthday&""
If i>5 Then UserBirthday="<marquee width=""99%"" onMouseOver=""this.stop()"" onMouseOut=""this.start()"" scrollamount=""3"" >"&UserBirthday&"</marquee>"
If Num=0 Then
S="0|0"
Else
STemp=Replace(STemp,"{今天生日会员数}",num)
STemp=Replace(STemp,"{内容}",UserBirthday)
Response.Write STemp
S=Num&"|"&UserBirthday
End If
BBS.Cache.add "Birthday",S,dateadd("n",1200,now)
End If
End Sub
Sub showlink()
Dim rs,Arr_Rs,I,Temp,lpic,TempText,TempPic,ii,S
If BBS.Cache.valid("linkinfo") then
Temp=BBS.Cache.Value("linkinfo")
Else
Set Rs=BBS.Execute("Select ID,Orders,BbsName,Url,pic,Readme,pass,Ispic From [link] where pass=1 and IsIndex=1 order by ispic,orders")
If Rs.Eof Then
Exit Sub
Else
Arr_Rs=Rs.GetRows
Rs.Close
Set Rs=Nothing
ii = 0
For i=0 To Ubound(Arr_Rs,2)
If Arr_rs(4,i) <> "" and Arr_rs(7,i)=0 Then
ii = ii + 1
TempText = TempText & "<a target=""_blank"" href="""&Arr_rs(3,i)&""" title="""&Arr_rs(5,i)&""">"&Arr_rs(2,i)&"</a> "
Else
TempPic = TempPic & "<a target=""_blank"" href="""&Arr_rs(3,i)&"""><img src="""&Arr_rs(4,i)&""" border=0 title="""&Arr_rs(5,i)&""" width=""88"" height=""31""></a> "
End If
Next
If i >= 9 Then TempPic = "<marquee scrollamount=3 onmouseover=stop() onmouseout=start()>"&TempPic&"</marquee>"
If TempPic <> "" Then TempPic = "<tr><td>"&TempPic&"</td></tr>"
If TempText <> "" Then TempText = "<tr><td>"&TempText&"</td></tr>"
Temp="<table border=""0"" width=""94%"" cellpadding=""0"" cellspacing=""5"">"&TempText&TempPic&"</table>"
BBS.Cache.add "linkinfo",Temp,dateadd("n",10000,now)
End If
End If
S=BBS.ReadSkins("论坛联盟")
S=Replace(S,"{内容}",Temp)
Response.Write S
End Sub
Function ShowOnline()
Dim S
S=BBS.ReadSkins("首页在线统计")
S=Replace(S,"{显示在线列表}","<div id='showon'></div>")
If Session(CacheName&"Online")="1" Then S=Replace(S,"{展开在线列表图标}","-.gif") Else S=Replace(S,"{展开在线列表图标}","+.gif")
Dim BrowserType
Set BrowserType=New Cls_Browser
S=Replace(S,"{用户系统}",BrowserType.platform)
S=Replace(S,"{用户浏览器}",BrowserType.Browser & BrowserType.version)
Set BrowserType=Nothing
S=Replace(S,"{用户IP}",BBS.MyIp)
S=Replace(S,"{建站时间}",BBS.Info(5))
S=Replace(S,"{在线总数}",BBS.AllOnlineNum)
S=Replace(S,"{会员数}",BBS.UserOnlineNum)
S=Replace(S,"{游客数}",BBS.AllOnlineNum-BBS.UserOnlineNum)
S=Replace(S,"{在线最大数}",BBS.InfoUpdate(7))
S=Replace(S,"{最大数时间}",BBS.InfoUpdate(8))
S=Replace(S,"{管理员}",BBS.SkinsPic(21))
S=Replace(S,"{超级版主}",BBS.SkinsPic(22))
S=Replace(S,"{版主}",BBS.SkinsPic(23))
S=Replace(S,"{VIP会员}",BBS.SkinsPic(24))
S=Replace(S,"{会员}",BBS.SkinsPic(25))
S=Replace(S,"{隐身}",BBS.SkinsPic(26))
- 打赏
- 举报
Microsoft VBScript 运行时错误 错误 '800a000d' Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: '[object]' /contact.asp，行 108 首先声明该.asp文件目的是统计问卷中各题目各选项所占百分比并用条形图显示出来 dim label(6),avg...
Microsoft VBScript runtime 错误 '800a01ad' 在上传文件或图片，或者是在生成文件启用到"FSO"时，网页报错“Microsoft VBScript runtime 错误 800a01ad”。 如下操作方能解决。（老问题，老答案，新文章而已） Active Server Pages 返回 VBScript 运行时错误...
Microsoft VBscript运行时错误'800a000d'的解决方法 在使用vbscript进行asp开发时,一些朋友会碰到以下类似的错误：Microsoft VBscript 运行时错误 '800a000d' 类型不匹配: '*******' /mycodes/sdbottm_right.asp, line 80 ... 错误原因：该错误是因为在运行iis服务...
IIS7.5 Microsoft VBScript runtime error '800a0046'的解决 错误提示：Microsoft VBScript runtime error ‘800a0046’Permission denied/LM/W3SVC/3/ROOT/global.asa, line 6于是，找到相关文件，报错行代码： set f = fso.OpenTextFile(“D:\WEB\DBC.dat”) 相关文件： 看...
关于Microsoft VBScript 运行时错误 '800a000d' 在使用vbscript进行asp开发时,一些朋友会碰到以下类似的错误：Microsoft VBscript 运行时错误 800a000d类型不匹配: *******/solweb/sdbottm_right.asp, line 80错误原因：该错误是因为在运行iis服务的windows 2003 ...
Microsoft VBScript 运行时错误 错误 '800a0005' Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数: 'Chr' /jysx/admin_upload.inc，行 75 昨天给公司服务器重做了一下系统,遇到Asp附件无法上传,之前服务器上使用好好的...
使NetBox支持Response.CharSet解决Microsoft VBScript 运行时错误 '800a01b6' 问题 Microsoft VBScript 运行时错误 '800a01b6' 对象不支持此属性或方法: 'Response.Charset' \www\11\Show.Asp, line 5 (百度一下，还有很多人遇到同样的错误) Microsoft VBScript runtime error '800a01b6' ...
美国godaddy服务器,生成html网页出错,Microsoft VBScript runtime error '800a0005' Microsoft VBScript runtime error '800a0005'Invalid procedure call or argument/admin456/html_makeflash.asp, line 76以上为提示错误,以下为我程序代码set rs=server.createobject("adodb.recordset")rs.open (...
Asp附件无法上传或报"Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数: 'chr' "的处理办法... Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'Chr' /admin/inc/UPLOAD.INC, line 75 出现如此错误可能是服务器用的是英文版本，因为 Chr 函数返回 String，其中包含有...
奇怪的错误----在firefox中的帧页面源码中找不到, 但是保存成txt之后找得到 asp页面: 保存记录时, 提示LocalID not defined, 很明显是一个js错误, 进入firefox源码, ctrl+f找不到, 但保存为txt之后又可以了. 再仔细看源码的末尾有错误信息: Microsoft VBScript runtime erro
activex 部件不能创建对象,c/ windows/ system32 /Platman_install.vbs 错误 但是新建和以前用自己的SDK编译过的项目都可以看得见,很是奇怪,于是modify一下SDK,就出现这种错误 脚本：C:/WINDOWS/system32/Platman_install.vbs行：29字符：1错误：ActiveX部件不能创建对象：‘Scripting....
关于动网 ASP + Access 论坛问题及相应解决办法 =================================================== 数据库的种种问题 解决办法：将Access数据库下载到本地，用Access打开数据库，在...=================================================== Microsoft VBScr...
HTTP 500 – 内部服务器错误之完全解决办法 如何解决与“HTTP 500 - Internal Server Error”（HTTP 500 – 内部服务器错误）错误信息有关的问题 var sectionFilter = "type != notice && type != securedata && type != querywords"; var tocArrow = "/...
'800a0005' 图片上传出现写入文件失败的错误 -- 修改pload_5xsoft.inc 一、基本问题 一般是文件写入的路径不对，或者是目录的权限没有设置好（必须...ADODB.Stream 错误 '800a0bbc' 写入文件失败。 /code/zhaosheng1/ADMIN/upload_5xsoft.inc，行 175 2、问题解决： Microsoft...
搜集到的，有关http 500内部服务器错误的原因和解决办法 Localstart.asp 文件时当 Web 站点的一个默认文档 Iisstart.asp 尝试加载 Localstart.asp 文件时，如果尝试访问此页面的用户不具有运行 Localstart.asp 文件中包含的脚本的正确权限，您会收到 HTTP 500 错误信息。...
HTTP 500 – 内部服务器错误 :system32/config），结果网页不能解析，所有asp页面出现500错误（+com组件权限丢失），重装IIS也不能解决问题，折腾了一天，不过终于还是解决了，相信下次碰到同样的事，就不会成为问题了。原文：...
Lotus Notes email via vbscript The application that I currently needs to change is our Online Leave Application which was written in vbscript. I have created a new sendmail function to send mail via lotus notes in the web page, ...
ASP 中数据操作错误可能的产生原因 写了一份简单的数据操作代码，故意制造一些可能的错误来获得错误信息，以收集起来方便查阅。说明：我暂时使用的是英文操作系统，所以错误信息也是英文的，不过对照可能遇到的中文错误信息，很容易找到需要的内容。...
