这个是生成数字的随机数，如果要有字母和数字同时显示的请教如何更改
日期：2014-05-17 浏览次数：20960 次
这个是生成数字的随机数，如果要有字母和数字同时显示的请问怎么更改
<!-- #include file="Include/conn.asp" -->
<!-- #include file="Include/Chk.asp" -->
<%
function gen(digits)
dim rndnum,num
Randomize
Do while Len(rndnum)<digits
num = Cstr(Chr((57-48)*rnd+48))
rndnum = rndnum & num
Loop
gen = rndnum
End function
Server.ScriptTimeout=99999999
name=Request.Form("name")
num=Request.Form("num")
if not isnumeric(name) or not isnumeric(num) then
Response.Write("<script>alert('输入错误，产品编码和生成数量都应该是数字!');history.back();</script>")
Response.End()
end if
num=cint(num)
if num>9999 then
Response.Write("<script>alert('每次只能生成9999个防伪码!');history.back();</script>")
Response.End()
end if
Response.ContentType ="application/vnd.ms-Excel"
%>
<table width="300" border="1" cellspacing="0" cellpadding="0">
<%
n=1
do while n<=num
p=name&"-"&gen(4)&"-"&gen(4)&"-"&gen(4)
Set rs=conn.execute("select top 1 id from zm_p where p='"&p&"'")
if rs.eof then
conn.execute("insert into zm_p(p) values('"&p&"')")
n=n+1
%>
<tr>
<td align="left">
<%=p%>
</td>
</tr>
<%
end if
loop
%>
<tr>
<td align="right">制表日期：<%=now()%></td>
</tr>
</table>
------解决方案--------------------
<!-- #include file="Include/conn.asp" -->
<!-- #include file="Include/Chk.asp" -->
<%
function gen(digits)
dim rndnum,num
Randomize
Do while Len(rndnum)<digits
num = Cstr(Chr((57-48)*rnd+48))
rndnum = rndnum & num
Loop
gen = rndnum
End function
Server.ScriptTimeout=99999999
name=Request.Form("name")
num=Request.Form("num")
if not isnumeric(name) or not isnumeric(num) then
Response.Write("<script>alert('输入错误，产品编码和生成数量都应该是数字!');history.back();</script>")
Response.End()
end if
num=cint(num)
if num>9999 then
Response.Write("<script>alert('每次只能生成9999个防伪码!');history.back();</script>")
Response.End()
end if
Response.ContentType ="application/vnd.ms-Excel"
%>
<table width="300" border="1" cellspacing="0" cellpadding="0">
<%
n=1
do while n<=num
p=name&"-"&gen(4)&"-"&gen(4)&"-"&gen(4)
Set rs=conn.execute("select top 1 id from zm_p where p='"&p&"'")
if rs.eof then
conn.execute("insert into zm_p(p) values('"&p&"')")
n=n+1
%>
<tr>
<td align="left">
<%=p%>
</td>
</tr>
<%
end if
loop
%>
<tr>
<td align="right">制表日期：<%=now()%></td>
</tr>
</table>
------解决方案--------------------
- VBScript code
写个函数
<%
'********************************************
'功能：获取指定长度的随机数和字母
'参数：
' length：要获取的随机字符串长度
' mode： 1 数字
' 2 小写字母
' 3 大写字母
' 4 数字和小写字母
' 5 数字和大写字母
' 6 小写字母和大写字母
' 7 数字、小写字母和大写字母
'********************************************
Function Gen(length, mode)
Dim rndString, rndChar, i, Arr()
Randomize
Select Case mode
Case 1 '数字
For i = 1 To length
rndChar = Cstr(Chr((57 - 48) * rnd + 48))
rndString = rndString & rndChar
Next
Case 2 '小写字母
For i = 1 To length
rndChar = Cstr(Chr((122 - 97) * rnd + 97))
rndString = rndString & rndChar
Next
Case 3 '大写字母
For i = 1 To length
rndChar = Cstr(Chr((90 - 65) * rnd + 65))
rndString = rndString & rndChar
Next
Case 4 '数字和小写字母
ReDim Arr(35)
For i = 0 To 9
Arr(i) = CStr(i)
Next
For i = 10 To 35
Arr(i) = CStr(Chr(i + 87))
Next
For i = 1 To length
index = Int((35 - 0) * rnd + 0)
rndChar = Arr(index)
rndString = rndString & rndChar
Next
Case 5 '数字和大写字母
ReDim Arr(35)
For i = 0 To 9
Arr(i) = CStr(i)
Next
For i = 10 To 35
Arr(i) = CStr(Chr(i + 55))
Next
For i = 1 To length
index = Int((35 - 0) * rnd + 0)
rndChar = Arr(index)
rndString = rndString & rndChar
Next
Case 6 '小写字母和大写字母
ReDim Arr(51)
For i = 0 To 25
Arr(i) = CStr(Chr(i + 97))
Next
For i = 26 To 51
Arr(i) = CStr(Chr(i + 39))
Next
For i = 1 To length
index = Int((51 - 0) * rnd + 0)
rndCh
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
