pro_express.asp

<% @LANGUAGE="VBSCRIPT" %> <% <'------------------------------------------ ' pro_express.asp ' ' Dec/25/2012 '------------------------------------------- Response.write "*** 開始 ***

" Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open "Provider=SQLNCLI11;Server=nlf132¥SQLEXPRESS;Database=city;Uid=sa;Pwd=tiger" rs.Open "SELECT * FROM cities", cn ' Response.write "

"
Do While Not rs.EOF
	str_out = rs("id") & chr(9) & rs("Name") & chr(9) & rs ("population")
	str_out = str_out & chr(9) & rs ("date_mod") & "
" Response.write str_out rs.MoveNext Loop Response.write "
" rs.Close cn.Close Set cn = Nothing Set rs = Nothing Response.write "*** 終了 ***

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