资料
表格
制度
合同
管理
职场
经营
创业
范文
总结
计划
作文
文章
美文
词句
教程
模板
图片
字体
图标
办公
人事
财务
生产
管理资源吧首页
>>>
教程
>>>
编程
>>>
ASP教程
>>>
如何从数据库中随机取出10条记录的方法
<img src="/_New/_cj/myeditor/sysimage/space.gif" class="ewebeditor__script" _ewebeditor_fake_tag="script" _ewebeditor_fake_value="%3CSCRIPT%20LANGUAGE%3Dvbscript%3E%20%20%20%0D%0A%20%20function%20xipai(mystr)%20%20%20%0D%0A%20%20xipai%3D%22%22%20%20%20%0D%0A%20%20if%20len(mystr)%3D0%20then'%E5%A6%82%E6%9E%9C%E6%98%AF%E7%A9%BA%E7%9A%84%EF%BC%8C%E9%82%A3%E4%B9%88%E5%88%9D%E8%AF%95%E5%8C%96%E4%B8%80%E4%BB%98%E8%BF%9E%E7%BB%AD%E7%9A%84%E7%89%8C%20%20%20%0D%0A%20%20for%20i%3D1%20to%2052%20%20%20%0D%0A%20%20mystr%3Dmystr%20%26%20%22%3C%22%20%26%20i%20%26%20%22%3E%20%22%20%20%20%20%20%0D%0A%20%20next%20%20%20%0D%0A%20%20end%20if%20%20%20%0D%0A%20%20dim%20i%2Cx%20%20%20%0D%0A%20%20for%20i%3D1%20to%2052%20%20%20%0D%0A%20%20myarry%3Dsplit(mystr)%20'myarry%E6%98%AF%E4%B8%8B%E6%A0%8752%E7%9A%84%E6%95%B0%E7%BB%84%EF%BC%8C%E5%89%8D0-51%E4%B8%AA%E6%9C%89%E6%95%88%20%20%20%0D%0A%20%20randomize%20%20%20%0D%0A%20%20x%3Dcint(rnd*(ubound(myarry)-1))'%E5%89%8D0-51%E4%B8%AA%E9%9A%8F%E4%BE%BF%E6%89%BE%E4%B8%80%E4%B8%AA%20%20%20%0D%0A%20%20mystr%3Dreplace(mystr%2C%20myarry(x)%20%26%20space(1)%2C%22%22)'%E4%BB%8E%E6%B2%A1%E5%8F%91%E7%9A%84%E7%89%8C%E4%B8%AD%E9%9A%8F%E4%BE%BF%E6%8C%91%E4%B8%80%E5%BC%A0%20%20%20%0D%0A%20%20xipai%3Dxipai%20%26%20%20%20myarry(x)%20%26%20space(1)%20%20%20%0D%0A%20%20next%20%20%20%0D%0A%20%20end%20function%20%20%20%0D%0A%20%20%20%20%0D%0A%20%20function%20XP(n)%20%20%20%0D%0A%20%20mystr%3D%22xipai(%22%22%22%22)%22%20%20%20%0D%0A%20%20dim%20i%20%20%20%0D%0A%20%20for%20i%3D1%20to%20n%20%20%20%0D%0A%20%20mystr%3D%22xipai(%22%20%26%20mystr%20%26%20%22)%22%20%20%20%0D%0A%20%20next%20%20%0D%0A%20%20'XP%3Deval(mystr)%20%20%20%0D%0AXP%3Deval(mystr)%20%20%0D%0A%20%20end%20function%20%20%20%0D%0A%20%20document.write%20%20%20%22%E6%B4%97%E7%89%8C%E5%AE%8C%E7%BE%8E%E7%89%88%22%20%26%20%22%0D%0A%22%20%20%20%0D%0A%20%20document.write%20%20%20%22%E6%B4%97%E4%B8%80%E6%AC%A1%E7%89%8C%3A%22%20%26%20XP(1)%20%26%20%22%0D%0A%22%20%20%20%0D%0A%20%20document.write%20%20%20%22%E6%B4%97%E4%B8%A4%E6%AC%A1%E7%89%8C%3A%22%20%26%20XP(2)%20%20%20%26%20%22%0D%0A%22%20%20%20%0D%0A%20%20document.write%20%20%20%22%E6%B4%97%E4%B8%89%E6%AC%A1%E7%89%8C%3A%22%20%26%20XP(3)%20%26%20%22%0D%0A%22%20%20%20%0D%0A%20%20document.write%20%20%20%22%E6%B4%97%E4%B8%80%E7%99%BE%E6%AC%A1%E7%89%8C%3A%22%20%26%20XP(100)%20%26%20%22%0D%0A%22%20%20%20%0D%0A%20%20%3C%2FSCRIPT%3E">
[Ctrl+A 全选 注:
如需引入外部Js需刷新才能执行
]
<img src="/_New/_cj/myeditor/sysimage/space.gif" class="ewebeditor__script" _ewebeditor_fake_tag="script" _ewebeditor_fake_value="%3CSCRIPT%20LANGUAGE%3Dvbscript%3E%20%20%0D%0A'%E6%B4%97%E7%89%8C%20%20%0D%0ADim%20N%2CS%2CD%2CP%20%20%0D%0AP%3D52'%E7%89%8C%E7%9A%84%E6%95%B0%E9%87%8F%20%20%0D%0ASet%20D%20%3D%20CreateObject(%22Scripting.Dictionary%22)%20%20%0D%0Ado%20while%20D.Count%3CP%20%20%0D%0ARandomize%20%20%0D%0AN%3DInt(P%20*%20Rnd%20%2B%201)%20%20%0D%0Aif%20not%20D.Exists(cstr(N))%20then%20%20%0D%0AD.Add%20cstr(N)%2Ccstr(N)%20%20%0D%0Aend%20if%20%20%0D%0Aloop%20%20%0D%0Afor%20each%20K%20in%20D.Keys%20%20%0D%0AS%3DS%20%26%20K%20%26%20%22%20%22%20%20%0D%0Anext%20%20%0D%0Amsgbox%20replace(trim(S)%2C%22%20%22%2C%22%2C%22)%20%20%0D%0A%3C%2FSCRIPT%3E">
[Ctrl+A 全选 注:
如需引入外部Js需刷新才能执行
]
教程首页
更多教程