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

原创 2006年05月19日 10:13:00

一个不用刷新就能提交并返回的信息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()">

【ASP】UTF-8编码的vbscript页面,调试信息的乱码问题

在被UTF-8编码的vbscript页面,在写程序的过程中,不小心写错的话,在页面的输出信息是乱码的,如下图所示: 让人无法得知错误的原因。 毕竟在vbscript最初发展的时候,UTF-...

用VBSCRIPT自动输入登录信息

几日前,朋友问我能不能帮他做一个能自动输入登录信息功能的程序。了解到,他的那个程序是运行在一款叫做“夜神安卓模拟器”(OUT了,第一次知道还有这种神器)环境下的360股票APP。对于这款模拟器我不甚了...
  • cg_i
  • cg_i
  • 2016年08月19日 22:07
  • 1429

JAVA调用vbScript脚本取得计算机信息小例子

一下的vbs文件,可以

《无聊教程●第一课●教你编一个牛逼的VBScript邮件发送器》

也许 地球上的你正在看他们的教程 但你不知道 在另一个银河 正上演的一场激烈的战争 那就是 ...... 桃花侠 大战 菊花怪...

【ASP】ASP vbscript一个综合的例子,操作html文件添加、删除代码、删除文件。

后台管理 添加文章 文章标题: 文章内容: 删除文章 文章编号: 文章标题: 创建日期: ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个不用刷新就能提交并返回的信息vbscript
举报原因:
原因补充:

(最多只允许输入30个字)