搜尋 WU 結果：
在做地址的時候用了一個套件(TWZIPCODE)
可以幫你產生下拉霸的郵遞區號選項
很方便(jQuery)
但是在控制他的資料及回傳
又不知道怎樣比較方便直觀了
首先目前也是文字控制的方式是
UWForUNT.WU.ReplaceStringInControl(Me.Page, "#Post_Code#", Post_Code)
直接用 #Post_Code#
再把她取代
直接讓前端讀到值
回傳時 若是用後端控制 不用再傳ajax 或是 塞到別的後端控制項
回傳的方式
UW.WU.GetValueFromQueryStringOrForm("Post_Code")
但是因為之後不讓 Page Load 再次改成預設值
可以加
If Not Me.IsPostBack Then
UW.WU.GetValueFromQueryStringOrForm("Post_Code")
End If
才不會永遠是預設值
( $('#twzipcode').twzipcode({
zipcodeSel: '#Post_Code#', // 此參數會優先於 countySel, districtSel
countySel: '台北市',
districtSel: '大安區',
zipcodeName: 'Post_Code'
})
)
他如果有包在裡可以直接讀取
另外若是 有一些後端要傳給前端的資料 用response.Write("<script>XXX</script>")
可以直接寫入前端
可以幫你產生下拉霸的郵遞區號選項
很方便(jQuery)
但是在控制他的資料及回傳
又不知道怎樣比較方便直觀了
首先目前也是文字控制的方式是
UWForUNT.WU.ReplaceStringInControl(Me.Page, "#Post_Code#", Post_Code)
直接用 #Post_Code#
再把她取代
直接讓前端讀到值
回傳時 若是用後端控制 不用再傳ajax 或是 塞到別的後端控制項
回傳的方式
UW.WU.GetValueFromQueryStringOrForm("Post_Code")
但是因為之後不讓 Page Load 再次改成預設值
可以加
If Not Me.IsPostBack Then
UW.WU.GetValueFromQueryStringOrForm("Post_Code")
End If
才不會永遠是預設值
( $('#twzipcode').twzipcode({
zipcodeSel: '#Post_Code#', // 此參數會優先於 countySel, districtSel
countySel: '台北市',
districtSel: '大安區',
zipcodeName: 'Post_Code'
})
)
他如果有包在裡可以直接讀取
另外若是 有一些後端要傳給前端的資料 用response.Write("<script>XXX</script>")
可以直接寫入前端
sean, 2014/11/27 下午 04:20:42
location.reload()
Chrome 最新的版本
會把 本來的表單重送，所以我在
UW.WU.ShowMessageAndRefresh
更改為
Chrome 最新的版本
會把 本來的表單重送，所以我在
UW.WU.ShowMessageAndRefresh
System.Web.HttpContext.Current.Response.Write("location.reload()" & vbCrLf)
更改為
System.Web.HttpContext.Current.Response.Write("location.href=location.href" & vbCrLf)
瞇瞇, 2014/10/20 下午 03:17:32
若是用 Chrome 開了一個 fancybox ，在 iframe 中的網頁執行了 history.back 會把 fancybox 關掉而不是回到上一頁，這會造成 UW.WU.ShowMessageAndBack 等等利用 history.back 的 function 無法使用。
在多次測試後，很神奇的發現，若是在 iframe 中再進入第二頁，第二頁就可以用 history.back 了。
所以寫了一個 UW.WU.DelayRedirect()，若是某個頁面是要在 fancybox 的 iframe 中執行，就在 PageLoad 加一個
If UW.WU.GetValueFromQueryStringOrForm("Action").ToLower = "delayredirect" Then
UW.WU.DelayRedirect()
End If
在 a 的 href 中多加一個 Action=DelayRedirect，預設就會在 500 ms 之後重新載入這個頁面 (新網址是 UW.WU.UrlWithNewTFWithoutAction)。
在多次測試後，很神奇的發現，若是在 iframe 中再進入第二頁，第二頁就可以用 history.back 了。
所以寫了一個 UW.WU.DelayRedirect()，若是某個頁面是要在 fancybox 的 iframe 中執行，就在 PageLoad 加一個
If UW.WU.GetValueFromQueryStringOrForm("Action").ToLower = "delayredirect" Then
UW.WU.DelayRedirect()
End If
在 a 的 href 中多加一個 Action=DelayRedirect，預設就會在 500 ms 之後重新載入這個頁面 (新網址是 UW.WU.UrlWithNewTFWithoutAction)。
Bike, 2014/2/12 下午 06:16:59
Sub SendMail_gmail(ByVal Subject As String, ByVal Body As String, ByVal FromMail As String, ByVal ToMail As String)
Dim msg As New System.Net.Mail.MailMessage
Dim client As New System.Net.Mail.SmtpClient
Try
msg.Subject = Subject
msg.Body = Body
msg.From = New System.Net.Mail.MailAddress(FromMail)
msg.To.Add(ToMail)
msg.IsBodyHtml = True
client.Host = "smtp.gmail.com"
Dim basicauthenticationinfo As System.Net.NetworkCredential = New System.Net.NetworkCredential("username@gmail.com", "password")
client.Port = Int32.Parse("587")
client.EnableSsl = True
client.UseDefaultCredentials = False
client.Credentials = basicauthenticationinfo
client.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
client.Send(msg)
Catch ex As Exception
UW.WU.DebugWriteLine(ex.ToString, True, True)
End Try
End Sub
Reiko, 2014/1/17 下午 02:48:37
'更新
If UW.WU.IsNonEmptyFromQueryStringOrForm("Refresh") Then
System.Web.HttpContext.Current.Cache.Remove(CacheName)
End If
'快取部分
If obj Is Nothing Then
Dim SQL As String = ""
SQL = "select * from Product with (nolock)"
obj = UW.SQL.DTFromSQL(SQL)
Dim AC As New AggregateCacheDependency
Dim DepArray() As CacheDependency = { _
New SqlCacheDependency(UW.SQL.sqlCacheDependencyName, "Product"), _
New SqlCacheDependency(UW.SQL.sqlCacheDependencyName, "Product_Category") _
}
AC.Add(DepArray)
Dim FD As New CacheDependency(UW.Template.TemplateRoot & "2013UI\Product\DirectBuyAllProduct.html")
AC.Add(FD)
System.Web.HttpContext.Current.Cache.Insert(CacheName, obj, AC)
End If
Doug, 2014/1/15 下午 02:12:27
Inherits Master
Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
HandleAction()
End Sub
Sub HandleAction()
If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then
Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")
Select Case Action
End Select
End If
End Sub
Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
LoadPageContext()
End Sub
Sub LoadPageContext()
End Sub
Sub JSONWriteToClient(ByVal TrueorFalse As Boolean, Optional ByVal msg As String = "", Optional ByVal Title As String = "", Optional ByVal Content As String = "", Optional ByVal Content2 As String = "", Optional ByVal Content3 As String = "")
Dim TF As String = Now.ToString("yyyyMMddHHmmss")
Dim oJ As UW.JSON
oJ = New UW.JSON(TrueorFalse, msg)
oJ.add("Title", Title)
oJ.add("Content", Content)
oJ.add("Content2", Content2)
oJ.add("Content3", Content3)
oJ.add("TF", TF)
oJ.WriteToClient()
Response.End()
End Sub
Doug, 2014/1/6 下午 12:25:22
Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
SHOPUNT.GN.WSC.CheckLogin() '檢查是否有登入、否則導回Login
SHOPUNT.GN.WSC.CheckRightOrStop(SHOPUNT.EN.AuthCode.廣告管理) '檢查是否有廣告編輯的權限
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
HandleAction()
End Sub
Sub HandleAction()
If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then
Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")
Select Case Action
End Select
End If
End Sub
Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
'Me.Master.strTitle = "目錄管理"
'Me.Master.IsListItemScript = True
LoadPageContext()
End Sub
Sub LoadPageContext()
End Sub
Doug, 2014/1/6 上午 11:40:25
