regnums.asp

来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 25 行

<!-- #include file="Conn.asp" -->
<%
randomize
chars="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
a=Int(36 * Rnd)+1
b=Int(36 * Rnd)+1
c=Int(36 * Rnd)+1
d=Int(36 * Rnd)+1
e=Int(36 * Rnd)+1
f=Int(36 * Rnd)+1
g=Int(36 * Rnd)+1
h=Int(36 * Rnd)+1
i=Int(36 * Rnd)+1
j=Int(36 * Rnd)+1
k=Int(36 * Rnd)+1
dim Nums
Nums=Nums&mid(chars,A,1)&mid(chars,B,1)&mid(chars,C,1)&mid(chars,D,1)&mid(chars,E,1)&mid(chars,F,1)&mid(chars,G,1)&mid(chars,H,1)&mid(chars,I,1)&mid(chars,J,1)&mid(chars,K,1)
conn.execute("update Functions set FunctionInfo='"&Nums&"' where FunctionID=16")
conn.execute("update Functions set FunctionOC=true where FunctionID=16")
%>
<script language=javascript>
setTimeout( "window.close()" , 1000 ); 
</script>