?? checkcode.asp
字號:
<%
'If Session("AdminUID") = "" then
dim num1
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
'Else
'session("verifycode")=""
'End If
%>
<%
countsize=len(rndnum)
for n=1 to countsize
response.write "<img src=images/numpic/"& mid(rndnum,n,1) &".gif>"
next
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -