客户端发送表单
Dim hc As New HttpClient("http://" & e.Form.Controls("SIP").text & ":" & e.Form.Controls("SPort").text & "/sjyget.htm")
hc.FormData.Add("cn",e.Form.Controls("computerName").text)
hc.FormData.Add("IP",e.Form.Controls("IP").text)
hc.FormData.Add("ID",e.Form.Controls("ID").text)
Dim s As String = hc.GetData()
服务端sjyget.htm代码
Dim e As RequestEventArgs = args(0)
Dim Verified As Boolean
Dim cn As String = e.PostValues("cn")
Dim ip As String = e.PostValues("IP")
Dim id As String = e.PostValues("ID")
Dim dr As DataRow = DataTables("客户端授权表").Find("ID = '" & id & "'")
If dr IsNot Nothing AndAlso dr("AUTH") = 1 Then
Verified = True
dr("TIME") = Date.now
dr.save
End If
If dr Is Nothing Then
Dim nr As DataRow = DataTables("客户端授权表").addnew
nr("NAME") = cn
nr("IP") = ip
nr("ID") = id
nr("AUTH") = 0
nr("AUTHM") = EncryptText(id,"#xo#","#ar#")
nr("TIME") = Date.now
Verified = False
nr.save
End If
If Verified = False Then
e.AppendCookie("Error","用户身份验证失败!")
Return ""
End If
Select Case e.Path
Case "sjyget.htm"
e.WriteString(DataTables("账套管理表").GetComboListString("账套名称"))
End Select
为什么客户端
Dim s As String = hc.GetData()
得到的S始终为空
加好友 
发短信
Post By：2018/9/7 9:27:00 [只看该作者]
