摘要:
Set rs = Server.CreateObject("Adodb.RecordSet") rs.open sql,conn,1,1 DIM Appeared Call DisRndRecord(10,rs.recordCount)'调用函数该位置显示记录 '################SUBS################ '#DisRndRecord(DisNum,rsBound) '#参数DisNum:显示数量 '#参数rsBound:随机数产生范围 Sub DisRndRecord(DisNum,rsBound) D 阅读全文