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 conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
Dim StrSQL,RS
StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
StrSQL=StrSQL&"AND Pin='"&passwor ......
'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'当用户登录时可以执行then
<script>
function checkAll(){
&nbs ......
'-------------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>
<script>
function checkAll(){
for (i=0;i&l ......
ASP中如何用JS从子窗口传递值变量到父窗口表单中?
悬赏分：15 - 解决时间：2008-6-10 00:06
父窗口中有一表单,现在是点表单后的上传打开子窗口,经过无组件上传文件成功后子窗口提示成功,并用response.write(FileName) 输出路径成功.但如何传递到父窗口文本域内提交数据库呢?查资料是用JS回传写成: resp ......
1.在解决方案中添加新项目数据集-mydbDataSet.xsd，在数据集里添加所要用到的表或根据需要制作新表。
2.在设计页面中拉入一个MicrosoftReportViewer，设计新报表，按照报表向导根据自己的需要选择报表的数据源和数据项，完成新报表report1.rdlc的制作。在源码中如下（“考核成绩”为数据集中的一个表）
<rsw ......
