|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。正则|正则笔墨或特定图片形式显现旧事
functionshownew(content,ntype)
shownew=""
if(ntype=1)then
shownew=shownew&"<TABLEwidth=100%>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDwidth=600style=word-break:break-allvalign=top>"&ShowPic(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDvalign=topstyle=word-break:break-all>"&OnlyWord(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"</TABLE>"
elseif(ntype=2)then
shownew=shownew&"<TABLEwidth=100%>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDstyle=word-break:break-allvalign=top>"&OnlyWord(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDwidth=600valign=topstyle=word-break:break-all>"&ShowPic(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"</TABLE>"
elseif(ntype=3)then
shownew=shownew&"<TABLE>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDwidth=100valign=top>"&ShowPic(content)&"</TD>"
shownew=shownew&"<TDwidth=80%style=word-break:break-allvalign=top>"&OnlyWord(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"</TABLE>"
elseif(ntype=4)then
shownew=shownew&"<TABLE>"
shownew=shownew&"<TR>"
shownew=shownew&"<TDwidth=80%valign=topstyle=word-break:break-all>"&OnlyWord(content)&"</TD>"
shownew=shownew&"<TDwidth=100valign=top>"&ShowPic(content)&"</TD>"
shownew=shownew&"</TR>"
shownew=shownew&"</TABLE>"
else
shownew=shownew&"<table><tr><tdstyle=word-break:break-all>"&content&"</td></tr></table>"
endif
endfunction
显现提取的图片
functionShowPic(strng)
ShowPic=""
ImageUrl=RegExpExecute(strng)
ImageUrls=Split(ImageUrl,"<BR>")
fori=LBound(ImageUrls)to(UBound(ImageUrls)-1)
ShowPic=ShowPic&("<ahref="&ImageUrls(i)&"target=_blank><imagesrc="&ImageUrls(i)&"border=0alt=按此在新窗口扫瞄图片设置形式。
OnlyWord=re.Replace(strng,"")
</p>asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般 |
|