odbc_sql2000.asp

<% @LANGUAGE="VBSCRIPT" %> <% ' Response.write ("*** start ***

") '----------------------------------------- ' odbc_sql2000.asp ' ' Dec/25/2012 '----------------------------------------- Response.write "*** 開始 ***

" Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open "CITY","scott","tiger" sql = "SELECT name from T0001 where ID=1" rs.Open sql, cn mado = rs.Fields(0) rs.Close Response.write (mado & "

") cn.Close Set cn = Nothing Set rs = Nothing Response.write "*** 終了 ***

" '----------------------------- %>