附件

ASP错误大全

对初学者们有帮助,或许高手也会忘记,ASP错误大全
MicrosoftVBScript语*错误(0x800A03E9)-->内存不足
MicrosoftVBScript语*错误(0x800A03EA)-->语*错误
MicrosoftVBScript语*错误(0x800A03EB)-->缺少 ':'
MicrosoftVBScript语*错误(0x800A03ED)-->缺少 '('
MicrosoftVBScript语*错误(0x800A03EE)-->缺少 ')'
MicrosoftVBScript语*错误(0x800A03EF)-->缺少 ']'
MicrosoftVBScript语*错误(0x800A03F2)-->缺少标识符
MicrosoftVBScript语*错误(0x800A03F3)-->缺少 '='
MicrosoftVBScript语*错误(0x800A03F4)-->缺少 'If'
MicrosoftVBScript语*错误(0x800A03F5)-->缺少 'To'
MicrosoftVBScript语*错误(0x800A03F6)-->缺少 'End'
MicrosoftVBScript语*错误(0x800A03F7)-->缺少 'Function'
MicrosoftVBScript语*错误(0x800A03F8)-->缺少 'Sub'
MicrosoftVBScript语*错误(0x800A03F9)-->缺少 'Then'
MicrosoftVBScript语*错误(0x800A03FA)-->缺少 'Wend'
MicrosoftVBScript语*错误(0x800A03FB)-->缺少 'Loop'
MicrosoftVBScript语*错误(0x800A03FC)-->缺少 'Next'
MicrosoftVBScript语*错误(0x800A03FD)-->缺少 'Case'
MicrosoftVBScript语*错误(0x800A03FE)-->缺少 'Select'
MicrosoftVBScript语*错误(0x800A03FF)-->缺少表达式
MicrosoftVBScript语*错误(0x800A0400)-->缺少语句
MicrosoftVBScript语*错误(0x800A0401)-->语句未结束
MicrosoftVBScript语*错误(0x800A0402)-->缺少整型常数
MicrosoftVBScript语*错误(0x800A0403)-->缺少 'While' 或 'Until'
MicrosoftVBScript语*错误(0x800A0404)-->缺少 'While', 'Until' 或语句未结束
MicrosoftVBScript语*错误(0x800A0405)-->缺少 'With'
MicrosoftVBScript语*错误(0x800A0406)-->标识符过长
MicrosoftVBScript语*错误(0x800A0407)-->无效数字
MicrosoftVBScript语*错误(0x800A0408)-->无效字符
MicrosoftVBScript语*错误(0x800A0409)-->未结束的字符串常量
MicrosoftVBScript语*错误(0x800A040A)-->注释未结束
MicrosoftVBScript语*错误(0x800A040D)-->无效使用 'Me' 关键字
MicrosoftVBScript语*错误(0x800A040E)-->'loop' 语句缺少 'do'
MicrosoftVBScript语*错误(0x800A040F)-->无效的 'exit' 语句
MicrosoftVBScript语*错误(0x800A0410)-->循环控制变量 'for' 无效
MicrosoftVBScript语*错误(0x800A0411)-->名称重定义
MicrosoftVBScript语*错误(0x800A0412)-->必须是行中的第一个语句
MicrosoftVBScript语*错误(0x800A0413)-->不能为 non-ByVal 参数赋值
MicrosoftVBScript语*错误(0x800A0414)-->调用子程序时不能使用括号
MicrosoftVBScript语*错误(0x800A0415)-->缺少文字常数
MicrosoftVBScript语*错误(0x800A0416)-->缺少 'In'
MicrosoftVBScript语*错误(0x800A0417)-->缺少 'Class'
MicrosoftVBScript语*错误(0x800A0418)-->必须在一个类的内部定义
MicrosoftVBScript语*错误(0x800A0419)-->在属性声明中缺少 Let , Set 或 Get
MicrosoftVBScript语*错误(0x800A041A)-->缺少 'Property'
MicrosoftVBScript语*错误(0x800A041B)-->在所有属性的规范中，变量的数目必须一致
MicrosoftVBScript语*错误(0x800A041C)-->在一个类中不允许有多个缺省的属性/方*
MicrosoftVBScript语*错误(0x800A041D)-->类的初始化或终止程序没有参数
MicrosoftVBScript语*错误(0x800A041E)-->属性的 set 或 let 必须至少有一个参数
MicrosoftVBScript语*错误(0x800A041F)-->错误的 'Next'
MicrosoftVBScript语*错误(0x800A0420)-->'Default' 只能在 'Property' , 'Function' 或 'Sub' 中指定
MicrosoftVBScript语*错误(0x800A0421)-->指定 'Default' 时必须同时指定 'Public' ")
MicrosoftVBScript语*错误(0x800A0422)-->只能在 Property Get 中指定 'Default'
MicrosoftVBScript 运行时错误(0x800A0005)-->无效的过程调用或参数
MicrosoftVBScript 运行时错误(0x800A0006)-->溢出
MicrosoftVBScript 运行时错误(0x800A0007)-->内存不足
MicrosoftVBScript 运行时错误(0x800A0009)-->下标越界
MicrosoftVBScript 运行时错误(0x800A000A)-->该数组为定长的或临时被锁定
MicrosoftVBScript 运行时错误(0x800A000B)-->被零除
MicrosoftVBScript 运行时错误(0x800A000D)-->类型不匹配
MicrosoftVBScript 运行时错误(0x800A000E)-->字符串空间不够
MicrosoftVBScript 运行时错误(0x800A0011)-->不能执行所需的操作
MicrosoftVBScript 运行时错误(0x800A001C)-->堆栈溢出
MicrosoftVBScript 运行时错误(0x800A0023)-->未定义过程或函数
MicrosoftVBScript 运行时错误(0x800A0030)-->加载 DLL 时出错
MicrosoftVBScript 运行时错误(0x800A0033)-->内部错误
MicrosoftVBScript 运行时错误(0x800A0034)-->错误的文件名或号码
MicrosoftVBScript 运行时错误(0x800A0035)-->文件未找到
MicrosoftVBScript 运行时错误(0x800A0036)-->错误的文件模式
MicrosoftVBScript 运行时错误(0x800A0037)-->文件已经打开
MicrosoftVBScript 运行时错误(0x800A0039)-->设备 I/O 错误
MicrosoftVBScript 运行时错误(0x800A003A)-->文件已存在
MicrosoftVBScript 运行时错误(0x800A003D)-->磁盘已满
MicrosoftVBScript 运行时错误(0x800A003E)-->输入超出了文件尾
MicrosoftVBScript 运行时错误(0x800A0043)-->文件过多
MicrosoftVBScript 运行时错误(0x800A0044)-->设备不可用
MicrosoftVBScript 运行时错误(0x800A0046)-->没有权限
MicrosoftVBScript 运行时错误(0x800A0047)-->磁盘没有准备好
MicrosoftVBScript 运行时错误(0x800A004A)-->重命名时不能带有其他驱动器符号
MicrosoftVBScript 运行时错误(0x800A004B)-->路径/文件访问错误
MicrosoftVBScript 运行时错误(0x800A004C)-->路径未找到
MicrosoftVBScript 运行时错误(0x800A005B)-->对象变量未设置
MicrosoftVBScript 运行时错误(0x800A005C)-->For 循环未初始化
MicrosoftVBScript 运行时错误(0x800A005E)-->无效使用 Null
MicrosoftVBScript 运行时错误(0x800A0142)-->不能创建所需的临时文件
MicrosoftVBScript 运行时错误(0x800A01A8)-->缺少对象
MicrosoftVBScript 运行时错误(0x800A01AD)-->ActiveX 部件不能创建对象
MicrosoftVBScript 运行时错误(0x800A01AE)-->类不能支持 Automation 操作
MicrosoftVBScript 运行时错误(0x800A01B0)-->Automation 操作中文件名或类名未找到
MicrosoftVBScript 运行时错误(0x800A01B6)-->对象不支持此属性或方*
MicrosoftVBScript 运行时错误(0x800A01B8)-->Automation 操作错误
MicrosoftVBScript 运行时错误(0x800A01BD)-->对象不支持此操作
MicrosoftVBScript 运行时错误(0x800A01BE)-->对象不支持已命名参数
MicrosoftVBScript 运行时错误(0x800A01BF)-->对象不支持当前区域设置
MicrosoftVBScript 运行时错误(0x800A01C0)-->未找到已命名参数
MicrosoftVBScript 运行时错误(0x800A01C1)-->参数是必选项
MicrosoftVBScript 运行时错误(0x800A01C2)-->错误的参数个数或无效的参数属性值
MicrosoftVBScript 运行时错误(0x800A01C3)-->对象不是一个集合
MicrosoftVBScript 运行时错误(0x800A01C5)-->未找到指定的 DLL 函数
MicrosoftVBScript 运行时错误(0x800A01C7)-->代码资源锁定错误
MicrosoftVBScript 运行时错误(0x800A01CA)-->变量使用了一个 VBScript 中不支持的 Automation 类型
MicrosoftVBScript 运行时错误(0x800A01CE)-->远程服务器不存在或不可用
MicrosoftVBScript 运行时错误(0x800A01E1)-->无效图片
MicrosoftVBScript 运行时错误(0x800A01F4)-->变量未定义
MicrosoftVBScript 运行时错误(0x800A01F5)-->非*赋值
MicrosoftVBScript 运行时错误(0x800A01F6)-->对象不能安全地使用 Script 编程
MicrosoftVBScript 运行时错误(0x800A01F7)-->对象不能安全初始化
MicrosoftVBScript 运行时错误(0x800A01F8)-->对象不能安全创建
MicrosoftVBScript 运行时错误(0x800A01F9)-->无效的或无资格的引用
MicrosoftVBScript 运行时错误(0x800A01FA)-->类没有被定义
MicrosoftVBScript 运行时错误(0x800A01FB)-->出现一个意外错误
MicrosoftVBScript 运行时错误(0x800A1398)-->缺少常规表达式对象
MicrosoftVBScript 运行时错误(0x800A1399)-->常规表达式语*错误
MicrosoftVBScript 运行时错误(0x800A139A)-->错误的数量词
MicrosoftVBScript 运行时错误(0x800A139B)-->常规表达式中缺少 ']'
MicrosoftVBScript 运行时错误(0x800A139C)-->常规表达式中缺少 ')'
MicrosoftVBScript 运行时错误(0x800A139D)-->字符集越界
MicrosoftVBScript 运行时错误(0x800A802B)-->未找到元素
ActiveServerPages,ASP0126(0x80004005)-->找不到包含文件
MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)-->sql语句出错(字段名错误,或数据类型不匹配)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E07)-->sql语句出错(要插入或更新的字段的类型与变量数据类型不匹配)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E57)-->sql语句出错(要插入或更新的数据溢出)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E10)-->sql语句出错(update字段名或要更新的数据类型错误)
MicrosoftOLEDBProviderforODBCDrivers(0x80004005)-->sql语句出错(要插入或更新的字段的数值不能为空值)
MicrosoftOLEDBProviderforODBCDrivers(0x80004005)-->打开数据库出错，没有在指定目录发现数据库
MicrosoftOLEDBProviderforODBCDrivers(0x80040E37)-->没有发现表
ODBCDrivers(0x80040E21)-->sql语句出错(数据类型不匹配或表/字段错误或处于编辑状态，或不存在于conn打开的数据库中)
ADODB.Recordset(0x800A0BB9)-->sql语句出错(sql语句或conn语句未定义或对一个rs属性进行赋值时发生错误)
ADODB.Recordset(0x800A0CC1)-->rs对像出错(rs对像本身不存在或错误地引用了一个不存在的字段名)
ADODB.Recordset(0x800A0BCD)-->rs对像出错(记录集中没有记录却对记录集进行操作)
ADODB.Recordset(0x800A0E78)-->rs对像出错(记录集不存在,缺少rs.open语句)
ADODB.Recordset(0x800A0CC1)-->rs对像出错(引用了一个不存在的字段名)
ADODB.Recordset(0x800A0E7D)-->conn定义错误
ADODB.Recordset(0x800A0CB3)-->数据库以只读方式打开，无*更新数据
ADODB.Recordset(0x800A000D)-->错误引用rs变量(rs对像已关闭或未定义)

