如果要查,還是問題出現在asp上面
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a_str As String
Winsock1.GetData a_str
Dim txtstr As String
Dim f As Integer
If Val(a_str) <> 0 Then
For f = 1 To Len(a_str)
If Asc(Mid(a_str, f, 1)) >= vbKey0 And Asc(Mid(a_str, f, 1)) <= vbKey9 Or Asc(Mid(a_str, f, 1)) = 42 Or Asc(Mid(a_str, f, 1)) = 35 Then
txtstr = txtstr & Mid(a_str, f, 1)
End If
Next f
txt_tel.Text = txtstr
End If
Me.Show
end sub