js
……
// 当数据来自服务器时，将调用此方法
ws.onmessage = function (evt) {
//不断刷新接收来自服务器的信息;
inc.innerHTML = (evt.data);
sendAjaxText(evt.data,"accept.htm","",false);
};
……
httprequest事件
Select Case e.Path
Case "get"
Dim sb As New StringBuilder
sb.AppendLine("<!DOCTYPE HTML PUBLIC>")
sb.AppendLine("<html>")
sb.AppendLine("<head>")
sb.AppendLine("<title>websocket client</title>")
sb.appendline("<script src='./css/g.js'></script>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
sb.AppendLine("<form id='sendForm'>")
sb.AppendLine("<span>输入内容按回车发送消息</span> <br/>")
sb.AppendLine("<input id='sendText' placeholder='Text to send' />")
sb.AppendLine("</form>")
sb.AppendLine("<pre id='incomming'></pre>") ‘这段应该就是调用ID incomming，不断在前端页面刷新接收到的每一条信息。
sb.AppendLine("</body>")
sb.AppendLine("</html>")
e.WriteString(sb.ToString)
Case "accept.htm"
Dim dr As DataRow = DataTables("记录表").SQLAddNew()
dr("内容") = e.PlainText
dr.Save()
e.WriteString("OK")
End Select
[此贴子已经被作者于2023/3/10 12:07:14编辑过]
加好友 
发短信
Post By：2023/3/9 17:29:00 [显示全部帖子]
