自我介绍
认真、细致、责任心强，有较强地沟通能力.<%DimiIFApplication(LastGenHtmlTime)=ThenApplication(LastGenHtmlTime)=DateAdd(h,-1,now())ENDIFi=DateDiff(h,CDate(Application(LastGenHtmlTime)),Now())
if(i>0)then<%FunctionGetPage(url)dimRetrievalSetRetrieval=CreateObject(Microsoft.XMLHTTP)WithRetrieval.OpenGet,url,False,,.SendGetPage=BytesToBstr(.ResponseBody)EndWithSetRetrieval=NothingEndFunction
FunctionBytesToBstr(body)dimobjstreamsetobjstream=Server.CreateObject(adodb.stream)objstream.Type=1objstream.Mode=3objstream.Openobjstream.Writebodyobjstream.Position=0objstream.Type=2objstream.Charset=GB2312BytesToBstr=objstream.ReadTextobjstream.Closesetobjstream=nothingEndFunctionresumenextUrl=&weburl&/index.aspwstr=GetPage(Url)Setfs=Server.CreateObject(Scripting.FileSystemObject)
If(fs.FileExists(server.MapPath(./)&\index.html))Thenfs.DeleteFile(server.MapPath(./)&\index.html)EndIf
SetCrFi=fs.CreateTextFile(server.MapPath(./)&\index.html)Crfi.Writeline(wstr)setCrFi=nothingsetfs=nothing%>