<script language="JavaScript"> <!-- function getcounter() { var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); xmlhttp.open("POST","xmlEvent.asp?action=getTime",true); xmlhttp.send(); window.showMe.value=xmlhttp.responseText; setTimeout("getcounter()",2000); } function TestPost() { var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); var strA="test="+document.form1.test.value; xmlhttp.open("POST","xmlEvent.asp?action=TestPost",false); xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded"); xmlhttp.send(URLEncoding(strA)); window.showMe.value=bytes2BSTR(xmlhttp.responseBody); } //--> </script> <script language="VBScript"> <!-- Function URLEncoding(vstrIn) strReturn = "" For i = 1 To Len(vstrIn) ThisChr = Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF Then strReturn = strReturn & ThisChr Else innerCode = Asc(ThisChr) If innerCode < 0 Then innerCode = innerCode + &H10000 End If Hight8 = (innerCode And &HFF00)\ &HFF Low8 = innerCode And &HFF strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) End If Next URLEncoding = strReturn End FunctionFunction bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function //--> </script>
<!--
function getcounter()
{
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.open("POST","xmlEvent.asp?action=getTime",true);
xmlhttp.send();
window.showMe.value=xmlhttp.responseText;
setTimeout("getcounter()",2000);
}
function TestPost()
{
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
var strA="test="+document.form1.test.value;
xmlhttp.open("POST","xmlEvent.asp?action=TestPost",false);
xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");
xmlhttp.send(URLEncoding(strA));
window.showMe.value=bytes2BSTR(xmlhttp.responseBody);
}
//-->
</script>
<script language="VBScript">
<!--
Function URLEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)\ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
URLEncoding = strReturn
End FunctionFunction bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
//-->
</script>
xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");
xmlhttp.send(URLEncoding(strA));
^^^^^^^^^^^
bytes2BSTR(xmlhttp.responseBody);
^^^^^^^^^^
request.form("username")后得到的数据还是乱码?
谢谢各位的帮助!
是个XMLDOM对象