SAK }‘ŠŲ

SAK Streets ƒƒCƒ“ƒXƒgƒŠ[ƒg }‘ŠŲEƒJƒtƒF ˆę—— SAK Streets ŒŸõ
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | ƒtƒŠ[ƒ\ƒtƒg |

ASP VB Script Šî‘bŽĀ’n•Ō4 - ƒf[ƒ^ƒx[ƒXŽQÆA€–Ú–žŽæ“ūA€–Úƒ^ƒCƒv”ŧ’č

Ąƒf[ƒ^ƒx[ƒXŽQÆ - ‚æ‚č—Į‚ĒƒR[ƒh

  E€–Ú–ž‚âƒf[ƒ^ƒ^ƒCƒv‚ðƒf[ƒ^ƒx[ƒX‚Đ‚įŽæ“ū‚ĩ‚Ä•\ŽĶ‚ÉŽg—p‚·‚é‚ƁA
    ‚æ‚č”Ä—p“I‚ČƒR[ƒh‚É‚Č‚éB

  EŽŸ‚ĖƒR[ƒh‚ł́Aƒe[ƒuƒ‹€–ڐ”‚⍀–Úƒ^ƒCƒv‚Š•Ï‚í‚Á‚Ä‚āA“Ŋ‚ķƒR[ƒh‚Å
    ŽĐ“Ū“I‚É•\ŽĶ‚·‚é‚ą‚Æ‚Š‚Å‚Ŧ‚é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, ct, tdal, 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>")
  for i = 0 to rs.fields.count - 1
    response.write("<TD>" & rs(i).name & "</TD>")
  next
  response.write("</TR>")
  ct = 0
  do until rs.eof
    ct = ct + 1
    s = right("000000" & ct, 6)
    response.write("<TR bgcolor=#f0f0f0>")
    response.write("<TD>" & s & "</TD>")
    for i = 0 to rs.fields.count - 1
      if rs(i).type <> 131 and rs(i).type <> 139 then
        tdal = ""
      else
        tdal = " align=right"
      end if
      response.write("<TD" & tdal & ">" & rs(i) & "</TD>")
    next
    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 •ŌŽ‘—ŋ
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | ƒtƒŠ[ƒ\ƒtƒg |

SAK Streets ƒƒCƒ“ƒXƒgƒŠ[ƒg }‘ŠŲEƒJƒtƒF ˆę—— SAK Streets ŒŸõ



Copyright (C) 1999-2017 Y.SAK