<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;
'
/>
<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>
<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>
