ASP.NET Development Books
September 20, 2008ASP.NET 2.0 AJAX Guide with Visual Studio 2005 by RidDick. บทที่ 1
July 30, 2008เริ่มต้นกับ ASP.NET 2.0 AJAX
1. ดาวน์โหลด ASP.NET AJAX Extensions 1.0 ที่ http://www.asp.net/ajax/downloads/
2. ติดตั้ง ASP.NET AJAX Extensions 1.0
ขั้นตอนการติดตั้งคงไม่ต้องอธิบายอะไรมากมายนะครับ ไม่มีอะไรยากเกินกว่าที่เราจะทำได้อยู่แล้ว
3. ทดสอบการใช้งาน ASP.NET 2.0 AJAX
3.1 สร้าง Web Site Project ใหม่ โดยเลือก ASP.NET AJAX-Enabled Web Site
3.2 นำ Control มาวางดังภาพ
3.3 เพิ่มคำสั่งใน Button1_Click
3.4 ทดสอบการทำงานของ Web Page
เมื่อคลิกที่ Button แล้วสามารถทำงานก็ถือว่าการทดสอบ AJAX เสร็จสมบูรณ์แล้วครับ
วิธีการแก้ปัญหาเมื่อ Login ไม่ได้
July 30, 20081. กำหนดสิทธิโฟลเดอร์ App_Data ให้สามารถเขียนได้
2. ปิด VS2005+IE+Service(IIS,Sql Express,www) ลบไฟล์ใน F:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files
3. ลองทดสอบดูอีกครั้ง หากยังไม่ได้ ลองหาวิธีอื่น
Class สำหรับติดต่อฐานข้อมูล MS Access Files
July 28, 2008Imports System.Data
Imports System.Data.OleDb
Public Class ClassAccess
Public Strcon As String
Dim PV As String = “Provider=Microsoft.Jet.OLEDB.4.0;”
Dim m_DBPath As String = “C:\Inetpub\wwwroot\CarManagement\App_Data\DB.mdb”
Dim m_Password As String = “passwordmdb”
Dim m_Identity As Integer
Public ReadOnly Property Identity() As Integer
Get
Return m_Identity
End Get
End Property
Public Sub New()
If Dir(m_DBPath) = “” Then
Err.Raise(60001, , “Database File : ” & m_DBPath & ” Database not found”)
Exit Sub
End If
Strcon = PV & “data source=” & m_DBPath & “;Jet OLEDB:Database Password=” & m_Password
End Sub
Public Function GetDataset(ByVal Strsql As String, _
Optional ByVal DatasetName As String = “Dataset1″, _
Optional ByVal TableName As String = “Table1″) As DataSet
Dim DA As New OleDbDataAdapter(Strsql, Strcon)
Dim DS As New DataSet(DatasetName)
Try
DA.Fill(DS, TableName)
Catch x1 As Exception
Err.Raise(60002, , x1.Message)
End Try
Return DS
End Function
Public Function GetDataTable(ByVal Strsql As String, _
Optional ByVal TableName As String = “Table1″) As DataTable
Dim DA As New OleDbDataAdapter(Strsql, Strcon)
Dim DT As New DataTable(TableName)
Try
DA.Fill(DT)
Catch x1 As Exception
Err.Raise(60002, , x1.Message)
End Try
Return DT
End Function
Public Function CreateCommand(ByVal Strsql As String) As OleDbCommand
Dim cmd As New OleDbCommand(Strsql)
Return cmd
End Function
Public Function Execute(ByVal Strsql As String, Optional ByVal IdentityCheck As Boolean = False) As Integer
Dim cmd As New OleDbCommand(Strsql)
Dim X As Integer = Me.Execute(cmd, IdentityCheck)
Return X
Return Strsql
End Function
Public Function Execute(ByRef Cmd As OleDbCommand, Optional ByVal IdentityCheck As Boolean = False) As Integer
Dim Cn As New OleDbConnection(Strcon)
Cmd.Connection = Cn
Dim X As Integer
Try
Cn.Open()
m_Identity = 0
X = Cmd.ExecuteNonQuery()
If IdentityCheck = True Then
Dim cmd3 As New OleDbCommand(“select @@identity”, Cn)
m_Identity = cmd3.ExecuteScalar
End If
Catch
X = -1
Finally
Cn.Close()
End Try
Return X
End Function
Public Sub CreateParam(ByRef Cmd As OleDbCommand, ByVal StrType As String)
‘T:Text, M:Memo, Y:Currency, D:Datetime, I:Integer, S:Single, B:Boolean
Dim i As Integer
Dim j As String
For i = 1 To Len(StrType)
j = UCase(Mid(StrType, i, 1))
Dim P1 As New OleDbParameter()
P1.ParameterName = “@P” & i
Select Case j
Case “T”
P1.OleDbType = OleDbType.VarChar
Case “M”
P1.OleDbType = OleDbType.LongVarChar
Case “Y”
P1.OleDbType = OleDbType.Currency
Case “D”
P1.OleDbType = OleDbType.Date
Case “I”
P1.OleDbType = OleDbType.Integer
Case “S”
P1.OleDbType = OleDbType.Decimal
Case “B”
P1.OleDbType = OleDbType.Boolean
End Select
Cmd.Parameters.Add(P1)
Next
End Sub
End Class
Class สำหรับติดต่อฐานข้อมูล Sql Database Files
July 28, 2008Imports System.Data.SqlClient
Imports System.Data
Public Class SQLCONN
Dim PV As String = “data source=.\SQLEXPRESS;”
Dim m_Database As String = “|DataDirectory|database.mdf;”
Public Strcon As String
Dim m_Identity As Integer
Public ReadOnly Property Identity() As Integer
Get
Return m_Identity
End Get
End Property
Public Sub New()
Strcon = PV & “Integrated Security=SSPI;AttachDBFilename=” & m_Database & “User Instance=true”
End Sub
Public Function GetDataset(ByVal Strsql As String, _
Optional ByVal DatasetName As String = “Dataset1″, _
Optional ByVal TableName As String = “Table”) As DataSet
Dim DA As New SqlDataAdapter(Strsql, Strcon)
Dim DS As New DataSet(DatasetName)
Try
DA.Fill(DS, TableName)
Catch x1 As Exception
Err.Raise(60002, , x1.Message)
End Try
Return DS
End Function
Public Function GetDataTable(ByVal Strsql As String, _
Optional ByVal TableName As String = “Table”) As DataTable
Dim DA As New SqlDataAdapter(Strsql, Strcon)
Dim DT As New DataTable(TableName)
Try
DA.Fill(DT)
Catch x1 As Exception
Err.Raise(60002, , x1.Message)
End Try
Return DT
End Function
Public Function CreateCommand(ByVal Strsql As String) As SqlCommand
Dim cmd As New SqlCommand(Strsql)
Return cmd
End Function
Public Function Execute(ByVal Strsql As String, Optional ByVal IdentityCheck As Boolean = False) As Integer
Dim cmd As New SqlCommand(Strsql)
Dim X As Integer = Me.Execute(cmd, IdentityCheck)
Return X
End Function
Public Function Execute(ByRef Cmd As SqlCommand, Optional ByVal IdentityCheck As Boolean = False) As Integer
Dim Cn As New SqlConnection(Strcon)
Cmd.Connection = Cn
Dim X As Integer
Try
Cn.Open()
X = Cmd.ExecuteNonQuery()
If IdentityCheck = True Then
Dim cmd3 As New SqlCommand(“select @@identity”, Cn)
m_Identity = cmd3.ExecuteScalar
End If
Catch
X = -1
Finally
Cn.Close()
End Try
Return X
End Function
Public Sub CreateParam(ByRef Cmd As SqlCommand, ByVal StrType As String)
‘T:Text, M:Memo, Y:Currency, D:Datetime, I:Integer, S:Single, B:Boolean, P: Picture
Dim i As Integer
Dim j As String
For i = 1 To Len(StrType)
j = UCase(Mid(StrType, i, 1))
Dim P1 As New SqlParameter
P1.ParameterName = “@P” & i
Select Case j
Case “T”
P1.SqlDbType = SqlDbType.VarChar
Case “M”
P1.SqlDbType = SqlDbType.Text
Case “Y”
P1.SqlDbType = SqlDbType.Money
Case “D”
P1.SqlDbType = SqlDbType.DateTime
Case “I”
P1.SqlDbType = SqlDbType.Int
Case “S”
P1.SqlDbType = SqlDbType.Decimal
Case “B”
P1.SqlDbType = SqlDbType.Bit
Case “P”
P1.SqlDbType = SqlDbType.Image
End Select
Cmd.Parameters.Add(P1)
Next
End Sub
End Class
ตัวอย่างการติดต่อฐานข้อมูล MS Access
February 20, 2008ตัวอย่างการติดต่อฐานข้อมูล MS Access โดยใช้ Dataset
<%Import Namespace=”System.Data”%>
<%Import Namespace=”System.Data.OleDb”%>
<html>
<body>
<script language=”VB” runat = “server”>
Sub Page_Load(Sender As Object, E As EventArgs)
Dim Conn As new OleDbConnection (“Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=f:\inetpub\wwwroot\a.mdb”)
Dim Mydatasql As New OleDbDataAdapter(“Select * from member”,Conn)
Dim ds As new Dataset()
Mydatasql.Fill(ds,”Detail1″)
Name1.Datasource=ds.Tables(“Detail1″)
Name1.Databind()
End Sub
</script>
<asp:Datagrid id=”Name1″ runat = “server”/>
</body>
</html>
ตัวอย่างการติดต่อฐานข้อมูล MS Access โดยใช้ Datareader
<%Import Namespace=”System.Data”%>
<%Import Namespace=”System.Data.OleDb”%>
<html>
<body>
<script language=”VB” runat = “server”>
Sub Page_Load(Sender As Object, E As EventArgs)
Dim Conn As new OleDbConnection (“Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=” & Server.MapPath(“\a.mdb”))
Dim MydataSource=Mydatasql As new OleDbCommand(“Select * From Member”,Conn)
Name1.DataSource=Mydatasql.ExecuteReader()
Name1.Databind()
Conn.Close()
End Sub
</script>
<asp:Datagrid id=”Name1″ runat = “server”/>
</body>
</html>
การแยกประโยคคำสั่ง
February 1, 2008
|
|
การใช้งาน ASP.NET
February 1, 2008| การใช้งาน ASP.NET |
ASP.NET ยังคงเป็น Server-Side Script อยู่ ดังนั้นการจำลอง Server แบบต่างๆที่ทำใน ASP เวอร์ชั่นก่อนๆ นั้นยังคงจำเป็นอยู่ ขาดไม่ได้เด็ดขอด แต่สิ่งสำคัญคือ ระบบนี้จำเป็นต้องใช้กับ Windows 2000 หรือ Windows XP ขึ้นไปดังนั้นโปรแกรม PWS จำไม่สามารถนำมาใช้ได้ คงเหลือไว้แต่โปรแกรม IIS เท่านั้นซึ่งสเป็คของเครื่องต้องสูงมากทีเดียว สิ่งที่เพิ่มเติมมาก็คือ การใช้งาน ASP.NET นั้นต้องอยู่ในสภาวะแวดล้อมที่เป็น .NET ดังนั้นจึงจำเป็นที่จะต้อง ลงโปรแกรมที่สร้างสภาวะแวดล้อมนี้ ซึ่งก็มีให้เลือกใช้งานอยู่ 2 ชนิดคือ
ที่ผมใช้อยู่จะเป็น .NET Framework (English) นะครับ |
|
วิธีการสร้าง Virtual Directory
February 1, 2008การเซ็ทค่า Virtual Directory นั้นเป็นการสร้างชื่อ และ Path ที่เข้าถึงไฟล์ของเว็บไซต์ซึ่งในการเรียกก็จะเป็น
http://localhost/ชื่อของVirtual Directory
โดยการสร้าง Virtual Directory จะเหมาะสำหรับผู้ที่ทำหลายเว็บไซต์ จะได้ไม่งงโดยเวลาจะดูเว็บใดก็เรียกตามชื่อที่ตั้ง
วิธีการสร้ง Virtual Directory ทำดังนี้ คลิ๊กขวาที่ Default Web Site เลือกไปที่ New –>Virtual Directory

