silly subly subgy the forms_asp 튜토리얼을위한 유용한 클라이언트 기능

<script language = vbscript>

Dim I, Strreturn

함수 xmlhttp_submit (form_object, url)

알리다()

i = 0으로 form_object.elements.length-1

set elem = form_object.elements (i)

form_value = form_value & urlencoding (elem.name) & = & urlencoding (elem.value) &&

다음

set xmlhttp = createobject (microsoft.xmlhttp)

xmlhttp.open post, url, false

xmlhttp.setrequestheader content-type, application/x-www-form-urlencoded

xmlhttp.send (form_value)

ysinfo.innerhtml = form_value

msg.innerhtml = xmlhttp.responsetext

엔드 기능

'위의 코드는 양식으로 개체를 가로 지르고 form_value 문자열을 조립 한 다음 send () 메소드를 통해 게시물 모드 (길이별로 제한되지 않음)로 서버로 전송합니다.

'클래식 중국 인코딩 문제는 UTF-8 형식으로 변수 값을 인코딩하기 위해 추가 URLNCoding 기능을 추가해야합니다. .

기능 urlencoding (vstrin)

strreturn =

i = 1 to len (vstrin)

theychr = mid (vstrin, i, 1)

ABS (asc (thischr)) <& hff if ad

strreturn = strreturn & thischr

또 다른

InnerCode = ASC (thischr)

내부 코드 <0이면

InnerCode = InnerCode & H10000

끝 If

High8 = (내부 코드 및 & HFF00)/ & HFF

LOW8 = 내부 코드 및 & HFF

strreturn = strreturn & % & hex (hight8) & % & hex (low8)

끝 If

다음

urlencoding = strreturn

엔드 기능

</스크립트>