javascript+xml+xmlHttp 实现远程自动更新网站ACCESS数据

最新推荐文章于 2023-06-12 09:20:19 发布

yubo1209

最新推荐文章于 2023-06-12 09:20:19 发布

阅读量2.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： web开发文章标签： xml javascript access function sql vbscript

本文链接：https://blog.youkuaiyun.com/yubo1209/article/details/668623

这个博客展示了如何使用VBS和JavaScript结合XMLHTTP在客户端和服务器端交互，实现远程更新ACCESS数据库。客户端通过XMLHTTP发送包含数据库记录的XML数据到服务器，服务器解析并更新数据库，然后返回响应。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

客户端文件 sendDataClient

<html>
<head>
</head>
<body bgColor="#ffffff" onload='update();'>

<br></br>
</body>
<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 Function

Function bytes2BSTR(vIn)

Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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 BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312" '转换原来默认的UTF-8编码转换成GB2312编码，否则直接用XMLHTTP组件调用有中文字符的网页得到的将是乱码
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

</script>

<SCRIPT LANGUAGE="JavaScript">
<!--
function getXMLArray(xmlDoc, name) {
var keys = name.split('.');
var node = xmlDoc.documentElement; // 得到根节点
var rtn = new Array();