写ASP采集的一些函数

<%

'==================================================
'函数名：GetHttpPage
'作 用：获取网页源码
'参 数：HttpUrl ------网页地址
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage="$False$"
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function

'==================================================
'函数名：BytesToBstr
'作 用：将获取的源码转换为中文
'参 数：Body ------要转换的变量
'参 数：Cset ------要转换的类型
'==================================================
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

'==================================================
'函数名：PostHttpPage
'作 用：登录
'==================================================
Function PostHttpPage(RefererUrl,PostUrl,PostData)
Dim xmlHttp
Dim RetStr
Set xmlHttp = CreateObject("Msxml2.XMLHTTP")
xmlHttp.Open "POST", PostUrl, False
XmlHTTP.setRequestHeader "Content-Length",Len(PostData)
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.setRequestHeader "Referer", RefererUrl
xmlHttp.Send PostData
If Err.Number <> 0 Then
Set xmlHttp=Nothing
PostHttpPage = "$False$"
Exit Function
End If
PostHttpPage=bytesToBSTR(xmlHttp.responseBody,"GB2312")
Set xmlHttp = nothing
End Function

'==================================================
'函数名：UrlEncoding
'作 用：转换编码
'==================================================
Function UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn = ""
For Si = 1 To Len(DataStr)
ThisChr = Mid(DataStr,Si,1)
If Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
Else
InnerCode = Asc(ThisChr)
If InnerCode < 0 Then
InnerCode = InnerCode + &H10000
End If
Hight8 = (InnerCode And &HFF00)\ &HFF
Low8 = InnerCode And &HFF
StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UrlEncoding = StrReturn
End Function

