关闭

一个不用刷新就能提交并返回的信息vbscript

854人阅读 评论(0) 收藏 举报

一个不用刷新就能提交并返回的信息vbscript

<script language="VBScript">
Function 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

Function CheckUser()
 dim XmlHttp
 set XmlHttp = CreateObject("Microsoft.XMLHTTP")
 XmlHttp.Open "GET", "bb.asp?username="&document.Form1.username.value, false
 XmlHttp.setRequestHeader "Content-Type","text/XML"
 XmlHttp.Send
 
 dim html
 html = bytes2BSTR(XmlHttp.responseBody)
 msgbox html
End Function
</script>

<input type="text" name="username" class=input style="width:120px;"><input type="button" value="检测用户" style="font-size:12px;" onClick="CheckUser()">

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:373925次
    • 积分:5612
    • 等级:
    • 排名:第4948名
    • 原创:94篇
    • 转载:241篇
    • 译文:0篇
    • 评论:36条
    最新评论