易截截图软件、单文件、免安装、纯绿色、仅160KB

ASP取不重复的随机数

dim arr(36),xx,tt,tmp
for xx=1 to 36
arr(xx-1)=xx
next

for xx=1 to 5
Randomize
tt=clng((ubound(arr)-xx)*rnd())
response.write(arr(tt) & "<br>")

tmp=arr(tt)
arr(tt)=arr(ubound(arr)-xx)
arr(ubound(arr)-xx)=tmp
next
上面一段是从1-36之间随机取5个不重复数的代码,编码的原理是先把1-36之间的所有整数放到一个数组里面,第一次从1-36里随机1个整数作为索引取出数组中对应的成员,然后与第36个成员互换,第二次再从1-35里随机取1个整数作为索引取出数组中对应的成员,然后再与第35个互换,第三次再从1-34里随机取一个整数作索引取出数组中对应的成员,然后再与第34个成员互换,循环下去直到取够数量。 


相关文档:

asp中从数据库导出EXCEL时,EXCEL宏应用的边框设置

Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false               '不显示警告
   'xlApp.Application   = false             ......

asp中form表单的图片按钮

1、<script>按钮: 
<input type="button" name="btnRead" onClick="readCard()" style="background:url(images/qux1.gif); border:none; width:145px; height:30px;"  />&nbsp;
2、提交按钮:
<input type="submit" name="button" id="button" style="background:url(images/tj.gif); bor ......

asp数字分页示例共三个

<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(r ......

ASP获取和还原复选框的值(0~99多项选择)

    在多项选择的一些应用中,可以用二进制1代表选中,0代表不选。例如给某用户角色分配权限abcdefg,选中情况是1001101,那么此角色包含四项权限,用一个变量表示,相应的十进制数是77。
    但是,在ASP中的多项选择,就不适合这种以数值的形式记录选中情况。因为,当项目数很多时(例如6 ......

ASP 网页登录1秒后自动模拟点击input按钮

<input type="submit" name=""byt id="byt" value="现金销售提交"   >
例如:表单中有一个名为 byt 的按钮,要求网页打开1秒后,自动点击按钮,
方法:把如下代码加在</form>后。
<script language="javascript">
function window.onload()
{
setTimeout("document.form1.byt.click()",1 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号