私人公開筆記本: 6月 2014

2014年6月27日星期五

ASP 使用JMail寄信

參考資料：http://www.ravs.ntct.edu.tw/know/show.asp?QUESTIONID=50

前置作業：
安裝JMail
1-1.先到Dimac Development下載 w3Jmail，下載前他會要您填寫資料，填寫完後即可下載，下載完後請先行安裝。
1-2.安裝完後，請到安裝的路徑(如 C:\Program Files (x86)\Dimac\w3JMail\ )底下複製 jmail.dll，請注意這裡將會有兩種狀況。狀況1：如果您的電腦是64bit請將檔案貼到C:\Windows\SysWOW64 ；狀況2：如果是32bit請將檔案貼到C:\Windows\System32。
1-3.請使用命令提示字元，下指令安裝JMail。
(1)如果是32bit，請在命令提示字元執行regsvr32 jmail.dll
(2)如果是64bit，請看下圖

程式碼：
Function JMailSend(MailTo,MailSubject,str_body,mailacc,mailpass,mailurl,mailcomp)
Dim HTMLMailBody
On Error Resume Next
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "utf-8"

'附加檔案
'filefullpath = Server.Mappath(".") & "\" & "test.doc"
'JMail.AddAttachment(filefullpath)

HTMLMailBody="<html><head><meta content=" & chr(34) & "text/html;" & chr(34) & " charset=" & chr(34) & "utf-8" & chr(34) & " http-equiv=" & chr(34) & "Content-Type" & chr(34) & "><title>test</title><style type=" & chr(34) & "text/css" & chr(34) & ">" & "</style></head><body>" & str_body &"</body></html>"

jmail.From = mailcomp '寄信人位址
jmail.FromName = "台灣" '寄件人名稱
jmail.ReplyTo = mailcomp '回信位址
jmail.Subject = MailSubject '信件title
jmail.AddRecipient MailTo '收件人地址
jmail.Body = "我們的郵件採用了HTML格式"
JMail.HTMLBody = HTMLMailBody

jmail.MailServerUserName = mailacc ' SMTP 登入帳號
jmail.MailServerPassWord = mailpass ' SMTP 登入密碼
jmail.Send(mailurl) '指定送信伺服器 SMTP
jmail.Close
set jmail = nothing
if Err.Number<>0 then '錯誤處理
'response.write Err.Description
JMailSend=1
else
JMailSend=0
end if

End Function

2014年6月26日星期四

ASP.NET GridView 設定應用篇

20170904
1. GridView設定表格table、欄位td取消框線。
(1)GridView屬性BorderStyle設定為none
(2)GridView如果是自訂的TemplateField要取消欄位框線，可以設定ItemStyle的BorderStyle屬性為none

2. GridView套用bootstrap樣式。
Private Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView1.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
e.Row.CssClass = "bg-primary"
e.Row.Cells(0).CssClass = "col-xs-6 col-md-6"
e.Row.Cells(1).CssClass = "col-xs-1 col-md-1"
e.Row.Cells(2).CssClass = "col-xs-1 col-md-1"
e.Row.Cells(3).CssClass = "col-xs-2 col-md-2"
e.Row.Cells(4).CssClass = "col-xs-2 col-md-2"
End If
End Sub

20170619
1. GridView進入編輯模式時，設定欄位寬度。
Private Sub GridView3_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView3.RowDataBound
    If e.Row.RowState = (DataControlRowState.Edit Or DataControlRowState.Alternate) OrElse e.Row.RowState = DataControlRowState.Edit Then
        '按下編輯模式時，設定寬度
        e.Row.Cells(1).Style.Value = "width: 20%;"
    End If
    If e.Row.RowType = DataControlRowType.Header Then
        e.Row.CssClass = "bg-primary"
        e.Row.Cells(0).Style.Value = "width: 2%;"
        e.Row.Cells(1).Style.Value = "width: 10%;"
        e.Row.Cells(2).Style.Value = "width: 10%;"
    End If
End Sub

2. 設定GridView當沒有資料時，將框線設定為 0，也就是不顯示框線。
參考資料：emptydatarowstyle is not working

Protected Sub GridView1_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
If e.Row.RowType = DataControlRowType.EmptyDataRow Then
Dim bookingGridView As GridView = CType(sender, GridView)
bookingGridView.Attributes.Add("border", "0") '框線為0
End If
End Sub

3.設定GridView上下顯示分頁功能、分頁對齊、分頁模式
2-1.如要在GridView的上下方同時顯示分頁功能，可設定PagerSettings.Position屬性，如下：
GridView1.PagerSettings.Position = PagerPosition.TopAndBottom
2-2.分頁對齊
GridView1.PagerStyle.HorizontalAlign = HorizontalAlign.Center
2-3.取得或設定在支援分頁的控制項中顯示頁面巡覽區控制項時所用的模式
.PagerSettings.Mode = PagerButtons.NumericFirstLast '上一頁、下一頁等多種分頁模式