'==================================================
'函数名：GetBody
'作 用：截取字符串
'参 数：ConStr ------将要截取的字符串
'参 数：StartStr ------开始字符串
'参 数：OverStr ------结束字符串
'参 数：IncluL ------是否包含StartStr
'参 数：IncluR ------是否包含OverStr
'==================================================
Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
GetBody="$False$"
Exit Function
End If
Dim ConStrTemp
Dim Start,Over
ConStrTemp=Lcase(ConStr)
StartStr=Lcase(StartStr)
OverStr=Lcase(OverStr)
Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
If Start<=0 then
GetBody="$False$"
Exit Function
Else
If IncluL=False Then
Start=Start+LenB(StartStr)
End If
End If
Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
If Over<=0 Or Over<=Start then
GetBody="$False$"
Exit Function
Else
If IncluR=True Then
Over=Over+LenB(OverStr)
End If
End If
GetBody=MidB(ConStr,Start,Over-Start)
End Function

%>

天气小偷范本

<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
%>

<%
Dim wstr,str,url,start,over,city
city = Request.QueryString("id")
url="http://appnews.qq.com/cgi-bin/news_qq_search?city="&city&""
wstr=getHTTPPage(url)
start=Newstring(wstr,"<html>")
over=Newstring(wstr,"</HTML>")
body=mid(wstr,start,over-start)

