如何讓 while 下每次有資料就 window.open- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1791

會員總數：246221
討論主題：189785

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> 如何讓 while 下每次有資料就 window.open

[]

[我要回覆]

如何讓 while 下每次有資料就 window.open
價值 : 50 QP 點閱數:367 回應數:2

樓主

MStone Lin

0	99
1964	132

發送站內信

請問

我用迴圈
先找主管

主管下再找部屬
如果有部屬
就發簡訊

但因前後端關係
後端全跑完
才會跑前端

但有可能while (1-100)
51有找到有部屬名單
52沒找到部屬名單被清空

請問有什麼辦法
51找到後就立即window.open
之後再繼續找52~100

Dim nokeycard, uchief As String

Dim sqlstr2 As String = "SELECT DISTINCT boss FROM fever_member WHERE depgrp IS NULL and smschief IS NULL ORDER BY boss"
        Dim dr2 As SqlDataReader = Nothing
        Dim cmd2 As SqlCommand = New SqlCommand(sqlstr2, conn)

Try
            dr2 = cmd2.ExecuteReader

While dr2.Read    '找所有主管

nokeycard = ""    '部屬名單
                uchief = dr2("boss").ToString.Trim

Dim conn3 As New SqlConnection(WebConfigurationManager.ConnectionStrings("webdataConnectionString").ConnectionString.ToString())
                conn3.Open()
                Dim sqlstr3 As String
                sqlstr3 = " SELECT * FROM fever AS a  LEFT OUTer JOIN fever_member AS b on a.cardno =b.cardno WHERE a.appchief='" & uchief & "'  and a.wrdate BETWEEN '" & ttime1 & "' AND '" & ttime2 & "' AND"
                If Interval = "3" Then
                    sqlstr3 &= " (a.feverday ='" & tday & "' or a.feverday='" & tday1 & "') "
                Else
                    sqlstr3 &= " a.feverday ='" & tday & "'"
                End If
                Dim dr3 As SqlDataReader = Nothing
                Dim cmd3 As SqlCommand = New SqlCommand(sqlstr3, conn3)
                Try
                    dr3 = cmd3.ExecuteReader
                    While dr3.Read    '找該主管的部屬
                        nokeycard &= dr3("cardno").ToString.Trim & dr3("name").ToString.Trim & ","
                    End While
                Catch ex As Exception
                Finally
                    cmd3.Cancel()
                    dr3.Close()
                    conn3.Dispose()
                    conn3.Close()
                End Try

If nokeycard <> "" Then

Dim uchiefphone As String = Class1.getphone(uchief)

Dim sendsms As String = "通知[" & nokeycard & "]有症狀，請主管詢問部屬"

If uchiefphone <> "" Then  '發簡訊
                        Response.Write("<script>window.open('sendsms.aspx?dp=" + uchiefphone + "&sm=" + sendsms + "');</script>")
                    Else
                        Response.Write("<script>window.open('sendsms.aspx?dp=0911000000" + "&sm=" + sendsms + "');</script>")
                    End If

End If

'繼續找下一個主管

End While

Catch ex As Exception

Finally
            cmd2.Cancel()
            dr2.Close()
            conn2.Dispose()
            conn2.Close()
        End Try

以上

謝謝

搜尋相關Tags的文章： [ while ] , [ window.open ] ,
本篇文章發表於2020-04-28 11:31

1樓

最有價值解答

老頑童

Response.Flush()
可強制將緩衝區中的資料送到Client端

但，我覺得問題不在Response.Flush()
依你的程式，有加Response.Flush()跟沒加Response.Flush()的差別
只在執行期間一個一個window.open，以及到最後再一次全部window.open
window.open的內容並無差別

while (1-100)
51有找到有部屬名單，Response.Write的資料就被送到緩衝區了
52沒找到部屬名單被清空，清空部屬名單並不影響已送到緩衝區中的資料

本篇文章回覆於2020-04-30 10:13

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

2樓

作者回應

MStone Lin

感謝老頑童
最後發現放程式的主機被封鎖簡訊網站
換個主機即可

謝謝

本篇文章回覆於2020-05-08 09:43

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.