<%
'------------------------------------------------- -------------
' 程序작용:打印request.form输入的所有值
'------------------------------------------------- -------------
응답.Write FormData()
함수 FormData()
희미한 llngMaxFieldIndex
희미한 llngFieldIndex
희미한 llngMaxValueIndex
희미한 llngValueIndex
희미한 lstr디버그
' 카운트 양식
llngMaxFieldIndex = 요청.양식.수
' 양식이 존재하지 않는 경우 사용자에게 알립니다.
llngMaxFieldIndex = 0인 경우 그러면
FormData = "양식 데이터가 비어 있습니다."
종료 기능
다음과 같은 경우 종료
' 모든 양식의 목록 작성을 시작합니다.
lstrDebug = "<OL>"
' 각 양식을 반복합니다.
llngFieldIndex = 1의 경우 llngMaxFieldIndex로
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))
' 값을 센다
llngMaxValueIndex = 요청.양식(llngFieldIndex).Count
' 필드에 여러 값이 없는 경우 ...
llngMaxValueIndex = 1인 경우 그러면
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
' Else는 각 값을 반복합니다.
또 다른
lstrDebug = lstrDebug & "<OL>"
llngValueIndex = 1의 경우 llngMaxValueIndex로
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
다음
lstrDebug = lstrDebug & "</OL>"
다음과 같은 경우 종료
lstrDebug = lstrDebug & "</LI>"
다음
lstrDebug = lstrDebug & "</OL>"
' 데이터를 반환
FormData = lstrDebug
기능 종료
%>
<%
'------------------------------------------------- -----------
' 函数功能：输流所有输入request.querystring值，用于调试！
'------------------------------------------------- ------------------------
Response.Write QueryStringData()
함수 쿼리문자열데이터()
희미한 llngMaxFieldIndex
희미한 llngFieldIndex
희미한 llngMaxValueIndex
희미한 llngValueIndex
희미한 lstr디버그
' 쿼리문자열 계산
llngMaxFieldIndex = 요청.QueryString.Count
' QueryString이 존재하지 않는 경우 사용자에게 알립니다.
llngMaxFieldIndex = 0인 경우 그러면
QueryStringData = "QueryString 데이터가 비어 있습니다."
종료 기능
다음과 같은 경우 종료
' 모든 QueryString 목록 작성을 시작합니다.
lstrDebug = "<OL>"
' 각 쿼리 문자열을 반복합니다.
llngFieldIndex = 1의 경우 llngMaxFieldIndex로
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))
' 값을 센다
llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count
' 필드에 여러 값이 없는 경우 ...
llngMaxValueIndex = 1인 경우 그러면
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
' Else는 각 값을 반복합니다.
또 다른
lstrDebug = lstrDebug & "<OL>"
llngValueIndex = 1의 경우 llngMaxValueIndex로
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
다음
lstrDebug = lstrDebug & "</OL>"
다음과 같은 경우 종료
lstrDebug = lstrDebug & "</LI>"
다음
lstrDebug = lstrDebug & "</OL>"
' 데이터를 반환
QueryStringData = lstrDebug
기능 종료
%>