|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!网页dimsUrl
sUrl="http://travel.state.gov/visa/frvi_bulletincurrent.html"
Functionstreamtochar(StrStream)
setstream=CreateObject("ADODB.Stream")
stream.type=1
stream.Mode=3
stream.Open
stream.WriteStrstream
stream.Position=0
stream.Type=2
stream.Charset="gb2312"
streamtochar=stream.ReadText
stream.Close
setstream=nothing
EndFunction
i=i+1
functiongetContentByUrl(url)
setXmlHttp=CreateObject("MSXML2.XMLHTTP")
XmlHttp.open"GET",url,false
XmlHttp.send
getContentByUrl=streamtochar(oXmlHttp.responseBody)
setXmlHttp=nothing
endfunction
functiongetRealContent(url)
sContent=getContentByUrl(url)
getRealContent=sContent
endfunction
html=getContentByUrl(surl)
url_start=inStr(html,"")url_end=inStr(html,"")
url=Mid(html,url_start,url_end-url_start)
url=replace(url,"“)
Date_start=inStr(html,"Washington,D.C.")+57
Date_end=inStr(html,"A.STATUTORY")-14
Date_T=Mid(html,Date_start,Date_end-Date_start)</p>使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。 |
|