<% @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 "

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