จะเกิดหน้าจอของการสร้าง Virtual Directory ขึ้นมาให้คลิ๊ก Next

ในช่องของ Alias: ให้คุณใส่ชื่อที่ใช้ในการเรียกถึง ของผมเป็น aspthai และคลิ๊ก Next

จากนั้นให้คุณ Browse… เพื่อ Path และ Set นั้นเมื่อเรียกถึงชื่อ Alias: ที่คุณตั้ง IIS จะชี้ไปที่ Path นี้ทันที



เมื่อเลือก Path เสร็จแล้วให้คลิ๊ก Next จะเข้าสู่การ Set Permission ก็ Setตามรูปเลยก็ได้นะครับ และคลิ๊ก Next และ Finish เป็นอันเสร็จ


เมื่อคุณดูใน Default Web Site จะเห็นชื่อ aspthai ที่เป็น Virtual Directory ที่สร้างไว้เมื่อจะเรียกดูก็ http://localhost/aspthai

เริ่มต้นรู้จักกับ ASP.NET
February 1, 2008
|
|
|
|
|
|
Posted by แซมริด
Posted by แซมริด
Posted by แซมริด
อย่างที่ได้กล่าวไปแล้วในตอนต้นว่าไมโครซอฟท์ต้องการที่จะสร้างอะไรที่เป็นมาตรฐานขึ้นมา เพื่อให้ทุกสิ่งทุกอย่างสามารถติดต่อสื่อสารกันได้หมด โดยคิดค้นระบบซึ่งหมายมั่นปั้นมือว่าจะให้เป็นระบบมาตรฐาน ระบบนี้คือ .NET Framework ซึ่งระบบนี้ไม่ใช่ระบบปฏิบัติการ (OS) แต่เปรียบเสมือนโปรแกรมหนึ่งที่จะสามารถสร้างสภาวะแวดล้อมหนึ่ง ซึ่งสามารถทำงานในระบบ .NET นี้ได้