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个成员互换，循环下去直到取够数量。
相关文档：
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false '不显示警告
'xlApp.Application = false ......
1、<script>按钮：
<input type="button" name="btnRead" onClick="readCard()" style="background:url(images/qux1.gif); border:none; width:145px; height:30px;" />
2、提交按钮：
<input type="submit" name="button" id="button" style="background:url(images/tj.gif); bor ......
<%
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 ......
在多项选择的一些应用中，可以用二进制1代表选中，0代表不选。例如给某用户角色分配权限abcdefg，选中情况是1001101，那么此角色包含四项权限，用一个变量表示，相应的十进制数是77。
但是，在ASP中的多项选择，就不适合这种以数值的形式记录选中情况。因为，当项目数很多时（例如6 ......
<input type="submit" name=""byt id="byt" value="现金销售提交" >
例如：表单中有一个名为 byt 的按钮，要求网页打开1秒后，自动点击按钮，
方法：把如下代码加在</form>后。
<script language="javascript">
function window.onload()
{
setTimeout("document.form1.byt.click()",1 ......
