函数RND（）返回一个0到1之间的随机数。这里有这个函数的一个例子及其可能的返回值：
<%=RND()%>
0.7055643
典型情况下，你更感兴趣的是用这个函数来返回处在一定范围内的整数。要返回一个大于等于0而小于某个特定整数的数字，你可以使用如下的语句：
<%=INT((upperbound+1)*RND)%>
用你想产生的最大随机数代替表达式upperbound。例如，下面的脚本返回一个0和5之间的数，包括0和5：
<%=INT(5+1)*RND)%>
如果你想产生一个处在某个范围内的随机数，该范围有一个大于0的下界，可以使用如下的脚本：
<%=INT((upperbound – lowerbound + 1)*RND+lowerbound)%>
例如，下面的脚本产生一个50到75之间的随机数（包括50和75）：
<%=INT((75-50+1)*RND+50)%>
无论何时使用函数RND（），它将以同样的顺序返回同样的随机数，这也许另你吃惊。考虑如下的例子：
<%
Pick_Greeting=INT((2+1)*RND)
Select CASE Pick_Greeting
CASE 0
Greeting=”Welcome!”
CASE 1
Greeting=”Hello!”
CASE 2
Greeting=”Happy to see you!”
END Select
%>
<%=Greeting%>
这个脚本建立并打印一个随机的问候语。但是，它有可能并不按你想象的方式工作。无论何时有人下载了包含这段脚本的网页，将有同样的随机问候语被打印。如果有人多次回到这个网页，他或她将得到同样的问候。一个随机数产生了，但是每次都是同样的随机数。
有一个特殊的语句可以帮助解决这个问题。RANDOMIZE语句用来强制函数RND（）使用一个新的随机数序列。RANDOMIZE语句通过计算机的系统计时器，为函数RND（）提供一个新的种子值。下面的例子显示了如何修改上面的例子，使其正确工作：
<%
RANDOMIZE
Pick_Greeting=INT((2+1)*RND)
Select CASE Pick_Greeting
CASE 0
Greeting=”Welcome!”
CASE 1
Greeting=”Hello!”
CASE 2
Greeting=”Happy to see you!”
END Select
%>
<%=Greeting%>
这个脚本可以正确工作。每次执行这个脚本时，将会产生一个新的随机问候。RANDOMIZE语句强制函数RND（）使用新的随机数序列。
最后，如果你对函数RND（）所产生的数值的分布感到好奇，你可以用下面的脚本来确定它：
<%
CONST upperbound=9,iterations=100
REDIM DIST(upperbound)
RANDOMIZE
FOR i=1 to iterations
rnd_num=INT（(upperbound+1)*RND)
DIST(rnd_num)=DIST(rnd_num)&”#”
NEXT
FOR i=0 to upperbound
%>
<%=i&” : “&DIST(i)%><BR>
<%
NEXT
%>
这段脚本在0到9之间产生100个随机数。它跟踪对于每一个值有多少个随机数产生。最后，它打印一个代表结果的条形图。
]]>Sub Com_CreatValidCode(pSN)
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii
Const cOdds = 6 ' 杂点出现的机率
Const cAmount = 10 ' 文字数量
Const cCode = "0123456789"
' 颜色的数据(字符，背景)
Dim vColorData(1)
vColorData(0) = ChrB(155) & ChrB(58) & ChrB(48) ' 蓝0，绿0，红0（黑色）
vColorData(1) = ChrB(255) & ChrB(223) & ChrB(223) ' 蓝250，绿236，红211（浅蓝色）
' 随机产生字符
Dim vCode(4), vCodes
For i = 0 To 3
vCode(i) = Int(Rnd * cAmount)
vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
Next
Session("pSN") = vCodes '记录入Session
' 字符的数据
Dim vNumberData(9)
vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
' 输出图像文件头
Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)
' 输出图像信息头
Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_
ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0)
For i = 9 To 0 Step -1 ' 历经所有行
For ii = 0 To 3 ' 历经所有字
For iii = 1 To 10 ' 历经所有像素
' 逐行、逐字、逐像素地输出图像数据
If Rnd * 99 + 1 < cOdds Then ' 随机生成杂点
Response.BinaryWrite vColorData(0)
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
End If
Next
Next
Next
End Sub
%>
以上是getCode.asp生成图片验证码
使用方法
<img src="getCode.asp"/>
获取里面的值,session("pSN")
买的时候只要是正港 当时查好就可以了 保修估计很难联保
在当地工作就当地买吧 兄弟
要是真的是香港打的票 在全国有100多个地方可以保修到
提问人的追问 2010-03-13 18:09
就是说国内的发票很多都不能全国保修？
这个国内的发票是说国内正规发票还是国内的机打港行发票？
团队的补充 2010-03-13 18:39
我是说现在的港行的机器 开的发票 说是香港的票 其实都是广州百脑汇里面开的票
那些票在国内好多地方都是保修不到的
港行分正港和后港，正港的一般是像香港百脑汇、丰泽等出售的带有正规激光镭射防伪发票的，这些手机肯定是可以全国联保的，但是一般不比国内同型号的手机便宜多少；还有一种就是经常遇到的后港，机子和正港的机子没什么区别，就是销售渠道不同，没有经过正规的商场销售，价格比国内机子便宜好几百元甚至上千元的，淘宝上卖的绝大多数都是这样的机子，这类机子开得发票全是假发票，是给你用来忽悠NOKIA售后的。
NOKIA现在的保修一般的是直接上官网查询你这个手机的串号是否在保修期内，后港也是可以查到的，这里就要分售后而异了，有的直接看串号给保修（大多数都是这样），少数一些发现你是港货就要你出示发票，如果对方认真的话会打电话查询你发票的真伪，这时候后港的就不行的。
打字好累，希望对你有帮助。
小兔说：“我是兔娘养的！”
小猪说：“我是猪娘养的！”
小鸡说：“我是鸡娘养的！”
小狗说：“你们聊，我先走了！”
0号陪练说：“外人叫我零陪，好听！”
1号陪练说：“外人叫我一陪，也好听！”
2号陪练说：“外人叫我二陪，也很好听！”
3号陪练说：“你们聊，我们先走了！”
猫对我说：“我是你奶奶的猫，好听！”
狗对我说：“我是你奶奶的狗，也好听！”
鱼对我说：“我是你奶奶的鱼，也很好听！”
熊说：“你们聊，我先走了！”
浪客说：“人们叫我浪人，好听！”
武士说：“人们叫我武人，也好听！”
高手说：“人们叫我高人，也很好听！”
剑客说：“你们聊，我先走了！”
北京大学的说：我是北大的。
天津大学的说：我是天大的。
上海大学的说：我是上大的。
厦门大学的说：你们聊，我先走了！
李宗仁将军说：我这人，有仁！
傅作义将军说：我这人，有义！
左权将军说：我这人，有权！
霍去病将军说：你们聊，我先走了！
师范学院的学生说：我是"师院"的
铁道学院的学生说：我是"铁院"的
职业学院的学生说：我是"职院"的
技术学院的学生说：你们聊，我先走了！
实例代码：
dim conn,rs,sql
set conn = Server.CreateObject("adodb.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("test.mdb")
set rs = Server.CreateObject("adodb.recordset")
sql = "select * from a order by rnd(time()-id)"
rs.open sql,conn,1,1
if not rs.eof then
do until rs.eof
response.Write(rs("id")&"<br>")
rs.movenext
loop
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
Select * FROM table1 orDER BY Rnd(-Rnd(ID))
<!--#include file="adoconn.asp"-->
<%
'-------------------------检索数据-----------------------
strSQL = "Select * FROM [table]"
'Sql语句，检索数据库
'Set objRS = Server.CreateObject("ADODB.Recordset")
'创建记录集
rs.Open strSQL,conn,1,1
'执行检索
Count=rs.RecordCount
'得到记录总数
Item=2
'显示记录数
'-------------------------检索数据-----------------------
'-------------------------------------------------------------------------------
redim a(Item, 3),t(Count)
'定义2数组，数组a用来储存记录，数组t用来删选记录
'---------------------------------------
'初始数组数值，目的为了插入数据以后和此值做比较
for each j in t
j=0
next
'---------------------------------------
'---------------------------------------
' 随机抽取记录号
Randomize timer '初始化随机数生成器
for j=1 to Item
k=int(rnd*Count+1) '从总数里面随机取一条记录
do while t(k)<>0 '判断是否记录是否已经在数组中
k=int(rnd*Item+1)
loop
t(k)=1 '第k条记录被选中
next
'--------------------------------------
j=1:i=1'定义下标
'--------------------------------------
' 循环选取数据集rs中的部分记录存放到数组中
Do While Not rs.Eof
if t(j)=1 then
a(i,1)=rs("y_id") '记录id
a(i,2)=rs("y_start") '字段1
a(i,3)=rs("y_end") '字段2
i=i+1
end if
j=j+1
rs.MoveNext
Loop
'--------------------------------------
'-------------------------------------------------------------------------------
'----------------------------显示内容--------------------
for i=1 to Item
Response.write "序号"&a(i,1)&"<br>"
Response.write "开始"&a(i,2)&"<br>"
response.write "结束"&a(i,3)&"<p>"
next
'----------------------------显示内容--------------------
'---------------------------
'释放资源
rs.Close
set rs=nothing
Conn.Close
set Conn=nothing
'---------------------------
%>
adoconn.asp
<%
set rs=server.CreateObject("adodb.recordset")
db="aaa1.mdb"
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
%>