ASP的程序出错，本地没有问题的。
在本地调试是完全好的，可是发布到虚拟主机里面就出错了，
http://3e.xmstc.net.cn/index.asp

我把出错页面的源代码发上来，大家帮我看看啊。

VBScript code

<% Class clsThief'____________________Private value_    '窃取到的内容Private src_      '要偷的目标URL地址Private isGet_    '判断是否已经偷过public property let src(str) '赋值—要偷的目标URL地址/属性src_=strend propertypublic property get value '返回值—最终窃取并应用类方法加工过的内容/属性value=value_end propertyPublic Property get Version    Version="先锋海盗类 Version 2005"End Propertyprivate sub class_initialize()value_=""src_=""isGet_= falseend sub    private sub class_terminate()end subprivate Function BytesToBstr(body,Cset) '中文处理dim objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = CsetBytesToBstr = objstream.ReadText objstream.Closeset objstream = nothingEnd Functionpublic sub steal() '窃取目标URL地址的HTML代码/方法if src_<>"" then    dim Http    set Http=server.createobject("MSXML2.XMLHTTP")    Http.open "GET",src_ ,false    Http.send()    if Http.readystate<>4 then         exit sub    end if    value_=BytesToBSTR(Http.responseBody,"GB2312")    isGet_= True    set http=nothing    if err.number<>0 then err.Clearelse     response.Write("<script>alert(""请先设置src属性！"")</script>")end ifend sub'删除偷到的内容中里面的换行、回车符以便进一步加工/方法public sub noReturn() if isGet_= false then call steal()value_=replace(replace(value_ , vbCr,""),vbLf,"")end sub'对偷到的内容中的个别字符串用新值更换/方法public sub change(oldStr,str) '参数分别是旧字符串,新字符串if isGet_= false then call steal()value_=replace(value_ , oldStr,str)end sub'[color=#FF0000]主要是下面这里报错[/color]'按指定首尾字符串对偷取的内容进行裁减（不包括首尾字符串）/方法public sub cut(head,bot) '参数分别是首字符串,尾字符串if isGet_= false then call steal()        if instr(value_ , head)>0 and instr(value_ , bot)>0 then            value_=mid(value_ ,instr(value_ ,head)+len(head),instr(value_ ,bot)-instr(value_ ,head)-len(head))        else            value_= "<p align=""center"">您查看的页面功能暂时未开放,请返回首页或加入我们的QQ群:4605923"        end ifend sub'按指定首尾字符串对偷取的内容进行裁减（包括首尾字符串）/方法public sub cutX(head,bot) '参数分别是首字符串,尾字符串if isGet_= false then call steal()        if instr(value_,head)>0 and instr(value_,bot)>0 then            value_=mid(value_ ,instr(value_ ,head),instr(value_ ,bot)-instr(value_ ,head)+len(bot))        else            value_= "<p align=""center"">函数cutX指定裁减的内容不存在"        end ifend sub'按指定首尾字符串位置偏移指针对偷取的内容进行裁减/方法public sub cutBy(head,headCusor,bot,botCusor) '参数分别是首字符串,首偏移值,尾字符串,尾偏移值,左偏移用负值,偏移指针单位为字符数if isGet_= false then call steal()        if instr(value_,head)>0 and instr(value_,bot)>0 then            value_=mid(value_ ,instr(value_ ,head)+len(head)+headCusor,instr(value_ ,bot)-1+botCusor-instr(value_ ,head)-len(head)-headcusor)        else            value_= "<p align=""center"">函数cutBy指定裁减内容不存在"        end ifend sub'按指定首尾字符串对偷取的内容用新值进行替换（不包括首尾字符串）/方法public sub filt(head,bot,str) '参数分别是首字符串,尾字符串,新值,新值位空则为过滤if isGet_= false then call steal()        if instr(value_,head)>0 and instr(value_,bot)>0 then            value_=replace(value_,mid(value_ ,instr(value_ ,head)+len(head) , instr(value_ ,bot)-instr(value_ ,head)-len(head)),str)        else            value_= "<p align=""center"">函数filt指定替换的内容不存在"        end ifend sub'按指定首尾字符串对偷取的内容用新值进行替换（包括首尾字符串）/方法public sub filtX(head,bot,str) '参数分别是首字符串,尾字符串,新值,新值为空则为过滤if isGet_= false then call steal()        if instr(value_,head)>0 and instr(value_,bot)>0 then              value_=replace(value_,mid(value_ ,instr(value_ ,head),instr(value_ ,bot)-instr(value_ ,head)+len(bot)),str)        else            value_= "<p align=""center"">函数filtX指定替换的内容不存在"        end ifend sub'按指定首尾字符串位置偏移指针对偷取的内容新值进行替换/方法public sub filtBy(head,headCusor,bot,botCusor,str) '参数分别是首字符串,首偏移值,尾字符串,尾偏移值,新值,左偏移用负值,偏移指针单位为字符数,新值为空则为过滤if isGet_= false then call steal()        if instr(value_,head)>0 and instr(value_,bot)>0 then            value_=replace(value_ ,mid(value_ ,instr(value_ ,head)+len(head)+headCusor,instr(value_ ,bot)-1+botCusor-instr(value_ ,head)-len(head)-headcusor),str)        else            value_= "<p align=""center"">函数filtBy指定替换的内容不存在"        end ifend sub'对符合条件的内容进行分块采集并组合,最终内容为以<!--lkstar-->隔断的大文本/方法'通过属性value得到此内容后你可以用split(value,"<!--lkstar-->")得到你需要的数组public sub rebuild(str) '参数是你目标页面反复出现的特征字符if isGet_= false then call steal()value_= replace(value_,str,vbcrlf&"<!--lkstar-->"&vbcrlf)end sub'类排错模式——在类释放之前应用此方法可以随时查看你截获的内容HTML代码和页面显示效果/方法public sub debug()dim tempstrtempstr="<SCRIPT>function runEx(){var winEx2 = window.open("""", ""winEx2"", ""width=500,height=300,status=yes,menubar=no,scrollbars=yes,resizable=yes""); winEx2.document.open(""text/html"", ""replace""); winEx2.document.write(unescape(event.srcElement.parentElement.children[0].value)); winEx2.document.close(); }function saveFile(){var win=window.open('','','top=10000,left=10000');win.document.write(document.all.asdf.innerText);win.document.execCommand('SaveAs','','javascript.htm');win.close();}</SCRIPT><center><TEXTAREA id=asdf name=textfield rows=32  wrap=VIRTUAL cols=""120"">"&value_&"</TEXTAREA><BR><BR><INPUT name=Button onclick=runEx() type=button value=""查看效果"">  <INPUT name=Button onclick=asdf.select() type=button value=""全选"">  <INPUT name=Button onclick=""asdf.value=''"" type=button value=""清空"">  <INPUT onclick=saveFile(); type=button value=""保存代码""></center>"response.Write(tempstr)end subend class%>