易截截图软件、单文件、免安装、纯绿色、仅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编程技术

ActiveConnection 设置或返回Command对象的连接信息,该属性可以是一个Connection对象或连接字符串。
CommandText 设置或返回对数据源的命令串,这个串可以是SQL语句、表、储存过程或数据提供者支持的任 何特殊有效的命令文本。
Prepared 提出在调用Command对象的Execute方法时,是否将查询的编译结果储存下来。如果将� ......

asp和fso实现上传文件

'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'当用户登录时可以执行then
<script>
   function checkAll(){
&nbs ......

ASP中动态使用MicrosoftReport详解

1.在解决方案中添加新项目数据集-mydbDataSet.xsd,在数据集里添加所要用到的表或根据需要制作新表。
2.在设计页面中拉入一个MicrosoftReportViewer,设计新报表,按照报表向导根据自己的需要选择报表的数据源和数据项,完成新报表report1.rdlc的制作。在源码中如下(“考核成绩”为数据集中的一个表)
<rsw ......

jsp,ASP,PHP的比较

      很多SOHOER都希望有个自己的网站,而对网站建设一无所知,或者一知半解.今天我先讲程序方面的区别,相信很多人碰到了有些公司说php比Asp,Asp.Net都要好,或者Asp比其他语言都要好。其实,程序的优略与网站开发人员的经验\技术水平相关,而语言本身并没有什么优略之分.经验多的程序员,不管使用的� ......

hzhost防asp攻击函数

 



hzhost防asp攻击函数
Function SafeRequest(ParaName)
Dim ParaValue
ParaValue=Request(ParaName)
if IsNumeric(ParaValue)  then
SafeRequest=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select
|insert |delete from|'|count(|dr ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号