Notice
Recent Posts
Recent Comments
Link
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | |||
5 | 6 | 7 | 8 | 9 | 10 | 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 |
19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 | 31 |
Tags
- jquery 레이어
- lsusb
- ajax
- readonly
- submit
- Injection
- 커널
- include
- FileSystemObject
- println
- DS718+
- jQuery
- SQL Injection
- AC1300
- form
- RTL88x2BU
- PHP GCM
- Getrows
- synology
- 따라다니는 배너
- replace
- disabled
- javascript
- euc-kr
- 무선랜카드
- 시놀로지
- utf-8
- 크로스 컴파일
- ASP
- XMLHTTP
Archives
- Today
- Total
아는 것이 좋은 것이다.
[ASP] 랜덤함수 본문
<%
'랜덤함수
'4지선다 답 맞추기. 답이 맞으면 포인트부여
Randomize()
answer = Int((Rnd * 4) + 1) '최대 4, 최소 1
Randomize()
answer_value = Int((Rnd * 4) + 1)
Dim Get_Point(4)
Get_Point(1) = 500
Get_Point(2) = 300
Get_Point(3) = 200
Get_Point(4) = 100
If answer = answer_value Then
Get_Point_Value = Get_Point(answer)
Else
Get_Point_Value = Get_Point(4)
End If
%>
<%=answer%><br>
< %=answer_value%><br>
< %=Get_Point_Value%><br>
'ASP' 카테고리의 다른 글
[ASP] XMLHTTP GET으로 파일 읽어오기 (0) | 2014.06.11 |
---|---|
[ASP] ASP 쌍따옴표 replace (0) | 2014.06.05 |
[ASP] xml 데이터를 특정URL로 전송, 결과값 받기 (0) | 2014.05.10 |
[ASP] form request 배열(같은 name 변수 표현) (0) | 2014.05.07 |
[ASP] Getrows 페이지 이동, 페이징(2차원 배열) (0) | 2014.05.07 |
Comments