<%
'함수 : 텍스트는 차량 기능을 방지합니다
'날짜 : 2006-3-6
'저자 : Blue2004
'매개 변수 str은 원래 텍스트, str1 저자도 당신 자신이며, reslut는 씨앗을 생산합니다.
functionreadtocode (str, str1, result)
Dimname
Dimi, J, k
그런 다음 ifisnull (str)
readTocode = ""
종료 기능
endif
무작위 화
k = instr (str, "</p>")
Dowhilek> 0
결과 = ""
fori = 0to19
j = int (128*rnd) +1
ifj = 60orj = 62then
j = j+1
endif
result = result & chr (j) '는 무작위 숫자를 생성합니다.