|
<%
Set cn = Server.CreateObject("ADODB.Connection")
strConnection = "DSN=MYSQL;UID=root;PWD=password"
cn.Open strConnection
Set rs = Server.CreateObject( "ADODB.Recordset" ) ' Recordset オブジェクトを作成
SqlQuery = "show databases"
rs.Open SqlQuery, cn ' レコードセット取得
%>
<TABLE cellpadding=5 bgcolor=white>
<TR><TD bgcolor=skyblue><% = rs.Fields( 0 ).Name %></TD></TR>
<% Do while not rs.EOF %>
<TR><TD><% = rs.Fields( 0 ).Value %></TD></TR>
<% rs.MoveNext %>
<% Loop %>
</TABLE>
<%
rs.Close ' レコードセット解放
cn.Close ' 切断
%>
| |