4.當按下GridView中的編輯按鈕，如何在RowDataBound中攔截到使用者是編輯哪一列
Protected Sub GridView1_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = GridView1.EditIndex Then
'在此處可以設定編輯模式中的TextBox1等控制項
End If
End If
End Sub

2014年6月25日星期三

asp.net web.config設定篇

201406
發生錯誤訊息：具有潛在危險 Request.Form 的值已從用戶端...偵測到
當<pages validateRequest=ture...>(預設true)此時只要textbox有輸入html,送出資料後就會顯示具有潛在危險 Request.Form 的值已從用戶端偵測到；如果要關閉請先找到pages標籤並加上 validateRequest="false"或者在每個網頁的開頭<%@ Page ... %>加上ValidateRequest="false"，此時送出後如果還是顯示一樣的錯誤訊息，請在system.web標籤之間加上<httpRuntime requestValidationMode="2.0"/> (此標籤只有.net 4才有)

2014年6月20日星期五

JQuery UI accordion 設定標題、內容位置、cookie紀錄目前點擊的項目

參考1：asp.net+jquery accordion 按鈕點擊會收縮

說明：參考1的資料符合我要實作的需求，在此作了些補充及修改。另外下方的程式碼，少了另外一個登入的頁面，當使用者登入成功後，將會指定 $.cookie('index',0); ，轉到另外一個頁面(下方的程式碼)後accordion就會預設展開我們要展開的項目，因為有指定cookie的關係，當使用者重新整理時，accordion就會停留在目前點擊的項目。

程式碼如下
<head>
<title></title>
<link rel="stylesheet" href="themes/base/jquery.ui.all.css">
<script type="text/javascript" src="Scripts/jquery.js"></script>
<script src="Scripts/jquery.cookie.js"></script>
<script src="Scripts/jquery.ui.core.js"></script>
<script src="Scripts/jquery.ui.widget.js"></script>
<script src="Scripts/jquery.ui.accordion.js"></script>
<script>
$(function () {
//同時設定 active: false,collapsible: true 可讓項目呈現不摺疊(不展開)狀態
$('#accordion').accordion({
activate: function (event, ui) {
//當click時觸發此處
if (($.cookie('index') == null) || ($.cookie('index')==undefined)) {
$.cookie('index', 0);
}else{
$.cookie('index', $('#accordion').accordion('option', 'active'));
};
},
active: parseInt($.cookie('saved_index'),10),
collapsible: true,
});
});
</script>
<style>
/**設定摺疊標題文字大小 padding: .5em .5em .5em .7em;*/
.ui-accordion .ui-accordion-header { display: block; font-size: 16px; }
/*設定摺疊標題為置**/
.ui-accordion .ui-accordion-icons {padding-left: 1.5em;}
/**.ui-accordion .ui-accordion-content 設定摺疊內容文字位置*/
.ui-accordion .ui-accordion-content {padding: 0.5em 0.5em; border-top: 0; overflow: auto; zoom: 1;}
</style>
<link type="text/css" rel="stylesheet" href="public_css.css"/>
</head>
<body>
<form id="form1">
<div id="accordion">
<h4>項目1</h4>
<div>
<a>子項目1</a><br/>
<a>子項目2</a>
</div>
<h4>項目2</h4>
<div>
<a>子項目1</a><br/>
<a>子項目2</a>
</div>
<h4>項目3</h4>
<div>
<a>子項目1</a><br/>
<a>子項目2</a>
</div>
</div>
</form>
</body>
</html>

2014年6月10日星期二

ASP.NET 使用DataSet+LINQ JOIN(關聯)資料表 (VB.NET語法)

參考資料1：聯結運算子 (LINQ to DataSet)
參考資料2：使用 Joins 以 LINQ 合併資料 (Visual Basic)

說明：本篇主要是參考「參考資料1」，來進行實作。

前置作業：
1.請準備好兩個資料表，分別為學生(Student)、班級(Class)；
學生資料表欄位只需要三個欄位，分別為班級編號(class_id)、學號(stud_id)、姓名(stud_name)。
班級資料表欄位只需要兩個欄位，分別為班級編號(class_id)、班級名稱(class_name)。

2.請在Html中放入一個GridView，之後抓出來的資料丟到GridView

Code如下

Imports System
Imports System.Linq
Imports System.Linq.Expressions
Imports System.Collections.Generic
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Common
Imports System.Globalization

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim ds As DataSet = New DataSet
ds.Locale = CultureInfo.InvariantCulture

Dim connectionString As String = Nothing
connectionString = "Server=127.0.0.1;Database=test1;uid=test;pwd=test"
Using connection As SqlConnection = New SqlConnection(connectionString)