body = replace(body,"skin1","天气预报 - 斯克网络")
body = replace(body,"http://appnews.qq.com/cgi-bin/news_qq_search?city","tianqi.asp?id")

response.write body
%>

常见病毒、木马进程速查表

进程名称 → 对应的病毒/木马

.exe → BF Evolution Mbbmanager.exe → 聪明基因
_.exe → Tryit Mdm.exe → Doly 1.6-1.7
Aboutagirl.exe → 初恋情人 Microsoft.exe → 传奇密码使者
Absr.exe → Backdoor.Autoupder Mmc.exe → 尼姆达病毒
Aplica32.exe → 将死者病毒 Mprdll.exe → Bla
Avconsol.exe → 将死者病毒 Msabel32.exe → Cain and Abel
Avp.exe → 将死者病毒 Msblast.exe → 冲击波病毒
Avp32.exe → 将死者病毒 Mschv.exe → Control
Avpcc.exe → 将死者病毒 Msgsrv36.exe → Coma
Avpm.exe → 将死者病毒 Msgsvc.exe → 火凤凰
Avserve.exe → 震荡波病毒 Msgsvr16.exe → Acid Shiver
Bbeagle.exe → 恶鹰蠕虫病毒 Msie5.exe → Canasson
Brainspy.exe → BrainSpy vBeta Msstart.exe → Backdoor.livup
Cfiadmin.exe → 将死者病毒 Mstesk.exe → Doly 1.1-1.5
Cfiaudit.exe → 将死者病毒 Netip.exe → Spirit 2000 Beta
Cfinet32.exe → 将死者病毒 Netspy.exe → 网络精灵
Checkdll.exe → 网络公牛 Notpa.exe → Backdoor
Cmctl32.exe → Back Construction Odbc.exe → Telecommando
Command.exe → AOL Trojan Pcfwallicon.exe → 将死者病毒
Diagcfg.exe → 广外女生 Pcx.exe → Xplorer
Dkbdll.exe → Der Spaeher Pw32.exe → 将死者病毒
Dllclient.exe → Bobo Recycle - Bin.exe → s**tHeap
Dvldr32.exe → 口令病毒 Regscan.exe → 波特后门变种
Esafe.exe → 将死者病毒 Tftp.exe → 尼姆达病毒
Expiorer.exe → Acid Battery Thing.exe → Thing
Feweb.exe → 将死者病毒 User.exe → Schwindler
Flcss.exe → Funlove病毒 Vp32.exe → 将死者病毒
Frw.exe → 将死者病毒 Vpcc.exe → 将死者病毒
Icload95.exe → 将死者病毒 Vpm.exe → 将死者病毒
Icloadnt.exe → 将死者病毒 Vsecomr.exe → 将死者病毒
Icmon.exe → 将死者病毒 Server.exe → Revenger, WinCrash, YAT
Icsupp95.exe → 将死者病毒 Service.exe → Trinoo
Iexplore.exe → 恶邮差病毒 Setup.exe → 密码病毒或Xanadu
Rpcsrv.exe → 恶邮差病毒 Sockets.exe → Vampire
Rundll.exe → SCKISS爱情森林 Something.exe → BladeRunner
Rundll32.exe→ 狩猎者病毒 Spfw.exe → 瑞波变种PX
Runouce.exe → 中国黑客病毒 Svchost.exe (线程105) → 蓝色代码
Scanrew.exe → 传奇终结者 Sysedit32.exe → SCKISS爱情森林
Scvhost.exe → 安哥病毒 Sysexplor.exe → wCrat
Server 1. 2.exe → Spirit 2000 1.2fixed Sysexplr.exe → 冰河
Intel.exe → 传奇叛逆 Syshelp.exe → 恶邮差病毒
Internet.exe → 传奇幽灵 Sysprot.exe → Satans Back Door
Internet.exe → 网络神偷 Sysrunt.exe → Ripper
Kernel16.exe → Transmission Scount System.exe → s**tHeap
Kernel32.exe → 坏透了或冰河 System32.exe → DeepThroat 1.0
Kiss.exe → 传奇天使 Systray.exe → DeepThroat 2.0-3.1
Krn132.exe → 求职信病毒 Syswindow.exe → Trojan Cow
Libupdate.exe → BioNet Task_Bar.exe → WebEx
Load.exe → 尼姆达病毒 Taskbar → 密码病毒 Frethem
Lockdown2000.exe → 将死者病毒 Taskmon.exe → 诺维格蠕虫病毒
Taskmon32 → 传奇黑眼睛 Tds2-98.exe → 将死者病毒
Tds2-Nt.exe → 将死者病毒 Temp $01.exe → Snid
Tempinetb00st.exe → The Unexplained Tempserver.exe → Delta Source
Vshwin32.exe → 将死者病毒 Vsstart.exe → 将死者病毒
Vw32.exe → 将死者病毒 Windown.exe → Spirit 2000 1.2
Windows.exe → 黑洞2000 Winfunctions.exe → Dark Shadow
Wingate.exe → 恶邮差病毒 Wink????.exe → 求职信病毒
Winl0g0n.exe → 笑哈哈病毒 Winmgm32.exe → 巨无霸病毒
Winmsg32.exe → Xtcp Winprot.exe → Chupachbra
Winprotecte.exe → Stealth Winrpc.exe → 恶邮差病毒
Winrpcsrv.exe → 恶邮差病毒 Winserv.exe → Softwarst
Wubsys.exe → 传奇猎手 Winupdate.exe → Sckiss爱情森林
Winver.exe → Sckiss爱情森林 Winvnc.exe → 恶邮差病毒
Winzip.exe → ShadowPhyre Wqk.exe → 求职信病毒
Wscan.exe → AttackFTP Xx.Tmp.exe → 尼姆达病毒
Zcn32.exe → Ambush Zonealarm.exe → 将死者病毒