testcard.asp

来自「jsp数字点卡在线销售系统谁都可以下载」· ASP 代码 · 共 25 行

<%
FunctiOn xcs_num(xcs)
    dim char_array(10)
    char_array(0) = "0"
    char_array(1) = "1"
    char_array(2) = "2"
    char_array(3) = "3"
    char_array(4) = "4"
    char_array(5) = "5"
    char_array(6) = "6"
    char_array(7) = "7"
    char_array(8) = "8"
    char_array(9) = "9"
    randomize
    Do while Len(output) < xcs
        num = char_array(int((9 - 0 + 1) * rnd + 0))
        output = output + num
    Loop
    xcs_num = output
End Function
For i=1 To 100
    a=Right("0000000"&i,8)
    Response.Write(a&","&xcs_num(10)&"<br>")
Next
If err<>0 Then ckerr(err)%>