漳州人才 | 房产 | 商务 | 黄页 | 便民 | 笑话 | 两性 | 健康 | 旅游 | 体育 | 下载 | 时尚 | 彩铃 | 图酷 | 汽车 | 幽默 | 闽南社区

漳州市最专业的实用门户。人才、房产、商务、企业、便民服务等集合于上海生活分类网(www.sc021.com)，全方位地为上海生活分类的网民提供高速稳定的网络服务，共建漳州地区网络家园。

人才招聘
房产中心
商务信息
企业黄页
便民服务
休闲社区

笑 话 频 道 | 首页 | 搞笑图片 | 笑话大全 | 成人笑话 | 爆笑网文 | 家庭笑话 | 现代笑话 | 我要推荐新笑话>>

笑话分类
站内查询
请输入关键词>>
十佳文字笑话
<{{10text}}>
十佳图片笑话
<{{10pic}}>
上海生活分类 > 笑话频道 > <{{sort}}> |
效率
添加时间：2006-12-26
公鸡指着一只鸵鸟蛋对母鸡说：“我并不是埋怨你，我只是提醒你注意，亲爱的，你看看人家外国，看看人家是怎么干活的。”
·上一篇： 该到什麽地方 ·下一篇： <{{anext}}> 〖关闭窗口〗
相关内容 | 我要推荐更精彩的！
<%set rs=server.createobject("adodb.recordset") sql="select articleid,title,syxs,sort from learning where syxs>0 and sort='"&sort&"' " rs.open sql,conn,1,1 IF Not rs.Eof Then '//定义n为总记录数,m为要随机提取记录数，m如为随机数则可随机提取m条记录 '//注意：m<=n dim n,m n=rs.recordcount m=10 '//建立随机数组 Randomize dim k,p,tp,i For k=0 to 100000 p=fix(rnd*n)+1 if Not instr(tp,p)>0 then tp=tp & p & "," i=i+1 end if if i>=m then exit for Next dim t t=split(tp,",") For i=0 To m-1 and not rs.eof '//根据随机数组定位记录指针 rs.absoluteposition=t(i)%>
<%if rs.eof then exit for next end if %> <% rs.close set rs=nothing conn.close set conn = nothing %>

关于我们 - 联系方式 - 法律申明 - 资费标准 - 常见问题 - 友情链接 - 广告服务 - 设为首页 - 加入收藏

版权所有 © 2006-2008 www.Rzzz.cn 上海生活分类网 [闽ICP备06019269号]

这个源码来自http://Codejia.Com,更多源码请访问http://Codejia.Com 虚拟主机 免费域名 网页模版