Dim adapter As SqlDataAdapter = New SqlDataAdapter( _
"select st.class_id,st.stud_id,st.stud_name from Student as st where st.stud_id like '111%'", connection)

connection.Open()
adapter.Fill(ds, "student")

End Using

Using connection As SqlConnection = New SqlConnection(connectionString)

Dim adapter As SqlDataAdapter = New SqlDataAdapter( _
"select cl.class_id,cl.class_name from class as cl", connection)

connection.Open()
adapter.Fill(ds, "class")

End Using

Dim stud_dt As DataTable = ds.Tables("student")
Dim class_dt As DataTable = ds.Tables("class")

Dim query = _
From st In stud_dt.AsEnumerable() _
Join cl In class_dt.AsEnumerable() _
On st.Field(Of String)("class_id") Equals _
cl.Field(Of String)("class_id") _
Select New With _
{ _
.class_id = st.Field(Of String)("class_id"), _
.class_name = cl.Field(Of String)("class_name"), _
.stud_id = st.Field(Of String)("stud_id"), _
.stud_name = st.Field(Of String)("stud_name") _
}

'可印出資料
'For Each strdata In query
' Response.Write(strdata.class_id & vbTab & _
' strdata.class_name & vbTab & _
' strdata.stud_id & vbTab & _
' strdata.stud_name)
'Next

GridView1.DataSource = query
GridView1.DataBind()
End If
End Sub

2014年6月9日星期一

ASP.NET 兩個DataSet合併到另一個DataSet,並JOIN(關聯)DataSet中的資料(VB.NET語法)

參考資料1：瀏覽 DataRelation (ADO.NET)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim connectionString As String = Nothing

Dim n1 As DataSet = Nothing
n1 = New DataSet("newtable")

Dim stud As DataSet = Nothing, cl As DataSet = Nothing

connectionString = "Server=127.0.0.1;Database=test1;uid=test;pwd=test"
Using connection As SqlConnection = New SqlConnection( _
connectionString)

Dim adapter As SqlDataAdapter = New SqlDataAdapter( _
"select st.班級編號,st.學號,st.姓名 from 學生 as st where st.學號 like '111%'", connection)

connection.Open()
stud = New DataSet()
adapter.Fill(stud, "student")

End Using

n1.Merge(stud.Tables(0))

Using connection As SqlConnection = New SqlConnection( _
connectionString)

Dim adapter As SqlDataAdapter = New SqlDataAdapter( _
"select cl.班級編號,cl.班級名稱 from 班級 as cl", connection)

connection.Open()
cl = New DataSet()
adapter.Fill(cl, "class")

End Using

n1.Merge(cl.Tables(0))

'第四個參數預設為True代表使用條件約束
Dim StudClassRelation As DataRelation = n1.Relations.Add("StudClass", n1.Tables("student").Columns("班級編號"), n1.Tables("class").Columns("班級編號"), False)

Dim studRow, classRow As DataRow

For Each studRow In n1.Tables("student").Rows
Response.Write("st.班級編號：" & studRow("班級編號").ToString() & " st.學號：" & studRow("學號").ToString())
For Each classRow In studRow.GetChildRows(StudClassRelation)
Response.Write(" cl.班級編號：" & classRow("班級編號").ToString() & " cl.班級名稱：" & classRow("班級名稱").ToString() & "<br/>")
Next
Next
End If
End Sub

ASP.NET 兩個DataSet合併到另一個DataSet,並Select DataSet中的某一筆資料(VB.NET語法)

說明：先下SQL指令，分別Select兩個不同的資料庫-資料表，並將資料合併在同一個DataSet，且針對DataSet Select某一筆資料。

參考資料1：DataSet.Merge 方法 (DataTable)
參考資料2：DataTable.Select Method (String)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then

Dim connectionString As String = Nothing

Dim n1 As DataSet = Nothing '將資料合併在這個DataSet
n1 = New DataSet("newtable")
Dim student1 As DataSet = Nothing, student2 As DataSet = Nothing

connectionString = "Server=127.0.0.1;Database=test1;uid=test;pwd=test"
Using connection As SqlConnection = New SqlConnection( _
connectionString)

Dim adapter As SqlDataAdapter = New SqlDataAdapter( _
"select 班級,學號,姓名 from Student where 學號 like '400%'", connection)

connection.Open()
student1 = New DataSet()
adapter.Fill(student1, "student1")

End Using
n1.Merge(student1.Tables(0))

connectionString = "Server=127.0.0.1;Database=test2;uid=test;pwd=test"
Using connection As SqlConnection = New SqlConnection( _
connectionString)

Dim adapter As SqlDataAdapter = New SqlDataAdapter( _
"select 班級,學號,姓名 from Student where 學號 like '899%'", connection)

