Lightbox Info Board : SQLの窓

dll アクセスする Page_Load


<SCRIPT language="VB" runat="server">

Declare Function GetWindowsDirectory _
Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Sub Page_Load(sender As Object, e As EventArgs)

	Dim RetPath As new String( Chr(0), 250 ),strTarget As String

	GetWindowsDirectory( RetPath, 250 )

	strTarget = Left(RetPath, InStr(RetPath, Chr(0)) - 1)

	WindowsDirectory.Text = strTarget

End Sub

</SCRIPT>

GetWindowsDirectory = <asp:Label id="WindowsDirectory" runat="server"/>

HTML サーバーコントロール : HtmlForm, HtmlButton, HtmlInputText

HTML サーバーコントロールとは、runat="server"　属性を通常の HTML タグ内に入れて、
サーバーの処理を行うようにしたものです。

runat="server" 属性を持つ FORM タグの中に書く必要があります。

※ 既定では、HtmlForm コントロールの method 属性は POST に設定されています
※ EnableViewState="False" を指定しないと使い物になりません


<%@ Page EnableViewState="False" %>

<SCRIPT runat="server">

Sub Button1_OnClick( Source As Object, e As EventArgs )

	Span1.InnerHtml = "You clicked Button1"

End Sub

Sub Button2_OnClick( Source As Object, e As EventArgs )

	Span1.InnerHtml = "You clicked Button2"

End Sub

</SCRIPT>

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
</HEAD>

<BODY>

<FORM runat="server" method="GET">

<INPUT
	runat="server"
	id="Text1"
	type="text"

	style='
		font: 14px;
		background-color: silver;
		width: 200px;
	'
/>

&nbsp;&nbsp;

<BUTTON
	runat="server"
	id="Button1"
	OnServerClick="Button1_OnClick" 

	style='
		font: 12px verdana;
		background-color: lightgreen;
		border-color: black;
		height: 30px;
		width: 100px;
	'
>Click me!</BUTTON>

&nbsp;&nbsp;

<BUTTON
	runat="server"
	id="Button2"
	OnServerClick="Button2_OnClick" 

	onmouseover='this.style.backgroundColor="yellow"'
	onmouseout='this.style.backgroundColor="lightgreen"'

	style='
		font: 12px verdana;
		background-color: lightgreen;
		border-color: black;
		height: 30px;
		width: 100px;
	'
>Click me too!</BUTTON>

<br><br>

<SPAN id="Span1" runat="server" />

<HR>
<SPAN id="Span2" runat="server" />

</FORM>
</BODY>
</HTML>

<SCRIPT runat="server">

Sub Page_Load(sender As Object, e As EventArgs)

	Dim workKey
	Dim strData = ""

	For Each workKey In Request.QueryString

		strData &= workKey & "=" & Request.QueryString( workKey ) & "<br>"

	Next

	Span2.innerHTML = strData

End Sub

</SCRIPT>

データベースアクセスと Web サーバーコントロール

Web サーバーコントロールは、サーバー側のデータを埋め込む為に設計された独自タグです。
ですから、HTML として表示した場合、なにも表示されません

※ MDAC 2.6 以上が必要です


<%@ Page EnableViewState="False" %>
<%@ Import Namespace="System.Data.Odbc" %>

<SCRIPT runat="server">

Sub ReadMyData(Source As Object, e As EventArgs)

	Dim myConnString As String = _
		"Provider=MSDASQL;" & _
		"DSN=MySQL;" & _
		"DATABASE=lightbox;" & _
		"UID=root;" & _
		"PWD=;"
	Dim mySelectQuery As String = "select * from `商品マスタ`"
	Dim myConnection As New OdbcConnection(myConnString)
	Dim myCommand As New OdbcCommand(mySelectQuery, myConnection)
	Dim myReader As OdbcDataReader

	myConnection.Open()
	myReader = myCommand.ExecuteReader()

	Dim r
	Dim c
	Do While myReader.Read()

		r = New TableRow()

		c = New TableCell()
		c.Text = myReader.item( "商品コード" )
		r.Cells.Add(c)

		c = New TableCell()
		c.Text = myReader.item( "商品名" )
		r.Cells.Add(c)

		Table1.Rows.Add(r)

	Loop

	myReader.Close()
	myConnection.Close()


End Sub

</SCRIPT>

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
</HEAD>

<BODY>

<FORM runat="server" method="GET">

<asp:Button
	runat="server"
	id="SendButton"
	Text="送信"
	CommandName="送信"
	CommandArgument="SQL実行"
	OnClick="ReadMyData"
/>

</FORM>

<asp:Table id="Table1" runat="server" border="1" />

</BODY>
</HTML>