服务器获取文件内容出错
" Err.Clear End If 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 '截取字符串,1.包括起始和终止字符,2.不包括 Function strCut(strContent,StartStr,EndStr,CutType) Dim strHtml,S1,S2 strHtml = strContent On Error Resume Next Select Case CutType Case 1 S1 = InStr(strHtml,StartStr) S2 = InStr(S1,strHtml,EndStr)+Len(EndStr) Case 2 S1 = InStr(strHtml,StartStr)+Len(StartStr) S2 = InStr(S1,strHtml,EndStr) End Select If Err Then strCute = "没有找到需要的内容。
" Err.Clear Exit Function Else strCut = Mid(strHtml,S1,S2-S1) End If End Function % > 这样就可以的,我现在将得到的内容输出来,你可以将这些内容写入数据库,这样数据就是你的了。下一篇:记录集内随机取记录的代码
QQ客服
公众号
手机版
帮助中心