connection.Open()
student2 = New DataSet()
adapter.Fill(student2, "student1") '這裡的student1如果更改成student2，合併後n1.Tables(0)只能看到student1的資料，而n1.Tables(1)才會看到student2的資料

End Using
n1.Merge(student2.Tables(0))

GridView1.DataSource = n1.Tables(0)
GridView1.DataBind()

Dim expression As String
expression = "stud_no = '89906141'" '要搜尋的條件
Dim foundRows() As DataRow = Nothing

foundRows = n1.Tables(0).Select(expression) '使用Select搜尋資料

Dim i As Integer
For i = 0 To foundRows.GetUpperBound(0)
For j = 0 To foundRows(i).ItemArray.Count - 1
If j = foundRows(i).ItemArray.Count - 1 Then
Label1.Text = Label1.Text & foundRows(i)(j)
Else
Label1.Text = Label1.Text & foundRows(i)(j) & ","
End If
Next
Next
End If
End Sub

2014年6月6日星期五

JQuery 應用篇

201706
1.取得table中的td欄位資料。
//jquery-1.11.3.js
$('#table1 > tbody > tr').each(function () {
//nth-child(3)取得第4個欄位資料
//$(this).find('td:nth-child(3)').text().trim()
//如果要取得欄位中的TextBox就使用eq，取得第5個欄位的input
//$(this).find('td:eq(4) input[type="text"]').val();
});
2.取得table中第一列之後的所有資料。
通常第一列會是表頭，如果要取得第一列之後的資料列，請使用下方的程式碼。
//:not排除、:first表格的第一列
//:not(:first)除了表格的第一行，其他的資料列都要
$('#table1 > tbody > tr:not(:first)').each(function () {
...
});

201705
1.檢查元素存不存在可以使用length來判斷，等於0不存在、>0代表存在。
if ($('#span_mess').length > 0) {
//存在
}else{
//不存在
};

201512
1.設定某個容器底下的checkbox全部勾選、全部取消(此例以table底下的checkbox為例)
//使用 jquery 版本v1.8.2
function CB1_checked(str_pid, int_dis) {
if (int_dis==1) {
$('#' + str_pid + ' :input[type="checkbox"]').attr('checked', true); //全部勾選
} else {
$('#' + str_pid + ' :input[type="checkbox"]').attr('checked', false); //全部取消
};
};

201411
1. 移除屬性(removeAttr)
$('#button1').removeAttr('onclick'); //移除button1 onclick

2. readonly
$('#id1').attr('readonly',true);

201406
1. HTML radio
1-1. 取得 radio 是否有選取項目
var str_iden=$('input[type="radio"][name="iden"]:checked').val();
if (str_iden==undefined){
alert('您的身份尚未填寫');
return false; //在script標籤中，回傳false 會有終止程式執行的效果
};

1-2. radio 單選某個項目
$('input[type="radio"][name="iden"][value="1"]').attr("checked",true);

1-3. radio 停用與啟用
$('#input[type="radio"][name="iden"]').attr('disabled',true); //停用

1-4. 取得class是sall的元素，底下input type是radio，其值是1的項目(個人覺得如果是使用asp.net建議使用prop)。
$('[class="sall"] input[type="radio"][value="1"]').prop("checked", true);

2. HTML Checkbox
2-1. checkbox 是否有勾選此項目(適用於單一一個checkbox)
法1.
if ($('input[type="checkbox"][name="tt"]').attr('checked')){
alert('您已勾選此項目');
}else{
alert('您已取消此項目');
};

法2.(適用於JQuery 1.6以後的版本)
將 $('input[type="checkbox"][name="tt"]').attr('checked') 改成
$('input[type="checkbox"][name="tt"]').prop('checked')

2-2. 設定CheckBox勾選
$('input[type="checkbox"][name="tt"]').attr('checked',true); //可用在低版本的JQuery

補充：使用 attr('checked', true) 與 prop("checked", true)差別在於attr('checked', true)會在標籤裡增加checked的屬性，而 prop("checked", true)則不會在標籤裡增加checked屬性。

3. HTML Select
2-1. 取得下拉式選單選取的值及項目
$('select[name="s1"] option:selected').val(); //value
$('select[id="DDL1"] option:selected').text(); //項目

2-2. 設定下拉式選單項目為選取狀態(適用於JQuery低版本)
$('select[name="Area"] option[value="100"]').attr("selected",true);

2018/03/26 如果我的Html Select有設定class，例如我的class="hello"，我也可以這樣子去設定Select要停留在哪一個選項。(使用的jquery版本是jquery-1.11.3)
$('.hello').val('0');

訂閱：文章 (Atom)

2014年6月27日 星期五

2014年6月26日 星期四

2014年6月25日 星期三

2014年6月20日 星期五

2014年6月10日 星期二

2014年6月9日 星期一

2014年6月6日 星期五