電腦購物天堂

Dim encoding As New System.Text.ASCIIEncoding
                        url = New Uri("http://XXX.XXX.XXX.XXX/alx.asp")
                        Dim getdata As String = "/abbs/wkw/WHD2A03.jsp?sql_conction=from+W.c50+a%2CW.C52+b+where+a.crtid%3D%27KSD%27+AND+a.crtid%3Db.crtid+AND+a.crmyy%3Db.crmyy+AND+a.crmid%3Db.crmid+AND+a.crmno%3Db.crmno+AND+a.ordno%3Db.ordno+AND+trim%28a.cancel%29+is+null++AND+a.upflag%3D%27F%27++AND+a.saledate%3E%3D%270980227%27++AND+a.saledate%3C%3D%270980529%27+&pageTotal=154&pageSize=15&rowStart=1&saletype=5&proptype=C52&court=KSD&order=odcrm&query_type=session&pageNow=2"
                        Dim data As Byte() = encoding.GetBytes(getdata)
                        Dim myRequest As HttpWebRequest = HttpWebRequest.Create(url)
                        webRes = myRequest.GetResponse
                        ReadHisValue(webRes.GetResponseStream)
                        myRequest.Method = "GET"
                        myRequest.ContentLength = data.Length
                        Dim newStream As IO.Stream
                        newStream = myRequest.GetRequestStream()
                        '通常我的程式都只執行到上面這行後就跳掉了?
                        newStream.Write(data, 0, data.Length)
                        newStream.Close()