|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。程序|剧本|剧本<textarearows="29"name="S1"cols="111"></textarea>
<scriptlanguage="vbscript">
OnErrorResumeNext
FunctionBytesToBstr(strBody,CodeBase)
SetobjStream=CreateObject("Adodb.Stream")
WithobjStream
.Type=1
.Mode=3
.Open
.WritestrBody
.Position=0
.Type=2
.Charset=CodeBase
BytesToBstr=.ReadText
.Close
EndWith
SetobjStream=Nothing
EndFunction
Setxmlobj=CreateObject("MsXml2.XmlHttp")
FunctionXmlGet(Url)
withxmlobj
.open"GET",Url,False
.Send()
str=BytesToBstr((.ResponseBody),"GB2312")
XmlGet=str
EndWith
EndFunction
FunctionReplaceTest(zzb,str)
DimregEx
SetregEx=NewRegExp
regEx.Pattern=zzb
regEx.IgnoreCase=fasle
regEx.Global=True
ReplaceTest=regEx.Replace(str,"")
EndFunction
setfso=createobject("scripting.filesystemobject")
SetoFile=Fso.OpentextFile("d:7t7t emp.txt",2,true)
</script>
<scriptlanguage="vbscript">
vkey=vbcrlf
bkey="<tdwidth=""100%""colspan=""2""background=""images/dot2.gif""align=""center"">"
nkey="<spanstyle=""font-size:2pt""></span></td>"
mkey="<tdwidth=""50%""align=""center"">"
ckey="<tdwidth=""100%""align=""center""colspan=""2""height=""20"">"
xkey="<palign=""center"">"
zkey="<tdwidth=""50%"">"
akey="<tr>"
ekey="</tr>"
dkey="</td>"
fkey="<td>"
gkey="<palign=""right"">"
str=XmlGet("http://www.redzhong.com/")
inHead=instr(str,"翻唱歌手")+8
inEnd=instr(inHead,str,"","|||")
tmpStr=replace(tmpStr,zkey,"")
tmpstr=replace(tmpstr,"|||<tdwidth=""50%","")
tmpstr=replace(tmpstr,"<tdwidth=""50%|||","******")
tmpStr=replace(tmpStr,"******song.asp|||","")
tmpStr=replace(tmpStr,"************","******")
S1.value=tmpstr
arrStr=split(tmpStr,"******")
fori=0toubound(arrStr)
document.writearrstr(i)&"<br>"
next
</script>
</p>问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时. |
|