SAK �}�‘ŠÙ
ASP VB Script Šî‘bŽÀ’n•Ò3 - ƒf�[ƒ^ƒx�[ƒXŽQ�Æ�Aƒe�[ƒuƒ‹�Aƒtƒ‰ƒbƒgƒe�[ƒuƒ‹
�¡ƒf�[ƒ^ƒx�[ƒXŽQ�Æ - ƒe�[ƒuƒ‹•\ަ
�Eƒe�[ƒuƒ‹‚ðŽg—p‚µ‚Ä�AãY—í‚É•\ަ‚·‚é‚É‚Í�AŽŸ‚̂悤‚É‚µ‚Ü‚·�B
<TABLE rules=ALL> ‚Æ�A�urules=ALL�v‚ðŽg‚¤‚Ì‚ªƒ~ƒ\‚Å‚ ‚é�B
�urules=ALL�v‚Å�A�€–Ú‚ª NULL ‚̂Ƃ«‚Å‚àãY—í‚É•\ަ‚Å‚«‚é�B
<TD align=right> ‚Í�A�”’l�€–Ú‚ð‰E‹l‚ß‚·‚é‚̂Ɏw’肵‚Ä‚¢‚é�B
<%@ Language=VBScript %>
<%
const title = "ƒf�[ƒ^ƒx�[ƒXŽQ�Æ"
const dsn = "dsn=SAK3_ADO;uid=SAK;pwd=SAK"
const dcr = 3 '** adUseClient
const dbi = "*"
const dbf = "sak.ƒeƒXƒgm"
const dbw = "" '** where ƒL�[ like 'a%'
const dbo = "order by ƒL�["
dim sql, rs, i, s
'** ƒf�[ƒ^ƒx�[ƒX�Ú‘±
if isempty(session("s3cn_ado")) then
set session("s3cn_ado") = server.CreateObject ("ADODB.Connection")
session("s3cn_ado").Open dsn
session("s3cn_ado").CursorLocation = dcr
end if
'** ƒNƒGƒŠ”�s
sql = "select " & dbi & " from " & dbf & " " & dbw & " " & dbo
set rs = session("s3cn_ado").Execute(sql)
%>
<HTML>
<HEAD>
<TITLE><% = title %></TITLE>
</HEAD>
<BODY>
<%
'** ƒf�[ƒ^ƒŠƒXƒgƒAƒbƒv
response.write("<P>")
response.write("<TABLE rules=ALL><TBODY>")
response.write("<TR>")
response.write("<TD>ƒŠƒXƒg”Ô�†</TD>")
response.write("<TD>ƒL�[</TD>")
response.write("<TD>ƒf�[ƒ^1</TD>")
response.write("<TD>ƒf�[ƒ^2</TD>")
response.write("<TD>ƒf�[ƒ^3</TD>")
response.write("</TR>")
i = 0
do until rs.eof
i = i + 1
s = right("000000" & i, 6)
response.write("<TR>")
response.write("<TD>" & s & "</TD>")
response.write("<TD>" & rs("ƒL�[") & "</TD>")
response.write("<TD align=right>" & rs("ƒf�[ƒ^1") & "</TD>")
response.write("<TD align=right>" & rs("ƒf�[ƒ^2") & "</TD>")
response.write("<TD align=right>" & rs("ƒf�[ƒ^3") & "</TD>")
response.write("</TR>")
rs.movenext
loop
response.write("</TBODY></TABLE>")
response.write("</P>")
'** ƒŒƒR�[ƒhƒZƒbƒgƒNƒ��[ƒY
rs.close
%>
</BODY>
</HTML>
�¡ƒf�[ƒ^ƒx�[ƒXŽQ�Æ - ƒtƒ‰ƒbƒgƒe�[ƒuƒ‹•\ަ
�Eƒe�[ƒuƒ‹‚ðƒtƒ‰ƒbƒg•\ަ‚·‚é�ê�‡‚Í�AŽŸ‚̂悤‚É‚µ‚Ü‚·�B
<%@ Language=VBScript %>
<%
const title = "ƒf�[ƒ^ƒx�[ƒXŽQ�Æ"
const dsn = "dsn=SAK3_ADO;uid=SAK;pwd=SAK"
const dcr = 3 '** adUseClient
const dbi = "*"
const dbf = "sak.ƒeƒXƒgm"
const dbw = "" '** where ƒL�[ like 'a%'
const dbo = "order by ƒL�["
dim sql, rs, i, s
'** ƒf�[ƒ^ƒx�[ƒX�Ú‘±
if isempty(session("s3cn_ado")) then
set session("s3cn_ado") = server.CreateObject ("ADODB.Connection")
session("s3cn_ado").Open dsn
session("s3cn_ado").CursorLocation = dcr
end if
'** ƒNƒGƒŠ”�s
sql = "select " & dbi & " from " & dbf & " " & dbw & " " & dbo
set rs = session("s3cn_ado").Execute(sql)
%>
<HTML>
<HEAD>
<TITLE><% = title %></TITLE>
</HEAD>
<BODY>
<%
'** ƒf�[ƒ^ƒŠƒXƒgƒAƒbƒv
response.write("<P>")
response.write("<TABLE rules=ALL bgcolor=#b0b0b0 border=0 cellPadding=3 cellSpacing=2><TBODY>")
response.write("<TR bgcolor=#d0d0d0>")
response.write("<TD>ƒŠƒXƒg”Ô�†</TD>")
response.write("<TD>ƒL�[</TD>")
response.write("<TD>ƒf�[ƒ^1</TD>")
response.write("<TD>ƒf�[ƒ^2</TD>")
response.write("<TD>ƒf�[ƒ^3</TD>")
response.write("</TR>")
i = 0
do until rs.eof
i = i + 1
s = right("000000" & i, 6)
response.write("<TR bgcolor=#f0f0f0>")
response.write("<TD>" & s & "</TD>")
response.write("<TD>" & rs("ƒL�[") & "</TD>")
response.write("<TD align=right>" & rs("ƒf�[ƒ^1") & "</TD>")
response.write("<TD align=right>" & rs("ƒf�[ƒ^2") & "</TD>")
response.write("<TD align=right>" & rs("ƒf�[ƒ^3") & "</TD>")
response.write("</TR>")
rs.movenext
loop
response.write("</TBODY></TABLE>")
response.write("</P>")
'** ƒŒƒR�[ƒhƒZƒbƒgƒNƒ��[ƒY
rs.close
%>
</BODY>
</HTML>
�¡ASP VB Script Šî‘bŽÀ’n•ÒŽ‘—¿
�¡ASP VB Script Šî‘b•ÒŽ‘—¿
�¡ASP VB Script ADO + SQL ‰ž—p•ÒŽ‘—¿
�¡ASP VB Script oo4o + SQL ‰ž—p•ÒŽ‘—¿
�¡SQL Šî‘b•ÒŽ‘—¿
�¡SQL Šî‘bŽÀ’n•ÒŽ‘—¿
�¡SQL ƒ`ƒ…�[ƒjƒ“ƒO•ÒŽ‘—¿
�¡Oracle PL/SQL •ÒŽ‘—¿
�¡PostgreSQL •Ò�AJAVA Servlet�AJSP •ÒŽ‘—¿
�¡MySQL •ÒŽ‘—¿