请教如何用.NET做实时数据采集

下面的程序是我自己写的，可以获取urls的网页源代码。你可以根据返回的tempstr，你再找到他读取数据那里的规律，再用Substring IndexOf LastIndexOf这些函数来截取你想要的内容保存到数据库，或者用

正则表达式也可以。看你自己的熟悉程度了。 至于你要实时的，那你定期执行这个程序就可以了啊。你把已采集的地址存一下，以后采集保存前判断下有没有保存同样的数据就可以了。

public string getfiles(string urls)

{

WebRequest wrq

HttpWebResponse wrp

wrq=HttpWebRequest.Create(urls)

wrp=(HttpWebResponse)wrq.GetResponse()

Stream resStream=wrp.GetResponseStream()

StreamReader sr = new StreamReader(resStream, System.Text.Encoding.Default)

string tempstr = sr.ReadToEnd()

return tempstr

}

另我觉得这个“不厚道”看从哪方面理解，现在都要资源共享，才能共同进步嘛。

输出显示函数即可，也可以将变量存入数据库，这只是一个例子，具体其它功能你举一反三，循环以下即可。response.writeShowipinfo("202.29.90.9")FunctionShowipinfo(ip)'显示IP地址具体地址参考IP138数据库Dimurls,str,showipinfosurls="/ips138.asp?ip="&ip&"&action=2"str=getHTTPPage(urls)Showipinfo=strcut(str,"","",2)'截取IP地址来源showipinfos=Replace(Showipinfo,"本站主数据：","1、")Showipinfo=Replace(showipinfos,"参考数据一：","2、")EndFunction'****************************************''函数名：GetHttpPage(url)2011-5-17xuyang'功能：ASP采集网页内容GB2312和UTF-8通用'参数：url地址'****************************************FunctionGetHttpPage(url)DimResStr,ResBody,PageCodeIfIsNull(url)=TrueOrurl="False"ThenGetHttpPage=""ExitFunctionEndIfDimHttp,sStartTimeSetHttp=Server.CreateObject("MSXML2.XMLHTTP")WithHttp.Open"GET",url,False.SendEndWith'Http.open"GET",url,False'Http.Send(Null)sStartTime=NowOnErrorResumeNextIfHttp.Status200ThenSetHttp=NothingGetHttpPage=""ExitFunctionEndIfDoWhileHttp.ReadyState4IfDateDiff("s",sStartTime,Now)>10ThenGetHttpPage=""ExitFunctionEndIfLoopIfHttp.ReadyState=4ThenIfHttp.Status=200ThenPageCode=test(url)GetHttpPage=bytesToBSTR(Http.responseBody,PageCode)EndIfEndIfSetHttp=NothingIfErr.Number0ThenErr.ClearEndIfEndFunctionFunctionbytesToBSTR(body,Cset)DimObjstreamSetObjstream=CreateObject("adodb.stream")Objstream.Type=1Objstream.Mode=3Objstream.OpenObjstream.writebodyObjstream.position=0Objstream.Type=2Objstream.Charset=CsetbytesToBSTR=Objstream.ReadtextObjstream.CloseSetObjstream=NothingEndFunctionFunctiontest(sUrl)DimoxSetox=server.CreateObject("msxml2.xmlhttp")ox.Open"get",sUrl,Falseox.Sendtest=charsetOf(ox.responseBody)EndFunctionFunctioncharsetOf(bstr)Dimp,c,rIfInStrB(bstr,ChrB(0))>0ThencharsetOf="unicode"ExitFunctionEndIfc=s2b("charset=")p=InStrB(1,bstr,c,1)Ifp>0Thenc=b2s(MidB(bstr,p+LenB(c),20))Setr=NewRegExpr.Pattern="^[’""]?([-\w]+)"Setc=r.Execute(c)Ifc.Count>0ThencharsetOf=LCase(c(0).SubMatches(0))ExitFunctionEndIfEndIfDimn,ucsOnly,retucsOnly=Falsen=LenB(bstr)Forp=1Tonc=AscB(MidB(bstr,p,1))IfcAnd&H80ThenExitForIfc&HDAndc&HAAndc&H9ThenucsOnly=TrueExitForEndIfEndIfNextIfp>nThenret="ascii"ElseIfNotucsOnlyThenIfisUtf8(bstr,p,n)Thenret="utf-8"ElseIfisGbk(bstr,p,n)Thenret="GB2312"EndIfEndIfIfIsEmpty(ret)ThenIfisUnicode(bstr,p,n)ThencharsetOf="unicode"ElsecharsetOf="unknown"EndIfElsecharsetOf=retEndIfEndFunctionFunctions2b(str)Dimr,iFori=1ToLen(str)r=r+ChrB(Asc(Mid(str,i,1))And&HFF)Nexts2b=rEndFunctionFunctionb2s(bs)Dimr,iFori=1ToLenB(bs)r=r+Chr(AscB(MidB(bs,i,1)))Nextb2s=rEndFunctionFunctionisUtf8(bs,start,Length)isUtf8=TrueDimp,e,ce=FalseForp=startToLengthc=AscB(MidB(bs,p,1))IfcAnd&H80ThenIfcAnd&HE0=&HC0ThenIfp=LengthThene=TrueElsep=p+1IfAscB(MidB(bs,p,1))And&H30&HC0Thene=TrueEndIfElseIfcAnd&HF0=&HE0ThenIfp=LengthOrp=Length-1Thene=TrueElsep=p+2IfAscB(MidB(bs,p-1,1))And&H30&HC0Thene=TrueElseIfAscB(MidB(bs,p,1))And&H30&HC0Thene=TrueEndIfEndIfElsee=TrueEndIfEndIfIfeThenisUtf8=FalseExitFunctionEndIfNextEndFunctionFunctionisGbk(bs,start,Length)isGbk=TrueDimp,e,ce=FalseForp=startToLengthc=AscB(MidB(bs,p,1))IfcAnd&H80ThenIfp=LengthThene=TrueElsep=p+1If(AscB(MidB(bs,p,1))And&H80)=0Thene=TrueEndIfEndIfIfeThenisGbk=FalseExitFunctionEndIfNextEndFunctionFunctionisUnicode(bs,start,Length)isUnicode=TrueDimp,cIfstartMod2=0ThenisUnicode=FalseExitFunctionEndIfForp=startToLengthc=AscB(MidB(bs,p,1))IfcAnd&H80ThenIfp=LengthThenisUnicode=FalseExitFunctionElsep=p+1EndIfEndIfNextEndFunction'截取字符串,1.包括起始和终止字符，2.不包括FunctionstrCut(strContent,StartStr,EndStr,CutType)DimstrHtml,S1,S2strHtml=strContentOnErrorResumeNextSelectCaseCutTypeCase1S1=InStr(strHtml,StartStr)S2=InStr(S1,strHtml,EndStr)+Len(EndStr)Case2S1=InStr(strHtml,StartStr)+Len(StartStr)S2=InStr(S1,strHtml,EndStr)EndSelectIfErrThenstrCute="没有找到需要的内容。"Err.ClearExitFunctionElsestrCut=Mid(strHtml,S1,S2-S1)EndIfEndFunction

简单的说一下吧，爪机打字麻烦。

服务器端对串口的 *** 作可以用winform来完成也可以写成一个服务，随系统启动而启动，负责写数据到数据库或从响应用户的命令，

而你说的b/s架构则仅仅提供数据浏览与提交命令，回显命令的执行结果即可

---