"/> " >
当前位置:首页 » 中国新华字典大全
在线新华字典大全 在线字典查询!
别人正在查 最热门汉字查询榜!

字典是为字词提供音韵、意思解释、例句、用法等等的工具书。在西方,是没有字典的概念,全是中国独有的。 字典收字为主,亦会收词。词典或辞典收词为主,也会收字。为了配合社会发展需求,词典收词数量激增并发展出不同对象、不同行业及不同用途的词典。随著吸收百科全书的元素,更有百科辞典的出现。

<% 'ASP获取远程网页指定内容开始 dim content_xt,myCache_xt Set myCache_xt = new Cache myCache_xt.name="ad_xt" '定义缓存名称 if myCache_xt.valid then '如果缓存有效 content_xt=myCache_xt.value '读取缓存内容 else Dim wstr_xt,url_xt url_xt="http://api.test.95447.com/v1/ad/?authkey=zd95447U5ooboH9ZEOZnupDq79v1csvthQzHt2h&pid=229" wstr_xt=getHTTPPage(url_xt) Set obj = parseJSON(wstr_xt) content_xt=obj.lists '大量内容,可以是非常耗时大量数据库查询记录集 myCache_xt.add content_xt,dateadd("n",60,now) '将内容赋值给缓存,并设置缓存有效期是当前时间+1000分钟 end if response.write content_xt '输出获取到的网页内容 'ASP获取远程网页指定内容结束 %>
<% 'ASP获取远程网页指定内容开始 dim content_qq,myCache_qq Set myCache_qq = new Cache myCache_qq.name="ad_lianxiqq" '定义缓存名称 if myCache_qq.valid then '如果缓存有效 content_qq=myCache_qq.value '读取缓存内容 else Dim wstr_qq,url_qq url_qq="http://api.test.95447.com/v1/ad/?authkey=zd95447U5ooboH9ZEOZnupDq79v1csvthQzHt2h&pid=467" wstr_qq=getHTTPPage(url_qq) Set obj = parseJSON(wstr_qq) content_qq=obj.lists '大量内容,可以是非常耗时大量数据库查询记录集 临时隐藏 myCache_qq.add content_qq,dateadd("n",1440,now) '将内容赋值给缓存,并设置缓存有效期是当前时间+1000分钟 end if 'ASP获取远程网页指定内容开始 dim content,myCache Set myCache = new Cache myCache.name="frindslink" '定义缓存名称 if myCache.valid then '如果缓存有效 content=myCache.value '读取缓存内容 else Dim wstr,str,url,start,over,dtime url="http://api.test.95447.com/v1/friendlinks/?authkey=zd95447U5ooboH9ZEOZnupDq79v1csvthQzHt2h" wstr=getHTTPPage(url) Set obj = parseJSON(wstr) content=obj.lists '大量内容,可以是非常耗时大量数据库查询记录集 临时隐藏 myCache.add content,dateadd("n",1,now) '将内容赋值给缓存,并设置缓存有效期是当前时间+1000分钟 end if response.write "友情链接:"&content_qq&"
"&content&"" '输出获取到的网页内容 'ASP获取远程网页指定内容结束 %>